Voilà je fait un programme pour les notes, simple, avec moyenne, max, min, etc... , graphique..
Mais voilà, j'ai un menu
Menu("Choix matiere","Maths",M1,"Physique",M2,"Philo",M3,"Anglais",M4,"Mecanique",M5,"Production",M6,"Automatisme",M7)
Lbl M1:"MAT"->Str1:Goto 00
Lbl M2:"PHY"->Str1:Goto 00
Lbl M3:"PHI"->Str1:Goto 00
Lbl M4:"ANG"->Str1:Goto 00
Lbl M5:"MEC"->Str1:Goto 00
Lbl M6:"PRO"->Str1:Goto 00 Lbl M7:"AII"->Str1:Goto 00
Mais le probleme c'est que lorsque je veux editer ma liste ca ne marche pas:
Lbl AJ
ClrHome
Input ("Note: ",N)
Input ("Sur: ",S)
if S<N:Goto AJ
Input ("Coeficient: ",C)
if C=0:Goto AJ
(N/S)*20->N
For(A,1,C)
dim(Str1)->L
N->Str1(L+1)
End Goto 00
( j'ai essayé avec le petit L devant Str1 aussi )
je sais pas comment faire Car il me faut en faite le nom de la matiere selectionné, dans la string1, pour pouvoir connaitre
la list que je dois editer.
Si vous savez comment faire ...
Merci
Bonne nuit