PureBasic

Code : Tout sélectionner

calldebugger


reponse$=InputRequester("Question","************"+Chr(10)+"séparés par une virgule","")
nb=CountString(reponse$,",")
Dim Res(24)

Restore Gamme:
Index=0


While RV$<>"-1"
	Read.s RV$
	If RV$="."
		Index=Index+1
	Endif
	For i=1 to nb
		accord$=StringField(reponse$,i,",")
		if LCase(accord$)=Lcase(RV$)
			Res(Index)=Res(Index)+1
		Endif
	Next i
Wend

For i=0 to 23
	mem_a=a
	a=Res(i)
	if mem_a<a
		gamme=i
	Endif
Next i

debug "c'est dans la Gamme "+str(gamme) 







DataSection
	Gamme:
	Data.s "C","Dm","Em","F","G","Am","Bm7/5-","."
	;La_mineur:
	Data.s "Am","Bm75-","C","Dm","Em","F","G","."
	
	;Do_diese:
	Data.s "C#","D#m","Fm","F#","Ab","A#m","Cm7/5-","."
	;La_diese_mineur:
	Data.s "A#m","Cm7/5-","C#","D#m","Fm","F#","Ab","."
	
	;Re_majeur:
	Data.s "D","Em","F#m","G","A","Bm","C#m7/5-","."
	;Si_mineur:
	Data.s "Bm","C#m7/5-","D","Em","F#m","G","A","."
	
	;Re_diese:
	Data.s "D#","Fm","Gm","Ab","A#","Cm","Dm7/5-","."
	;Do_mineur:
	Data.s "Cm","Dm7/5-","D#","Fm","Gm","Ab","A#","."
	
	;Mi_majeur:
	Data.d "E","F#m","Abm","A","B","C#m","D#m7/5-","."
	;Do_diese_mineur:
	Data.s "C#m","D#m7/5-","E","F#m","Abm","A","B","."
	
	;Fa_majeur:
	Data.s "F","Gm","Am","A#","C","Dm","Em7/5-","."
	;Re_mineur:
	Data.s "Dm","Em7/5","F","Gm","Am","A#","C","."
	
	;Fa_diese_Majeur:
	Data.s "F#","G#m","A#m","B","C#","D#m","Fm7/5-","."
	;Re_diese_Mineur:
	Data.s "D#m","Fm7/5-", "F#","G#m","A#m","B","C#","."
	
	;Sol_Majeur:
	Data.s "G","Am","Bm","C","D","Em","F#m7/5-","."
	;Mi_mineur:
	Data.s "Em","F#m7/5-","G","Am","Bm","C","D","."
	
	;Sol_Diese_Majeur:
	Data.s "G#","A#m","Cm","C#","D#","Fm7","Gm7/5-","."
	;Fa_Mineur:
	Data.s "Fm7","Gm7/5-","G#","A#m","Cm","C#","D#","."
	
	;La_majeur:
	Data.s "A","Bm","C#m","D","E","F#m","G#m7/5-","."
	;Fa_diese_mineur:
	Data.s "F#m","G#m7/5-", "A","Bm","C#m","D","E","."
	
	;La_Diese_Majeur:
	Data.s "A#","Cm","Dm","D#","F","Gm","Am7/5-","."
	;Sol_mineur:
	Data.s "Gm","Am7/5-", "A#","Cm","Dm","D#","F","."
	
	;Si_Majeur:
	Data.s "B","C#m","D#m","E","F#","G#m","A#m7/5-","."
	;Sol_Diese_mineur:
	Data.s "G#m","A#m7/5-","B","C#m","D#m","E","F#","-1"
	
EndDataSection

Code : Tout sélectionner

Procedure DOF(float.f)
 ;...
EndProcedure

Procedure DOT(float.f)
 ;... 
EndProcedure

;
;
DOP(#PI) ? erreur

Code : Tout sélectionner

auto a = 3.1415;

Code : Tout sélectionner

auto a = 15;