Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > <basic>' 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</basic>