Also mit meinen TI84+SE und der K100D gehts.
Allerdings finde ich keinen passenden Befehl um die Pausen wirklich genau zu machen. Wenn man in der FOR-Schleife einfach 500*A rechnen lässt, passts so halbwegs... Lieber wäre mir allerdings ne wirklich genaue Pause
Löst nach dem angegebenen Intervall A in Sekunden aus und hört nach der Anzahl B auf. Brauch A*(B+1) Sekunden, da der erste Auslösebefehl irgendwie übergangen wird. Keine Ahnung warum, der sollte eigentlich sofort auslösen (Send(B) steht ja direkt nach dem Kopf der While-Schleife...).
> bedeutet "größer gleich", zu finden unter Second->Math (Test). -> bedeutet "STO>" (Speichern).
Allerdings finde ich keinen passenden Befehl um die Pausen wirklich genau zu machen. Wenn man in der FOR-Schleife einfach 500*A rechnen lässt, passts so halbwegs... Lieber wäre mir allerdings ne wirklich genaue Pause
Code:
ClrHome
Disp "INTERVALL"
Prompt A
Disp "Anzahl"
Prompt B
While B[U]>[/U]0
Send(B)
For(H,1,A*500,1)
End
B-1[SIZE="1"][FONT="Courier New"]->[/FONT][/SIZE]B
End
> bedeutet "größer gleich", zu finden unter Second->Math (Test). -> bedeutet "STO>" (Speichern).