Visual Basic - Ayuda con temporizador VB6

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con temporizador VB6

Publicado por Olinqui (1 intervención) el 06/06/2009 11:41:01
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
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