Systemvariable TIME$ unter GFA

[guest1833]

Mahlzeit!

Ich habe mal aus Dollerei eine binäre Uhr programmiert, die nu auch wunderbar läuft.

das blöde ist nur, dass die TIME$ ja nur alle zwei Sekunden aktualisiert wird.

richtig gut siehts aber sicherlich mit ner binären nur aus, wenn man 1-sekunden schritte hat.

Fällt irgendjemandem vielleicht ein oder weißjemand, wie ich ne sekundengenaue Angabe herauszaubern kann?

[Hermann]

Hi Scorp.ius, nimm den TIMER zur Hilfe für die Sekunde.

Gruß, Hermann

[Hermann]

Hi nochmal, hier eine Variante die mir so auf Anhieb eingefallen ist, es geht bestimmt besser:

Code: [Auswählen]

sec_1=VAL(RIGHT$(TIME$,1))-1    ! Erstmal die Zeit (TIME$) lesen
REPEAT                          ! und dann warten bis die Zeit
  sec_2=VAL(RIGHT$(TIME$,1))-1  ! umschlägt, um einen definierten
UNTIL sec_1<>sec_2              ! Zeitpunkt zu haben.
'
REPEAT                          ! Schleife für die Sekunden.
  sec_s=INT(TIMER/200)          ! 1. TIMER Wert in Sekunden.
  REPEAT
    sec_x=INT(TIMER/200)        ! 2. TIMER Wert in Sekunden.
  UNTIL sec_x<>sec_s            ! Schleife nach einer Sekunde verlassen.
  '
  IF sec_2<9                    ! Wenn Sekunden < 9 + 1 Sekunde,
    INC sec_2
  ELSE                          ! sonst Sekunde auf 0 setzen.
    sec_2=0
  ENDIF
  '
  PRINT LEFT$(TIME$,7);sec_2    ! Die Zeit sekundenweise ausgeben.
  '
  a$=INKEY$                     ! Auf eine Eingabe überwachen.
UNTIL a$<>""                    ! Programm beenden nach einer Eingabe.

Gruß, Hermann

[guest1833]

super! vielen dank ich werds gleich mal ausprobieren.

[afalc060]

inkey$ ?? Ist doch sicher kein GEM-proggi, oder?

[Hermann]

Nö, ist nur ein schnelles Beispiel wie Er die Sekunden darstellen kann.

Gruß, Hermann