Microsoft Small Basic

Program Listing: DHC348

List Program

GraphicsWindow.Width = 265
GraphicsWindow.Height = 80
GraphicsWindow.Left = (Desktop.Width / 2) - (GraphicsWindow.Width / 2)
GraphicsWindow.Top = (Desktop.Height / 2) - (GraphicsWindow.Height / 2)
GraphicsWindow.CanResize = "False"
GraphicsWindow.Title = "Small Basic Clock"
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.BrushColor = "Green"
GraphicsWindow.FontName = "Courier New"

Timer.Interval = 1000
Timer.Tick = OnTick

Sub OnTick
GraphicsWindow.Clear()
GraphicsWindow.FontSize = 40

If Clock.Hour > 12 Then
hour = Clock.Hour - 12
amPM = "PM"
Else
hour = Clock.Hour
amPM = "AM"
EndIf

If Clock.Minute > 9 Then
If Clock.Second > 9 Then
GraphicsWindow.DrawText(0, 0, hour + ":" + Clock.Minute + ":" + Clock.Second + " " + amPM)
Else
GraphicsWindow.DrawText(0, 0, hour + ":" + Clock.Minute + ":0" + Clock.Second + " " + amPM)
EndIf
Else
If Clock.Second > 9 Then
GraphicsWindow.DrawText(0, 0, hour + ":0" + Clock.Minute + ":" + Clock.Second + " " + amPM)
Else
GraphicsWindow.DrawText(0, 0, hour + ":0" + Clock.Minute + ":0" + Clock.Second + " " + amPM)
EndIf
EndIf

GraphicsWindow.FontSize = 20
GraphicsWindow.DrawText(0, 50, Clock.WeekDay + " " + Clock.Date)
EndSub