Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum
Re: ' Datumsumschaltung innere Uhr eventuell Fehlerhaft? Kategorie: Programmierung Basic (von Ernst H. - 3.11.2010 19:04)
Als Antwort auf Re: ' Datumsumschaltung innere Uhr eventuell Fehlerhaft? von PeterS - 3.11.2010 18:03

Hallo Peter,
Man sollte eben die Beschreibung lesen. Alles funktioniert perfekt, auch Schaltjahre sind richtig.

Danke auch fĂĽr den Str_Printf()  Tip - Ausgabe nun viel besser.

Eine Frage noch:  gibt es bei Msg Ausgaben auch den "Home" Befehl damit ich wie bei LCD
ĂĽberschreiben kann? die Krönung wäre ein Befehl "eine Zeile zurĂĽck"  ich nutze derzeit
ein 40x4 LCD (mit 2 Enable) damit ich Zwischenergebnisse ohne Debuger sehe.

Danke!
GruĂ? Ernst H.

Str_Printf (Text, " Zeit= %2u:%2u:%2u    
Datum= %2u %2u 20%2u",_
 Clock_GetVal(Std), Clock_GetVal(Min),
Clock_GetVal(Sec),Clock_GetVal(Tag)+1,_
 Clock_GetVal(Monat)+1,Clock_GetVal(Jahr))
Msg_WriteText(Text)
Msg_WriteChar(13 ) 'CR Zeilenvorschub

Zeit= 23:59:58 Datum= 28  2 2013                                                                                      
 Zeit= 23:59:59 Datum= 28  2 2013  'Schaltjahr richtig - kein 29.2
                                                                 
 Zeit=  0: 0: 0 Datum=  1  3 2013                                                                                      
 Zeit=  0: 0: 1 Datum=  1  3 2013


>
> Hallo Ernst,
>
> was steht hinter dem roten Pfeil in der Doku zu Funktion "Clock_SetDate()"?
>
> Sieh Dir mal Str_Printf() an, Du kannst da bei der Ausgabe eine Menge Arbeit
> sparen.
>
> Gruss Peter
>
> > ' Datumsumschaltung innere Uhr  eventuell Fehlerhaft?
> > 'verwende neue Beta 2.12.03
> > 'Test der Internen Uhrzeit mit Datumsumschaltung
> >
> > 'bei der Datumsumschaltung kommt bei mir teilweise 0 fĂĽr den Tag heraus
> > '     im November wird das Jahr erhöht, Dezember wird nicht erreicht.
> > '
> > 'Fertiges Programm  - einfach kopieren und starten:
> > '
> > /*
> >  Interpreter gestartet - 4kb RAM
> > Zeit=23:59:57  31 1 10
> > Zeit=23:59:58  31 1 10
> > Zeit=23:59:59  31 1 10          'nach dem 31. Jan kommt 0.Feb
> > Zeit=0:0:0  0 2 10
> > Zeit=0:0:1  0 2 10
> > Zeit=0:0:2  0 2 10
> > Zeit=0:0:3  0 2 10
> > Zeit=23:59:57  0 2 10
> > Zeit=23:59:58  0 2 10
> > Zeit=23:59:59  0 2 10           'nach den 0. Februar
> > Zeit=0:0:0  1 2 10              'kommt 1. Februar
> > Zeit=0:0:1  1 2 10
> > Zeit=0:0:2  1 2 10
> > Zeit=23:59:57  1 2 10
> > Zeit=23:59:58  1 2 10
> > Zeit=23:59:59  1 2 10
> > Zeit=0:0:0  28 2 10
> > Zeit=0:0:1  28 2 10
> > Zeit=0:0:2  28 2 10
> > Zeit=0:0:3  28 2 10
> > Zeit=23:59:57  28 2 10
> > Zeit=23:59:58  28 2 10
> > Zeit=23:59:59  28 2 10
> > Zeit=0:0:0  29 2 10              'nach dem 28. Feb kommt 29.Feb
> > Zeit=0:0:1  29 2 10
> > Zeit=0:0:2  29 2 10
> > Zeit=23:59:57  29 2 10 'Schaltjahr wird offensichtlich nicht berĂĽcksichtigt
> > Zeit=23:59:58  29 2 10
> > Zeit=23:59:59  29 2 10
> > Zeit=0:0:0  30 2 10          '30.Feb kommt
> > Zeit=0:0:1  30 2 10
> > Zeit=0:0:2  30 2 10
> > Zeit=0:0:3  30 2 10
> > Zeit=23:59:57  30 2 10
> > Zeit=23:59:58  30 2 10
> > Zeit=23:59:59  30 2 10
> > Zeit=0:0:0  0 3 10          'nach 30.Feb kommt 0.März
> > Zeit=0:0:1  0 3 10
> > Zeit=0:0:2  0 3 10
> > Zeit=0:0:3  0 3 10
> > Zeit=23:59:57  0 3 10
> > Zeit=23:59:58  0 3 10
> > Zeit=23:59:59  0 3 10
> > Zeit=0:0:0  1 3 10
> > Zeit=0:0:1  1 3 10
> > Zeit=0:0:2  1 3 10
> > Zeit=0:0:3  1 3 10
> > Zeit=23:59:57  1 3 10
> > Zeit=23:59:58  1 3 10
> > Zeit=23:59:59  1 3 10
> > Zeit=0:0:0  2 3 10
> > Zeit=0:0:1  28 3 10
> > Zeit=0:0:2  28 3 10
> > Zeit=0:0:3  28 3 10
> > Zeit=23:59:57  28 3 10
> > Zeit=23:59:58  28 3 10
> > Zeit=23:59:59  28 3 10
> > Zeit=0:0:0  29 3 10
> > Zeit=0:0:1  29 3 10
> > Zeit=0:0:2  29 3 10
> > Zeit=23:59:57  29 3 10
> > Zeit=23:59:58  29 3 10
> > Zeit=23:59:59  29 3 10       ' nach dem 29. März kommt 0.April
> > Zeit=0:0:0  0 4 10              'also 30. und 31. März gibts nicht
> > Zeit=0:0:1  0 4 10
> > Zeit=0:0:2  0 4 10
> > Zeit=0:0:3  0 4 10
> > Zeit=23:59:57  0 4 10
> > Zeit=23:59:58  0 4 10
> > Zeit=23:59:59  0 4 10
> > Zeit=0:0:0  1 4 10
> > Zeit=0:0:1  1 4 10
> > Zeit=0:0:2  1 4 10
> > Zeit=0:0:3  1 4 10
> > Zeit=23:59:57  1 4 10
> > Zeit=23:59:58  1 4 10
> > Zeit=23:59:59  1 4 10
> > Zeit=0:0:0  28 4 10
> > Zeit=0:0:1  28 4 10
> > Zeit=0:0:2  28 4 10
> > Zeit=0:0:3  28 4 10
> > Zeit=23:59:57  28 4 10
> > Zeit=23:59:58  28 4 10
> > Zeit=23:59:59  28 4 10
> > Zeit=0:0:0  29 4 10
> > Zeit=0:0:1  29 4 10
> > Zeit=0:0:2  29 4 10
> > Zeit=0:0:3  29 4 10
> > Zeit=23:59:57  29 4 10
> > Zeit=23:59:58  29 4 10
> > Zeit=23:59:59  29 4 10
> > Zeit=0:0:0  30 4 10
> > Zeit=0:0:1  30 4 10
> > Zeit=0:0:2  30 4 10
> > Zeit=0:0:3  30 4 10
> > Zeit=23:59:57  30 4 10
> > Zeit=23:59:58  30 4 10
> > Zeit=23:59:59  30 4 10
> > Zeit=0:0:0  0 5 10           '0.Mai
> > Zeit=0:0:1  0 5 10
> > Zeit=0:0:2  0 5 10
> > Zeit=0:0:3  0 5 10
> > Zeit=23:59:57  0 5 10
> > Zeit=23:59:58  0 5 10
> > Zeit=23:59:59  0 5 10
> > Zeit=0:0:0  1 5 10
> > Zeit=0:0:1  1 5 10
> > Zeit=0:0:2  1 5 10
> > Zeit=0:0:3  1 5 10
> > Zeit=23:59:57  1 5 10
> > Zeit=23:59:58  1 5 10
> > Zeit=23:59:59  1 5 10
> > Zeit=0:0:0  28 5 10
> > Zeit=0:0:1  28 5 10
> > Zeit=0:0:2  28 5 10
> > Zeit=23:59:57  28 5 10
> > Zeit=23:59:58  28 5 10
> > Zeit=23:59:59  28 5 10
> > Zeit=0:0:0  29 5 10
> > Zeit=0:0:1  29 5 10
> > Zeit=0:0:2  29 5 10
> > Zeit=0:0:3  29 5 10
> > Zeit=23:59:57  29 5 10
> > Zeit=23:59:58  29 5 10
> > Zeit=23:59:59  29 5 10
> > Zeit=0:0:0  0 6 10         '30. und 31 Mai gibts nicht
> > Zeit=0:0:1  0 6 10
> > Zeit=0:0:2  0 6 10
> > Zeit=0:0:3  0 6 10
> > Zeit=23:59:57  0 6 10
> > Zeit=23:59:58  0 6 10
> > Zeit=23:59:59  0 6 10
> > Zeit=0:0:0  1 6 10
> > Zeit=0:0:1  1 6 10
> > Zeit=0:0:2  1 6 10
> > Zeit=23:59:57  1 6 10
> > Zeit=23:59:58  1 6 10
> > Zeit=23:59:59  1 6 10
> > Zeit=0:0:0  28 6 10
> > Zeit=0:0:1  28 6 10
> > Zeit=0:0:2  28 6 10
> > Zeit=23:59:57  28 6 10
> > Zeit=23:59:58  28 6 10
> > Zeit=23:59:59  28 6 10
> > Zeit=0:0:0  29 6 10
> > Zeit=0:0:1  29 6 10
> > Zeit=0:0:2  29 6 10
> > Zeit=23:59:57  29 6 10
> > Zeit=23:59:58  29 6 10
> > Zeit=23:59:59  29 6 10
> > Zeit=0:0:0  30 6 10
> > Zeit=0:0:1  30 6 10
> > Zeit=0:0:2  30 6 10
> > Zeit=0:0:3  30 6 10
> > Zeit=23:59:57  30 6 10
> > Zeit=23:59:58  30 6 10
> > Zeit=23:59:59  30 6 10
> > Zeit=0:0:0  0 7 10
> > Zeit=0:0:1  0 7 10
> > Zeit=0:0:2  0 7 10
> > Zeit=0:0:3  0 7 10
> > Zeit=23:59:57  0 7 10
> > Zeit=23:59:58  0 7 10
> > Zeit=23:59:59  0 7 10
> > Zeit=0:0:0  1 7 10
> > Zeit=0:0:1  1 7 10
> > Zeit=0:0:2  1 7 10
> > Zeit=0:0:3  1 7 10
> > Zeit=23:59:57  1 7 10
> > Zeit=23:59:58  1 7 10
> > Zeit=23:59:59  1 7 10
> > Zeit=0:0:0  28 7 10
> > Zeit=0:0:1  28 7 10
> > Zeit=0:0:2  28 7 10
> > Zeit=23:59:57  28 7 10
> > Zeit=23:59:58  28 7 10
> > Zeit=23:59:59  28 7 10
> > Zeit=0:0:0  29 7 10
> > Zeit=0:0:1  29 7 10
> > Zeit=0:0:2  29 7 10
> > Zeit=0:0:3  29 7 10
> > Zeit=23:59:57  29 7 10
> > Zeit=23:59:58  29 7 10
> > Zeit=23:59:59  29 7 10
> > Zeit=0:0:0  30 7 10
> > Zeit=0:0:1  30 7 10
> > Zeit=0:0:2  30 7 10
> > Zeit=0:0:3  30 7 10
> > Zeit=23:59:57  30 7 10
> > Zeit=23:59:58  30 7 10
> > Zeit=23:59:59  30 7 10
> > Zeit=0:0:0  0 8 10
> > Zeit=0:0:1  0 8 10
> > Zeit=0:0:2  0 8 10
> > Zeit=0:0:3  0 8 10
> > Zeit=23:59:57  0 8 10
> > Zeit=23:59:58  0 8 10
> > Zeit=23:59:59  0 8 10
> > Zeit=0:0:0  1 8 10
> > Zeit=0:0:1  1 8 10
> > Zeit=0:0:2  1 8 10
> > Zeit=0:0:3  1 8 10
> > Zeit=23:59:57  1 8 10
> > Zeit=23:59:58  1 8 10
> > Zeit=23:59:59  1 8 10
> > Zeit=0:0:0  28 8 10
> > Zeit=0:0:1  28 8 10
> > Zeit=0:0:2  28 8 10
> > Zeit=0:0:3  28 8 10
> > Zeit=23:59:57  28 8 10
> > Zeit=23:59:58  28 8 10
> > Zeit=23:59:59  28 8 10
> > Zeit=0:0:0  29 8 10
> > Zeit=0:0:1  29 8 10
> > Zeit=0:0:2  29 8 10
> > Zeit=0:0:3  29 8 10
> > Zeit=23:59:57  29 8 10
> > Zeit=23:59:58  29 8 10
> > Zeit=23:59:59  29 8 10
> > Zeit=0:0:0  0 9 10            '30.Aug fehlt
> > Zeit=0:0:1  0 9 10
> > Zeit=0:0:2  0 9 10
> > Zeit=0:0:3  0 9 10
> > Zeit=23:59:57  0 9 10
> > Zeit=23:59:58  0 9 10
> > Zeit=23:59:59  0 9 10
> > Zeit=0:0:0  1 9 10
> > Zeit=0:0:1  1 9 10
> > Zeit=0:0:2  1 9 10
> > Zeit=0:0:3  1 9 10
> > Zeit=23:59:57  1 9 10
> > Zeit=23:59:58  1 9 10
> > Zeit=23:59:59  1 9 10
> > Zeit=0:0:0  28 9 10
> > Zeit=0:0:1  28 9 10
> > Zeit=0:0:2  28 9 10
> > Zeit=23:59:57  28 9 10
> > Zeit=23:59:58  28 9 10
> > Zeit=23:59:59  28 9 10
> > Zeit=0:0:0  29 9 10
> > Zeit=0:0:1  29 9 10
> > Zeit=0:0:2  29 9 10
> > Zeit=0:0:3  29 9 10
> > Zeit=23:59:57  29 9 10
> > Zeit=23:59:58  29 9 10
> > Zeit=23:59:59  29 9 10
> > Zeit=0:0:0  30 9 10
> > Zeit=0:0:1  30 9 10
> > Zeit=0:0:2  30 9 10
> > Zeit=23:59:57  30 9 10
> > Zeit=23:59:58  30 9 10
> > Zeit=23:59:59  30 9 10
> > Zeit=0:0:0  0 10 10
> > Zeit=0:0:1  0 10 10
> > Zeit=0:0:2  0 10 10
> > Zeit=0:0:3  0 10 10
> > Zeit=23:59:57  0 10 10
> > Zeit=23:59:58  0 10 10
> > Zeit=23:59:59  0 10 10
> > Zeit=0:0:0  1 10 10
> > Zeit=0:0:1  1 10 10
> > Zeit=0:0:2  1 10 10
> > Zeit=0:0:3  1 10 10
> > Zeit=23:59:57  1 10 10
> > Zeit=23:59:58  1 10 10
> > Zeit=23:59:59  1 10 10
> > Zeit=0:0:0  2 10 10
> > Zeit=0:0:1  28 10 10
> > Zeit=0:0:2  28 10 10
> > Zeit=0:0:3  28 10 10
> > Zeit=23:59:57  28 10 10
> > Zeit=23:59:58  28 10 10
> > Zeit=23:59:59  28 10 10
> > Zeit=0:0:0  29 10 10
> > Zeit=0:0:1  29 10 10
> > Zeit=0:0:2  29 10 10
> > Zeit=0:0:3  29 10 10
> > Zeit=23:59:57  29 10 10
> > Zeit=23:59:58  29 10 10
> > Zeit=23:59:59  29 10 10
> > Zeit=0:0:0  0 11 10
> > Zeit=0:0:1  0 11 10
> > Zeit=0:0:2  0 11 10
> > Zeit=0:0:3  0 11 10
> > Zeit=23:59:57  0 11 10
> > Zeit=23:59:58  0 11 10
> > Zeit=23:59:59  0 11 10
> > Zeit=0:0:0  1 11 10
> > Zeit=0:0:1  1 11 10
> > Zeit=0:0:2  1 11 10
> > Zeit=0:0:3  1 11 10
> > Zeit=23:59:57  1 11 10
> > Zeit=23:59:58  1 11 10
> > Zeit=23:59:59  1 11 10
> > Zeit=0:0:0  2 11 10
> > Zeit=0:0:1  28 11 10
> > Zeit=0:0:2  28 11 10
> > Zeit=0:0:3  28 11 10
> > Zeit=23:59:57  28 11 10
> > Zeit=23:59:58  28 11 10
> > Zeit=23:59:59  28 11 10
> > Zeit=0:0:0  29 11 10
> > Zeit=0:0:1  29 11 10
> > Zeit=0:0:2  29 11 10
> > Zeit=0:0:3  29 11 10
> > Zeit=23:59:57  29 11 10
> > Zeit=23:59:58  29 11 10
> > Zeit=23:59:59  29 11 10
> > Zeit=0:0:0  30 11 10
> > Zeit=0:0:1  30 11 10
> > Zeit=0:0:2  30 11 10
> > Zeit=23:59:57  30 11 10
> > Zeit=23:59:58  30 11 10
> > Zeit=23:59:59  30 11 10
> > Zeit=0:0:0  0 0 11             'nach dem 30.Nov 10 kommt 0.0.2011
> > Zeit=0:0:1  0 0 11
> > Zeit=0:0:2  0 0 11
> > Zeit=0:0:3  0 0 11
> > Zeit=23:59:57  0 0 11
> > Zeit=23:59:58  0 0 11
> > Zeit=23:59:59  0 0 11
> > Zeit=0:0:0  1 0 11             'dann kommt Monat 0
> > Zeit=0:0:1  1 0 11
> > Zeit=0:0:2  1 0 11
> > Zeit=23:59:57  1 0 11
> > Zeit=23:59:58  1 0 11
> > Zeit=23:59:59  1 0 11
> > Zeit=0:0:0  28 0 11
> > Zeit=0:0:1  28 0 11
> > Zeit=0:0:2  28 0 11
> > Zeit=0:0:3  28 0 11
> > Zeit=23:59:57  28 0 11
> > Zeit=23:59:58  28 0 11
> > Zeit=23:59:59  28 0 11
> > Zeit=0:0:0  29 0 11
> > Zeit=0:0:1  29 0 11
> > Zeit=0:0:2  29 0 11
> > Zeit=0:0:3  29 0 11
> > Zeit=23:59:57  29 0 11
> > Zeit=23:59:58  29 0 11
> > Zeit=23:59:59  29 0 11
> > Zeit=0:0:0  30 0 11
> > Zeit=0:0:1  30 0 11
> > Zeit=0:0:2  30 0 11
> > Zeit=23:59:57  30 0 11
> > Zeit=23:59:58  30 0 11
> > Zeit=23:59:59  30 0 11
> > Zeit=0:0:0  0 1 11
> > Zeit=0:0:1  0 1 11
> > Zeit=0:0:2  0 1 11
> > Zeit=0:0:3  0 1 11
> > Zeit=23:59:57  0 1 11
> > Zeit=23:59:58  0 1 11
> > Zeit=23:59:59  0 1 11
> > Zeit=0:0:0  1 1 11
> > Zeit=0:0:1  1 1 11
> > Zeit=0:0:2  1 1 11
> > Zeit=0:0:3  1 1 11
> > Zeit=23:59:57  1 1 11
> > Zeit=23:59:58  1 1 11
> > Zeit=23:59:59  1 1 11
> > Zeit=0:0:0  2 1 11
> > Zeit=0:0:1  28 1 11
> > Zeit=0:0:2  28 1 11
> > Zeit=0:0:3  28 1 11
> > Zeit=23:59:57  28 1 11
> > Zeit=23:59:58  28 1 11
> > Zeit=23:59:59  28 1 11
> > Zeit=0:0:0  0 2 11
> > Zeit=0:0:1  0 2 11
> > Zeit=0:0:2  0 2 11
> > Zeit=0:0:3  0 2 11
> > Zeit=23:59:57  0 2 11
> > Zeit=23:59:58  0 2 11
> > Zeit=23:59:59  0 2 11
> > Zeit=0:0:0  1 2 11
> > Zeit=0:0:1  1 2 11
> > Zeit=0:0:2  1 2 11
> > Zeit=0:0:3  1 2 11
> > Zeit=23:59:57  1 2 11
> > Zeit=23:59:58  1 2 11
> > Zeit=23:59:59  1 2 11
> > Zeit=0:0:0  2 2 11
> > Zeit=0:0:1  28 2 11
> > Zeit=0:0:2  28 2 11
> > */
> >
> >
> >
> > Dim Text(20) As Char
> > Dim  AlteSec As Byte
> > #define Sec     0             'Zeitanzeige  ... Registernummern          'Def
> > #define Min     1                                                        'Def
> > #define Std     2                                                        'Def
> > #define Tag     3                                                        'Def
> > #define Monat   4                                                        'Def
> > #define Jahr    5
> >
> >
> > Sub main()
> >
> > Clock_SetTime(23,59,57,0 )
> >
> > Clock_SetDate(31,1,10 )
> > Do While (1)
> >
> > If Clock_GetVal(Sec) <> AlteSec Then
> >   Msg_Ausgeben()
> >   AlteSec = Clock_GetVal(Sec)
> > End If
> >
> >
> > If Clock_GetVal(Sec) = 3 Then
> >      Clock_SetTime(23,59,57,0 )
> > End If
> >
> > If Clock_GetVal(Tag) = 2 Then
> >      Clock_SetDate(28, Clock_GetVal(Monat), Clock_GetVal(Jahr) )
> > End If
> >
> > End While
> > End Sub 'main
> >
> >
> >
> > Sub Msg_Ausgeben()
> >
> > Text = "Zeit="
> > Msg_WriteText(Text)
> > Msg_WriteWord(Clock_GetVal(Std) )
> > Msg_WriteChar(58 ) 'Doppelpunkt
> > Msg_WriteWord(Clock_GetVal(Min) )
> > Msg_WriteChar(58 ) 'Doppelpunkt
> > Msg_WriteInt(Clock_GetVal(Sec) )
> > Msg_WriteChar(32 ) 'Leerzeichen
> > Msg_WriteChar(32 ) 'Leerzeichen
> > Msg_WriteWord(Clock_GetVal(Tag) )
> > Msg_WriteChar(32 ) 'Leerz
> > Msg_WriteWord(Clock_GetVal(Monat) )
> > Msg_WriteChar(32 ) 'Leerz
> > Msg_WriteInt(Clock_GetVal(Jahr) )
> > Msg_WriteChar(13 ) 'CR Zeilenvorschub
> >
> > End Sub

    Antwort schreiben

Antworten:

Re: ' Datumsumschaltung innere Uhr eventuell Fehlerhaft? (von PeterS - 3.11.2010 19:21)