Preset Sound Test 0.11 - Весь MS Small Basic

Программа демонстрирует воспроизведение стандартных звуков.

Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:

' 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

Страница этой программы на сайте SmallBasic: http://smallbasic.com/program/?PPJ287-0