Proyecto I


   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


Volver a Pricipal Robótica