Android Question Wait for beep has finished to play?

Sub7 · Jun 19, 2014

This might seems stupid and probably it is but i cannot find a way to play a beep for the whole duration inside a loop:

B4X:

 Sub test
Dim rnd_time as int
  For i = 1 To 50
  freq = Rnd(300,1000)
  rnd_time = rnd(100,400)
  beep1.Initialize(rnd_time,freq)
  beep1.Beep
  Next
End sub

Note that i don't know the beep duration as it is random

Tried that but is not ok (play two times)

B4X:

 Sub test
Dim rnd_time as int
  For i = 1 To 50
  freq = Rnd(300,1000)
  rnd_time = rnd(100,400)
  beep1.Initialize(rnd_time,freq)
  beep1.Beep
  Dim seconds As Int
  seconds = 1
  Dim Ti As Long
  Ti = DateTime.Now + (seconds * rnd_time)
  Do While DateTime.Now < Ti
  DoEvents
  Loop
  Next
End sub

Thanks

LucaMs · Jun 19, 2014

I did not understand well what you want to achieve (I have not had the patience to read well).

Maybe you could use a timer; even if the beep has a random duration, you can set the timer for the same duration and then play the next beep.

Sub7 · Jun 19, 2014

LucaMs said:
I did not understand well what you want to achieve (I have not had the patience to read well).

Maybe you could use a timer; even if the beep has a random duration, you can set the timer for the same duration and then play the next beep.

Hello, if you execute that sub it will play 50 beeps in a row without duration (a big mess)
I need the beeps finish their duration before looping to the next!

Ty

udg · Jun 19, 2014

Hi Sub7,

as Luca pointed out in his post, you should use a timer to be sure that each sound is played for its intended duration.
The problem with your code is that at each cycle in the for loop you define and start a new beep sound, commanding its immediate playing, which has the effect of stopping the currently executing sound.

So, put the definition of your next sound in the Timer_tick event as long as set the next timer event at the same time this new sound will stop.

Umberto

DonManfred · Jun 19, 2014

B4X:

Sub test
    For i = 1 To 50
        Dim freq As Int
      freq = Rnd(300,1000)
        Dim rnd_time As Int
      rnd_time = Rnd(100,400)
        Dim beep1 As Beeper
      beep1.Initialize(rnd_time,freq)
     
        beep1.beep
      Dim Ti As Long = DateTime.Now + rnd_time + 50 ' 50 ms delay between each beep
      Do While DateTime.Now < Ti
          'Log("i="&i&" / Loop")
            DoEvents
      Loop
  Next
End Sub

udg · Jun 19, 2014

Well done, Manfred!
This one avoids the timer and still lets the sounds to play entirely.

Sub7 · Jun 19, 2014

DonManfred said:

B4X:

Sub test
    For i = 1 To 50
        Dim freq As Int
      freq = Rnd(300,1000)
        Dim rnd_time As Int
      rnd_time = Rnd(100,400)
        Dim beep1 As Beeper
      beep1.Initialize(rnd_time,freq)
    
        beep1.beep
      Dim Ti As Long = DateTime.Now + rnd_time + 50 ' 50 ms delay between each beep
      Do While DateTime.Now < Ti
          'Log("i="&i&" / Loop")
            DoEvents
      Loop
  Next
End Sub

It works, but only one time if you click the button again it wont play.

Thanks!

Sub7 · Jun 19, 2014

Sub7 said:
It works, but only one time if you click the button again it wont play.

Thanks!

nvm solved, thanks.

LucaMs · Jun 19, 2014

Solved? damn

Sub7 · Jun 19, 2014

Grazie Luca

LucaMs · Jun 19, 2014

Sub7 said:
Grazie Luca

Prego

Erel · Jun 20, 2014

1. You must call Beeper.Release.
2. Don't try to hold the main thread. It will only cause problems. Use a timer instead.

Sub7 · Jun 23, 2014

Erel said:
1. You must call Beeper.Release.
2. Don't try to hold the main thread. It will only cause problems. Use a timer instead.

Indeed holding the main thread is causing problems, im now using a timer.
ty

Android Question Wait for beep has finished to play?

Sub7

Active Member

LucaMs

Expert

Sub7

Active Member

udg

Expert

DonManfred

Expert

udg

Expert

Sub7

Active Member

Sub7

Active Member

LucaMs

Expert

Attachments

Sub7

Active Member

LucaMs

Expert

Erel

B4X founder

Sub7

Active Member

Similar Threads

Android Question Wait for beep has finished to play?

Active Member

Expert

Active Member

Expert

Expert

Expert

Active Member

Active Member

Expert

Attachments

Active Member

Expert

B4X founder

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency