sound effects in qb64 - can anyone recommend any good demos or examples?

[madscijr]

I know how to make simple notes and beeps,
now I'm looking for examples of generating other sounds,
not playing back sound files, but generating sounds with commands
(like you would with the C64 SID chip), i.e.

• play multiple sounds at once (3+ oscillators)
• set ADSR per oscillator
• wave shapes: Square, Triangle, Saw, Noise, etc.
• HP, BP, LP filters
• Any other effects, etc.

I'm really just looking for example code I can run and play with...
Thanks

[Pete]

Are you interested in fart sounds? Oh wait, you need FreeBASIC for that!

[bplus]

Check through Petr's posts, as far as I know he doesn't fart around with sound.

Also he and _vince were having a discussion on sound creation, I think I recall.

yes, I found this:
https://www.qb64.org/forum/index.php?topic=3508.msg128331#msg128331

This looks even better:
https://www.qb64.org/forum/index.php?topic=2494.msg117307#msg117307

[Petr]

Hi guys.
I know that I almost never contribute now, but I spend all my free time working on our housing now. I recommend using the _SNDRAW command to build a sound wave with any waveform. All you have to do is insert sound samples in the range from -1 to 1 into the sound field (create a saw wave in this way) and then play it with _SNDRAW. Of course, it is necessary to take into account the stereo error of the _SNDRAW command and therefore it is possible to save the sound using my SaveSound program as WAV (it is available in the programs referenced by BPlus).

Sinus wave example:

Code: QB64: [Select]

1. 'sinus waveform create and play:
2. SCREEN _NEWIMAGE(1024, 768, 32)
3.  
4. SoundLenght = 10 '10 seconds
5. SoundRate = _SNDRATE '44100 samples per second
6.  
7. Samples = SoundRate * SoundLenght
8.  
9. DIM WAV(Samples) AS SINGLE
10.  
11. FOR GenerateSound = 0 TO Samples
12.     e = e + .001 * _PI(2)
13.     WAV(GenerateSound) = SIN(e)
14. NEXT
15.  
16. PSET (384, 0)
17. FOR PlaySound = 1 TO Samples
18.     LOCATE 1
19.     IF PlaySound MOD 3000 = 0 THEN PRINT "Time:"; PlaySound \ _SNDRATE: _DISPLAY
20.     X = X + 1
21.     IF X > 1024 THEN X = 0
22.     LINE (X, 0)-(X, 768), &HFF000000, BF
23.     LINE (X - 1, 384 + WAV(PlaySound - 1) * 150)-(X, 384 + WAV(PlaySound) * 150)
24.     _SNDRAW WAV(PlaySound)
25.     DO UNTIL _SNDRAWLEN = 0: LOOP
26. NEXT
27.  

and something else with small modification...

Code: QB64: [Select]

1. 'sinus waveform create and play:
2. SCREEN _NEWIMAGE(1024, 768, 32)
3.  
4. SoundLenght = 10 '10 seconds
5. SoundRate = _SNDRATE '44100 samples per second
6.  
7. Samples = SoundRate * SoundLenght
8.  
9. DIM WAV(Samples) AS SINGLE
10.  
11. FOR GenerateSound = 0 TO Samples
12.     e = e + .01 * _PI(2) * RND * TAN(f)
13.     f = f + .001
14.     WAV(GenerateSound) = SIN(e)
15. NEXT
16.  
17. PSET (384, 0)
18. FOR PlaySound = 1 TO Samples
19.     LOCATE 1
20.     IF PlaySound MOD 3000 = 0 THEN PRINT "Time:"; PlaySound \ _SNDRATE: _DISPLAY
21.     X = X + 1
22.     IF X > 1024 THEN X = 0
23.     LINE (X, 0)-(X, 768), &HFF000000, BF
24.     LINE (X - 1, 384 + WAV(PlaySound - 1) * 150)-(X, 384 + WAV(PlaySound) * 150)
25.     _SNDRAW WAV(PlaySound)
26.     DO UNTIL _SNDRAWLEN = 0: LOOP
27. NEXT
28.  

[johnno56]

If you want typical "8 bit" type sound effects, then I would recommend, www.bfxr.net.  The application can be used both on and offline. Runs on Windows but runs perfectly on Linux Mint 20 using Wine. Did I mention that it's free? I know... It sounds like a shameless advertising plug... but you did ask... lol

[madscijr]

Thanks everyone for your replies... I will check out those examples.
This is mainly for simple sound effects for games.
Maybe down the line I'd be interested in writing a custom sequencer or tracker
(the standard commercial programs like Garage Band and Cakewalk never felt intuitive to me, like how I see music in my head).
For now I am just looking for basic sounds for games, beyond Pong-like beeps.
I'll check out what everyone suggests and post back later.
Thanks again!

[Petr]

@madscijr

Hi again, here is next example + sub for saving this mono sound as wav:

Code: QB64: [Select]

1. 'sinus waveform create and play + save output as 16 bit mono WAV file:
2. SCREEN _NEWIMAGE(1024, 768, 32)
3.  
4. SoundLenght = 10 '10 seconds
5. SoundRate = _SNDRATE '44100 samples per second
6.  
7. Samples = SoundRate * SoundLenght
8.  
9. DIM WAV(Samples) AS SINGLE
10.  
11. FOR GenerateSound = 0 TO Samples
12.     e = e + .001 * _PI(2) * TAN(f)
13.     f = f - .0001
14.     WAV(GenerateSound) = SIN(e)
15. NEXT
16.  
17.  
18. FOR PlaySound = 1 TO Samples
19.     LOCATE 1
20.     IF PlaySound MOD 3000 = 0 THEN PRINT "Time:"; PlaySound \ _SNDRATE: _DISPLAY
21.     X = X + 1
22.     IF X > 1024 THEN X = 0
23.     LINE (X, 0)-(X, 768), &HFF000000, BF
24.     LINE (X - 1, 384 + WAV(PlaySound - 1) * 150)-(X, 384 + WAV(PlaySound) * 150)
25.     _SNDRAW WAV(PlaySound)
26.     DO UNTIL _SNDRAWLEN = 0: LOOP
27. NEXT
28.  
29. PRINT "Saving effect as EFFECT1.WAV"
30. SAVESOUND16M WAV(), "EFFECT1.WAV"
31.  
32.  
33. SUB SAVESOUND16M (arr() AS SINGLE, file AS STRING) 'save MONO 16 bit WAV audio
34.  
35.     TYPE head16
36.         chunk AS STRING * 4 '       4 bytes  (RIFF)
37.         size AS LONG '              4 bytes  (file size)
38.         fomat AS STRING * 4 '       4 bytes  (WAVE)
39.         sub1 AS STRING * 4 '        4 bytes  (fmt )
40.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
41.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
42.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
43.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
44.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
45.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
46.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
47.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
48.         lenght AS LONG '            4 bytes  Data block size
49.     END TYPE '                     44 bytes  total
50.     DIM H16 AS head16
51.     ch = FREEFILE
52.  
53.     H16.chunk = "RIFF"
54.     H16.size = 44 + UBOUND(arr) * 2 '1 channel, it create 16 bit, stereo wav file, one sample use 2 bytes for one channel
55.  
56.     H16.fomat = "WAVE"
57.     H16.sub1 = "fmt "
58.     H16.subchunksize = 16
59.     H16.format = 1
60.     H16.channels = 1
61.     H16.rate = 44100
62.     H16.ByteRate = 44100 * 16 / 8
63.     H16.Block = 2
64.     H16.Bits = 16
65.     H16.subchunk2 = "data"
66.     H16.lenght = UBOUND(arr) * 2
67.     IF _FILEEXISTS(file$) THEN KILL file$
68.  
69.     OPEN file$ FOR BINARY AS #ch
70.     PUT #ch, , H16
71.     DIM LeftChannel AS INTEGER
72.  
73.     FOR audiodata = 0 TO UBOUND(arr)
74.         LeftChannel = arr(audiodata) * 16384
75.         PUT #ch, , LeftChannel
76.     NEXT
77.     CLOSE ch
78. END SUB
79.  

[TempodiBasic]

Hi Madscijr

I remember a .BAS in the folder of the demonstration of Qb45. If you have it you can get that file demo.
on the web I find this library for QB, herehttps://www.qbasic.net/en/qbasic-downloads/libraries/sound-music.htm
while here https://qb45.org/files.php?cat=9 you find more resource for QB45 in the description it may be interesting Music20, File2MID and Ruckus for your goal.
While in this Pete's ocean https://www.tapatalk.com/groups/qbasic/ you can search anything!

for QB64 it is possible to use the new features as Petr is showing to you.

[madscijr]

I got some of the samples to work, though that approach seems way more complicated than I was looking for, or expected, having done SID sounds on a C64 back in the day. I'm not interested in generating or playing back WAV files - aren't there any built in commands to just generate sound at a given frequency and waveform on a particular channel?
Guess I'll keep messing with those example and searching through code, and when I find something close, I'll post it... Thanks guys

[Petr]

Basic statements for generate sound are SOUND and PLAY. Play is statement for creating music using notes. For opening music files it is _SNDOPEN, for access to raw audiodata (from sound file opened with _SNDOPEN) it is function _MEMSOUND. For creating own sound wave and playing it is here _SNDRAW.

I can't give you any own example for the PLAY command because I didn't deal with it. All I know is that it can play background music and also several notes at once. I'm adding a quick demonstration to the SOUND statement.

Code: QB64: [Select]

1. FOR r = 1 TO 100
2.     FOR a = 210 TO 310 STEP 10
3.         SOUND a, .1
4.         SOUND 1000 - a, .2
5.     NEXT
6. NEXT
7.  

[madscijr]

Basic statements for generate sound are SOUND and PLAY. Play is statement for creating music using notes. For opening music files it is _SNDOPEN, for access to raw audiodata (from sound file opened with _SNDOPEN) it is function _MEMSOUND. For creating own sound wave and playing it is here _SNDRAW.

I can't give you any own example for the PLAY command because I didn't deal with it. All I know is that it can play background music and also several notes at once. I'm adding a quick demonstration to the SOUND statement.

Code: QB64: [Select]

1. FOR r = 1 TO 100
2.     FOR a = 210 TO 310 STEP 10
3.         SOUND a, .1
4.         SOUND 1000 - a, .2
5.     NEXT
6. NEXT
7.  

That works, thanks. I have been going through code looking at how different sounds are made.
It seems the SOUND statement can do a lot!
I haven't seen a good example of using it to create white noise (like an explosion sound), and also can you control the volume with it?
Thanks again.