Musical scale: Difference between revisions
Content added Content deleted
({{header|VBA}}) |
|||
Line 675:
ursa.util.sound.beep notes<i> 0.5
end for</lang>
=={{header|VBA}}==
<lang vb>
Option Explicit
Declare Function Beep Lib "kernel32" (ByVal Freq As Long, ByVal Dur As Long) As Long
Sub Musical_Scale()
Dim Fqs, i As Integer
Fqs = Array(264, 297, 330, 352, 396, 440, 495, 528)
For i = LBound(Fqs) To UBound(Fqs)
Beep Fqs(i), 500
Next
End Sub</lang>
=={{header|XPL0}}==
| |||