The following warnings occurred:
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 895 - File: showthread.php PHP 7.2.34 (Linux)
File Line Function
/showthread.php 895 errorHandler->error




Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
QM Synth...
#1
Just a bit of boredom...but hey...anything is possible with QM!

Function QM_Synth
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 223 113 "QM Synth"
;11 Button 0x54032000 0x0 140 25 20 40 ""
;10 Button 0x54032000 0x0 115 25 20 40 ""
;9 Button 0x54032000 0x0 65 25 20 40 ""
;8 Button 0x54032000 0x0 40 25 20 40 ""
;3 Button 0x54032000 0x0 25 25 26 61 ""
;4 Button 0x54032000 0x0 50 25 25 61 ""
;5 Button 0x54032000 0x0 75 25 26 61 ""
;6 Button 0x54032000 0x0 100 25 25 61 ""
;7 Button 0x54032000 0x0 125 25 26 61 ""
;12 Button 0x54032000 0x0 165 25 20 40 ""
;13 Button 0x54032000 0x0 150 25 25 61 ""
;14 Button 0x54032000 0x0 175 25 26 61 ""
;16 Button 0x54012003 0x0 130 5 48 12 "Octave Up"
;15 Button 0x54020007 0x0 15 5 190 95 "QM Synth"
;END DIALOG
;DIALOG EDITOR: "" 0x2030001 "" "" ""

str controls = "16"
str c16Oct
if(!ShowDialog("QM_Synth" &QM_Synth &controls)) ret

ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 14
,Octave_Up
,;B
,bee _B 100
,case 12
,;A#/Bb
,bee _A1 100
,case 13
,;A
,bee _A 100
,case 11
,;G#/Ab
,bee _G1 100
,case 7
,;G
,bee _G 100
,case 10
,;F#/Gb
,bee _F1 100
,case 6
,;F
,bee _F 100
,case 5
,;E
,bee _E 100
,case 9
,;D#/Eb
,bee _D1 100
,case 4
,;D
,bee _D 100
,case 8
,;C#/Db
,bee _C1 100
,case 3
,;C
,Octave_Up
,bee _C 100
,case IDOK
,case IDCANCEL
ret 1

Function Octave_Up
Code:
Copy      Help
Acc a=acc("Octave Up" "CHECKBUTTON" win("QM Synth" "#32770") "Button" "" 0x1001)
int state=a.State()
if state=1048576; CURRENCY+ _C=65.41
else; _C=65.41*2
if state=1048576; CURRENCY+ _C1=69.30
else; _C1=69.30*2
if state=1048576; CURRENCY+ _D=73.42
else; _D=73.42*2
if state=1048576; CURRENCY+ _D1=77.78
else; _D1=77.78*2
if state=1048576; CURRENCY+ _E=82.41
else; _E=82.41*2
if state=1048576; CURRENCY+ _F=87.31
else; _F=87.31*2
if state=1048576; CURRENCY+ _F1=92.50
else; _F1=92.50*2
if state=1048576; CURRENCY+ _G=98.00
else; _G=98.00*2
if state=1048576; CURRENCY+ _G1=103.83
else; _G1=103.83*2
if state=1048576; CURRENCY+ _A=110.00
else; _A=110.00*2
if state=1048576; CURRENCY+ _A1=116.54
else; _A1=116.54*2
if state=1048576; CURRENCY+ _B=123.47
else; _B=123.47*2


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)