So. Tut mir leid, das Programm läuft im Simulator pipifein. (mit und ohne framesize)

Eingestellt auf ATMEGA32


Code:
Dim Sekunde As Byte
Dim Minute As Byte
Dim Stunde As Byte
Dim Tag As Byte
Dim Monat As Byte
Dim Jahr As Byte
Dim Wochentag As Byte
Dim Sek As Bit
Dim Strzeit As String * 16
Dim Strdatum As String * 16
Dim Strwochentag As String * 10


 Sekunde = 55
 Minute = 12
 Stunde = 23
 Tag = 1
 Monat = 12
 Jahr = 6
 Wochentag = 1



Strzeit = " Zeit: "

If Stunde < 10 Then
Strzeit = Strzeit + "0" + Str(stunde) + ":"
Else
Strzeit = Strzeit + Str(stunde) + ":"
End If

If Minute < 10 Then
Strzeit = Strzeit + "0" + Str(minute) + ":"
Else
Strzeit = Strzeit + Str(minute) + ":"
End If

If Sekunde < 10 Then
Strzeit = Strzeit + "0" + Str(sekunde) + " "
Else
Strzeit = Strzeit + Str(sekunde) + " "
End If



Strdatum = "Datum: "

If Tag < 10 Then
Strdatum = Strdatum + "0" + Str(tag) + "."
Else
Strdatum = Strdatum + Str(tag) + "."
End If

If Monat < 10 Then
Strdatum = Strdatum + "0" + Str(monat) + "."
Else
Strdatum = Strdatum + Str(monat) + "."
End If

If Jahr < 10 Then
Strdatum = Strdatum + "0" + Str(jahr) + " "
Else
Strdatum = Strdatum + Str(jahr) + " "
End If


If Wochentag = 1 Then Strwochentag = "Montag"
If Wochentag = 2 Then Strwochentag = "Dienstag"
If Wochentag = 3 Then Strwochentag = "Mittwoch"
If Wochentag = 4 Then Strwochentag = "Donnerstag"
If Wochentag = 5 Then Strwochentag = "Freitag"
If Wochentag = 6 Then Strwochentag = "Samstag"
If Wochentag = 7 Then Strwochentag = "Sonntag"

End