comment programer le redemarrage d'un prog - Page 1

je suis possesseur d'une ti 92+ depuis peu et je réalise mon premier prog en basic, c un prog charger de faire des additions, des multiplications, des soustractions et des divisions............simple quoi. G integrer un menu qui apparait lorsque l'utilisateur fait un mauvais choix, Ds ce menu je lui propose de recommencer : il a le choix entre "non"(il retourne alors a HOME) et "oui" et c la que je souhaiterai que le programme redemarre du debut.......comment faire? que faut il utiliser?

avec un goto par exemple ?

comment utiler goto : g vu dans le manuel qu'il fallait indiquez un nom de label, c koi (question stupide????)

:Lbl toto
...
:Goto toto
Ah, ces jeunes qui ne connaissent plus la commande ultime! :-D

c censé etre quoi "toto" : mon nom de programme ou autre chose..

N'importe quoi. Il suffit que ce soit la même chose dans le Goto et le Lbl.

g fait comme tu m'a dit et ca m'indique "manque d'une instruction de debut ou de fin de bloc"

tu as mis le lbl au début de la boucle ?

oui, juste apres "prgm"

:Prgm
:Lbl dem

poste le programme.

[nosmile]
volia mon prog :

:essai()
:Prgm
isp "Que voulez vous effectuez : "
isp "1.Un produit"
isp "2.Une Division"
isp "3.Une Soustraction"
isp "4.Une Addition"
:Input "Indiquez le n° de votre choix :",c
:If c>4 or c<1 Then
ialog
:Title "RAPPEL"
:Text "....un des 4 n°......IDIOT"
ropDown "Recommencer ?",{"Oui","Non"},v
:EndDlog
:If v=2 Then
:AffEcran
:EndIf
:Else
:Input "Indiquez la valeur du terme A :",a
:Input "Indiquez la valeur du terme B :",b
:If c=1 Then
:a*b->p
isp p
:Elself c=2 Then
:a/b->q
isp q
:Elself c=3 Then
:a-b->r
isp r
:Elself c=4 Then
:a+b->s
:EndIf
:EndIf
:EndPrgm


Ximoon edit: fixé les smileys

les visages vert sont des "d" (je sais pas pourquoi ca a fait ca)

:D ->
faut rajouter une balise [nosmile] pour éviter ça

le code source ci dessus fonctionne. Je souhaiterai que lorsque l'utilisateur repond oui ds le menu, le prog redemarre et lui repose la question "Que voulez vous effectuez"

fabisa08 :
Ximoon edit: fixé les smileys

Tiens, quand moi, je proposais de faire ça ici, tout le monde est venu me gueuler dessus. (Au passage, le forum de la TICT et Ti-Gen font ça sans que personne ne s'en plaint.)

les seuls posts que j'édite sont ceux des nouveaux avec des pb de smiley, et encore c'est la deuxième fois.
Mais c'est pas l'endroit pour lancer un flame monsieur le donneur de leçons

Et pourquoi éditer un post d'un nouveau serait OK, et éditer un post d'un "ancien" qui a le même problème ne le serait pas? C'est quoi ces privilèges?
Et si tu ne veux pas en parler ici, on peut aussi en parler sur #tigen.org...

Pas que ça à faire que d'aller sur un chan soumis à un effroyable diktat... Tu peux toujours venir sur #3l33t hein, mais en tout caas le sujet est clos ici. Mmsg si tu veux à la limite.

tu sais que si tu mets
isp "blabla","blabla","blabla"
sa reviens a
:disp "blabla"
:disp "blabla"
:disp "blabla"
?

(pour les premieres lignes)

ben je sais moi: ta oublié de mettre "endif" entre ":endlog" et "if v=2"

"Et pourquoi éditer un post d'un nouveau serait OK, et éditer un post d'un "ancien" qui a le même problème ne le serait pas?"

pke quelqu'un qui est "ancien" a par definition l'habitude du forum, et sait a priori comment fixer ce genre de "probleme", alors qu'un nouveau c'est plutot l'inverse
et je trouve cette remarque assez siderante venant de ta part...
surtout ce "C'est quoi ces privilèges?" venant de quelqu'un qui fait tout pour avoir le maximum de privileges possibles un peu partout ou il passe, pour pouvoir ensuite instaurer sa "loi" a coups de represailles minables, de justifications ridicules, et d'excuses bidon et completement subjectives alors qu'il essaye de se faire passer pour parfaitement objectif... sans oublier tes echappatoires preferes, sans doute ce que tu dois etre en train de penser de ce post: attaques personnelles ca serait bien que tu sorte ta tete de ton cul... (comme ca avec un peu de chance ca te decoincera aussi), et si tu le fais dans 30 ans ca sera un peu tard

sBibi :
pke quelqu'un qui est "ancien" a par definition l'habitude du forum, et sait a priori comment fixer ce genre de "probleme", alors qu'un nouveau c'est plutot l'inverse
---
et je trouve cette remarque assez siderante venant de ta part... surtout ce "C'est quoi ces privilèges?" venant de quelqu'un qui fait tout pour avoir le maximum de privileges possibles un peu partout ou il passe, pour pouvoir ensuite instaurer sa "loi" a coups de represailles minables, de justifications ridicules, et d'excuses bidon et completement subjectives alors qu'il essaye de se faire passer pour parfaitement objectif...

, le mieux serait qu'il s'en rende enfin compte mais je crois qu'il faut pas trop rever.

Me suis fait méchamment engueuler par Kevin moi hier sur IRC.

Ce n'est pas en me dénonçant publiquement (sans préciser le motif de l'"engueulade" en plus) que tu vas faire avancer la communication à l'intérieur du staff de Ti-Gen.

Euh, ouais, tu as raison.

[nosmile]
Pour revenir au sujet (je passais par là) ...

Pourquoi ne pas apprendre de bonnes habitudes de programmation à notre nouvel ami, par exemple, utiliser des boucles.

Utiliser

True->flag
While flag

EndWhile

Lorsque tu veux quitter la boucle, tu set le flag à False (ou tu utilise l'instruction Exit).

Est plus propre que

Lbl debut

Goto debut

Tu pourrais écrire ton programme comme (en utilisant cont comme nom de variable pour ton flag) :
:essai()
:Prgm
:True->cont
:While cont
isp "Que voulez vous effectuez : "
isp "1.Un produit"
isp "2.Une Division"
isp "3.Une Soustraction"
isp "4.Une Addition"
:Input "Indiquez le n° de votre choix :",c
:If c>4 or c<1 Then
ialog
:Title "RAPPEL"
:Text "....un des 4 n°......IDIOT"
ropDown "Recommencer ?",{"Oui","Non"},v
:EndDlog
:If v=2 Then
:False->cont
:AffEcran
:EndIf
:Else
:False->cont
:Input "Indiquez la valeur du terme A :",a
:Input "Indiquez la valeur du terme B :",b
:If c=1 Then
:a*b->p
isp p
:Elself c=2 Then
:a/b->q
isp q
:Elself c=3 Then
:a-b->r
isp r
:Elself c=4 Then
:a+b->s
:EndIf
:EndIf
:EndWhile
:EndPrgm

PS: Kevin, je sais que c'est moins 'efficient' qu'un bon vieux branch. Si j'ai fait une faute de syntaxe, corrigez moi ...

:True->cont :While cont

Comme koi, même aprés 4-5 ans de prog, on en apprend tous les jours

'efficient'

ca a son equivalent en francais, tu peux dire efficace ou performant

Tiens, j'av pas remarqué, mais faut se faire traiter d'idiot pour pouvoir quitter le prog

sBibi
:

'efficient'

ca a son equivalent en francais, tu peux dire efficace ou performant

En effet, efficient est un anglissisme, mais efficace veux dire 'qui fait la job' et performant veut dire 'qui vait la job rapidement'. Je préfère utiliser un anglissisme qui traduit efficassement mon idée, qu'un mot français qui est innaproprié.

PS : Je sais que 'job' est masculin en français.