Uhr: wait-Anweisung im Hauptprogramm und sectic

Wozu jedesmal Cursor off?

Am besten ohne waitms arbeiten.
Du kannst S in einer anderen Variablen zwischenspeichern und wenn S geändert wurde das Display aktualisieren. Außerdem zählst Du jede Sekunde S hoch, da brauchst Du nicht Time$ vergleichen

Code:

---

Cursor Off
dim s_alt as long
const sTag =60*60*24
Do
if s <> salt then   
  salt=s
  Cls   
  Locate 1 , 1   
  Lcd S   
  Locate 2 , 1   
  Lcd "Zeit " ; Time$
end if
Loop 
Sectic:
incr s                                                  'Sekunden-Tageszähler
if s=stag then
    S = 0
  Time$ = "00:00:03"                                          'Kompensation Uhrenquarz
End If
Return

---

Zitat:

---

Zitat von Vitis

hmmm ... wenn du über einen zweiten String gehst könnts gehen, aber das ist nur ne Spekulation ... also

dim tempstring as string*8

tempstring=time$
if tempstring="00:00:00" then
' irgendwas
endif

---

Ja, genau so geht es , ich danke dir.
Da kann man mal sehen, wie man fehlgeleitet werden kann. Weil ich für die Displayanzeige Seite 2 statt 50ms 500ms hatte, glaubte ich dass dies der Grund sein müsste.
Aber dass ein anderer Displayinhalt (genauer: ob time$ angezeigt wird oder nicht) doch tatsächlich die Ursache war, dass es einmal ging und einmal nicht, das hätte ich doch wirklich nicht vermutet.

Zitat:

---

Zitat von peterfido

Wozu jedesmal Cursor off?

Am besten ohne waitms arbeiten.
Du kannst S in einer anderen Variablen zwischenspeichern und wenn S geändert wurde das Display aktualisieren. Außerdem zählst Du jede Sekunde S hoch, da brauchst Du nicht Time$ vergleichen

Code:

---

Cursor Off
dim s_alt as long
const sTag =60*60*24
Do
if s <> salt then   
  salt=s
  Cls   
  Locate 1 , 1   
  Lcd S   
  Locate 2 , 1   
  Lcd "Zeit " ; Time$
end if
Loop 
Sectic:
incr s                                                  'Sekunden-Tageszähler
if s=stag then
    S = 0
  Time$ = "00:00:03"                                          'Kompensation Uhrenquarz
End If
Return

---

---

danke für die tolle Anregung. Da ich aber noch mehrere Variablen anzeigen lasse, wird es mir zu kompliziert.
Ich bin jetzt schon froh dass es überhaupt zuverlässig funktioniert :)
Nur das Wort "zuverlässig" muss sich noch bestätigen...

ja, das sind die Probleme die mitunter mit Bascom Highlevelbefehlen entstehen ... man sucht sich den Wolf wenns klemmt, daher verwende ich die nur sehr selten und kann auch nur dazu raten so einfache Funktionen wie Uhrzeit oder Stringoperationen zu Fuß zu machen. Der Code wird zwar idR nen Tick größer, das Programm ggf ne Spur langsamer aber man weiß was der Controller macht.
Wobei die wirksamste Waffe dabei die Overlayvariablen sind mMn.

Ich vermute, dass Time$ n Konstrukt ist aus ner internen Sekundenzählung im Timer Interrupt, sprich, intern werden nur Sekunden gezählt und bei der Abfrage von Time$ wird aus der Sekundenzahl der String gebildet. Dass das nur bei einer Stringzuweisung und nicht bei einer If-Abfrage passiert ist nervig, scheint aber so. :confused:

Time$ wird sekündlich aktuell gehalten. Jedoch benötigt ein String vergleich mehr Ressourcen als "zu Fuß" die Systemvariablen _sec, _min und _hour abzufragen. Die Zeitkorrektur von 3 Sekunden lässt sich auch mit _sec=3 erledigen. Besser wäre es, wenn die Zeit erst gar nicht so weit abschweift. Ich nutze in meinen Projekten auf verschiedene Arten Datum und Uhrzeit. In einem Projekt habe ich die Uhr-routine komplett selbst geschrieben. config clock nutze ich selten. Und bei Config DCF lässt sich jeder Quarz nehmen (man braucht keinen Uhrenquarz, jedoch wird eine Timer belegt), selbst wenn gar kein DCF Empfänger angeschlossen ist, läuft die Uhrzeit weiter...

Auch ein CLS würde ich nicht in jedem Durchlauf nehmen. Ich schicke immer Strings fester Länge zum Display. So flackert es nicht, wenn der selbe Text wieder erscheinen soll.

Das const sTag = lässt sich auch vorher berechnen und als Zahl (86400) eingeben. Sollte so aber auch funktionieren, da rechnet dann halt der Compiler.