C64: Zähler und Tastendruck: Bitte um kurze Hilfe

Ich kann ja nicht viel Basic, aber das bekomme ich gerade so noch hin, hier mal für die F1-Taste:

Da fehlt zumindest noch ein GET, um die Taste überhaupt abzufragen.

100 Z=Z+1

105 GET A$

110 IF A$ = CHR$(133) THEN GOTO 600:REM Zeilennummer anpassen wo dein Menü für F1 ist

120 IF Z < 200 THEN GOTO 100

500 PRINT"HIER KOMMT DEIN STARTPROGRAMM HIN"

600 PRINT"MENU FUER F1"

Edit: $ hinter CHR eingefügt, hatte ich vergessen und Code etwas angepasst.

...und dafür hast Du jetzt zwei Stunden gebraucht?

Zitat von Telespielator

...und dafür hast Du jetzt zwei Stunden gebraucht?

Nein, habe erst vor 15 Minuten diesen Thread entdeckt!!!

Schon klar!! Das war Spaß!!!

RaimundP : Du speicherst auf jeder Diskette ein Programm, dass die verschiedenen Versionen anzeigt? Mit Infos? Oder geht es nur darum, sich Tipperei zu sparen?

Klingt irgendwie ein wenig umständlich... Es geht hier um Emulation, keine echten Disketten, ja?

Zitat von RaimundP

(muss ich ausmessen, wie lange drei Sekunden wären)

Wenn Du anstelle eines Zählers TI verwendest, entsprechen 3 Sekunden 180 Einheiten in TI. Das gilt auch dann noch, wenn Du das Menü-Programm kompilierst:

(Beispiel von CapFuture1975 übernommen und zusätzlich mit ABS(...) gegen den Überlauf von TI nach 0 um Mitternacht abgesichert)

Warum nehmt ihr für die Zeitmessung eigentlich nicht die TI-Variable? Dann muss man die Zeit nicht messen sondern kann sie direkt ausrechnen.

EDIT: Mike hatte das schon geschrieben.

Zitat von detlef

Warum nehmt ihr für die Zeitmessung eigentlich nicht die TI-Variable?

Sorry, weil nicht alle so viel Ahnung von Basic haben. Ich hatte doch geschrieben:

Zitat von CapFuture1975

Ich kann ja nicht viel Basic, aber das bekomme ich gerade so noch hin

War ja auch eher als Hinweis gedacht. Und RaimundP hatte ja auch explizit nach einem Zähler gefragt.

Hätte ich auch nicht auf dem Schirm gehabt. Viele Wege führen nach Rom...

Zitat von Mike

120 IF ABS(TI-Z) < 180 THEN GOTO 105:REM _nicht_ Zeile 100 wie im Original!

Wieso ABS()?

Über den Tageswechsel ("23:59:59" -> "24:00:00") wird das nicht funktionieren, weil TI bis auf 5184000 steigt und dann auf 0 zurückfällt. Falls das TI das abdecken sollte: Tut es nicht, da der Wrap-Around um Mitternacht erfolgt.

Wenn also die Schleife um "23:59:59" (laut TI$) startet wird sie schon vorzeitig um "00:00:00", also nach einer Sekunde, abbrechen.

Zitat von strik

Wieso ABS()?

Eine genauere Begründung findest Du im Thread Basic, Verzögerungsschleifen bzw Timer - BASIC - Forum64, Beiträge #16 und #19.

Zitat von Mike

Eine genauere Begründung findest Du im Thread Basic, Verzögerungsschleifen bzw Timer - BASIC - Forum64, Beiträge #16 und #19.

Das hatte ich mir ja schon gedacht, aber schon in meinem Posting erwähnt, dass es bei Überschreitung von Mitternacht gerade nicht funktioniert, weil die Schleife vorzeitig beendet wird. Das dürfte in vielen Anwendungsfällen ein Bug sein. Das kann man besser hinbekommen. Das Posting #16 akzeptiert das hingegen.

Zitat von strik

Das dürfte in vielen Anwendungsfällen ein Bug sein.

In noch mehr Anwendungsfällen dürfte es ein Bug sein, wenn das Programm hängen bleibt. Im anderen Thread war keine Tastenabfrage vorgesehen, um die Warteschleife dennoch beenden zu können.

Aber bitte sehr: Du kannst dir ja gerne eine (möglichst einfache!) Lösung mit vorzeitigem Abbruch durch Tastendruck einfallen lassen und hier präsentieren, welche die 3 Sekunden immer sauber hinbekommt und das

Zitat von Mike

auch dann noch, wenn [...] das Menü-Programm kompilier[t wird].

...

Zitat von strik

Das kann man besser hinbekommen.

Dann mach mal.

Gerne:

Wem die Konstruktion in Zeilen 115 und 120 nicht gefällt ersetzt sie durch das kürzere:

Die "Magic Constant" 5184000 ist die Anzahl der Jiffys in 24h (24h * 60min * 60s * 60 ticks/s)

Zitat von strik

IF (TI-Z-(TI-Z<0)*5184000) < 180 THEN GOTO 105

Die doppelte TI-Abfrage ergibt doch automatisch eine race condition, oder übersehe ich etwas?