20/03/2013, 13:40
|
| | Fecha de Ingreso: marzo-2013
Mensajes: 1
Antigüedad: 11 años, 8 meses Puntos: 0 | |
Leer puerto serial Hola a todos,
estoy recien comenzando a trabajar con el MSCOMM y tengo unos problemas, el puerto lo puedo abrir bien, pero no logro recepcionar nada, no se si debo enviar al dispositivo serial "algo" para que envie la info que tiene almacenada?
el dispositivo es un lector de tarjetas, dejo el codigo que tengo, como pueden ver es muy simple, por ahora solo me interesa porder comunicarme y obtener la info...
de antemano gracias a todos
Private Sub Form_Load()
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputMode = comInputModeText
'MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 0
'MSComm1.InputLen = 1
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Dim b As String
'Dim b As Byte
If MSComm1.CommEvent = comEvReceive And MSComm1.InBufferCount > 0 Then
'Has recibido datos
Text1.Text = MSComm1.Input
End If
End Sub |