Microsoft Small Basic

Program Listing: BSP033-0

List Program

' World Clock
' Copyright (c) 2014 Nonki Takahashi. The MIT License.
' Version: 0.2b
' Last update: 2014-11-17
' Program ID: BSP033-0
'
GraphicsWindow.Title = "World Clock 0.2b"
cityLocal = "Tokyo"
city["Sydney"] ="local=+10;DST=+1(10-3);hemisphere=south;"
city["Tokyo"] = "local=+9;DST=0;hemeiphere=north;"
city["Kolkata"] = "local=+5.5;DST=0;hemeiphere=north;"
city["Colombo"] = "local=+5.5;DST=0;hemeiphere=north;"
city["Cairo"] = "local=+2;DST=+1(5-9);hemeiphere=north;"
city["London"] = "local=0;DST=+1(4-10);hemisphere=north;"
city["Accra"] = "local=0;DST=0;hemeiphere=north;"
city["Rio de Janeiro"] = "local=-3;DST=+1(11-2);hemeiphere=south;"
city["Buenos Aires"] = "local=-3;DST=0;hemeiphere=south;"
city["Seatle"] = "local=-8;DST=+1(3-10);hemisphere=north;"
bc = "#000000"
colorDay = "#CCCCCC"
colorNight = "#666666"
colorMidNight = "#333333"
colorHourHand = "#FF9900"
colorText = "#FFFFFF"
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.BackgroundColor = bc
nCity = Array.GetItemCount(city)
index = Array.GetAllIndices(city)
deltaLocal = city[cityLocal]["local"]
GraphicsWindow.FontName = "Trebuchet MS"
width = Math.Floor((gw - 110) / 24)
height = Math.Floor((gh - 60) / nCity)
For i = 1 To nCity
x = 10
y = 50 + (i - 1) * height
GraphicsWindow.BrushColor = colorText
GraphicsWindow.DrawText(x, y + height / 2 - 10, index[i])
x = 100
hourLocal = city[index[i]]["local"] * 1
If hourLocal < 0 Then
hourLocal = hourLocal + 24
EndIf
If 0 < hourLocal - Math.Floor(hourLocal) Then
half = "True"
Else
half = "False"
EndIf
For hourUTC = 0 To 23
If 6 <= hourLocal And hourLocal < 18 Then
GraphicsWindow.BrushColor = colorDay
ElseIf 18 <= hourLocal Then
GraphicsWindow.BrushColor = colorNight
Else
GraphicsWindow.BrushColor = colorMidNight
EndIf
If (hourUTC = 0) And half Then
GraphicsWindow.FillRectangle(x, y + 10, width / 2 - 1, height - 20)
If 6 <= (hourLocal + 0.5) And (hourLocal + 0.5) < 18 Then
GraphicsWindow.BrushColor = colorDay
ElseIf 18 <= (hourLocal + 0.5) Then
GraphicsWindow.BrushColor = colorNight
Else
GraphicsWindow.BrushColor = colorMidNight
EndIf
GraphicsWindow.FillRectangle(x + width / 2, y + 10, width - 1, height - 20)
ElseIf (hourUTC = 23) And half Then
If 6 <= (hourLocal + 0.5) And (hourLocal + 0.5) < 18 Then
GraphicsWindow.BrushColor = colorDay
ElseIf 18 <= (hourLocal + 0.5) Then
GraphicsWindow.BrushColor = colorNight
Else
GraphicsWindow.BrushColor = colorMidNight
EndIf
GraphicsWindow.FillRectangle(x + width / 2, y + 10, width / 2 - 1, height - 20)
ElseIf half Then
If 6 <= (hourLocal + 0.5) And (hourLocal + 0.5) < 18 Then
GraphicsWindow.BrushColor = colorDay
ElseIf 18 <= (hourLocal + 0.5) Then
GraphicsWindow.BrushColor = colorNight
Else
GraphicsWindow.BrushColor = colorMidNight
EndIf
GraphicsWindow.FillRectangle(x + width / 2, y + 10, width - 1, height - 20)
Else
GraphicsWindow.FillRectangle(x, y + 10, width - 1, height - 20)
EndIf
If half Then
If 6 <= (hourLocal + 0.5) And (hourLocal + 0.5) < 18 Then
GraphicsWindow.BrushColor = colorMidNight
Else
GraphicsWindow.BrushColor = colorDay
EndIf
GraphicsWindow.DrawText(x + width / 2, y + 10, Math.Floor(hourLocal + 0.5))
Else
If 6 <= hourLocal And hourLocal < 18 Then
GraphicsWindow.BrushColor = colorMidNight
Else
GraphicsWindow.BrushColor = colorDay
EndIf
GraphicsWindow.DrawText(x, y + 10, hourLocal)
EndIf
x = x + width
hourLocal = hourLocal + 1
If 24 <= hourLocal Then
hourLocal = hourLocal - 24
EndIf
EndFor
EndFor
y = 60
GraphicsWindow.PenColor = colorHourHand
hourHand = Shapes.AddLine(0, 0, 0, nCity * height - 20)
Shapes.SetOpacity(hourHand, 70)
GraphicsWindow.BrushColor = colorText
objCity = Shapes.Addtext("Local Time")
Shapes.Move(objCity, 10, 10)
GraphicsWindow.DrawText(gw / 2, 10, "UTC")
GraphicsWindow.FontSize = 30
objLocal = Shapes.AddText("00:00")
Shapes.Move(objLocal, 100, 10)
objUTC = Shapes.AddText("00:00")
Shapes.Move(objUTC, gw / 2 + 90, 10)
GraphicsWindow.PenWidth = 0
GraphicsWindow.BrushColor = "White"
objBar = Shapes.AddRectangle(gw, height)
Shapes.SetOpacity(objBar, 20)
Shapes.HideShape(objBar)
iCity = ""
Timer.Interval = 500
Timer.Tick = OnTick
Sub OnTick
hourUTC = Clock.Hour - city[cityLocal]["local"]
If hourUTC < 0 Then
hourUTC = hourUTC + 24
EndIf
If 24 <= hourUTC Then
hourUTC = hourUTC - 24
EndIf
minute = Clock.Minute
hour = hourUTC
hourUTC = hourUTC + minute / 60
x = 100 + Math.Floor(hourUTC * width)
Shapes.Move(hourHand, x, y)
GetTime()
Shapes.SetText(objUTC, time)
GetCity()
If iCity = "" Then
Shapes.HideShape(objBar)
Shapes.SetText(objCity, "Local Time")
Shapes.SetText(objLocal, "00:00")
Else
_y = 50 + (i - 1) * height
Shapes.Move(objBar, 0, _y)
Shapes.ShowShape(objBar)
Shapes.SetText(objCity, iCity)
hour = hour + city[iCity]["local"]
If hour < 0 Then
hour = hour + 24
ElseIf 23 < hour Then
hour = hour - 24
EndIf
frac = hour - Math.Floor(hour)
If 0 < frac Then
minute = Math.Floor(minute + frac * 60)
hour = Math.Floor(hour - frac)
If 60 <= minute Then
minute = minute - 60
hour = hour + 1
If 23 < hour Then
hour = hour - 24
EndIf
EndIf
EndIf
GetTime()
Shapes.SetText(objLocal, time)
EndIf
EndSub
Sub GetTime
' param hour, minute
' return time - "hh:mm"
len = Text.GetLength(hour)
time = Text.Append(Text.GetSubTextToEnd("00", len + 1), hour)
time = time + ":"
len = Text.GetLength(minute)
time = time + Text.GetSubTextToEnd("00", len + 1) + minute
EndSub
Sub GetCity
' get city from mouse pointer
my = GraphicsWindow.MouseY
i = Math.Floor((my - 50) / height + 1)
If 1 <= i And i <= nCity Then
iCity = index[i]
Else
iCity = ""
EndIf
EndSub