getting junk values in text box while getting correct values in simulator

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • arungokul1990
    New Member
    • Apr 2013
    • 1

    getting junk values in text box while getting correct values in simulator

    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


    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
    Last edited by acoder; Apr 10 '13, 12:18 PM. Reason: Please use [code] tags when posting code
Working...