Auch in Bascom AVR gibt es den MOD Befehl, sodass sich obiges Beispiel so darstellt:
Code:
A = 300
B = 300 / 60 ' Minuten
C = 300 MOD 60 ' Sekunden
BASCOM-AVR hat aber auch einiges an Zeitfunktionen zu bieten.
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
Code:
dim lSeconds as Long
Dim StrTime as String * 8
$Lib "DateTime.lbx"
lSeconds = 300
strTime = time(lSeconds)
print strTime
Die Ausgabe ist 00:05:00
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.
Lesezeichen