mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-20 01:03:26 +01:00
97 lines
2.6 KiB
QBasic
97 lines
2.6 KiB
QBasic
|
10 CLS
|
|||
|
|
20 COLOR 15
|
|||
|
|
30 PRINT"UHR.BAS by RoboCop"
|
|||
|
|
40 PRINT
|
|||
|
|
50 PRINT"W<>hlen Sie eine Funktion:"
|
|||
|
|
60 PRINT
|
|||
|
|
70 PRINT"01 - Uhr"
|
|||
|
|
80 PRINT"02 - Wecker"
|
|||
|
|
90 PRINT"03 - Timer"
|
|||
|
|
100 PRINT"04 - int. Uhr stellen"
|
|||
|
|
110 PRINT"05 - int. Datum stellen"
|
|||
|
|
120 PRINT
|
|||
|
|
130 PRINT"Geben Sie die Kennziffer ein --->"
|
|||
|
|
140 LOCATE 11,35:PRINT"--"
|
|||
|
|
150 LOCATE 13,1:PRINT"--------------"
|
|||
|
|
160 A=0
|
|||
|
|
170 A$=INKEY$:IF A$="" THEN GOTO 170
|
|||
|
|
180 IF A=0 THEN WAHL=VAL(A$)*10:LOCATE 11,35:PRINT A$
|
|||
|
|
190 IF A=1 THEN WAHL=VAL(A$)+WAHL:LOCATE 11,36:PRINT A$
|
|||
|
|
200 A=A+1
|
|||
|
|
210 IF A=2 THEN GOTO 230
|
|||
|
|
220 GOTO 170
|
|||
|
|
230 REM
|
|||
|
|
240 IF WAHL=1 THEN GOTO 320
|
|||
|
|
250 IF WAHL=2 THEN
|
|||
|
|
260 IF WAHL=3 THEN
|
|||
|
|
270 IF WAHL=4 THEN GOTO 610
|
|||
|
|
280 IF WAHL=5 THEN
|
|||
|
|
290 LOCATE 13,1:PRINT"Falscheingabe!"
|
|||
|
|
300 FOR Z=0 TO 9000:NEXT
|
|||
|
|
310 LOCATE 1,1:A=-1:GOTO 30
|
|||
|
|
320 REM WAHL=1
|
|||
|
|
330 LOCATE 5,1:COLOR 31:PRINT"01 - Uhr"
|
|||
|
|
340 FOR Z=0 TO 20000:NEXT
|
|||
|
|
350 CLS
|
|||
|
|
360 COLOR 14
|
|||
|
|
370 A=0
|
|||
|
|
380 A=A+1
|
|||
|
|
390 H$=LEFT$(TIME$,2)
|
|||
|
|
400 M$=MID$(TIME$,4,2)
|
|||
|
|
410 S$=RIGHT$(TIME$,2)
|
|||
|
|
420 H=VAL(H$)
|
|||
|
|
430 M=VAL(M$)
|
|||
|
|
440 S=VAL(S$)
|
|||
|
|
450 MS=M+(S/100)
|
|||
|
|
460 IF A=1 THEN V=S
|
|||
|
|
470 IF V+1=60 THEN V=-1
|
|||
|
|
480 IF V+1=S THEN GOTO 500
|
|||
|
|
490 GOTO 380
|
|||
|
|
500 LOCATE 12,36
|
|||
|
|
510 IF S=15 OR S=45 THEN SOUND 500,1:GOTO 590
|
|||
|
|
520 IF S=30 THEN SOUND 1000,1:GOTO 590
|
|||
|
|
530 IF S=0 THEN SOUND 3000,1:GOTO 590
|
|||
|
|
540 IF M=30 AND C=0 THEN SOUND 3000,10:C=C+1
|
|||
|
|
550 IF M=60 AND D=0 THEN SOUND 1000,10:D=D+1
|
|||
|
|
560 IF H=12 AND E=0 THEN SOUND 2000,10:E=E+1
|
|||
|
|
570 IF H=0 AND F=0 THEN SOUND 2000,10:F=F+1
|
|||
|
|
580 SOUND 2000,1
|
|||
|
|
590 PRINT USING"##:##.##";H;MS
|
|||
|
|
600 GOTO 370
|
|||
|
|
610 REM int. Uhr stellen
|
|||
|
|
620 LOCATE 8,1:COLOR 31:PRINT"04 - int. Uhr stellen"
|
|||
|
|
630 FOR Z=0 TO 20000:NEXT Z
|
|||
|
|
640 COLOR 15
|
|||
|
|
650 CLS
|
|||
|
|
660 PRINT"Interne Uhr stellen:"
|
|||
|
|
670 PRINT
|
|||
|
|
680 PRINT"Geben Sie die genaue Uhrzeit ein:"
|
|||
|
|
690 PRINT" Format: HH:MM.SS (im 24h Format)"
|
|||
|
|
700 PRINT
|
|||
|
|
710 INPUT"Neue Uhrzeit: ",TIM$
|
|||
|
|
720 T1$=LEFT$(TIM$,2)
|
|||
|
|
730 T2$=MID$(TIM$,4,2)
|
|||
|
|
740 T3$=RIGHT$(TIM$,2)
|
|||
|
|
750 IF VAL(T1$)<0 OR VAL(T1$)>23 THEN GOTO 840
|
|||
|
|
760 IF VAL(T2$)<0 OR VAL(T2$)>59 THEN GOTO 840
|
|||
|
|
770 IF VAL(T3$)<0 OR VAL(T3$)>59 THEN GOTO 840
|
|||
|
|
780 IF LEN(TIM$)<>8 THEN GOTO 840
|
|||
|
|
790 IF MID$(TIM$,3,1)<>":" THEN GOTO 840
|
|||
|
|
800 IF MID$(TIM$,6,1)<>"." THEN GOTO 840
|
|||
|
|
810 LOCATE 6,15:COLOR 31:PRINT TIME$
|
|||
|
|
820 COLOR 12:PRINT"Zeit gestellt!"
|
|||
|
|
830 GOTO 10
|
|||
|
|
840 REM Zeitstellerror!!!
|
|||
|
|
850 CLS
|
|||
|
|
860 COLOR 12
|
|||
|
|
870 PRINT"LER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEH"
|
|||
|
|
880 PRINT
|
|||
|
|
890 PRINT"Beim Uhrstellen ist ein FEHLER aufgetreten!!!"
|
|||
|
|
900 PRINT"Der Wert ";TIM$;" ist ung<6E>ltig !!!"
|
|||
|
|
910 PRINT"Bitte geben Sie die Zeit nocheinmal ein."
|
|||
|
|
920 PRINT
|
|||
|
|
930 COLOR 10:PRINT"Mit Tastendruck geht's weiter"
|
|||
|
|
940 A$=INKEY$:IF A$="" THEN 940
|
|||
|
|
950 COLOR 15
|
|||
|
|
960 GOTO 650
|
|||
|
|
|