Mitja Schmakeit

Hier ein kleines Programm welches versucht auf TI-83 Plus Taschenrechnern eine Uhr in TI-Basic zu simulieren, da diese keinen eingebauten Timer haben. Irgendwann mal mitten im Matheunterricht in der 7. Klasse geschrieben…

Lbl Z3
Input “STUNDE?”,C
Input “MINUTE?”,B
Input “SEKUNDE?”,A
ClrHome

Lbl A1

A+1→A
85→V
For(J,1,V)
1+1→X
End

If A=60
Then
B+1→B
0→A
ClrHome
End
If B=60
Then
C+1→C
0→B
ClrHome
End
If C=24
0→C

Output(1,1,C)
Output(1,3,”:”)
Output(1,4,B)
Output(1,6,”:”)
Output(1,7,A)
Goto A1

Sollte die Zeit zu schnell oder zu langsam laufen (hängt auch u.A. davon ab, wie voll der RAM ist), muss “85→V” angepasst werden. Wird die Zahl verkleinert, geht die Zeit schneller. Wird sie vergrößert, wird sie dementsprechend langsamer.

Zu beginn des Programms trägt man einmal die aktuelle Uhrzeit ein. Ab dann kann das Programm mit “On” beendet werden.

Comments(0)