TI-Basic: Programme und Tutorials: Stoppuhr

Erstellt von:	Lehmkuehler
Schwierigkeitsgrad:	Anfänger
Modell:	TI-84 Plus

Diese für den Grafiktaschenrechner von Texas Instruments geschriebene Applikation stoppt die Zeit zwischen dem Drücken der ENTER-Taste und dem Drücken einer beliebigen Taste. Die seit dem Drücken der ENTER-Taste vergangene Zeit wird 27-mal pro Sekunde aktualisiert. Die Zeit wird in Stunden, Minuten und Sekunden angezeigt.

Erstellen des Programms

Erstellen Sie ein Programm mit dem Namen STOP, indem Sie auf die Taste Prgm drücken. Anschließend wählen Sie NEW und geben nach Bestätigen mit ENTER den Namen des Programms (STOP) ein.

Benötigte Befehle

ClrHome [I/O Position 8]
Pause [CTL Position 8]
Output( [I/O Position 6]
startTmr [2nd CATALOG "S"]
While [CTL Position 5]
getKey [I/O Position 7]
checkTmr( [2nd CATALOG "C"]
If [CTL Position 1]
Then [CTL Position 2]
Else [CTL Position 3]
End [CTL Position 7]
Disp [I/O Position 3]

Programmcode

Dies ist der Programmcode für Taschenrechner, welche die Befehle "startTmr" und "checkTmr(" unterstützen (z.B. TI-84 Plus/ TI 84 Plus SE).

ClrHome

Pause "STARTEN"

Output(1,1,"STOPPUHR")

startTmr→A

1→X

0→C

0→K

1→M

While getKey=0

checkTmr(A)→B

If B≥X×60

Then

X+1→X

End

If B≥60

Then

(X-1)×60→C

Output(5,2," ") [zwischen Anführungszeichen ein Leerzeichen]

End

If B≥M×3600

Then

M+1→M

End

If B≥3600

Then

(M-1)×60→K

Output(4,2," ") [zwischen Anführungszeichen ein Leerzeichen]

End

If B≥3600

Then

Output(3,1,M-1)

Output(3,5,"STUNDEN")

End

If B≥60

Then

Output(4,1,X-1-K)

Output(4,5,"MINUTEN")

End

Output(5,1,B-C)

Output(5,5,"SEKUNDEN")

End

Disp "" [kein Leerzeichen zwischen Anführungszeichen]

"" [kein Leerzeichen zwischen Anführungszeichen]

Dies ist der Code ohne die Unterstützung der oben genannten Befehle (z. B. TI 83 Plus).

ClrHome

Pause "STARTEN"

Output(1,1,"STOPPUHR")

1→X

0→C

0→K

1→M

0→Y

1→A

0→B

While getKey=0

Y+1→Y

If Y=11×A

Then

A+1→A

B+1→B

End

If B≥X×60

Then

X+1→X

End

If B≥60

Then

(X-1)×60→C

Output(5,2," ") [zwischen Anführungszeichen ein Leerzeichen]

End

If B≥M×3600

Then

M+1→M

End

If B≥3600

Then

(M-1)×60→K

Output(4,2," ") [zwischen Anführungszeichen ein Leerzeichen]

End

If B≥3600

Then

Output(3,1,M-1)

Output(3,5,"STUNDEN")

End

If B≥60

Then

Output(4,1,X-1-K)

Output(4,5,"MINUTEN")

End

Output(5,1,B-C)

Output(5,5,"SEKUNDEN")

End

Disp "","","","" [kein Leerzeichen zwischen Anführungszeichen]

*