Paso 2: Compilar el código.
[código]
' INVISIBLE NO DE UN RELOJ ESTÁNDAR
DIM SEC AS STRING, MIN CADENA, HR COMO CADENA
PANTALLA 0: COLOR DE LA 3, 15: ANCHO 40, 25
CLS
HACER
RECURSOS HUMANOS$ = LEFT$ ($TIEMPO, 2): MIN$ = MID$ ($TIEMPO, 4, 2): $ S = RIGHT$ ($TIEMPO, 2)
LOCALICE 1, 1: IMPRIMIR HR$; ":"; MIN$; ":"; S$
' MINUTOS
IF (VAL(MIN$) < 10 y val(min$) > = 5) o (VAL(MIN$) > = 55 y VAL(MIN$) < 60) luego COLOR 12, 15
UBICAR 3, 2: IMPRIMIR "CINCO": COLOR 3, 15
IF VAL(MIN$) > = 10 y VAL(MIN$) < 15 o VAL(MIN$) > = 50 y VAL(MIN$) < 55 entonces COLOR 12, 15
UBICAR 3, 8: IMPRIMIR "DIEZ": COLOR 3, 15
IF VAL(MIN$) > = 15 y VAL(MIN$) < 20 o VAL(MIN$) > = 45 y VAL(MIN$) < 50 entonces COLOR 12, 15
UBICAR 3, 13: "QUINCE" DE IMPRESIÓN: COLOR 3, 15
IF VAL(MIN$) > = 20 y VAL(MIN$) < 25 o VAL(MIN$) > = 40 y VAL(MIN$) < 45 luego COLOR 12, 15
UBICAR 3, 21: "VEINTE" DE IMPRESIÓN: COLOR 3, 15
IF VAL(MIN$) > = 25 y VAL(MIN$) < 30 o VAL(MIN$) > = 35 y VAL(MIN$) < 40 entonces COLOR 12, 15
UBICAR 3, 28: IMPRESIÓN "VEINTICINCO": COLOR 3, 15
UBICAR 7, 12: IMPRESIÓN "MIN"
' MINUTOS ADICIONALES
IF VAL(MIN$) > 30 entonces COLOR 12, 15
LOCALIZAR 5, 3: IMPRESIÓN "MENOS": COLOR 3, 15
IF VAL(MIN$) < 30 entonces COLOR 12, 15
LOCALIZAR 5, 10: "PLUS" DE LA IMPRESIÓN: COLOR 3, 15
IF VAL (MID$ ($TIEMPO, 5, 1)) = 6 O VAL (MID$ ($TIEMPO, 5, 1)) = 4 ENTONCES COLOR 12, 15
UBICAR 7, 3: PRINT "1": COLOR 3, 15
IF VAL (MID$ ($TIEMPO, 5, 1)) = 7 O VAL (MID$ ($TIEMPO, 5, 1)) = 3 ENTONCES COLOR 12, 15
UBICAR 7, 5: IMPRIMIR "2": COLOR 3, 15
IF VAL (MID$ ($TIEMPO, 5, 1)) = 8 O VAL (MID$ ($TIEMPO, 5, 1)) = 2 ENTONCES COLOR 12, 15
UBICAR 7, 7: PRINT "3": COLOR 3, 15
IF VAL (MID$ ($TIEMPO, 5, 1)) = 9 O VAL (MID$ ($TIEMPO, 5, 1)) = 1 ENTONCES COLOR 12, 15
UBICAR 7, 9: "4" DE IMPRESIÓN: COLOR 3, 15
' AL PASADO
IF VAL(MIN$) > 30 entonces COLOR 12, 15
LOCALIZAR 9, 10: IMPRIMIR "A LA PRÓXIMA HORA": COLOR 3, 15
IF VAL(MIN$) < = 30 entonces COLOR 12, 15
LOCALIZAR 9, 30: IMPRESIÓN "PASADO":: COLOR 3, 15
IF VAL(MIN$) = 30 ENTONCES COLOR 12, 15
LOCALIZAR 9, 36: "LA MITAD" DE IMPRESIÓN: COLOR 3, 15
' HORAS
IF VAL(HR$) = 1 O VAL(HR$) = 13 ENTONCES COLOR 12, 15
LOCALIZAR 11, 2: «UNO» IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 2 O VAL(HR$) = 14 ENTONCES COLOR 12, 15
LOCALIZAR 11, 7: IMPRIMIR "DOS": COLOR 3, 15
IF VAL(HR$) = 3 O VAL(HR$) = 15 ENTONCES COLOR 12, 15
LOCALIZAR 11, 12: "TRES" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 4 O VAL(HR$) = 16 ENTONCES COLOR 12, 15
LOCALIZAR 11, 19: "CUATRO" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 5 O VAL(HR$) = 17 ENTONCES COLOR 12, 15
LOCALIZAR 11, 25: "CINCO" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 6 O VAL(HR$) = 18 ENTONCES COLOR 12, 15
LOCALIZAR 11, 30: IMPRIMIR "SEIS": COLOR 3, 15
IF VAL(HR$) = 7 O VAL(HR$) = 19 ENTONCES COLOR 12, 15
BUSQUE 11, 35: "SIETE" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 8 O VAL(HR$) = 20 ENTONCES COLOR 12, 15
LOCALIZAR 12, 5: "OCHO" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 9 O VAL(HR$) = COLOR ENTONCES 21 12, 15
LOCALIZAR 12, 12: "NUEVE" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 10 O VAL(HR$) = 22 ENTONCES COLOR 12, 15
LOCALIZAR 12, 18: "DIEZ" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 11 O VAL(HR$) = 23 ENTONCES COLOR 12, 15
LOCALIZAR 12, 23: "ONCE" DE IMPRESIÓN: COLOR 3, 15
IF VAL(HR$) = 0 O VAL(HR$) = 12 ENTONCES COLOR 12, 15
LOCALIZAR 12, 31: "DOCE" DE IMPRESIÓN: COLOR 3, 15
' AM-PM
IF VAL(HR$) > = 12 entonces COLOR 12, 15
LOCALIZAR 16, 5: IMPRESIÓN "PM": COLOR 3, 15
IF VAL(HR$) < 12 entonces COLOR 12, 15
LOCALIZAR 16, 2: IMPRESIÓN "AM": COLOR 3, 15
' SEGUNDOS
COLOR 12, 15: LOCALIZAR 19, 2: PRINT "Y"
COLOR 3, 15
IF VAL(SEC$) = 5 ENTONCES COLOR 12, 15
LOCALIZAR 21, 1: PRINT "5": COLOR 3, 15
IF VAL(SEC$) = 10 ENTONCES COLOR 12, 15
LOCALIZAR 21, 3: PRINT "10": COLOR 3, 15
IF VAL(SEC$) = 15 ENTONCES COLOR 12, 15
LOCALIZAR 21, 7: PRINT "15": COLOR 3, 15
IF VAL(SEC$) = 20 ENTONCES COLOR 12, 15
LOCALIZAR 21, 11: IMPRIMIR "20": COLOR 3, 15
IF VAL(SEC$) = 25 ENTONCES COLOR 12, 15
LOCALIZAR 21, 15: PRINT "25": COLOR 3, 15
IF VAL(SEC$) = 30 ENTONCES COLOR 12, 15
LOCALIZAR 21, 19: PRINT "30": COLOR 3, 15
IF VAL(SEC$) = 35 ENTONCES COLOR 12, 15
LOCALIZAR 21, 23: PRINT "35": COLOR 3, 15
IF VAL(SEC$) = 40 ENTONCES COLOR 12, 15
LOCALIZAR 21, 27: PRINT "40": COLOR 3, 15
IF VAL(SEC$) = 45 LUEGO COLOR 12, 15
LOCALIZAR 21, 31: PRINT "45": COLOR 3, 15
IF VAL(SEC$) = 50 ENTONCES COLOR 12, 15
LOCALIZAR 21, 35: PRINT "50": COLOR 3, 15
IF VAL(SEC$) = 55 ENTONCES COLOR 12, 15
LOCALIZAR 21, 39: PRINT "55": COLOR 3, 15
COLOR 12, 15: LOCALIZAR 23, 32: IMPRESIÓN "SEGUNDOS"
COLOR 3, 15
LAZO
[/ code]
Nota podría agregar una sección para las alarmas que se lee en un archivo de texto de alarmas futuras en el código si desea pero el programa tendría que volver a compilar.
