Am working with a microcontroller to interface it with vb6 am getting junk values in text box while am getting correct values n simulator
my code is
my code is
Code:
Private Sub Command1_Click() If (MSComm1.PortOpen = False) Then MSComm1.PortOpen = True End If Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() If (MSComm1.PortOpen = True) Then MSComm1.PortOpen = False End If Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Form_Load() With MSComm1 .CommPort = 1 .RThreshold = 1 .RTSEnable = True .Settings = "9600,N,8,1" .InputLen = 2 .SThreshold = 1 .PortOpen = True End With End Sub Private Sub Form_Unload(Cancel As Integer) If (MSComm1.PortOpen = True) Then MSComm1.PortOpen = False End If End Sub Private Sub MSComm1_OnComm() Dim Buffer As String Select Case MSComm1.CommEvent Case comEvReceive Text1.Text = " " Buffer = MSComm1.Input Text1.Text = Text1.Text & Buffer End Select End Sub