Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/03/2013, 13:40
larayavergara
 
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