Hi all. Is possible that beeper over 2500 Hz dont work ?
This work all but if you try over 2500 ( example freq = 3000 ) dont work why ?
Any idea ?? Thank you all in advance
B4X:
Sub Process_Globals
Dim suono1, suono2, suono3, suono4 As Beeper
End Sub
Sub Globals
Private Button1 As Button
Private SeekBar1 As SeekBar
Private Label1 As Label
Dim freq As Int
Dim valore As Int
Dim AdView1 As AdView
Private Bt10 As Button
Private Bt15 As Button
Private Bt5 As Button
Dim timer1 As Timer
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("xxxxx")
Activity.Title = "Test Beeper"
If FirstTime Then
SeekBar1.Value = 1500
freq = 1500
SeekBar1.Max = 27000
Label1.Text = " 1500 Hz"
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Activity_Resume
End Sub
Sub nosuono
suono1.Release
suono2.Release
suono3.Release
suono4.Release
timer1.Enabled = False
End Sub
Sub timer1_Tick
Select valore
Case 1
suono1.Beep
Case 2
suono2.Beep
Case 3
suono3.Beep
Case 4
suono4.Beep
End Select
End Sub
Sub Button1_Click
valore = 1
If Button1.Text = "OFF" Then
nosuono
Button1.Text = "ON"
Else
timer1.Initialize("Timer1",1)
suono1.Initialize(100,freq)
timer1.Enabled = True
Button1.Text = "OFF"
End If
End Sub
Sub Bt5_Click
valore = 2
nosuono
Button1.Text = "OFF"
Label1.Text = "500 Hz"
SeekBar1.Value = 500
freq = 500
timer1.Initialize("Timer1",1)
suono2.Initialize(100,freq)
timer1.Enabled = True
End Sub
Sub Bt10_Click
valore = 4
nosuono
Button1.Text = "OFF"
Label1.Text = "1000 Hz"
SeekBar1.Value = 1000
freq = 1000
timer1.Initialize("Timer1",1)
suono4.Initialize(100,freq)
timer1.Enabled = True
End Sub
Sub Bt15_Click
valore = 3
nosuono
Button1.Text = "OFF"
Label1.Text = "1500 Hz"
SeekBar1.Value = 1500
freq = 1500
timer1.Initialize("Timer1",1)
suono3.Initialize(100,freq)
timer1.Enabled = True
End SubThis work all but if you try over 2500 ( example freq = 3000 ) dont work why ?
Any idea ?? Thank you all in advance
Last edited:
