Option Explicit
Dim Sample As Double
Dim DX As DirectX8 '
Dim DS As DirectSound8
Dim Tone(21) As DirectSoundSecondaryBuffer8
Dim dsToneBuffer As DirectSoundSecondaryBuffer8
Dim desc As DSBUFFERDESC
Const PI = 3.14159265358979
Const SRATE = 44100 ' sampling data per detik
Const DUR = 1 ' durasi nada
Const FREQ = 440 ' frekuensi acuan
Const CHAN = 2 ...