Bascom Countdown Uhr, Anzeige von hh:mm:ss

[hage]

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?

$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

 

[Hicki]

Hi hage,

wie weit bist Du mit Deiner Countdown Uhr? Ich habe auch vor einen zu bauen. Wärest Du so nett den Schaltplan zu veröffentlichen.

Gruß Andreas

 

[glamourex]

Hallo Ich verstehe nicht ganz, was mit Decr_s gemeint ist - dass die Zeit in Sekunden abläuft?

 

[Hicki]

Hallo Ich verstehe nicht ganz, was mit Decr_s gemeint ist - dass die Zeit in Sekunden abläuft?

Es werden mit Derc _s die Sekunden rückwärts gezählt.

Gruß Hicki