Visual Basic - MSCOMM

Life is soft - evento anual de software empresarial
 
Vista:

MSCOMM

Publicado por Leo (50 intervenciones) el 09/06/2005 18:17:17
Hola a todos!

Tengo un problema con la recepcion de datos con el control mscomm, lo que tengo que hacer es enviarle una señal (A7 en hexadecimal) al dispositivo para que empiece a enviarme los datos que luego voy a capturar.
Pediria por favor un ejemplo de como puedo hacer esto...
Gracias de antemano...saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:MSCOMM

Publicado por Gustavo Rivas (43 intervenciones) el 10/06/2005 21:35:56
Primero tendrias que abrir el puerto y despues mandar el comando
MSComm1=puerto
cargaforma()
puerto.open = true
end cargaforma

subrutina de unboton o algo()
puerto.output = "loquequierasenviar"
endsubrutina

Private Sub puerto_OnComm()
if puerto.commevent = 2 then
variable = puerto.input
endif
End Sub

algo asi

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:MSCOMM

Publicado por Leo (50 intervenciones) el 13/06/2005 18:17:37
Gracias Gustavo, pero el equipo no me transmite, te paso parte del codigo para saber que es lo que hago mal.

Dim salida() As Byte

Private Sub Command1_Click()
If puerto.PortOpen = False Then puerto.PortOpen = True
salida = "A7" ' esta bien mandarlo asi?
puerto.Output = salida
End Sub

Private Sub puerto_OnComm()
If puerto.CommEvent = 2 Then
buffer = puerto.Input
End If
End Sub.

Saludos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar