First commit ~0,10
This commit is contained in:
485
BAS/HORA3.BAS
Normal file
485
BAS/HORA3.BAS
Normal file
@ -0,0 +1,485 @@
|
||||
'Generador de un reloj digital en pantalla'
|
||||
DEFINT A-Z
|
||||
DECLARE SUB PonNum (Digito$, Posicion)
|
||||
DIM SHARED P(6), A, veces
|
||||
DIM OldX1(30), OldY1(30), OldX2(30), OldY2(30), OldX3(30), OldY3(30), OldX4(30), OldY4(30), OldX5(30), OldY5(30), OldTipo(100), OldX6(100), OldY6(100)
|
||||
RANDOMIZE TIMER
|
||||
|
||||
X(1) = 400: Y(1) = 175
|
||||
X(2) = 400: Y(2) = 175
|
||||
X(3) = 400: Y(3) = 175
|
||||
X(4) = 400: Y(4) = 175
|
||||
X(5) = 400: Y(5) = 175
|
||||
X(6) = 400: Y(5) = 175
|
||||
|
||||
mir$ = "Reloj ( Jos<6F> David Guill<6C>n 15/02/93 )"
|
||||
IF MID$(mir$, 13, 1) <> "<22>" THEN PRINT " Programa modificado 1": GOTO errormo
|
||||
IF MID$(mir$, 26, 1) <> "<22>" THEN PRINT " Programa modificado 2": GOTO errormo
|
||||
|
||||
P(1) = 0
|
||||
P(2) = 80
|
||||
P(3) = 200
|
||||
P(4) = 280
|
||||
|
||||
P(5) = 400
|
||||
P(6) = 440
|
||||
|
||||
'P(1) = 0
|
||||
'P(2) = 75
|
||||
'P(3) = 195
|
||||
'P(4) = 275
|
||||
'
|
||||
'P(5) = 395
|
||||
'P(6) = 435
|
||||
|
||||
SCREEN 9
|
||||
|
||||
Hora$ = LEFT$(TIME$, 2)
|
||||
Min$ = MID$(TIME$, 4, 2)
|
||||
|
||||
Hora1$ = LEFT$(Hora$, 1)
|
||||
A = 1
|
||||
PonNum Hora1$, 1
|
||||
Hora2$ = MID$(Hora$, 2, 1)
|
||||
A = 2
|
||||
PonNum Hora2$, 2
|
||||
|
||||
LINE (170, 20)-(180, 30), 12, BF
|
||||
LINE (170, 60)-(180, 70), 12, BF
|
||||
|
||||
Min1$ = LEFT$(Min$, 1)
|
||||
A = 3
|
||||
PonNum Min1$, 3
|
||||
|
||||
Min2$ = MID$(Min$, 2, 1)
|
||||
A = 4
|
||||
PonNum Min2$, 4
|
||||
|
||||
|
||||
LINE (370, 50)-(380, 60), 12, BF
|
||||
LINE (370, 80)-(380, 90), 12, BF
|
||||
|
||||
|
||||
DO
|
||||
Hora$ = LEFT$(TIME$, 2)
|
||||
Min$ = MID$(TIME$, 4, 2)
|
||||
|
||||
IF INKEY$ <> "" THEN SCREEN 0: PRINT mir$: SYSTEM
|
||||
|
||||
IF OldHor2$ <> LEFT$(Hora$, 1) THEN
|
||||
Hora1$ = LEFT$(Hora$, 1)
|
||||
A = 1
|
||||
PonNum Hora1$, 1
|
||||
END IF
|
||||
OldHor2$ = LEFT$(Hora$, 1)
|
||||
|
||||
IF OldHor1$ <> MID$(Hora$, 2, 1) THEN
|
||||
Hora2$ = MID$(Hora$, 2, 1)
|
||||
A = 2
|
||||
PonNum Hora2$, 2
|
||||
END IF
|
||||
OldHor1$ = MID$(Hora$, 2, 1)
|
||||
|
||||
IF OldMin2$ <> LEFT$(Min$, 1) THEN
|
||||
Min1$ = LEFT$(Min$, 1)
|
||||
A = 3
|
||||
PonNum Min1$, 3
|
||||
END IF
|
||||
OldMin2$ = LEFT$(Min$, 1)
|
||||
|
||||
IF OldMin1$ <> MID$(Min$, 2, 1) THEN
|
||||
Min2$ = MID$(Min$, 2, 1)
|
||||
A = 4
|
||||
PonNum Min2$, 4
|
||||
|
||||
END IF
|
||||
OldMin1$ = MID$(Min$, 2, 1)
|
||||
|
||||
IF INKEY$ <> "" THEN SCREEN 0: PRINT mir$: SYSTEM
|
||||
|
||||
seg$ = MID$(TIME$, 7, 1)
|
||||
A = 5
|
||||
PonNum seg$, 5
|
||||
seg$ = MID$(TIME$, 8, 1)
|
||||
A = 6
|
||||
PonNum seg$, 6
|
||||
|
||||
|
||||
'***************************************************
|
||||
'* GRAFICO LINEAL **********************************
|
||||
'***************************************************
|
||||
|
||||
|
||||
|
||||
M(4) = INT(RND * 8) + 1
|
||||
M(3) = INT(RND * 8) + 1
|
||||
M(2) = INT(RND * 8) + 1
|
||||
M(5) = INT(RND * 8) + 1
|
||||
M(1) = INT(RND * 8) + 1
|
||||
qwert = qwert + 1
|
||||
IF qwert = 7 THEN qwert = 1
|
||||
IF Cont = 1 THEN M(6) = INT(RND * 7) + 1: M(6) = M(qwert)
|
||||
|
||||
DO
|
||||
|
||||
Vez = Vez + 1
|
||||
Vz = Vz + 1
|
||||
|
||||
IF Vz >= 30 THEN Vz = 1
|
||||
|
||||
IF Vez >= 30 THEN Vez = 1
|
||||
|
||||
FOR Coor = 1 TO 6
|
||||
|
||||
SELECT CASE M(Coor)
|
||||
CASE 1: IF Coor <> 6 THEN X(Coor) = X(Coor) - 3: Y(Coor) = Y(Coor) - 3 ELSE X(Coor) = X(Coor) - 2: Y(Coor) = Y(Coor) - 2
|
||||
CASE 2: IF Coor <> 6 THEN Y(Coor) = Y(Coor) - 3 ELSE Y(Coor) = Y(Coor) - 2
|
||||
CASE 3: IF Coor <> 6 THEN X(Coor) = X(Coor) + 3: Y(Coor) = Y(Coor) - 3 ELSE X(Coor) = X(Coor) + 2: Y(Coor) = Y(Coor) - 2
|
||||
CASE 4: IF Coor <> 6 THEN X(Coor) = X(Coor) - 3 ELSE X(Coor) = X(Coor) - 2
|
||||
CASE 5: 'Pause
|
||||
CASE 6: IF Coor <> 6 THEN Y(Coor) = Y(Coor) + 3 ELSE Y(Coor) = Y(Coor) + 2
|
||||
CASE 7: IF Coor <> 6 THEN X(Coor) = X(Coor) - 3: Y(Coor) = Y(Coor) + 3 ELSE X(Coor) = X(Coor) - 2: Y(Coor) = Y(Coor) + 2
|
||||
CASE 8: IF Coor <> 6 THEN X(Coor) = X(Coor) + 3 ELSE X(Coor) = X(Coor) + 2
|
||||
CASE 9: IF Coor <> 6 THEN X(Coor) = X(Coor) + 3: Y(Coor) = Y(Coor) + 3 ELSE X(Coor) = X(Coor) + 2: Y(Coor) = Y(Coor) + 2
|
||||
END SELECT
|
||||
Cont = 0
|
||||
|
||||
IF Coor = 6 THEN
|
||||
IF X(6) >= 640 THEN X(6) = 640: Salida = 1: Cont = 1
|
||||
IF X(6) <= 0 THEN X(6) = 0: Salida = 1: Cont = 1
|
||||
IF Y(6) <= 150 THEN Y(6) = 150: Salida = 1: Cont = 1
|
||||
IF Y(6) >= 350 THEN Y(6) = 350: Salida = 1: Cont = 1
|
||||
ELSE
|
||||
IF X(Coor) >= 640 THEN X(Coor) = 640: Salida = 1
|
||||
IF X(Coor) <= 485 AND Y(Coor) < 250 THEN
|
||||
X(Coor) = 650: Salida = 1
|
||||
ELSEIF X(Coor) <= 0 THEN X(Coor) = 485: Salida = 1
|
||||
END IF
|
||||
|
||||
|
||||
IF Y(Coor) >= 350 AND X(Corr) <= 400 THEN Y(Coor) = 350: Salida = 1
|
||||
IF Y(Coor) >= 350 THEN Y(Coor) = 0: Salida = 1
|
||||
IF Y(Coor) <= 0 THEN Y(Coor) = 350: Salida = 1
|
||||
|
||||
END IF
|
||||
|
||||
OldX6(1) = X(6)
|
||||
OldY6(1) = Y(6)
|
||||
OldTipo(1) = Tipo
|
||||
|
||||
OldX1(1) = X(1)
|
||||
OldX2(1) = X(2)
|
||||
OldX3(1) = X(3)
|
||||
|
||||
OldX4(1) = X(4)
|
||||
OldX5(1) = X(5)
|
||||
|
||||
OldY1(1) = Y(1)
|
||||
OldY2(1) = Y(2)
|
||||
OldY3(1) = Y(3)
|
||||
|
||||
OldY4(1) = Y(4)
|
||||
OldY5(1) = Y(5)
|
||||
|
||||
NEXT
|
||||
|
||||
IF RIGHT$(RTRIM$(LTRIM$(STR$(Vez / 5))), 1) = "0" OR RIGHT$(RTRIM$(LTRIM$(STR$(Vez / 5))), 1) = "5" THEN Vez1 = Vez1 + 1
|
||||
IF Vez1 >= 16 THEN Vez1 = 1
|
||||
|
||||
|
||||
IF RIGHT$(RTRIM$(LTRIM$(STR$(Vz / 2))), 1) = "0" OR RIGHT$(RTRIM$(LTRIM$(STR$(Vz / 5))), 1) = "5" THEN Vz1 = Vz1 + 1
|
||||
IF Vz1 >= 16 THEN Vz1 = 1
|
||||
|
||||
|
||||
LINE (X(1), Y(1))-(X(2), Y(2)), Vez1
|
||||
LINE (X(2), Y(2))-(X(3), Y(3)), Vez1
|
||||
LINE (X(3), Y(3))-(X(4), Y(4)), Vez1
|
||||
|
||||
LINE (X(4), Y(4))-(X(5), Y(5)), Vez1
|
||||
LINE (X(5), Y(5))-(X(1), Y(1)), Vez1
|
||||
|
||||
CIRCLE (X(6), Y(6)), 20, Vz1: ', , , Tipo
|
||||
|
||||
A = 71
|
||||
|
||||
WHILE A >= 2
|
||||
A = A - 1
|
||||
|
||||
IF A < 31 THEN
|
||||
|
||||
OldX1(A) = OldX1(A - 1)
|
||||
OldY1(A) = OldY1(A - 1)
|
||||
|
||||
OldX2(A) = OldX2(A - 1)
|
||||
OldY2(A) = OldY2(A - 1)
|
||||
|
||||
OldX3(A) = OldX3(A - 1)
|
||||
OldY3(A) = OldY3(A - 1)
|
||||
|
||||
OldX4(A) = OldX4(A - 1)
|
||||
OldY4(A) = OldY4(A - 1)
|
||||
|
||||
OldX5(A) = OldX5(A - 1)
|
||||
OldY5(A) = OldY5(A - 1)
|
||||
END IF
|
||||
|
||||
OldX6(A) = OldX6(A - 1)
|
||||
OldY6(A) = OldY6(A - 1)
|
||||
OldTipo(A) = OldTipo(A - 1)
|
||||
|
||||
WEND
|
||||
|
||||
CIRCLE (OldX6(70), OldY6(70)), 20, 0
|
||||
|
||||
LINE (OldX1(30), OldY1(30))-(OldX2(30), OldY2(30)), 0
|
||||
LINE (OldX2(30), OldY2(30))-(OldX3(30), OldY3(30)), 0
|
||||
LINE (OldX3(30), OldY3(30))-(OldX4(30), OldY4(30)), 0
|
||||
|
||||
LINE (OldX4(30), OldY4(30))-(OldX5(30), OldY5(30)), 0
|
||||
LINE (OldX5(30), OldY5(30))-(OldX1(30), OldY1(30)), 0
|
||||
|
||||
LOOP WHILE Salida <> 1
|
||||
|
||||
Salida = 0
|
||||
|
||||
LOOP
|
||||
|
||||
|
||||
|
||||
'***************************************************
|
||||
'* GRAFICOS DE PRUEBA ******************************
|
||||
'***************************************************
|
||||
|
||||
errormo:
|
||||
CLS
|
||||
COLOR 15, 0
|
||||
PRINT " ATENCION !!! PELIGRO !!!!": PRINT : PRINT
|
||||
PRINT " Alguien modifico ilegalmente el programa tratando de apropiarse de": PRINT
|
||||
PRINT " los creditos ajenos a <20>l. Su autor a protegido el sistema por ello": PRINT
|
||||
PRINT " ya que ha intentado modificar este programa causara estragos en tu": PRINT
|
||||
PRINT " sistema.... LA PIRATERIA SERA TU MUERTE ": PRINT
|
||||
PRINT : PRINT : PRINT " Desea regresar al Sistema Operativo DOS o bloquear sistema : "
|
||||
PRINT " (S)istema (B)loquear (S/B)"
|
||||
SHELL "Del. >nul"
|
||||
SYSTEM
|
||||
END
|
||||
|
||||
grap:
|
||||
|
||||
SUB PonNum (Digito$, Posicion)
|
||||
|
||||
veces = veces + 1
|
||||
LOCATE 10, 1: PRINT veces
|
||||
|
||||
IF INKEY$ <> "" THEN STOP
|
||||
|
||||
SELECT CASE VAL(RTRIM$(LTRIM$(Digito$)))
|
||||
|
||||
CASE 0
|
||||
D1 = 1: D2 = 1: D3 = 1: D4 = 1: D5 = 0: D6 = 1: D7 = 1
|
||||
|
||||
CASE 1
|
||||
D1 = 0: D2 = 0: D3 = 1: D4 = 0: D5 = 0: D6 = 1: D7 = 0
|
||||
|
||||
CASE 2
|
||||
D1 = 0: D2 = 1: D3 = 1: D4 = 1: D5 = 1: D6 = 0: D7 = 1
|
||||
|
||||
|
||||
CASE 3
|
||||
D1 = 0: D2 = 1: D3 = 1: D4 = 0: D5 = 1: D6 = 1: D7 = 1
|
||||
|
||||
|
||||
CASE 4
|
||||
D1 = 1: D2 = 0: D3 = 1: D4 = 0: D5 = 1: D6 = 1: D7 = 0
|
||||
|
||||
|
||||
CASE 5
|
||||
D1 = 1: D2 = 1: D3 = 0: D4 = 0: D5 = 1: D6 = 1: D7 = 1
|
||||
|
||||
|
||||
CASE 6
|
||||
D1 = 1: D2 = 1: D3 = 0: D4 = 1: D5 = 1: D6 = 1: D7 = 1
|
||||
|
||||
|
||||
CASE 7
|
||||
D1 = 0: D2 = 1: D3 = 1: D4 = 0: D5 = 0: D6 = 1: D7 = 0
|
||||
|
||||
|
||||
CASE 8
|
||||
D1 = 1: D2 = 1: D3 = 1: D4 = 1: D5 = 1: D6 = 1: D7 = 1
|
||||
|
||||
|
||||
CASE 9
|
||||
D1 = 1: D2 = 1: D3 = 1: D4 = 0: D5 = 1: D6 = 1: D7 = 1
|
||||
|
||||
|
||||
END SELECT
|
||||
|
||||
IF Posicion < 5 THEN
|
||||
|
||||
IF D1 = 1 THEN
|
||||
PSET (0 + P(A), 0), 4
|
||||
DRAW "D40 R15 U26 H15"
|
||||
DRAW "F13 BL5 P4,4"
|
||||
ELSE
|
||||
PSET (0 + P(A), 0), 0
|
||||
DRAW "D40 R15 U26 H15"
|
||||
DRAW "F13 BL5 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D2 = 1 THEN
|
||||
PSET (3 + P(A), 0), 4
|
||||
DRAW "R63 G15 L33 H15"
|
||||
DRAW "BR5 BD5 BR23 P4,4"
|
||||
ELSE
|
||||
PSET (3 + P(A), 0), 0
|
||||
DRAW "R63 G15 L33 H15"
|
||||
DRAW "BR5 BD5 BR23 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D3 = 1 THEN
|
||||
PSET (69 + P(A), 0), 4
|
||||
DRAW " D40 L15 U25 E15"
|
||||
DRAW "G13 BR5 P4,4"
|
||||
ELSE
|
||||
PSET (69 + P(A), 0), 0
|
||||
DRAW " D40 L15 U25 E15"
|
||||
DRAW "G13 BR5 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D4 = 1 THEN
|
||||
PSET (0 + P(A), 42), 4
|
||||
DRAW " D50 E15 U20 H15"
|
||||
DRAW "F13 BL5 P4,4"
|
||||
ELSE
|
||||
PSET (0 + P(A), 42), 0
|
||||
DRAW " D50 E15 U20 H15"
|
||||
DRAW "F13 BL5 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D5 = 1 THEN
|
||||
PSET (3 + P(A), 42), 4
|
||||
DRAW " R63 G15 L33 H15"
|
||||
DRAW "BR5 BD5 BR23 P4,4"
|
||||
ELSE
|
||||
PSET (3 + P(A), 42), 0
|
||||
DRAW " R63 G15 L33 H15"
|
||||
DRAW "BR5 BD5 BR23 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D6 = 1 THEN
|
||||
PSET (69 + P(A), 42), 4
|
||||
DRAW " D50 H15 U20 E15"
|
||||
DRAW "G13 BR5 P4,4"
|
||||
ELSE
|
||||
PSET (69 + P(A), 42), 0
|
||||
DRAW " D50 H15 U20 E15"
|
||||
DRAW "G13 BR5 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D7 = 1 THEN
|
||||
PSET (3 + P(A), 93), 4
|
||||
DRAW " E15 R33 F15 L62"
|
||||
DRAW "BR23 BU5 P4,4"
|
||||
ELSE
|
||||
PSET (3 + P(A), 93), 0
|
||||
DRAW " E15 R33 F15 L62"
|
||||
DRAW "BR23 BU5 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
'********************************************************
|
||||
'**************** EL GRAN " ELSE " *********************
|
||||
'********************************************************
|
||||
|
||||
ELSE
|
||||
|
||||
IF D1 = 1 THEN
|
||||
PSET (0 + P(A), 45), 4
|
||||
DRAW "D20 R8 U13 H8"
|
||||
DRAW "F7 BL3 P4,4"
|
||||
ELSE
|
||||
PSET (0 + P(A), 45), 0
|
||||
DRAW "D20 R8 U13 H8"
|
||||
DRAW "F7 BL3 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D2 = 1 THEN
|
||||
PSET (3 + P(A), 45), 4
|
||||
DRAW "R32 G8 L17 H8"
|
||||
DRAW "BR3 BD3 BR12 P4,4"
|
||||
ELSE
|
||||
PSET (3 + P(A), 45), 0
|
||||
DRAW "R32 G8 L17 H8"
|
||||
DRAW "BR3 BD3 BR12 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D3 = 1 THEN
|
||||
PSET (37 + P(A), 45), 4
|
||||
DRAW "D20 L8 U13 E8"
|
||||
DRAW "G8 BR3 P4,4"
|
||||
ELSE
|
||||
PSET (37 + P(A), 45), 0
|
||||
DRAW "D20 L8 U13 E8"
|
||||
DRAW "G8 BR3 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D4 = 1 THEN
|
||||
PSET (0 + P(A), 67), 4
|
||||
DRAW "D25 E8 U10 H8"
|
||||
DRAW "F8 BL3 P4,4"
|
||||
ELSE
|
||||
PSET (0 + P(A), 67), 0
|
||||
DRAW "D25 E8 U10 H8"
|
||||
DRAW "F8 BL3 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D5 = 1 THEN
|
||||
PSET (3 + P(A), 67), 4
|
||||
DRAW "R32 G8 L17 H8"
|
||||
DRAW "BR3 BD3 BR12 P4,4"
|
||||
ELSE
|
||||
PSET (3 + P(A), 67), 0
|
||||
DRAW "R32 G8 L17 H8"
|
||||
DRAW "BR3 BD3 BR12 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D6 = 1 THEN
|
||||
PSET (37 + P(A), 67), 4
|
||||
DRAW "D25 H8 U10 E8"
|
||||
DRAW "G8 BR3 P4,4"
|
||||
ELSE
|
||||
PSET (37 + P(A), 67), 0
|
||||
DRAW "D25 H8 U10 E8"
|
||||
DRAW "G8 BR3 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
IF D7 = 1 THEN
|
||||
PSET (3 + P(A), 93), 4
|
||||
DRAW "E8 R17 F8 L34"
|
||||
DRAW "BR12 BU3 P4,4"
|
||||
ELSE
|
||||
PSET (3 + P(A), 93), 0
|
||||
DRAW "E8 R17 F8 L34"
|
||||
DRAW "BR12 BU3 P0,0"
|
||||
|
||||
END IF
|
||||
|
||||
END IF
|
||||
|
||||
|
||||
|
||||
END SUB
|
||||
|
||||
Reference in New Issue
Block a user