Enviar Pulso al puerto serial
Publicado por Luna (3 intervenciones) el 21/01/2005 16:37:23
Espero alguien me pueda ayudar, necesito enviar un pulso al puerto serial con Visual Basic, se que se hace con el MSComm1. Dentro de mis dudas no se si estoy enviando el pulso correctamente, ademas necesito un pulso mayor o igual a 5V.
Espero alguien me pueda ayudar.
Private Sub Command1_Click()
' Usar COM1.
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1" ' 9600 baudios, sin paridad, 8 bits de datos y 1 bit de parada.
MSComm1.PortOpen = True ' Abrir el puerto.
MSComm1.Output = "CPA00000000"
MsgBox "Envio pulso"
MSComm1.PortOpen = False 'Cierrar puerto
End
Espero alguien me pueda ayudar.
Private Sub Command1_Click()
' Usar COM1.
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1" ' 9600 baudios, sin paridad, 8 bits de datos y 1 bit de parada.
MSComm1.PortOpen = True ' Abrir el puerto.
MSComm1.Output = "CPA00000000"
MsgBox "Envio pulso"
MSComm1.PortOpen = False 'Cierrar puerto
End
Valora esta pregunta


0