Visual Basic

Tabla de contenido
Programa controlador de Focos (faros y frenos) 2
Pantalla con iconos apagados (fotos focos apagados) 2
Pantalla con iconos encendidos (fotos focos encendidos) 2Programacion 3
Subrutina para el botón arranque/paro carro 3
Subrutina para encendido/apagado de los Frenos ¡Error! Marcador no definido.
Subrutina para encendido/apagado de los Faros ¡Error! Marcador nodefinido.
Subrutina para apagar todo ¡Error! Marcador no definido.
Subrutina terminar programa ¡Error! Marcador no definido.
Creadores: 3
Tutoriales Visual Basic 5

Programa controlador deFocos y abanico en (luz delantera, luz trasera y abanico)
Para esta práctica se utilizo un transistor 2N2222 el cual se utilizo como interruptor normalmente cerrado, que se activaba al recibir unpulso del puerto de la computadora.
Pantalla Base

Pantalla con objetos encendidos

Programacion
Declaracion de lalibreria
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer,ByVal Data As Byte)

Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte

Dim a, b, c, d, e, f As Integer

Programa Pedido de contraseña (esta línea es de referencia no sepone en el programa)
Option Explicit

Dim a, b, c, d, e, f As Integer

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'establecer la variable global a false
'paraindicar un inicio de sesión fallido
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
'comprobar si la contraseña es correcta
If txtPassword = "bocho" AndtxtUserName = "jose" Or txtPassword = "1234" And txtUserName = "saul" Then

Form1.Show

LoginSucceeded = True
Me.Hide
Else
MsgBox "La contraseña no es válida. Vuelvaa intentarlo"
If LoginSucceeded = False Then
a = a + 1
If a = 3 Then
Form2.Show
End If
End If
End If
End Sub

programa controlador...