Hola amigos solicito su ayuda necesito mandar dos pulsos por el puerto paralelo los pulsos se activan con un CommandButton uno debe quedar Enabled hasta que se presione de nuevo el CommandButton y el otro solo se debe mandar al puerto durante 2 segundos para mandar la salida al puerto estoy usando la I/O.DLL PortOut
Se presiona y envía el dato al puerto &H378, 1 y &H37A, 202 este ultimo solo por 2 segundos luego envía &H37A, 203 que apaga ese pin quedando solo encendido el &H378, 1 en espera de que se vuelva a presionar el botón para enviar &H378, 0 con esto se apaga el segundo pin. El código que hice es algo así
'Declaracion dela dll de acseso al puerto
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Sub Led1_Click() 'se refiere a la acción del commanbotton al Click
If Me.imgApagVerd1.Visible = True Then 'Se refiere a la imagen PictureBox ImagenApagadaVerde es visible
PortOut &H378, 1 'Manda al puerto Bit 1
Me.imgPrenVerd1.Visible = True 'Si esta condición es cierta
Me.imgApagVerd1.Visible = False 'Si esta condición es Falsa
Else 'Si esto cambia
PortOut &H378, 0 'Manda al puerto un Bit0
Me.imgApagVerd1.Visible = True 'Si esta condición es cierta
Me.imgPrenVerd1.Visible = False 'Si esta condición es Falsa
End If
End Sub
Agregué un PictureBox para controlar la función de doble click del botón
Espero puedan ayudarme y agradezco de antemano su respuesta
