Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: PMACKAY on June 22, 2021, 05:02:14 am

Title: play command on linux doing weird thing on qb64 1.15
Post by: PMACKAY on June 22, 2021, 05:02:14 am
just a question:

on qb64 1.15 linux i have got a little routine as below

x=0
do
play a$(x),b$(x)
x=x+1
if x>719 then x=0
while inkey$="" loop
end

when i press a key it exits like it should but the problem with this it continues to play the two voice music on my pc speaker

i want it to imediatly stop play though. it buffers the music but i dont want it play when i press the key as this is my title screen music.

i want it to play two notes then check key. if key pressed then exit loop. stop playing else loop play next two notes
_delay does not fix

thank you for any advice.
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: SpriggsySpriggs on June 22, 2021, 07:38:03 am
Can you post enough of the actual code and put it in a code block?
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: bplus on June 22, 2021, 07:50:25 am
Quote from: PMACKAY on June 22, 2021, 05:02:14 am
just a question:

on qb64 1.15 linux i have got a little routine as below

x=0
do
play a$(x),b$(x)
x=x+1
if x>719 then x=0
while inkey$="" loop
end

when i press a key it exits like it should but the problem with this it continues to play the two voice music on my pc speaker

i want it to imediatly stop play though. it buffers the music but i dont want it play when i press the key as this is my title screen music.

i want it to play two notes then check key. if key pressed then exit loop. stop playing else loop play next two notes
_delay does not fix

thank you for any advice.

How about playing a note or 2 of the string, and if key isn't pressed on loop around then play some more...
continue until a key is pressed.

BTW, your code isn't even showing you polling for keypress???

Try

do
     k$ = inkey$
    'play some stuff
loop until len(k$)

Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: bplus on June 22, 2021, 08:41:13 am
Kid tested and approved:
Code: QB64: [Select]
  1. Cls: Print "Frosty the Snow Man"
  2. pp = 1
  3. P$ = "t140o2p4g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
  4. P$ = P$ + "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4f4g2."
  5. P$ = P$ + "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2."
  6. P$ = P$ + "g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
  7. P$ = P$ + "c4a4a4o3c4c4o2b4a4g4e4f4a4g4f4e2."
  8. P$ = P$ + "e8e8d4d4g4g4b4b4o3d4d8o2b8o3d4c4o2b4a4g4p4"
  9. P$ = P$ + "g2g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g8g2."
  10. P$ = P$ + "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2.p4"
  12.     k$ = InKey$
  13.     b$ = Mid$(P$, pp, 1)
  14.     pp = pp + 1
  15.     While InStr("0123456789", Mid$(P$, pp, 1)) And pp <= Len(P$)
  16.         b$ = b$ + Mid$(P$, pp, 1)
  17.         pp = pp + 1
  18.     Wend
  19.     Print b$
  20.     If b$ <> "." Then Play b$
  21.  
  22.  
  23.     If pp > Len(P$) Then pp = 1
  25.  
  26.  
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: PMACKAY on June 22, 2021, 08:59:36 am
i will post the code block tomorrow.

its pretty much a

get file with music data

open "musicdatavoice one",into music1$(): open "musicdatavoice two"into music2$()

all data is "o? n" for both

stored in music1$(i) and music2$(i)

i then have a loop

n = current position of note in music1 and music2

loop begin
play music1$(n),music2$(n)
check if key pressed. key pressed so end
if not n=n+1 but if n=719 n=1
goto loop begin

either way i will paste my code tomorrow.

play "MB AND MF" the same in qb64. both play as background.... needs to be played in foreground so stops when key is pressed

but the music continues to play... music should stop


i am playing tune as polysynth not mono. works great except for not stop playing when key pressed

all music is playing in background. no foreground. (need foreground) not buffered.
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: FellippeHeitor on June 22, 2021, 09:18:05 am
The way PLAY, BEEP, SOUND, _SNDRAW, or any sound command really, are implemented, is that they push data into a sound buffer that gets output to the sound card. The only way to stop a PLAY/SOUND buffer is by letting it end or by actually closing your program with SYSTEM.

If you use sound files (open with _SNDOPEN, played with _SNDPLAY, etc) - you can use _SNDPAUSE and _SNDSTOP commands.
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: PMACKAY on June 23, 2021, 08:54:39 am
Dim musicdata$(113): Open "voice1data" For Input As #1: Open "voice2data" For Input As #2: musicdata$(0) = "l10"
For i = 1 To 113: Input #1, v1$: Input #2, v2$: musicdata$(i) = v1$ + "," + v2$: Next i: Close #2: Close #1




Do
    For i = 0 To 113
        Play musicdata$(i)
    Next i
Loop While InKey$ = ""




how do i only get the buffer to play the notes one by one with the keyboard being read so once the keyboard press the key it stops. this is a title music....
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: George McGinn on June 24, 2021, 12:22:56 am
@bplus

When I play your code, after the first verse and going into the chorus, it gets too fast and un-intelligible.

Does the music commands allow for different note durations? (Such as quarter, half, whole notes? How about metrics like 4/4, 3/4 or 6/8?)
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: bplus on June 24, 2021, 07:01:06 am
Quote from: George McGinn on June 24, 2021, 12:22:56 am
@bplus

When I play your code, after the first verse and going into the chorus, it gets too fast and un-intelligible.

Does the music commands allow for different note durations? (Such as quarter, half, whole notes? How about metrics like 4/4, 3/4 or 6/8?)

I don't know George about your system, I am on Windows 10 with stable QB64 v1.5 and it plays regular for minutes until I press a key and then it stops.

BTW this is modified from Wiki Play example so that it plays single notes but they are held for different times like whole notes, half notes, quarter...

Here I stuck in a _Limit you can slow it down all you like
Code: QB64: [Select]
  1. Cls: Print "Frosty the Snow Man"
  2. pp = 1
  3. P$ = "t140o2p4g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
  4. P$ = P$ + "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4f4g2."
  5. P$ = P$ + "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2."
  6. P$ = P$ + "g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
  7. P$ = P$ + "c4a4a4o3c4c4o2b4a4g4e4f4a4g4f4e2."
  8. P$ = P$ + "e8e8d4d4g4g4b4b4o3d4d8o2b8o3d4c4o2b4a4g4p4"
  9. P$ = P$ + "g2g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g8g2."
  10. P$ = P$ + "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2.p4"
  12.     k$ = InKey$
  13.     b$ = Mid$(P$, pp, 1)
  14.     pp = pp + 1
  15.     While InStr("0123456789", Mid$(P$, pp, 1)) And pp <= Len(P$)
  16.         b$ = b$ + Mid$(P$, pp, 1)
  17.         pp = pp + 1
  18.     Wend
  19.     Print b$
  20.     If b$ <> "." Then Play b$
  21.     If pp > Len(P$) Then pp = 1
  22.     _Limit 6
  24.  

Maybe a problem with Linux version of Play, I know it handles timing different than Windows from past problems reported by johnno56.
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: George McGinn on June 24, 2021, 03:50:36 pm
@bplus I could very well be my system, either Linux or my Dell or both!
Title: Re: play command on linux doing weird thing on qb64 1.15
Post by: johnno56 on June 24, 2021, 04:19:18 pm
It was such a pleasant surprise to be greeted by the mechanical version of Frosty at 6:15am... Worked almost a well as my coffee... I am now fully awake... lol
Text Only | Text with Attachments