Leer Puerto COM MSComm
Publicado por Luis Aray (1 intervención) el 20/03/2013 17:19:29
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
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
Valora esta pregunta
0
