je veux compiler pour voir si un bug est présent , et ....
quelqu'un sait pourquoi ce morceau de code n'arrive meme pas au CallDebugger ?
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
Faudrait quand même qu'ils arrêtent de piquer des trucs au BASIC !