Microsoft Small Basic

Program Listing: JFM059
' Measure Temp0 of Sound.PlayMusic()
WQ = Text.GetCharacter(34)
TextWindow.WriteLine("Millisecond / 4 Quarter Notes")
Sound.PlayMusic("EEEE") ' for some initialization
num = 5
C4()
CCCC()
Sub C4
TextWindow.WriteLine("")
TextWindow.WriteLine(WQ + "C" + WQ + "x4")
sum = 0
For j = 1 To num
ems0 = Clock.ElapsedMilliseconds
For i = 1 To 4
Sound.PlayMusic("C")
EndFor
ems1 = Clock.ElapsedMilliseconds
ems = ems1 - ems0
TextWindow.WriteLine(ems)
sum = sum + ems
EndFor
TextWindow.WriteLine("Average " + (sum / num))
TextWindow.WriteLine("Tempo " + ((num * 4) / (sum / 60000)))
EndSub
Sub CCCC
TextWindow.WriteLine("")
TextWindow.WriteLine(WQ + "CCCC" + WQ)
sum = 0
For j = 1 To num
ems0 = Clock.ElapsedMilliseconds
Sound.PlayMusic("CCCC")
ems1 = Clock.ElapsedMilliseconds
ems = ems1 - ems0
TextWindow.WriteLine(ems)
sum = sum + ems
EndFor
TextWindow.WriteLine("Average " + (sum / num))
TextWindow.WriteLine("Tempo " + ((num * 4) / (sum / 60000)))
EndSub