Digitaluhr
' Digitaluhr
GraphicsWindow.Width = 300
' Grafikfenster Breite
GraphicsWindow.Height = 60
' Grafikfenster Höhe
' GraphicsWindow.Left = (Desktop.Width / 2) -
(GraphicsWindow.Width / 2) ' Grafikfenster horizontal in der Mitte des Desktop
anzeigen
' GraphicsWindow.Top = (Desktop.Height / 2) -
(GraphicsWindow.Height / 2) ' Grafikfenster vertikal in der Mitte des Desktop
anzeigen
GraphicsWindow.Left = 980
' Grafikfenster Links an
angegebener Position anzeigen
GraphicsWindow.Top = 0
' Grafikfenster oben an
angegebener Position anzeigen
GraphicsWindow.CanResize = "False"
' Grafikfenster
ist in der Größe nicht veränderbar
GraphicsWindow.Title = "DIGITALUHR"
'
Grafikfenster Titel
GraphicsWindow.BackgroundColor = "Black"
'
Grafikfenster Hintergrundfarbe
GraphicsWindow.BrushColor = "Lavender"
'
Grafikfenster Schriftfarbe
GraphicsWindow.FontName = "Courier New"
'
Grafikfenster Schriftart
Timer.Interval = 1000
Timer.Tick = OnTick
Sub OnTick
GraphicsWindow.Clear()
GraphicsWindow.FontSize = 36
' Grafikfenster
Schriftgröße Uhrzeit
hour = Clock.Hour
If Clock.Minute > 9 Then
If Clock.Second > 9 Then
GraphicsWindow.DrawText(15, 4, hour + ":" + Clock.Minute + ":" +
Clock.Second)
GraphicsWindow.FontSize = 24
' Grafikfenster
Schriftgröße Vor- und Nachmittagsanzeige
GraphicsWindow.FontSize = 36
' Grafikfenster
Schriftgröße auf ursprünglichen Wert zurücksetzten
Else
GraphicsWindow.DrawText(15, 4, hour + ":" + Clock.Minute + ":0" +
Clock.Second)
GraphicsWindow.FontSize = 24
' Grafikfenster
Schriftgröße Vor- und Nachmittagsanzeige
GraphicsWindow.FontSize = 36
' Grafikfenster
Schriftgröße auf ursprünglichen Wert zurücksetzten
EndIf
Else
If Clock.Second > 9 Then
GraphicsWindow.DrawText(15, 4, hour + ":0" + Clock.Minute + ":" +
Clock.Second)
GraphicsWindow.FontSize = 24
' Grafikfenster
Schriftgröße Vor- und Nachmittagsanzeige
GraphicsWindow.FontSize = 36
' Grafikfenster
Schriftgröße auf ursprünglichen Wert
zurücksetzten
Else
GraphicsWindow.DrawText(15, 4, hour + ":0" + Clock.Minute + ":0" +
Clock.Second)
GraphicsWindow.FontSize = 24
' Grafikfenster
Schriftgröße Vor- und Nachmittagsanzeige
GraphicsWindow.FontSize = 36
' Grafikfenster
Schriftgröße auf ursprünglichen Wert zurücksetzten
EndIf
EndIf
' Aktuellen Monatswert durch Monatsname ersetzen
und ausgeben
GraphicsWindow.FontSize = 16
' Grafikfenster
Schriftgröße Tag und Datum
If Clock.Month = 1 Then
Monat = "Januar"
EndIf
If Clock.Month = 2 Then
Monat = "Februar"
EndIf
If Clock.Month = 3 Then
Monat = "März"
EndIf
If Clock.Month = 4 Then
Monat = "April"
EndIf
If Clock.Month = 5 Then
Monat = "Mai"
EndIf
If Clock.Month = 6 Then
Monat = "Juni"
EndIf
If Clock.Month = 7 Then
Monat = "Juli"
EndIf
If Clock.Month = 8 Then
Monat = "August"
EndIf
If Clock.Month = 9 Then
Monat = "September"
EndIf
If Clock.Month = 10 Then
Monat = "Oktober"
EndIf
If Clock.Month = 11 Then
Monat = "November"
EndIf
If Clock.Month = 12 Then
Monat = "Dezember"
EndIf
GraphicsWindow.DrawText(20, 45, Clock.WeekDay + " " + Clock.Day + ". " + Monat +
" " + Clock.Year)
EndSub
