ConvertOffset, Please read it, try it and... who is bug? THX :)

[Petr]

@SMcNeill

Hi Steve. I want to thank you for the convert offset function. I used my own solution, which seemed to work, but in fact I greatly destabilized QB64. My bad conversion caused random errors in a complex program, fortunately also in version 1.5 and also in version 2.0, when using MEM, DO LOOP loops were also stuck. There were also random errors when writing to the binary. The program simply crashed and Windows just announced: The program stopped working and was therefore terminated. I tried everything here. Everything I could think of. The program is far from complete and it would be difficult for anyone to know about it, because it involves a lot of interconnected fields together. Before I wanted to start adding English comments to the program, I remembered your function. It was out of desperation, I didn't know what to try anymore.

I inserted and replaced my function with your function. All problems are gone. I don't understand or see the reason. Here's the hellish thing I'll kick out of all my programs. Really, nothing else. Only this. I work in a 64 bit version. Maybe someone wonders why this is causing problems. Problems absolutely fatal. The ones that can't be found! If anyone knows why this does such an evil, please, I want to explain.

This

Code: QB64: [Select]

1. Function OFFSET_to_I64&& (value As _Offset)
2.     Dim m As _MEM
3.     $If 32BIT Then
4.         DIM num AS LONG
5.         m = _MEM(num)
6.         _MEMPUT m,m.offset, value
7.         Offset_to_i64 = num
8.         _MEMFREE m
9.     $Else
10.         Dim num As _Integer64
11.         m = _Mem(num)
12.         _MemPut m, m.OFFSET, value
13.         OFFSET_to_I64 = num
14.         _MemFree m
15.     $End If
16. End Function
17.  

is replaced with your very small modified function

Code: QB64: [Select]

1.  
2. Function ConvertOffset&& (value As _Offset)
3.     Dim co As _Integer64
4.     Dim m As _MEM 'Define a memblock
5.     m = _Mem(value) 'Point it to use value
6.     $If 64BIT Then
7.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
8.         _MemGet m, m.OFFSET, co&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
9.     $Else
10.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
11.         _MEMGET m, m.OFFSET, temp& 'Like this
12.         co&& = temp& 'And then assign that long value to ConvertOffset&&
13.     $End If
14.     _MemFree m 'Free the memblock
15.     ConvertOffset&& = co&&
16. End Function
17.  
18.  

[Petr]

Just to give you an idea - I'm talking about a sound editing program and hundreds of megabytes of data flow through fields and memory.

[RhoSigma]

Hi @Petr,

since the latest stable version 2.0 its much easier to do this, see Changelog:

Functions _MK$ and _CV can now deal with _OFFSET values.

Hence, it's now as easy as:

Code: QB64: [Select]

1. o%& = 5
2. l&& = _CV(_INTEGER64, _MK$(_INTEGER64, o%&))
3.  
4. PRINT "_OFFSET    ="; o%&
5. PRINT "_INTEGER64 ="; l&&
6.  

However, if you wanna give your program some backward compatiblity to v1.5 or even older, then you should stay with @SMcNeill 's converter function, as it works in all QB64 versions.

[Petr]

@RhoSigma

Thank you! I look at it! Perfect work!

[SMcNeill]

        Dim num As _Integer64
        m = _Mem(num)
        _MemPut m, m.OFFSET, value
        OFFSET_to_I64 = num
        _MemFree m


Looking at the above, I can't see why the heck it'd produce false results for you.  Only thing I can think you might try would be to add AS _OFFSET to the end of that memput statement.  I wouldn't think it'd be necessary since value is defined as an offset, but who knows?!!

Looks to me like it should work as is.

[SMcNeill]

Testing the two routines, I can't see a bit of difference in them or how they behave.

Code: QB64: [Select]

1. Screen _NewImage(1024, 720, 32)
2. _FullScreen
3. Dim v As _Offset
4. v = 1
5. For i = 1 To 30
6.     Print i, v, OFFSET_to_I64(v), ConvertOffset(v)
7.     v = v * 10
8. Next
9.  
10. Print "Binary Analysis"
11. v = 1
12. Do
13.     If OFFSET_to_I64(v) <> ConvertOffset(v) Then
14.         Beep
15.         Print "Numbers mismatch!"
16.         Print v, OFFSET_to_I64(v), ConvertOffset(v)
17.         End
18.     End If
19.     Locate 33, 1: Print v; "of"; &HFFFFFFFFFFFFFFFF~&&
20.     If _KeyHit Then Exit Do
21.     v = v * 2
22.     _Limit 10
23. Loop Until v = 0 'we get too large for v and it becomes NaN
24. Print "All numbers match.  "
25. v = -1
26. Do
27.     If OFFSET_to_I64(v) <> ConvertOffset(v) Then
28.         Beep
29.         Print "Numbers mismatch!"
30.         Print v, OFFSET_to_I64(v), ConvertOffset(v)
31.         End
32.     End If
33.     Locate 36, 1: Print v; "of"; &HFFFFFFFFFFFFFFFF&&
34.     If _KeyHit Then Exit Do
35.     v = v * 2
36.     _Limit 10
37. Loop Until v = 0 'we get too large for v and it becomes NaN
38. Print "All numbers match.  "
39.  
40.  
41.  
42.  
43. Function OFFSET_to_I64&& (value As _Offset)
44.     Dim m As _MEM
45.     $If 32BIT Then
46.         DIM num AS LONG
47.         m = _MEM(num)
48.         _MEMPUT m,m.offset, value
49.         Offset_to_i64 = num
50.         _MEMFREE m
51.     $Else
52.         Dim num As _Integer64
53.         m = _Mem(num)
54.         _MemPut m, m.OFFSET, value 'As _OFFSET
55.         OFFSET_to_I64 = num
56.         _MemFree m
57.     $End If
58. End Function
59.  
60.  
61. Function ConvertOffset&& (value As _Offset)
62.     Dim co As _Integer64
63.     Dim m As _MEM 'Define a memblock
64.     m = _Mem(value) 'Point it to use value
65.     $If 64BIT Then
66.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
67.         _MemGet m, m.OFFSET, co&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
68.     $Else
69.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
70.         _MEMGET m, m.OFFSET, temp& 'Like this
71.         co&& = temp& 'And then assign that long value to ConvertOffset&&
72.     $End If
73.     _MemFree m 'Free the memblock
74.     ConvertOffset&& = co&&
75. End Function
76.  

[Petr]

@SMcNeill

I'm still looking for bugs in the source code of my program, when it happened that I called something like S$ = SPACE$ (CovnevertOffset (L.SIZE)) using a conversion function, and if I didn't load the whole MEM block, sometimes this just got stuck. Of course, I tried to take it out of the program and replicate the error outside the entire large source code, I tried to write repeatedly using SPACE$, I suspected that if the LONG upper limit for the size of SPACE$ was exceeded, it would fail, so I tried to write files in smaller pieces and not all at once, there were repeated completely unexpected crashes of the main program, but I never managed to bring it out, separately (if so, it would already be here). So I got a suspicion that I would exceed the upper limits of the SINGLE data type somewhere and that it would cause crashes.

I didn't plan it, but if someone finds it, it will benefit the whole team. Maybe I'm touching an unknown problem somewhere, or I'm just blind and I just can't see it. So now I'm adding a rough, uncommented, deeply unfinished program that does that for you to watch. It doesn't have a complete control or function, I only put it here for the ability to replicate my problems. It's not about RAM (apparently) because, according to Windows Task Manager, I never reached the upper memory area during the test.

So how do you can use it:
Compile, run. Press the S key to bring up the Windows dialog. Choose the format of MP3, for example, or select the file you want. The mouse will show a bar (indicates the length of the music). Press the P key to start playing the sound. Due to an SNDRAW error in stereo produce and a function that is intended for the program in the future, the audio data is written to the field and saved as a WAV file on the disc before playback. The problem is that it will be done 4 times correctly, for example, and then it will collapse like a house of cards. Press Esc once to end playback, press Esc again to exit insert mode. Click in the center of the bar on the screen to put this music in the program (unless you press Esc first). This works. It is allowed to insert the same music repeatedly. Insert another music track by pressing S. Then press P or O. O is for the final mix (it's still mixing very badly, I'm working on it now). According to my tests, the problem should arise in SaveSound16S, but I don't understand how at all. The program has an unlimited length of music, of course this is far from everything I want to add to it, so first write the main engine - and it is currently unreliable for unknown reasons.

Also is here one UNKNOWN problem in version 2.0 only (not crash under 1.5 with this) ------> comment row 791 and uncomment row 795, and also uncomment row 796 with END statement. This show you....... after run PROGRAM STOP WORKING....
EDIT: for this bug you must opening WAV audio file with S key (can be also supported format)

Try replace offset conversion function, it crash again, but not so often.

Code: QB64: [Select]

1.  
2. '$include:'opensave.bi'
3. '$include:'winbox.bi'
4. $Color:32
5. _Title "SoundEdit Alfa"
6. Const MusicStep = 100 'how much pixels use for 1 second of sample sound
7. Dim Shared DW As Integer, DH As Integer, LaneHeight As Integer
8. Dim Shared SamplePlay As Long
9. DW = _DesktopWidth
10. DH = _DesktopHeight
11.  
12. Type Sample
13.     '   Name AS STRING * 50
14.     '  Path AS STRING * 200
15.     Lenght As Single
16.     Volume As _Unsigned _Byte
17.     Format As _Unsigned _Byte 'ASC M  nebo ASC S
18.     Effect As _Byte '
19.     StartPos As Single
20.     UsedLenght As Single
21.     Speed As Integer '
22.     StartO As Long
23.     EndO As Long
24. End Type
25.  
26. Type SndSamples
27.     Left As Integer
28.     Right As Integer '16 bites
29. End Type
30.  
31.  
32. Type Voices
33.     Von As Integer ' this is for graphic coordinate for inserting samples
34.     Bis As Integer
35. End Type
36.  
37. Dim Shared As Voices LeftIns(1 To 10), RightIns(1 To 10)
38.  
39. 'globalni pole vzorku
40. ReDim Shared Samples(0) As SndSamples
41.  
42. 'pomocne pole SAMplu
43. ReDim Shared SAM(1) As Sample
44.  
45. '---------------------------------- deklarace pro grafickou koordinaci -----------------------------
46. Type Graphic
47.     TimePos As Long
48.     Row As Integer
49.     '    Inf As Sample
50.     NR As Integer
51.     GrPos As Long
52. End Type
53.  
54. ReDim Shared LG(0) As Graphic 'left channel graphic (samples position in time, samples position in one from 10 voices [ROW], samples infos [inf as SAMPLE]
55. ReDim Shared RG(0) As Graphic 'right channel                                                             -,,-
56.  
57.  
58. 'kazdym vkladem samplu se konkretni pole navysi
59.  
60. '---------------------------------------------------------------------------------------------------
61.  
62.  
63.  
64.  
65. Screen _NewImage(DW, DH, 32)
66. _FullScreen
67.  
68. test& = BackgroundImage&
69.  
70.  
71. 'On Error GoTo errhnd
72. Do
73.  
74.     _PutImage , test&
75.  
76.  
77.     i$ = InKey$
78.  
79.     Select Case UCase$(i$)
80.         Case "S" '                                                           vyber samplu
81.             test$ = SelectFile
82.             If Len(test$) Then
83.                 _SndStop SamplePlay
84.                 _SndClose SamplePlay
85.                 snd = LOADSAMPLE(test$)
86.                 '  Print "Navratova hodnota funkce LOADSAMPLE je:"; snd   'cislo snd se ulozi do pole zasobniku samplu
87.             End If
88.  
89.         Case "P" '      
90.             If snd Then '
91.                 PLAYSAMPLE snd
92.             End If
93.  
94.         Case Chr$(0) + Chr$(75)
95.             ShiftGridX = ShiftGridX + 10 'Grid to LEFT
96.             If ShiftGridX > 0 Then ShiftGridX = 0
97.  
98.  
99.         Case Chr$(0) + Chr$(77)
100.             ShiftGridX = ShiftGridX - 10 'Grid to RIGHT
101.             If ShiftGridX > 3600 * MusicStep Then ShiftGridX = 3600 * MusicStep
102.  
103.  
104.         Case "4"
105.             ShiftGridX = ShiftGridX + 1000 'Grid to LEFT
106.             If ShiftGridX > 0 Then ShiftGridX = 0
107.  
108.  
109.         Case "6"
110.             ShiftGridX = ShiftGridX - 1000 'Grid to RIGHT
111.             If ShiftGridX > 3600 * MusicStep Then ShiftGridX = 3600 * MusicStep
112.  
113.         Case "O"
114.             SaveOutput
115.  
116.         Case Chr$(27)
117.             If _SndPlaying(SamplePlay) Then _SndStop SamplePlay: _Delay .1 Else snd = 0
118.  
119.     End Select
120.  
121.    
122.     If Position < 0 Then Position = 0
123.     If Position > MusicStep * 3600 Then Position = MusicStep * 3600 'maximum is hour long record
124.  
125.  
126.  
127.  
128.  
129.     'kresba casove osy
130.  
131.  
132.    
133.     GridX = ShiftGridX
134.  
135.     TimeStart = (-ShiftGridX - 5) / MusicStep
136.     TimeEnd = (-ShiftGridX / MusicStep) + ((DW - 75) / MusicStep)
137.  
138.  
139.  
140.  
141.     Locate 1
142.     Print "Time start:"; CSng(TimeStart); "Time end:"; CSng(TimeEnd)
143.  
144.  
145.     If GridX > 80 + MusicStep Then
146.         GridX = 0
147.         '   GridH = GridH + 1
148.     End If
149.     bG = 1
150.  
151.     If TimeStart Mod 10 <> 0 Then TimeView = Int(TimeStart + 1) Else TimeView = _Ceil(TimeStart + .06) '1   posledni upravy v tomto radku
152.     If TimeStart < 0 Then TimeView = 0
153.     Color Gold
154.     For GridDraw = GridX To MusicStep + DW Step MusicStep / 10
155.         bG = bG + 1 'pro kresbu silnych car
156.         If GridDraw > 75 Then
157.             Line (GridDraw, DH * .1)-(GridDraw, DH * .453), &H40FFFFFF ' Left channel
158.             Line (GridDraw, DH * .905)-(GridDraw, DH * .552), &H40FFFFFF ' RIGHT channel
159.             If bG Mod 10 = 0 Then
160.                 Line (GridDraw + 1, DH * .09)-(GridDraw - 1, DH * .453), &H40FFFFFF, BF 'LEFT channel
161.                 Line (GridDraw + 1, DH * .905)-(GridDraw - 1, DH * .540), &H40FFFFFF, BF 'RIGHT channel
162.                 CenterText$ = LTrim$(Str$(TimeView))
163.                 CenterText = _PrintWidth(CenterText$) \ 2
164.  
165.                 _PrintMode _KeepBackground
166.                 _PrintString (GridDraw - CenterText, DH * .07), CenterText$ 'left
167.                 _PrintString (GridDraw - CenterText, DH * .52), CenterText$ 'right
168.  
169.                 _PrintString (GridDraw - 20, DH * .055), SecAsTime$(TimeView) 'left
170.                 _PrintString (GridDraw - 20, DH * .505), SecAsTime$(TimeView) 'right
171.  
172.                 _PrintMode _FillBackground
173.                 TimeView = TimeView + 1
174.             End If
175.         End If
176.     Next
177.  
178.  
179.    
180.  
181.     InsertLenght = SAMLEN(snd)
182.     'Locate 3
183.     'Print InsertLenght, snd
184.  
185.     While _MouseInput: Wend
186.     MX = _MouseX: MY = _MouseY: LMB = _MouseButton(1)
187.  
188.     If snd Then Line (MX, MY)-(MX + InsertLenght, MY + 16), &H99FFFF00, BF
189.     If MX > 80 Then
190.         SelectedTime = (-ShiftGridX + MX - 80) / MusicStep
191.         InsertStartTime$ = SecAsTime$(SelectedTime)
192.         _PrintString (MX + 50, MY + 32), InsertStartTime$
193.  
194.         If LMB Then 'akce levym tlacitkem mysi
195.             If snd Then
196.                 InsertSam snd, SelectedTime, MY, MX - ShiftGridX
197.                 'wait for mouse left button release
198.                 Do Until LMB = 0
199.                     While _MouseInput: Wend
200.                     LMB = _MouseButton(1)
201.                 Loop
202.  
203.  
204.                 'snd = 0 aby bylo mozno stejny nastroj vlozit na vice mist, neanuluji ho po jednom vkladu, ale az pri stisku Esc   nebo pri otevreni noveho samplu
205.             End If
206.         End If
207.  
208.  
209.         'InsertSam nema kontrolu toho, jestli nevkladas sampl nekam, kde uz jiny je (ve stejnem hlasu a ve stejnem nebo mensim ci prekryvajicim se rozsahu casu)
210.  
211.     End If
212.     '--------------- predchozi radky resi vklad hudby, nasleduje reseni zobrazeni hudby ----------------------
213.     ViewSamplesOnScreen ShiftGridX, DW - ShiftGridX
214.  
215.  
216.  
217.  
218.  
219.  
220.  
221.  
222.     _Display
223.     _Limit 70
224. Loop
225.  
226.  
227. errhnd:
228. Cls
229. Print "Unexpected error on line "; _ErrorLine; "error code: "; Err
230. _Display
231. Sleep
232. Resume Next
233.  
234.  
235. 'test$ = SelectFile
236. 'PRINT test$
237. 'BoxTest = MsgBox("Test okna" + CHR$(0), "Dobrý den" + CHR$(0), 4, 2, 6, 4096)
238.  
239.  
240.  
241.  
242. Sub SaveOutput
243.    
244.     i = 0
245.     Do Until i = UBound(LG)
246.         If maxtimeL < LG(i).TimePos + SAM(LG(i).NR).UsedLenght Then
247.             maxtimeL = LG(i).TimePos + SAM(LG(i).NR).UsedLenght
248.             iL = i
249.         End If
250.         i = i + 1
251.     Loop
252.     i = 0
253.     Do Until i = UBound(RG)
254.         If maxtimeR < RG(i).TimePos + SAM(LG(i).NR).UsedLenght Then
255.             maxtimeR = RG(i).TimePos + SAM(LG(i).NR).UsedLenght
256.             iR = i
257.         End If
258.         i = i + 1
259.     Loop
260.     i = 0
261.     If maxtimeL > maxtimeR Then
262.         TotalTime = maxtimeL
263.         uI = iL
264.     Else
265.         TotalTime = maxtimeR
266.         uI = iR
267.     End If
268.  
269.     TotalTime = TotalTime + SAM(uI).UsedLenght
270.  
271.     Print "SaveOutput: Celkova spocitana delka audio vystupu je: "; TotalTime
272.     _Display
273.     Sleep
274.  
275.     'alokace pameti pro vystup
276.     Dim As _MEM L, R
277.     L = _MemNew(TotalTime * 44100 * 2) 'integer
278.     R = _MemNew(TotalTime * 44100 * 2)
279.  
280.  
281.  
282.     '  LG.NR = cislo samplu
283.     '  SAM(cislo samplu)...
284.  
285.     Dim As Integer CV, ValueOut
286.     For Left = LBound(LG) To UBound(LG) - 1
287.         SamNr = LG(Left).NR
288.         StartBytePosition& = 2 * LG(Left).TimePos * 44100
289.         EndBytePosition& = 2 * (LG(Left).TimePos + SAM(SamNr).UsedLenght) * 44100
290.         LM& = StartBytePosition&
291.         Do Until LM& = EndBytePosition&
292.             CV = _MemGet(L, L.OFFSET + LM&, Integer)
293.             If CV Then
294.                 ValueOut = (CV + Samples(SAM(SamNr).StartO + ReadSam).Left) / 2
295.             Else
296.                 ValueOut = Samples(SAM(SamNr).StartO + ReadSam).Left
297.             End If
298.  
299.  
300.             _MemPut L, L.OFFSET + LM&, ValueOut
301.             LM& = LM& + 2
302.             ReadSam = ReadSam + SAM(SamNr).Speed / 100
303.         Loop
304.         ReadSam = 0
305.     Next
306.  
307.     For Right = LBound(RG) To UBound(RG) - 1
308.         SamNr = RG(Right).NR
309.         StartBytePosition& = 2 * RG(Right).TimePos * 44100
310.         EndBytePosition& = 2 * (RG(Right).TimePos + SAM(SamNr).UsedLenght) * 44100
311.         RM& = StartBytePosition&
312.         Do Until RM& = EndBytePosition&
313.             CV = _MemGet(L, L.OFFSET + RM&, Integer)
314.             If CV Then ValueOut = (CV + Samples(SAM(SamNr).StartO + ReadSam).Right * (SAM(SamNr).Volume / 100)) / 2 Else ValueOut = Samples(SAM(SamNr).StartO + ReadSam).Right * (SAM(SamNr).Volume / 100)
315.             _MemPut R, R.OFFSET + RM&, ValueOut
316.             RM& = RM& + 2
317.             ReadSam = ReadSam + SAM(SamNr).Speed / 100
318.         Loop
319.         ReadSam = 0
320.     Next
321.  
322.     SAVESOUND16S L, R, "output.wav"
323.     _SndPlayFile ("output.wav")
324.     _MemFree L
325.     _MemFree R
326. End Sub
327.  
328.  
329.  
330.  
331.  
332.  
333.  
334.  
335.  
336. Sub ViewSamplesOnScreen (PixelsStart, PixelsEnd) ' time, time, coordinate - X begin, coordinate - X end
337.     'nejprve se musi urcit, jestli cas je v rozsahu viditelnosti, cili jestl je LG(i).timepos > TimeSart a soucasne je LG(i).timepos + lg(i).timepos + lg (i).inf.usedlenght < timeend
338.     'musi spocitat delku samplu v pixelech
339.     V = 0
340.  
341.     Do Until V = UBound(LG)
342.         'prepocitat casovou pozici na pixely
343.         CalcGraphicStart = LG(V).GrPos
344.         CalcGraphicEnd = SAM(LG(V).NR).UsedLenght * MusicStep + LG(V).GrPos
345.  
346.         '        If PixelsStart <= CalcGraphicStart And PixelsEnd >= CalcGraphicEnd Or PixelsStart < CalcGraphicStart And PixelsStart > CalcGraphicEnd Then 'pokus o vklady long samplu
347.         'urcit spravnou polohu Y
348.         VoiceGraphicYs = LeftIns(LG(V).Row).Von + 3
349.         VoiceGraphicYe = LeftIns(LG(V).Row).Bis - 3
350.         'nakreslit znacku
351.         MarkStart = PixelsStart + CalcGraphicStart
352.         MarkEnd = PixelsStart + CalcGraphicEnd
353.  
354.         If MarkStart < 80 Then MarkStart = 80
355.         If MarkEnd < 80 Then MarkEnd = 80
356.         If MarkEnd > DW Then MarkEnd = DW
357.  
358.         If MarkEnd - MarkStart Then Line (MarkStart, VoiceGraphicYs)-(MarkEnd, VoiceGraphicYe), &H70FFAA0E, BF
359.         '       End If
360.         V = V + 1
361.     Loop
362.  
363.     V = 0
364.  
365.     Do Until V = UBound(RG)
366.         'prepocitat casovou pozici na pixely
367.         CalcGraphicStart = RG(V).GrPos
368.         CalcGraphicEnd = SAM(RG(V).NR).UsedLenght * MusicStep + RG(V).GrPos
369.  
370.         '        If PixelsStart <= CalcGraphicStart And PixelsEnd >= CalcGraphicEnd Then
371.         'urcit spravnou polohu Y
372.         VoiceGraphicYs = RightIns(RG(V).Row).Von + 3
373.         VoiceGraphicYe = RightIns(RG(V).Row).Bis - 3
374.         'nakreslit znacku
375.  
376.        
377.         MarkStart = PixelsStart + CalcGraphicStart
378.         MarkEnd = PixelsStart + CalcGraphicEnd
379.  
380.         If MarkStart < 80 Then MarkStart = 80
381.         If MarkEnd < 80 Then MarkEnd = 80
382.         If MarkEnd > DW Then MarkEnd = DW
383.  
384.         If MarkEnd - MarkStart Then Line (MarkStart, VoiceGraphicYs)-(MarkEnd, VoiceGraphicYe), &H70FFAA0E, BF
385.  
386.  
387.         '       End If
388.         V = V + 1
389.     Loop
390. End Sub
391.  
392.  
393. Sub InsertSam (SamNr, Time, MousePosY, RelativePosX) ' insert sample to voice/channel (every channel contains 10 voices) - LG array for left channel, RG for right channel
394.     test = 0
395.     Do Until test = 10
396.         test = test + 1
397.         If MousePosY >= LeftIns(test).Von And MousePosY <= LeftIns(test).Bis Then Voice = 10 + test: GoTo Pass
398.         If MousePosY >= RightIns(test).Von And MousePosY <= RightIns(test).Bis Then Voice = 30 + test: GoTo Pass
399.     Loop
400.     'if mouse is not in correct position, nothing is inserted, so exit sub
401.     Exit Sub
402.  
403.     Pass:
404.  
405.  
406.     Channel = Voice - 10 '1 - 10 = left; 21 - 30 = right
407.  
408.     Select Case Channel
409.         Case 1 TO 10
410.             Voice = Channel
411.             '   Print "Levy kanal"
412.             '  Print "Cislo hlasu: "; Voice 'OK
413.  
414.  
415.  
416.             LGi = UBound(LG)
417.             LG(LGi).Row = Voice
418.             LG(LGi).NR = SamNr
419.             LG(LGi).TimePos = Time
420.             LG(LGi).GrPos = RelativePosX
421.             'pokud jde o stereo zvuk, vlozi se do obou poli:
422.             If Chr$(SAM(SamNr).Format) = "S" Then 'if is sample in stereo format, insert both audio channels to both arrays
423.                 RGi = UBound(RG)
424.                 RG(RGi).Row = Voice
425.                 RG(RGi).NR = SamNr
426.                 RG(RGi).TimePos = Time
427.                 RG(RGi).GrPos = RelativePosX
428.                 RGi = RGi + 1
429.                 ReDim _Preserve RG(RGi) As Graphic
430.             End If
431.             LGi = LGi + 1
432.             ReDim _Preserve LG(LGi) As Graphic
433.  
434.         Case 21 TO 30
435.             Voice = Channel - 20
436.             '    Print "Pravy kanal"
437.             '   Print "Cislo hlasu: "; Voice 'OK
438.  
439.             RGi = UBound(RG)
440.             RG(RGi).Row = Voice
441.             RG(RGi).NR = SamNr
442.             RG(RGi).TimePos = Time
443.             RG(RGi).GrPos = RelativePosX
444.             'pokud jde o stereo zvuk, vloz to do obou poli
445.             If Chr$(SAM(SamNr).Format) = "S" Then 'also: if is sample in stereo, insert both audio channels to both arrays
446.                 LGi = UBound(LG)
447.                 LG(LGi).Row = Voice
448.                 LG(LGi).NR = SamNr
449.                 LG(LGi).TimePos = Time
450.                 LG(LGi).GrPos = RelativePosX
451.                 LGi = LGi + 1
452.                 ReDim _Preserve LG(LGi) As Graphic
453.             End If
454.             RGi = RGi + 1
455.             ReDim _Preserve RG(RGi) As Graphic
456.     End Select
457. End Sub
458.  
459.  
460.  
461.  
462. Function SAMLEN (SamNr) 'Return lane lenght in pixels according to the length of the music
463.     SAMLEN = (SAM(SamNr).UsedLenght - SAM(SamNr).StartPos) * MusicStep
464. End Function
465.  
466. Sub PLAYSAMPLE (samNr) 'jen pro prehrani konkretniho samplu, bez mixovani s ostatnimi        For playing 1 sample without mixing
467.     If SamplePlay Then _SndPlay SamplePlay: Exit Sub
468.     '    Print "PLAYSAMPLE spusten..."
469.     'bude to tak, ze se bleskove udela WAV soubor a ten se pusti pres _sndplayfile
470.     Dim S As _Float, T As _Float
471.     Volume = SAM(samNr).Volume / 100
472.  
473.     OriginalSize& = SAM(samNr).EndO - SAM(samNr).StartO + 4
474.     T = 100 / SAM(samNr).Speed 'for music speed options
475.     T2 = SAM(samNr).Speed / 100 'step for read music data from array definded with DIM
476.  
477.     MEMLEN& = T * OriginalSize& * 2
478.  
479.     Dim L As _MEM, R As _MEM
480.     Dim LeftValue As Integer, RightValue As Integer
481.     Dim I2 As Long
482.  
483.     L = _MemNew(MEMLEN&)
484.     R = _MemNew(MEMLEN&)
485.     S = 0: I2 = 0
486.  
487.     ' "Spustena smycka for S od "; SAM(samNr).StartO; " do"; SAM(samNr).EndO; " krok je"; T2
488.     For S = SAM(samNr).StartO To SAM(samNr).EndO Step T2
489.         ' IF samNr > 0 THEN
490.         ' _SNDRAW (Samples(S).Left / 32768) * Volume, (Samples(S).Right / 32768) * Volume 'ZJISTENO: PRI DRUHEM BEHU SEM JDE PRAZDNA PAMET   L, R
491.         ' IF TEST = 0 THEN BEEP: TEST = 1
492.         ' END IF
493.  
494.         LeftValue = Samples(S).Left * Volume
495.         RightValue = Samples(S).Right * Volume
496.         _MemPut L, L.OFFSET + I2, LeftValue
497.         _MemPut R, R.OFFSET + I2, RightValue
498.         I2 = I2 + 2
499.     Next S
500.  
501.     ' Print "Jeden prubeh je uspesne dokoncen - konec PLAYSAMPLE, rizeni predano SaveSound16S!"
502.  
503.     SAVESOUND16S L, R, "se.wav"
504.     ' Print "SNDOPEN..."
505.  
506.     SamplePlay = _SndOpen("se.wav")
507.     ' Print "cislo zvuku udelene SNDOPENem "; SamplePlay
508.  
509.     If SamplePlay Then _SndPlay SamplePlay
510.  
511.  
512.  
513.  
514.     '
515.  
516.     _MemFree L
517.     _MemFree R
518. End Sub
519.  
520. Sub SAVESOUND16S (left As _MEM, right As _MEM, file As String) 'MEM blocks contains INTEGER values
521.     Dim size As _Unsigned Long
522.     size = OFFSET_to_I64(left.SIZE) / 2
523.  
524.     HeaderSize = size
525.     If HeaderSize Mod 2 > 0 Then
526.         Do Until HeaderSize Mod 2 = 0
527.             HeaderSize = HeaderSize - 1
528.         Loop
529.     End If
530.  
531.  
532.     Type head16
533.         chunk As String * 4 '       4 bytes  (RIFF)
534.         size As Long '              4 bytes  (file size)
535.         fomat As String * 4 '       4 bytes  (WAVE)
536.         sub1 As String * 4 '        4 bytes  (fmt )
537.         subchunksize As Long '      4 bytes  (lo / hi), $00000010 for PCM audio
538.         format As Integer '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
539.         channels As Integer '       2 bytes  (1 = mono, 2 = stereo)
540.         rate As Long '              4 bytes  (sample rate, standard is 44100)
541.         ByteRate As Long '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
542.         Block As Integer '          2 bytes  (block align = number of channels * bits per sample /8)
543.         Bits As Integer '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
544.         subchunk2 As String * 4 '   4 bytes  ("data")  contains begin audio samples
545.         lenght As Long '            4 bytes  Data block size
546.     End Type '                     44 bytes  total
547.     Dim H16 As head16
548.     ch = FreeFile
549.  
550.     H16.chunk = "RIFF"
551.     H16.size = 44 + size * 4
552.     H16.fomat = "WAVE"
553.     H16.sub1 = "fmt "
554.     H16.subchunksize = 16
555.     H16.format = 1
556.     H16.channels = 2
557.     H16.rate = 44100
558.     H16.ByteRate = 44100 * 2 * 16 / 8
559.     H16.Block = 4
560.     H16.Bits = 16
561.     H16.subchunk2 = "data"
562.     H16.lenght = size * 4 'stereo and integer = 2 + 2
563.     If _FileExists(file$) Then Kill file$
564.  
565.     Open file$ For Binary As #ch
566.     Put #ch, , H16
567.  
568.  
569.     Dim LeftChannel16 As Integer, RightChannel16 As Integer
570.     Dim Recalc As _MEM
571.     Dim S As _Unsigned Long, Start As _Unsigned Long, EEND As _Unsigned Long
572.  
573.  
574.     'recalculate audiodata to file - byte - values
575.  
576.     Recalc = _MemNew(size * 2) 'stereo
577.  
578.     Start = 0
579.     '  Print "SaveSound16S: Spustena smycka FOR"
580.     empty = 0
581.     For Start = 0 To size - 4 Step 2
582.         LeftChannel16 = _MemGet(left, left.OFFSET + Start, Integer)
583.         RightChannel16 = _MemGet(right, right.OFFSET + Start, Integer)
584.         If LeftChannel16 = 0 And RightChannel16 = 0 Then empty = empty + 1
585.  
586.         _MemPut Recalc, Recalc.OFFSET + S, LeftChannel16
587.         _MemPut Recalc, Recalc.OFFSET + S + 2, RightChannel16
588.         S = S + 4
589.     Next
590.  
591.     H16.size = 44 + S
592.     H16.lenght = S
593.     Put #ch, 1, H16
594.  
595.  
596.     'write audio data to file
597.     ' Print "SaveSound16S: Smycka FOR ukoncena, Spusten SPACE$"; empty; S~&
598.  
599.     WAVeRAW$ = Space$(S~&)
600.     _MemGet Recalc, Recalc.OFFSET, WAVeRAW$
601.     Put #ch, , WAVeRAW$
602.  
603.     'erase memory
604.     _MemFree Recalc
605.     WAVeRAW$ = ""
606.     Close #ch
607.     '   Print "SaveSound16S dokonceno, rizeni predano PLAYSAMPLE"
608. End Sub
609.  
610.  
611.  
612.  
613.  
614. Sub SAVESOUND8S (Left As _MEM, Right As _MEM, file As String) ' THIS IS NOT USED YET!
615.  
616.     Size = OFFSET_to_I64(Left.SIZE) 'convertion is used for WAV file header, becuse offset value can not be used directly
617.  
618.     Type head8
619.         chunk As String * 4 '       4 bytes  (RIFF)
620.         size As Long '              4 bytes  (file size)
621.         fomat As String * 4 '       4 bytes  (WAVE)
622.         sub1 As String * 4 '        4 bytes  (fmt )
623.         subchunksize As Long '      4 bytes  (lo / hi), $00000010 for PCM audio
624.         format As Integer '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
625.         channels As Integer '       2 bytes  (1 = mono, 2 = stereo)
626.         rate As Long '              4 bytes  (sample rate, standard is 44100)
627.         ByteRate As Long '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
628.         Block As Integer '          2 bytes  (block align = number of channels * bits per sample /8)
629.         Bits As Integer '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
630.         subchunk2 As String * 4 '   4 bytes  ("data")  contains begin audio samples
631.         lenght As Long '            4 bytes  Data block size
632.     End Type '                     44 bytes  total
633.     Dim H8 As head8
634.     ch = FreeFile
635.  
636.     H8.chunk = "RIFF"
637.     H8.size = 44 + Size / 2
638.  
639.     H8.fomat = "WAVE"
640.     H8.sub1 = "fmt "
641.     H8.subchunksize = 16
642.     H8.format = 1
643.     H8.channels = 2
644.     H8.rate = 44100
645.     H8.ByteRate = 44100 * 2 * 8 / 8
646.     H8.Block = 2
647.     H8.Bits = 8
648.     H8.subchunk2 = "data"
649.     H8.lenght = Size / 2
650.     If _FileExists(file$) Then Kill file$
651.  
652.     Open file$ For Binary As #ch
653.     Put #ch, , H8
654.  
655.     Dim LeftChannel8 As _Byte, RightChannel8 As _Byte, RawLeft As Single, RawRight As Single
656.     Dim Recalc As _MEM, size As _Offset
657.  
658.     size = Left.SIZE 'now this value is for memory size used by SINGLE ARRAY - WAV 8bit need 1 byte for 1 channel and 1 sample
659.  
660.     'recalculate audiodata to file - byte - values
661.  
662.     Recalc = _MemNew(size / 2) 'this is value used by WAV - size is 4 byte per sample, we recording stereo (2 x 1 byte) therefore is this divided by 2
663.  
664.     start& = 0: LRO& = 0
665.     Do Until start& = Left.SIZE
666.         RawLeft = _MemGet(Left, Left.OFFSET + start&, Single)
667.         RawRight = _MemGet(Right, Right.OFFSET + start&, Single)
668.  
669.         LeftChannel8 = 128 - RawLeft * 128
670.         RightChannel8 = 128 - RawRight * 128
671.  
672.         _MemPut Recalc, Recalc.OFFSET + s&, LeftChannel8
673.         _MemPut Recalc, Recalc.OFFSET + s& + 1, RightChannel8
674.         s& = s& + 2
675.         start& = start& + 4
676.     Loop
677.  
678.     'write audio data to file
679.  
680.     WAVeRAW$ = Space$(s&)
681.     _MemGet Recalc, Recalc.OFFSET, WAVeRAW$
682.     Put #ch, , WAVeRAW$
683.  
684.     'erase memory
685.     _MemFree Recalc
686.     WAVeRAW$ = ""
687.     Close ch
688. End Sub
689.  
690. Function TestWaveFormat (file As String, Left As _MEM, Right As _MEM, Channels, LenghtOther) '          test if WAV is supported 16 bit type or not (if is wav loaded using key S)
691.  
692.     Type head
693.         chunk As String * 4 '       4 bytes  (RIFF)
694.         size As Long '              4 bytes  (file size)
695.         fomat As String * 4 '       4 bytes  (WAVE)
696.         sub1 As String * 4 '        4 bytes  (fmt )
697.         subchunksize As Long '      4 bytes  (lo / hi), $00000010 for PCM audio
698.         format As Integer '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
699.         channels As Integer '       2 bytes  (1 = mono, 2 = stereo)
700.         rate As Long '              4 bytes  (sample rate, standard is 44100)
701.         ByteRate As Long '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
702.         Block As Integer '          2 bytes  (block align = number of channels * bits per sample /8)
703.         Bits As Integer '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
704.         subchunk2 As String * 4 '   4 bytes  ("data")  contains begin audio samples
705.         lenght As Long '            4 bytes  Data block size
706.     End Type '                     44 bytes  total
707.     Dim H As head
708.     ff = FreeFile
709.     Open file For Binary As ff
710.     Get ff, 1, H
711.     TestWaveFormat = H.Bits
712.     Channels = H.channels
713.     LenghtOther = H.lenght / (H.Bits / 8) / H.channels / H.rate 'without (   ) generate message Program stop working.... - not in 1.5
714.     '
715.  
716.     ' error:
717.     'LenghtOther = H.lenght \ (H.Bits \ 8) \ H.channels / H.rate
718.     'End
719.  
720.     '    Print "LenghtOther:"; LenghtOther ' ok
721.  
722.     'if H.Bits is not 16, convert it!
723.     Select Case H.Bits
724.         Case 24 'RhoSigma Help ----> thanks RhoSigma for help with this!
725.             '   Print "24 bit vaweform decoder:"
726.             '   Print H.channels
727.  
728.             If H.channels = 1 Then multipl = 2 Else multipl = 1
729.             Left = _MemNew((H.lenght \ 3) * multipl)
730.             Right = _MemNew(H.lenght \ 3)
731.  
732.             f$ = Space$(H.lenght)
733.             Get #ff, , f$
734.             Close ff
735.             Dim As Integer LFT, RGH
736.             index& = 0
737.             If H.channels = 2 Then SO = 6 Else SO = 3
738.  
739.             For samp& = 0 To (Len(f$) / SO) - 1 'lenght / block align - 1
740.                 Ls& = 0: Rs& = 0 'clear samples
741.                 For i% = 3 To 1 Step -1
742.                     'loop trough little endian file data to build samples
743.                     Ls& = (Ls& * 256) + Asc(f$, (samp& * SO) + i%) 'shift current value 8 bits left and add next byte
744.                     If H.channels = 2 Then Rs& = (Rs& * 256) + Asc(f$, (samp& * 6) + i% + 3)
745.                 Next i%
746.                 'if MSB (bit 23) is set (negative sample) then sign extend to LONG
747.                 If (Ls& And &H800000) Then Ls& = (Ls& Or &HFF000000)
748.                 If H.channels = 2 Then
749.                     If (Rs& And &H800000) Then Rs& = (Rs& Or &HFF000000)
750.                 End If
751.                 'play normalized samples in range -1.0 to +1.0
752.                 LFT = ((Ls& / 8388608#) * 32767)
753.                 If H.channels = 2 Then RGH = ((Rs& / 8388608#) * 32767)
754.                 _MemPut Left, Left.OFFSET + index&, LFT
755.                 If H.channels = 2 Then _MemPut Right, Right.OFFSET + index&, RGH
756.                 index& = index& + 2
757.             Next samp&
758.  
759.         Case 8, 32
760.             Beep
761.             Print "8 or 32 bit wavefom not supported yet!"
762.             _Display
763.             Sleep
764.             System
765.  
766.  
767.  
768.  
769.     End Select
770.  
771. End Function
772.  
773. Function LOADSAMPLE (path As String) '                                            Function load music file and add music data to arrays Samples and also add one record to array SAM and return SAM index
774.     If _FileExists(path) Then
775.         Dim L As _MEM, R As _MEM
776.         If UCase$(Right$(path, 3)) = "WAV" Then FileFormat = TestWaveFormat(path, L, R, Chann, LenghtOther) Else FileFormat = 16: Chann = 2 'MP3, OGG = 16, if format is not 16 bit, convert and load it to L, R as INTEGERs (16bit)
777.  
778.         If FileFormat = 16 Then 'wav is 16 bit (supported with _SndOpen)
779.             Dim sndswp As Long
780.             sndswp& = _SndOpen(path$)
781.             L = _MemSound(sndswp, 1)
782.             R = _MemSound(sndswp, 2)
783.         End If
784.  
785.         SamplePlay = 0 'predchozi sampl se anuluje
786.         U = UBound(SAM)
787.  
788.  
789.         StartOffset& = UBound(Samples) + 1
790.         EndOffset& = StartOffset& + OFFSET_to_I64(L.SIZE) 'ok!
791.  
792.         If R.SIZE > 0 Then SAM(U).Format = Asc("S") Else SAM(U).Format = Asc("M")
793.         If Chann = 1 Then SAM(U).Format = Asc("M")
794.         SAM(U).StartO = StartOffset&
795.         SAM(U).EndO = EndOffset&
796.         SAM(U).Lenght = _SndLen(sndswp)
797.         If FileFormat = 24 Then SAM(U).Lenght = LenghtOther
798.         SAM(U).Volume = 100 '                                                  sound volume in percentage
799.         SAM(U).Speed = 70 '                                                    sound speed in percentage (works)
800.         SAM(U).Effect = 0
801.         SAM(U).StartPos = 0 '                                                  default: play sample from begin
802.         SAM(U).UsedLenght = SAM(U).Lenght '                                    default: play whole sample (full lenght)
803.         '    SAM(U).Path = path '                                                   just for info, not sure if this will be used or not
804.         '   SAM(U).Name = _TRIM$(MID$(path, _INSTRREV(1, path, CHR$(92)))) '       just for info, not sure if this will be used or not
805.  
806.         ReDim _Preserve SAM(U + 1) As Sample
807.  
808.         ReDim _Preserve Samples(EndOffset&) As SndSamples
809.  
810.         D& = StartOffset&
811.         Done& = 0
812.         Dim LSPK As Integer, RSPK As Integer
813.  
814.         Do Until Done& = L.SIZE
815.             LSPK = _MemGet(L, L.OFFSET + Done&, Integer)
816.             Samples(D&).Left = LSPK
817.  
818.             '            IF R.SIZE > 0 THEN
819.             If Chann > 1 Then
820.                 RSPK = _MemGet(R, R.OFFSET + Done&, Integer)
821.                 Samples(D&).Right = RSPK
822.             End If
823.             '           ELSE
824.             '          Samples(D&).Right = 0
825.             '         END IF
826.             Done& = Done& + 2
827.             D& = D& + 1
828.         Loop
829.         LOADSAMPLE = U
830.  
831.     Else
832.         Print "Error. Path or file"; path$; "not found."
833.         _Display
834.         Sleep
835.     End If
836.  
837.     _SndClose sndswp&
838.     _MemFree L
839.     _MemFree R
840.  
841.  
842.  
843. End Function
844.  
845. Function OFFSET_to_I64&& (value As _Offset) '                                                                                My conversion function
846.     Dim m As _MEM
847.     $If 32BIT Then
848.         DIM num AS LONG
849.         m = _MEM(num)
850.         _MEMPUT m,m.offset, value
851.         Offset_to_i64 = num
852.         _MEMFREE m
853.     $Else
854.         Dim num As _Integer64
855.         m = _Mem(num)
856.         _MemPut m, m.OFFSET, value
857.         OFFSET_to_I64 = num
858.         _MemFree m
859.     $End If
860. End Function
861.  
862.  
863.  
864. Function BackgroundImage& '                                                                                                     Create Background image and fill arrays RightIns and LeftIns with Lane coordinates
865.     oldDest = _Dest
866.     sw& = _NewImage(DW, DH, 32)
867.     _Dest sw&
868.     Cls , &HFFAAAAFF
869.     font = _LoadFont("calibrii.ttf", 24, "BOLD")
870.     _Font font, sw&
871.     _PrintMode _KeepBackground
872.  
873.     'pruhu bude 10, mezi levou a pravou stopou bude cca 10 procent mista
874.  
875.     LaneHeight = (DH - .3 * DH) / 20
876.  
877.     For LeftChannelLanes = DH * .1 To DH * .1 + 9 * LaneHeight Step LaneHeight
878.         i = i + 1
879.         Line (0, LeftChannelLanes)-(DW, LeftChannelLanes + LaneHeight), _RGBA32(25, 25, 200, 180), BF
880.         Line (0, LeftChannelLanes)-(DW, LeftChannelLanes + LaneHeight), _RGBA32(25, 25, 25, 25), B
881.         _PrintString (10, LeftChannelLanes + LaneHeight / 2 - 6), Str$(i)
882.         LeftIns(i).Von = LeftChannelLanes + 5
883.         LeftIns(i).Bis = LeftChannelLanes + LaneHeight - 5
884.     Next
885.     i = 0
886.     For RightChannelLanes = LeftChannelLanes + DH * .1 To LeftChannelLanes + DH * .1 + 9 * LaneHeight Step LaneHeight
887.         i = i + 1
888.         Line (0, RightChannelLanes)-(DW, RightChannelLanes + LaneHeight), _RGBA32(25, 25, 200, 180), BF
889.         Line (0, RightChannelLanes)-(DW, RightChannelLanes + LaneHeight), _RGBA32(25, 25, 25, 25), B
890.         _PrintString (10, RightChannelLanes + LaneHeight / 2 - 6), Str$(i)
891.         RightIns(i).Von = RightChannelLanes + 5
892.         RightIns(i).Bis = RightChannelLanes + LaneHeight - 5
893.     Next
894.     Color _RGB32(50)
895.     _PrintString (10, DH * .1 - 24), "LEFT"
896.     _PrintString (10, LeftChannelLanes + DH * .1 - 24), "RIGHT"
897.     For S = 0 To 1
898.         Line (S + 10 + _PrintWidth("RIGHT") + 5, DH * .1 - 24)-(S + 10 + _PrintWidth("RIGHT") + 5, LeftChannelLanes), _RGBA32(25, 25, 25, 25)
899.         Line (S + 10 + _PrintWidth("RIGHT") + 5, LeftChannelLanes + DH * .1 - 24)-(S + 10 + _PrintWidth("RIGHT") + 5, RightChannelLanes), _RGBA32(25, 25, 25, 25)
900.     Next
901.     _Dest oldDest
902.     '    PRINT LaneHeight
903.     BackgroundImage& = sw&
904. End Function
905.  
906.  
907.  
908.  
909.  
910. Function SelectFile$ 'for browse and select audio file (audio sources)                                                        WINBOX piece
911.     Dim hWnd As _Integer64
912.     $If 64BIT Then
913.         hWnd = _WindowHandle 'FindWindow(0, "Open and Save Dialog demo" + CHR$(0)) 'get window handle using _TITLE string
914.     $Else
915.         hWnd&& = FindWindow(0, "FOCdemo" + CHR$(0)) 'get window handle using _TITLE string
916.     $End If
917.  
918.     Filter$ = "WAV files (*.WAV)|*.WAV|MP3 files (*.MP3)|*.MP3|OGG files (*.OGG)|*.OGG|"
919.     Flags& = OFN_FILEMUSTEXIST + OFN_NOCHANGEDIR + OFN_READONLY '    add flag constants here
920.  
921.     OFile$ = GetOpenFileName$("Select source audio file", ".\", Filter$, 1, Flags&, hWnd&&)
922.  
923.     If OFile$ = "" Then
924.         Exit Function 'return nothing
925.     Else
926.         SelectFile$ = OFile$
927.         'IF (Flags& AND OFN_READONLY) THEN PRINT "Read-only checkbox checked." 'read-only value in return
928.     End If
929. End Function
930.  
931. Function SecAsTime$ (value) '                                                                                                 Function convert seconds to time format as 00:00:00
932.     '75 = 01:15
933.  
934.     m2 = Int(value / 60)
935.     sec = Int(value - 60 * m2)
936.     set = CSng((value - 60 * m2) - sec)
937.     set = Int(set * 100)
938.     m2$ = LTrim$(Str$(m2))
939.     sec$ = LTrim$(Str$(sec))
940.     set$ = LTrim$(Str$(set))
941.     If Len(m2$) = 1 Then m2$ = "0" + m2$
942.     If Len(m2$) = 0 Then m2$ = "00"
943.     If Len(sec$) = 1 Then sec$ = "0" + sec$
944.     If Len(set$) = 1 Then set$ = "0" + set$
945.     SecAsTime$ = m2$ + ":" + sec$ + ":" + set$
946. End Function
947.  
948.  
949.  
950. '$include:'opensave.bm'
951. '$include:'winbox.bm'
952.  

[Petr]

I know not the reason for the QB64 jam due to division (see the description above), the reason for the jam due to playback is probably due to third-party software. I was able to write a short program that use a corrupted WAV file and reliably crashes the entire QB64 program:

Code: QB64: [Select]

1. Screen 11
2. Sleep
3. s = _SndOpen("se-test-output.wav")
4. Print s
5. Sleep
6.  

  [ You are not allowed to view this attachment ]  
Now I'm looking to see if there can be some internal memory and therefore is need to change the name of the file being opened and not opening just one file name.

[Petr]

So. Problem solved. This error do sure SPACE$ (not own SPACE$) but combination with _MEMGET. All _MEMGETs deleted, all rewrited, returned to old good DIMs and now is none problem. To file is content writed as PUT #ch, ,Sound()  so none SPACE$ is need. I am testing new solution three hours without one crash. Thanks for your interest. (1 person has interest due to downloads zip file, so it is really big interest and motivation)

[Petr]

And how the hell to actually write the _MEM field directly to a binary file? If I have a pointer and I enter PUT CH, pointer    so it will write about 100 bytes (or less) of something but not the contents of memory. Is there a direct command, or has SPACE$ been relied on so far? I'm annoying, aren't I? You will have to get used to it. :)
I want to create, and this problems stuck me for a week! Do you know how many unfinished programs I have been able to write down so far? :) Thousands.... :)

Finally, practical advice. The solution wanted two beers. Don't take me too seriously, there were three beers. Cheers! I am sooo happy, that it now works correct!

[bplus]

@Petr Congrats!

If OK you can have my beer:
https://www.qb64.org/forum/index.php?topic=4288.msg136960#msg136960