Microsoft Small Basic

Program Listing: QSD958

List Program

delay = "first=30;BellRing=1950;Chime=2780;Chimes=810;Click=200;"
CheckInSilverlight()
TextWindow.WriteLine("silverlight=" + silverlight)
TextWindow.WriteLine("Sound.PlayBellRingAndWait()")
Sound.PlayBellRingAndWait()
If silverlight Then
Program.Delay(delay["first"] + delay["BellRing"])
EndIf
TextWindow.WriteLine("Sound.PlayChimeAndWait()")
Sound.PlayChimeAndWait()
If silverlight Then
Program.Delay(delay["Chime"])
EndIf
TextWindow.WriteLine("Sound.PlayChimesAndWait()")
Sound.PlayChimesAndWait()
If silverlight Then
Program.Delay(delay["Chimes"])
EndIf
TextWindow.WriteLine("Sound.PlayClickAndWait()")
Sound.PlayClickAndWait()
If silverlight Then
Program.Delay(delay["Click"])
EndIf
Sub CheckInSilverlight
ms = Clock.ElapsedMilliseconds
Sound.PlayBellRingAndWait()
ms = Clock.ElapsedMilliseconds - ms
If 500 < delay["BellRing"] - ms Then
silverlight = "True"
Else
silverlight = "False"
EndIf
EndSub