[VB6] Vloeiend "Beep" geluid maken

[RoelK]

Hallo iedereen,

Ik wil graag een code maken waarmee je een vloeiend geluid maakt tot je op een knop (StopSound_Click) drukt. Wat ik nu heb:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Public z As Integer

Private Sub StopSound_Click()
z = 1
End Sub

Private Sub Form_Load()
Do
If Form1.Visible = False Then End
DoEvents
Beep 1000, 100
Loop Until z = 1
End Sub

Het probleem is dat het geluid als volgt gaat: BEEP, stilte, BEEP, stilte, BEEP, stilte enz.
Het geluid moet als volgt gaan: BEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEP (zonder onderbrekingen)

Kan iemand een code geven die dit probleem oplost?
Alvast bedankt,
RoelK

 

[The Mighty Atom]

Ik heb wel iets voor je, maar het is voor .NET, niet voor VB6. Ik zet het hier toch maar neer, misschien heb je er wat aan.

    Private Sub btnBeginBeep_Click(sender As Object, e As EventArgs) Handles btnBeginBeep.Click
        BeepThread = New Threading.Thread(AddressOf DoBeep)
        BeepThread.IsBackground = True
        BeepThread.Start()
    End Sub

    Private Sub DoBeep()
        Console.Beep(1000, 100000)
    End Sub

    Private Sub btnStopBeep_Click(sender As Object, e As EventArgs) Handles btnStopBeep.Click
        Console.Beep(1000, 1)
    End Sub

Het is alleen geen loop want je zult toch een duration moeten opgeven, en met een loop hoor je toch een korte pauze tussen de beebs. Met bovenstaande code heb je een lange beep van 100.000 ms zonder hoorbare pauzes.

 

[RoelK]

Bedankt voor de reactie, ik ga kijken wat ik ermee kan!