atari-home.de - Foren
Software => Software (16-/32-Bit) => Thema gestartet von: guest1833 am Mi 07.02.2007, 15:00:57
-
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?
-
Hi Scorp.ius, nimm den TIMER zur Hilfe für die Sekunde.
Gruß, Hermann
-
Hi nochmal, hier eine Variante die mir so auf Anhieb eingefallen ist, es geht bestimmt besser:
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
-
super! vielen dank :D ich werds gleich mal ausprobieren.
-
inkey$ ?? Ist doch sicher kein GEM-proggi, oder?
-
Nö, ist nur ein schnelles Beispiel wie Er die Sekunden darstellen kann.
Gruß, Hermann