Auch in Bascom AVR gibt es den MOD Befehl, sodass sich obiges Beispiel so darstellt:
BASCOM-AVR hat aber auch einiges an Zeitfunktionen zu bieten.Code:A = 300 B = 300 / 60 ' Minuten C = 300 MOD 60 ' Sekunden
mit String = TIME(LONG)
kann man der Funktion TIME die Sekunden in einer LONG-Variablen übergeben und erhält einen Zeitstring mit der umgerechneten Zeit in Stunden:Minuten:Sekunden
Die Ausgabe ist 00:05:00Code:dim lSeconds as Long Dim StrTime as String * 8 $Lib "DateTime.lbx" lSeconds = 300 strTime = time(lSeconds) print strTime
Leider wird hier die 16-Bit Division Routine (noch) nicht automatisch gelinkt, daher muss, wenn nicht schon eine solche irgendwo sonst im Programm vorkommt (Word oder Integer-Division) mit z.B.
Dim W1 as Word
W1 = W1/W1
etwas getrickst werden.







Zitieren

Lesezeichen