Interfacing AT89c51 with VB2010 using USB or RS232

[prongs1911]

Hi!
I am trying to send data from 89c51 and display it on PC using VB2010. I also want to send some numeric data(control parameters) to microcontroller from PC. I have some knowledge of 89c51 programming but little about VB2010.
I need help on VB2010 program on how to communicate using USB or RS232 port.
Can anyone help me?

 

[behnam9856]

Here's a sample code to reading serial port in vb.net using delegate!

Private Delegate Sub SerialWork(ByVal Serial As System.IO.Ports.SerialPort)
    Private Delegate Sub SetReadSerialData(ByVal data As String)
    Dim DataReceived As String = String.Empty

    Private Sub SerialWorkProcedure(ByVal Serial As System.IO.Ports.SerialPort)
        If SerialPort1.IsOpen Then
            Dim _DataReceived As String = SerialPort1.ReadExisting()
            ReadSerialData(_DataReceived)
        End If
    End Sub

    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
        Dim SW As New SerialWork(AddressOf SerialWorkProcedure)
        SW.BeginInvoke(SerialPort1, Nothing, Nothing)
    End Sub

    Private Sub ReadSerialData(ByVal data As String)
        If Me.InvokeRequired Then
            Try
                Dim RSD As New SetReadSerialData(AddressOf ReadSerialData)
                Me.Invoke(RSD, data)
            Catch generatedExceptionName As Exception
            End Try
        Else
            ''''' Here's your data...
            DataReceived += data
        End If
    End Sub

sending data to the rs232 is so easy! Serialport1.Writeline("Hello world")

 

[prongs1911]

Thank you for your help.

 

[karthikeyan.gurunathan]

use this code in ur serial port data recived event....

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
        Dim temp as string
        temp = Serialport1.Readexisting()
    End Sub

after this u can display the value of temp in label or textbox whichever u want....