I want to generate the sine wave sound for particular frequency and particular duration
My Code is like this
Option Explicit
Option Base 1
Private Sub CommandButton1_Click()
Dim Sc(3) as integer
Dim Frequency=440
Dim Duration = 1000 ' in millisecond
Sc(1)=1
Sc(2)=1.125
Sc(3)=1.2
For i = 1 to 3
' some code is required to play the sound for above frequency and duration in which frequency=440*Sc(i)
next i
End Sub
|