How to connect PIC16f877a to VB.net

[johnson h'ng]

Hi,

Can anyone advise me?
I would like to ask any idea to do connection for PIC16f877a to vb.net?
I am currently doing my final year project regarding Home Evaluation System.
The project works when pressing the VB button, the PIC will activated the sensors and it send signal LED light up.
I currently stuck at the phase VB connect to PIC. I not sure what the coding needed.

Thank You,
Johnson

[ober]

Basically it involve communication. The straight forward and simplest method is via UART, on computer it become COM port. Uses USB to Serial/UART converter, it enable computer to create link to microcontroller.

You can refer to some of our tutorials:

1. Getting Started On Graphical User Interface GUI. There are a few examples in that tutorial, from sending commands and receiving data from PIC microcontroller.

2. GUI Controlled Flexibot by Using SKXBee. Another example of tutorial. Using XBee, to control mobile robot from computer, again, it uses VB and COM port.

[johnson h'ng]

actually i quite don't understand this line
Dim WithEvents ComPort As New IO.Ports.SerialPort
why they use WithEvents?

[yonghui]

hmm..
think u need more reading on VB.


regards,
yh

[johnson h'ng]

Hi Sir,

Currently, i get to set the connection for the VB and my PIC. But i had a problem in using the DATARECEIVED() in my VB command.
In my PIC , I have send the " uart_str("The Door Is Close")" to Vb but the message doesn't pop up the messagebox command in vb to show that the door is close.

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim sp As SerialPort = CType(sender, SerialPort)
Dim indata As String = SerialPort1.ReadExisting()
Messagebox.show("Data received:" , indata)

End Sub

Can anyone suggest/ advise me in this part of the program?

[johnson h'ng]

Hi,
Current working on serial connection and I managed to get the serial port reading. Whether my door is close or open through the messagebox.show command. But the problem here I want my message to pop up on label2.text. But I does not work.

Can anyone advice me?

CODE: SELECT_ALL_CODE

    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Dim input As String
        input = SerialPort1.ReadExisting()
        MessageBox.Show(input)
        '
Label2.Text = input


    End Sub


[lockman_akim]

just use this code:

if serialport1.isopen = false then
label2.text = "Port IS Close"
Else
label2.text = "Port Is Open"
End If