Serial Port reading in Visual Basic

neoaspilet11 said:

Hello Guys,
Need some help..
1.) I tried to read the input of MSCOM in the code below

Text1.text = MsComm1.input

but it doesnt show anything on the text box. But I put a break point after the line above, and there is a data at MsComm input.

Please help me on this..

Thanks..

Click to expand...

amihomo said:

hi

you must define a buffer variable of type "variant" and then read the mscomm onto the buffer , then put the buffer in the Text1.text .

regards

Click to expand...

Private Sub Form_Load()
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub

Private Sub MSComm1_OnComm()
    If MSComm1.CommEvent = comEvReceive Then
        Text1.Text = MSComm1.Input
    End If
End Sub

dnhuruag said:

ahhh... how i wish i could have a copy of that step by step.... im am using vb6 also and incoming data from microcontroller...

Click to expand...

karim aslan said:

hiiiiiiiiii
are u sure that

Rthreshold=1 mustn't be zero for receiving
Sthreshold=1 for sending

from the properties window

Click to expand...

bhavrana said:

Need help in Stepper Motor Control through Parallel Port ..I need to drive 5 motors through parallel port [please help me out

Click to expand...

private sub command1_click()
lefts=false
rights=true

Do
    DoEvents
out &H378,1
call delay
out &H378,2
call delay
out &H378,4
call delay
out &H378,8
call delay
loop until lefts=true
end sub

Sub delay ()
times= timer
Do 
Doevents
loop until time>=times+0.01
end sub

private sub command2_click()
lefts=false
rights=true

Do
    DoEvents
out &H378,1
call delay
out &H378,2
call delay
out &H378,4
call delay
out &H378,8
call delay
loop until lefts=true
end sub