Hallo,
in einem Projekt möcht ich u.a. die Ausschaltzeit per Taster in hh:mm vorgeben und
auf einem LC Display die Restlaufzeit anzeigen. Der unten stehende Code ist nur zum testen
dieser Funktion. Es geht hier nicht darum wie genau das ganze ist, die Zeitbasis kommt später
aus einer RTC, sondern nur um die Restlaufzeit.
Mir scheint das alles etwas aufwendig, aber irgendwie habe ich keine zündende Idee für
eine einfache formatierte Anzeige.
Hat jemand eine Anregung?
Gruß
hage
in einem Projekt möcht ich u.a. die Ausschaltzeit per Taster in hh:mm vorgeben und
auf einem LC Display die Restlaufzeit anzeigen. Der unten stehende Code ist nur zum testen
dieser Funktion. Es geht hier nicht darum wie genau das ganze ist, die Zeitbasis kommt später
aus einer RTC, sondern nur um die Restlaufzeit.
Mir scheint das alles etwas aufwendig, aber irgendwie habe ich keine zündende Idee für
eine einfache formatierte Anzeige.
Hat jemand eine Anregung?
Code:
$sim
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 40
Config Lcdbus = 4 ' LCD konfigurieren
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Cursor Off
Dim _h As Integer
Dim _m As Integer
Dim _s As Integer
Dim Xh As String * 2
Dim Xm As String * 2
Dim Xs As String * 2
Cls
_h = 0 ' h:m:s Wert vorgeben von dem runter gezählt wird
_m = 2 '
_s = 15 '
Do
Decr _s ' sec herunterzählen, später per sectic oder RTC
'###############################################################################
If _s < 0 Then
_s = 59
Decr _m
If _m < 0 Then
_m = 59
Decr _h
End If
End If
Xh = Str(_h)
Xm = Str(_m)
Xs = Str(_s)
Xh = Format(xh , "00")
Xm = Format(xm , "00")
Xs = Format(xs , "00")
Locate 1 , 1 : Lcd " " ; Xh ; ":" ; Xm ; ":" ; Xs
Locate 2 , 1 : Lcd " " ;
'###############################################################################
Wait 1
Loop
End
Gruß
hage