Download SN54/74LS245

71
Sub Inicializar()
Data = 54
Control = 0
EscribirD
Pause = 0.1 'TPresente 'Asegura Presente 54
PauseTime
EscribirC
Pause = 0.1 'TPresente 'Asegura Presente 54
PauseTime 'TPresente 'Asegura Presente 0
Control = 1
EscribirC
Pause = 2.5 'TPresente 'Asegura Presente 54
PauseTime
End Sub
Sub EscribirD()
Dim i As Long
i = Out32(pto, Data)
End Sub
Sub EscribirC()
Dim i As Long
i = Out32(pto + 2, Control)
End Sub
Sub Leer()
aux = ((Inp32(pto + 1) And &HF8) / 8) Xor &H10
End Sub
Sub CincoVeces()
Do While Col < 5
Leer 'leyendo on line(11)con 46
Do While aux > 15 'Msg box
Pause = 5
PauseTime
Leer
If aux <= 15 Then
Exit Do
Else
Beep
MsgBox "Es posible que la Impresora esté Off-Line." & (Chr(13) & Chr(10)) &
"Presione el botón On-Line de la Impresora para continuar.!" & (Chr(13) &
Chr(10)) & "(Cinco Veces)", 48
Leer