Zum Inhalt springen

TI-Basic: Programme und Tutorials: Stoppuhr

Aus Wikibooks
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

[Bearbeiten]

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

[Bearbeiten]
  • 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

[Bearbeiten]

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]
Disp "" [kein Leerzeichen zwischen Anführungszeichen]
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]

*