donc le prog marche mais ma Lbl pour fermer s'execute mais ne ferme pas le prog elle me ferme la toolbar et m'en met une ac tout grisé sauf F5 (ESPrgm) et les Lbl non rempli le seront plus tard car pr le moment j'ai pas les info necessaire
. si t'a des corrections ou conseils a me fournir je suis preneur voili voilou merci:
()
Prgm
©MOYENNE-BAC par [FEAR]<FLO>
EffES
défGraph("AXES","OFF")
Output 0,100,"¤ v1.00 ¤"
Output 20,40," MOYENNES "
Output 30,25," BAC "
Output 50,35,"Par «FLO»®"
Lbl start
Toolbar
Title "Serie"
Item "Terminale S maths",m0
Item "Terminale S SVT",m1
Item "Terminale S phisic",m2
Item "Terminale ES",m3
Item "Terminale L",m4
Item "Terminale STG",m5
Item "Terminale STI",m6
Title "QUITTER",kuit
EndTBar
Goto start
Lbl m0
Disp "Moyenne de maths"
Prompt a
Disp "Moyenne de physique-Chimie"
Prompt b
Disp "Moyenne de SVT"
Prompt c
Disp "Moyenne d'anglais"
Prompt d
Disp "Moyenne d'espagnol"
Prompt e
Disp "Moyenne d'histoire"
Prompt f
Disp "Moyenne de philosophie"
Prompt g
Disp "Moyenne de Sport"
Prompt h
Disp "Moyenne Francais ecrit"
Prompt i
Disp "Moyenne Francais oral"
Prompt j
Disp "Moyenne de TPE"
Prompt k
Disp "Moyenne bac:"&chaîne(approx(a*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2)/(9+6+6+3+3+3+2+2+2+2+2))
Disp "sur 20"
Pause
Disp "nb de points:"&chaîne(a*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2)
Disp "sur "&chaîne(20*9+20*6+20*6+20*3+20*3+20*3+20*2+20*2+20*2+20*2+20*2)
If a*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2=400 Then
Disp "t'as ton bac!!!"
EndIf
If a*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2<320 Then
Disp "t'as pas ton bac gros nul!!"
EndIf
If 320œa*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2<400 Then
Disp "t'es a la repeche fion"
EndIf
If 480œa*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2<560 Then
Disp "T'as mention assez bien!"
EndIf
If 560œa*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2<640 Then
Disp "t'as mention bien!!"
EndIf
If 640œa*9+b*6+c*6+d*3+e*2+f*3+g*3+h*2+i*2+j*2+k*2 Then
Disp "t'as mention tres bien!"
EndIf
Goto start
Lbl m1
Goto start
Lbl m2
Goto start
Lbl m3
Goto start
Lbl m4
Goto start
Lbl m5
Goto start
Lbl m6
Goto start
Lbl kuit
ClrIO
DispHome
Stop
EndPrgm