Microsoft Small Basic

Program Listing: PPJ287-0

List Program

' Preset Sound Test 0.11
' Program ID PPJ287-0
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.Title = "Preset Sound Test 0.11"
se = "1=BellRing;2=Chime;3=Chimes;4=Click;"
left = 10
top = 10
GraphicsWindow.BrushColor = "Black"
For i = 1 To 4
caption[i] = "Play" + se[i]
btn[i] = Controls.AddButton(caption[i], left, top)
top = top + 40
caption[i + 4] = "Play" + se[i] + "AndWait"
btn[i + 4] = Controls.AddButton(caption[i + 4], left, top)
top = top + 40
EndFor
Controls.ButtonClicked = OnButtonClicked
Sub OnButtonClicked
btnClicked = Controls.LastClickedButton
If btnClicked = btn[1] Then
Sound.PlayBellRing()
ElseIf btnClicked = btn[2] Then
Sound.PlayChime()
ElseIf btnClicked = btn[3] Then
Sound.PlayChimes()
ElseIf btnClicked = btn[4] Then
Sound.PlayClick()
ElseIf btnClicked = btn[5] Then
Sound.PlayBellRingAndWait()
ElseIf btnClicked = btn[6] Then
Sound.PlayChimeAndWait()
ElseIf btnClicked = btn[7] Then
Sound.PlayChimesAndWait()
ElseIf btnClicked = btn[8] Then
Sound.PlayClickAndWait()
EndIf
EndSub