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 ulrich korth - 3.11.2010 18:14)
Als Antwort auf ' Datumsumschaltung innere Uhr eventuell Fehlerhaft? von Ernst H. - 3.11.2010 17:29
Ich nutze:
C-Control Pro Mega128, CC-Pro 128 Application Board, Pro-Bot128
Hallo Ernst,
du musst mal im Help kucken: Die Werte von Tag und Monat sind 0-basiert...
Also ist z.B. in  Clock_SetDate(31,1,10 ) die 31 illegal. Wenn also eine 1 ab-oder zugezählt wird,
wirds besser gehen.
Gruss Ulrich

> ' 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: