Uhrzeit einstellen

[technicus123]

Hi,

wie kann ich die Uhrzeit über Taster einstellen, wenn ich das ganze über Config Clock laufen lasse? bekomme es einfach nicht hin.

Dim Strtime As String * 8
Dim Bsec As Byte , Bmin As Byte , Bhour As Byte
Bsec = 20 : Bmin = 3 : Bhour = 0     <-Wie kann ich die Werte extern einstellen?
Enable Interrupts
Config Clock = Soft
Strtime = Time(bsec)
Time$ = Strtime

Gruß
Jens

 

[Cassio]

Hallo Technicus!

Irgendwie verstehe ich deine Code-Zeilen da oben nicht.

Was soll die String-Variable "Strtime" und die Byte-Variablen "Bsec, Bmin, Bhour"?


Wenn du die Softclock mit BASCOM aktivierst, dann werden automatisch folgende Variablen erzeugt:
Time$ ( als fertiger String = 12:30:00)
_sec (als Byte)
_min (als Byte)
_hour (als Byte)

Wenn du also per Taster die Stunden verändern möchtest, dann musst du nur die _hour-Variable anpassen bzw. hoch oder runter zählen lassen.

Es wird aber keine Plausibilitätsprüfung durchgeführt.... darum musst du dich selber kümmern...... Sprich nach 23 Stunden musst du wieder bei 00 anfangen.
Gleiches gilt für die Minuten und Sekunden beim Überschreiten der 59 bzw. Unterschreiten der 00 !

Alles klar soweit?

Schöne Grüße,
Cassio