Software > Software (16-/32-Bit)

Systemvariable TIME$ unter GFA

(1/2) > >>

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: ---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.

--- Ende Code ---

Gruß, Hermann

guest1833:
super! vielen dank :D ich werds gleich mal ausprobieren.

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

Navigation

[0] Themen-Index

[#] Nächste Seite