satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
(VB6)
dag
Met deze code generer ik bepaalde geluids (door een bepaalde waarde in txtFreq te plaatsen)
Het enige probleem is dat het geluid in een soort van getik
door de timer interval word weergegeven.
Zou mogelijk zijn om het geluid continu te laten horen? Ik bedoel zoals een langegrekt geluid
Hoe moet ik dan dan de timer (of iets anders) aanpassen?
dank u
satriano
dag
Met deze code generer ik bepaalde geluids (door een bepaalde waarde in txtFreq te plaatsen)
Code:
Option Explicit
Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFrequency As Long, ByVal dwMilliseconds As Long) As Long
Private Sub cmdStart_Click()
Timer1.Enabled = True
End Sub
Private Sub cmdStop_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim freq As Long
freq = CLng(txtFreq.Text)
BeepAPI freq, Timer1.Interval
End Sub
door de timer interval word weergegeven.
Zou mogelijk zijn om het geluid continu te laten horen? Ik bedoel zoals een langegrekt geluid
Hoe moet ik dan dan de timer (of iets anders) aanpassen?
dank u
satriano
Laatst bewerkt: