Uhr: wait-Anweisung im Hauptprogramm und sectic

[Rone]

Hallo!

Das dumme ist nur dass sich das Ergebnis immer einen Tag später herausstellt, also die Fehlersuche dauert da ganz schön lang.

Du kannst doch zu Debuggen die Uhrzeit auf z.B. 23:59:55 setzen und nur 5 sek warten,
anstelle eines Tages, oder sehe ich das falsch?

MfG
Rone

[PicNick]

Ich seh in dem Code oben kein "WAIT".
Ohne (original) Programm ist über Programmprobleme schwer zu befinden
Vergiss nicht, das Problem sitzt meistens VOR dem Bildschirm

[xxrider]

Ich seh in dem Code oben kein "WAIT".
Ohne (original) Programm ist über Programmprobleme schwer zu befinden
Vergiss nicht, das Problem sitzt meistens VOR dem Bildschirm

Das Programm sieht sehr sehr schlimm aus. Ich bin Anfänger.
Das Programm hat eine längere Geschichte, und ist kompliziert, laienhaft und herumgebastelt, ich denke das würde großes Haarsträuben bei den Profis auslösen.
Das wollte ich euch erstmal ersparen
Ich müsste da schon noch wenigstens etwas Kosmetik betreiben dass ich es hier reinstelle, was ich vielleicht noch machen werde.

[radbruch]

Versuche das nötigste zu einem kleinen Testprogramm zusammenzufügen.

[xxrider]

So, jetzt kommen wir der Lösung näher.
Ich hab den Teil isolieren können und den Fehler reproduziert:

Do

Cls
Locate 1 , 1
Lcd S
Locate 2 , 1
Lcd "Zeit " ; Time$
Cursor Off
Waitms 50



Loop


Sectic:
S = S + 1                                                   'Sekunden-Tageszähler
If Time$ = "00:00:00"then
S = 0
Time$ = "00:00:03"                                          'Kompensation Uhrenquarz
End If
Return

So funktioniert die Rückstellung.

Allerdings, wenn ich im Display die Anzeige von time$ weglasse, dann funktioniert es nicht mehr!
Das ist der springende Punkt!
Aber erklären kann ichs nicht. Es muss wohl tatsächlich wie Vitis schon geschrieben hat mit dem Stringvergleich zu zun haben.
Er funktioniert, wenn gleichzeitig time$ im Display angezeigt wird und ansonsten funktioniert es nicht !?!

Wie kann ich diese Problem lösen, ohne time$ im Display anzeigen zu müssen?

[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

[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

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

[xxrider]

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.

[xxrider]

Hallo!



Du kannst doch zu Debuggen die Uhrzeit auf z.B. 23:59:55 setzen und nur 5 sek warten,
anstelle eines Tages, oder sehe ich das falsch?


MfG
Rone

ja, hast schon recht das muss ich wohl so machen. Es liegt wohl tatsächlich nicht an den waitms, weil heute ging es wieder nicht.
Ich muss jetzt weiter suchen und das werde ich so machen.