El software usado es el Qbasic de Microsoft ; aquí se incluye el código para el control se su circuito (monte el circuito1 en su protoboard). Si tiene Windows 95 o 3.x reinicialice el sistema de modo MS-DOS.
Materiales :
Plano del Circuito
Código en Qbasic:
DO
LOCATE 8,
12: PRINT "Menú Principal"
LOCATE 9,
10: PRINT "1 Para Encender Rojo"
LOCATE 10,
10: PRINT "2 Para Encender Verde"
LOCATE 11,
10: PRINT "3 Para Encender Amarillo"
LOCATE 12,
10: PRINT "4 Todos los Led Encendidos"
LOCATE 13,
10: PRINT "5 Todos los Led Apagados"
LOCATE 16,
10: INPUT "Elija su opción: ", op
IF op = 1
THEN
OUT &H378, 1
END IF
IF op = 2
THEN
OUT &H378, 2
END IF
IF op = 3
THEN
OUT &H378, 4
END IF
IF op = 4
THEN
OUT &H378, 7 '5= 1y2;6=2y3;7=1,2y3;8=not(1,1y3)
END IF
IF op = 5
THEN
OUT &H378, 8 '5= 1y2;6=2y3;7=1,2y3;8=not(1,1y3)
END IF
LOOP WHILE op
<> 0
OUT &H378, 8 'Para apagar todos los Led