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
BearbeitenErstellen 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
BearbeitenDies 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]
*