aide moi le premier program - Page 1

je suis nouveaux au programer. c'est mon premier program,j'éspere que vous pouvez m'aide!
mon program est comme ça:
() Prgm Lbl a  PopUp {"1Punkt","2punkte"},bb  if bb=2 goto aa PopUp {"Y","X","m","q"},bbb  if bbb=2 goto aaa if bbb=3 goto aaaa if bbb=4 goto aaaaa ClrIO  Local x,y,m,q setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x",x Request "m",m  Request "q",q  EndDlog expr(x)»x  expr(m)»m  expr(q)»q mx+q»y Disp "y",y," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aaa  ClrIO  Local x,y,m,q setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "y",y Request "m",m  Request "q",q  EndDlog expr(y)»y  expr(m)»m  expr(q)»q (y-q)/m»x Disp "x",x," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aaaa  ClrIO  Local x,y,m,q setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x",x  Request "y",y Request "q",q  EndDlog expr(x)»x  expr(y)»y  expr(q)»q (y-q)/x»m Disp "m",m," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aaaaa  ClrIO  Local x,y,m,q setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x",x  Request "y",y Request "m",m  EndDlog expr(x)»x  expr(y)»y  expr(m)»m y-m*x»q Disp "q",q," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aa PopUp {"m","q","x1","x2","y1","y2"},bbbb  if bbbb=2 goto aaaaaa if bbbb=3 goto aaaaaaa if bbbb=4 goto aaaaaaaa if bbbb=5 goto aaaaaaaaa if bbbb=6 goto aaaaaaaaaa ClrIO  Local x,xx,y,yy,m setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x1   ",x Request "y1   ",y Request "x2   ",xx  Request "y2   ",yy EndDlog expr(x)»x  expr(xx)»xx  expr(y)»y  expr(yy)»yy (yy-y)/(xx-x)»m Disp "m",m," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm   Lbl aaaaaa  ClrIO  Local x,xx,y,yy,q setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x1   ",x Request "y1   ",y Request "x2   ",xx  Request "y2   ",yy EndDlog expr(x)»x  expr(xx)»xx  expr(y)»y  expr(yy)»yy y-((yy-y)/(xx-x))*x»q Disp "q",q," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aaaaaaa  ClrIO  Local x,xx,y,yy,m setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "y1   ",y Request "x2   ",xx  Request "y2   ",yy Request "m    ",m EndDlog expr(m)»m  expr(xx)»xx  expr(y)»y  expr(yy)»yy (y-yy)/m+xx»x Disp "x1",x," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aaaaaaaa  ClrIO  Local x,xx,y,yy,m setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x   ",x  Request "y1   ",y Request "y2   ",yy Request "m    ",m EndDlog expr(m)»m  expr(x)»x  expr(y)»y  expr(yy)»yy x-(y-yy)/m»xx Disp "x2",xx," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aaaaaaaaa  ClrIO  Local x,xx,y,yy,m setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x   ",x  Request "x2   ",xx Request "y2   ",yy Request "m    ",m EndDlog expr(m)»m  expr(x)»x  expr(xx)»xx expr(yy)»yy m*(x-xx)+yy»y Disp "y1",y," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm  Lbl aaaaaaaaaa  ClrIO  Local x,xx,y,yy,m setMode("Exact/Approx","APPROXIMATE")  setMode("Display Digits","FIX 2")  Dialog  Title "Geraden Gleichung" Request "x   ",x  Request "x2   ",xx Request "y   ",yy Request "m    ",m EndDlog expr(m)»m  expr(x)»x  expr(xx)»xx expr(y)»y y-m*(x-xx)»yy Disp "y2",yy," " PopUp {"Retry","Quit"},b  If b=1  Goto a ClrIO EndPrgm 

je suis inspire par un tutorial. mais je la change et maintenant il est plus complice comme avant, es ill ne marche pas comme il faut! il me montre un syntax!
aide-moi stp!! merci poser

[Edit by verytourist: sources longues séparées, merci ]

Tu peut nous dire quel type d'erreur tu a et ou sa te renvoy stp ? (la ligne précise)
Tu pourais nous passer le zip (ou 89p) direct aussi ?

Et sinon, lorsque que tu a une sourece asser grande, il est préférable d'utiliser la feature "source" (pour avoir la source dans une autre fenêtre), (en bas a droite dans le menu a coté de l'endroit ou tu tape ton message). Merci

j'ai recu une suntax fault chez les pointexclamation(!)

Goto a
ClrIO
EndPrgm
Lbl (!!) aaa
ClrIO
Local x,y,m,q
setMode("Exact/Approx","APPROXIMATE")

et comme je doit passe un zip?

et excuse moi pour no pas prandre la funtion de sources, c'est la premiere temp que je la voir.

merci poser

Pour passer un zip, il faut avoir un espace ftp normalement, mais sur yN, tu à une feature 'upload' ( dans le menu à droite quand tu poste, juste a coté de Smileys )

Pour ton bug, rien de plus normale, tu ne peut avoir qu'un seul 'EndPrgm' dans un programme (sauf si tu fait un programe localc dans ton programme, bon on va dire que tu doit avoir autant de 'Prgm' quez de 'EndPrgm', voilà )

Donc utilise autre chose pour quiter, un label vers la fin, où tu profite pour nétoyer/restaurer est souvent une bonne solution
( c'est à dire, tu en profite pour supprimer des variables si elle sont globales, restaurer des GDB, mettre un PauseispHome, etc..). Voila

A oui aussi, tant que j'y suis, déclare toutes les variables en local, dans la mesure du possible