recieving Serial data from microcontroller

[bubsaboey]

I am sending Data from the micro controller through RS232 (COM1) every second. The ADC on the micro controller converts the data from Light detecting resistor and every second it sends it out through the serial. From VB I connect through the comport from the event button click, then receive the data on the timer_click event every second. The code to connect and read line is included:

Private Sub tmrLight_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLight.Tick
Dim currentStat As String
'Dim cStat As Integer
'Dim lightper As Double
'currentStat = com1.ReadLine() 'ReceiveSerialData()
'cStat = CInt(currentStat)
'lightper = CDbl((cStat - 130) * 1.56)
'lblLightLvl.Text = CStr(lightper) & "%"
'currentStat = ""
End Sub
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
If com1.IsOpen Then
com1.Close()
End If
Try
With com1
.PortName = "COM1"
.BaudRate = 2400
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
End With
com1.Open()
lblAlert.ForeColor = Color.Blue
lblAlert.Text = "COM Port Connected"
btnConnect.Enabled = False
btnDConnect.Enabled = True
Catch ex As Exception
MsgBox(ex.ToString)
End Try
btnOnOff.Enabled = True
btnSetTimer.Enabled = True
cbAuto.Enabled = True
tmrLight.Start()
End Sub
 

[Dököll]

Not sure how this can be handled, bubsaboey!

Please stay tuned for added support.

Dököll