Com Port question

[jhenry]

Does anyone have any sample code that they could post that shows communication between the PC and a com port using the mscomm control?

thanks!
J

[grahamxyz]

Hope these snipets help


'### this opens the comm port ###
mscom1.Settings = comms.speed + "," + comms.parity + "," + comms.bits + "," + comms.stopbit '"115200,N,8,1"
mscom1.CommPort = 1
mscom1.Handshaking = MSCommLib.HandshakeConstants.comRTS
'mscom1.CTSHolding = False
mscom1.InBufferSize = comms.inbuffersize
mscom1.OutBufferSize = comms.outbuffersize
mscom1.PortOpen = True



'### this send a string ###
mscom1.Output = "at&f&w"


'### use a timer to read the input buffer ###
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x As Int16

If mscom1.PortOpen = True Then
comms.inbuffer(1) = comms.inbuffer(1) + mscom1.Input '### read receive buffer ###
End If


End Sub