Algoritma Memainkan File Wave

Algoritma Memainkan File Wave

Sub PlayWave(cFileWave as string)

    Open cFileWave

    CheckPlay Position

    If Position = 0 Then

        Play cFileWave, 0    

    Else

       Play cFileWave, Position

    End if                               

End sub

Sub PauseWave()

    Pause

    Position = GetPlayPosition()   

End sub

Sub StopWave()

   Stop

   Position = 0              

End sub