convertir programme ti82 en tinspire

→ **MyCalcs** profile · by **bboy45** » 03 Apr 2017, 17:42

bonjour , je souhaiterais convertir ce programme sur ma ti snpire

Code: Select all: EffÉcran Disp "Duballet Kevin" Pause Lbl DB Menu("Calcule IPv4","Préfixe",A,"Masque sous réseau",B,"Fermer",C) Lbl A: EffÉcran Disp "Entrer l'adresse:" Input "XXX:",A Input "XXX:",B Input "XXX:",C Input "XXX:",D Input "Préfixe:",E 32-E→F Lbl OL If F<9 Then Goto AD Else Goto AE Lbl AD EffÉcran Disp "Nb Bits d'hôte:",F Pause (2^F)→G Disp "Nb sous-réseaux:",G Pause G→F G-2→G Disp "Nb total d'hôtes;",G Pause F→G 256-G→G Disp "Masque sous-réseau:" Disp "255.255.255.",G Pause F→G Lbl AB If D>G Then F+G→G Goto AB Else G-F→G Goto AC Lbl AC Disp "Adresse sous-réseau:" Disp A,B,C,G Pause G+1→M Disp "Première adresse hôte:" Disp A,B,C,M Pause F+G-2→M Disp "Dernière adresse hôte:" Disp A,B,C,M Pause M+1→M Disp "Diffusion Broadcast" Disp A,B,C,M Goto FI Lbl AE EffÉcran 32-F→R Disp "Nb bits d'hôte:",F Pause (2^F)→G Disp "Nb sous réseaux:",G Pause G-2→G Disp "Nb total d'hôtes:",G Pause 24-R→G (2^G)→F 256-F→G Disp "Masque sous-réseau:" Disp "255.255.",G Pause F→G Lbl OP If F<C Then F+G→F Goto OP Else F-G→F F+G-1→V Goto OQ Lbl OQ 0→Z Disp "Adresse sous-réseau:" Disp A,B,F,Z Pause 1→Z Disp "Première adresse hôte:" Disp A,B,F,Z Pause 254→S Disp "Dernière adresse hôte:" Disp A,B,V,S Pause 255→S Disp "Diffusion Broadcast:" Disp A,B,V,S Goto FI Lbl B: EffÉcran Disp "Entrer l'adresse:" Input "XXX:",A Input "XXX:",B Input "XXX:",C Input "XXX:",D Disp "Combien de 255?" Input "Nb:",N If N=2 Then Disp "Entrer le masque:" Input "255.255.",X Goto DE Else Disp "Entrer le masque:" Input "255.255.255.",X Goto TR Lbl DE If X=0 Then 16→F Goto OL Else If X=128 Then 15→F Goto OL Else If X=192 Then 14→F Goto OL Else If X=224 Then 13→F Goto OL Else If X=240 Then 12→F Goto OL Else If X=248 Then 11→F Goto OL Else If X=252 Then 10→F Goto OL Else If X=254 Then 9→F Goto OL Else Goto B Lbl TR If X=0 Then 8→F Goto OL Else If X=128 Then 7→F Goto OL Else If X=192 Then 6→F Goto OL Else If X=224 Then 5→F Goto OL Else If X=240 Then 4→F Goto OL Else If X=248 Then 3→F Goto OL Else If X=252 Then 2→F Goto OL Else If X=254 Then 1→F Goto OL Else Goto B Lbl C: EffÉcran Disp "Duballet Kevin" Disp "Press Annul" Stop Lbl FI Pause Goto DB

→ **MyCalcs** profile · by **clifward** » 03 Apr 2017, 17:50

J'ai rarement vu un code aussi mauvais...

Code: Select all: F→G Lbl AB If D>G Then F+G→G Goto AB Else G-F→G Goto AC Lbl AC

Bon je regarde comment le convertir...

→ **MyCalcs** profile · by **Hamza.S** » 03 Apr 2017, 17:51

Salut,

qu'est-ce qui bloque?
à part Input Pause, Menu( et EffEcran qui n'existent pas sur Nspire, tout le reste est faisable sur Nspire.

→ **MyCalcs** profile · by **bboy45** » 03 Apr 2017, 17:52

pourtant il marche

merci

→ **MyCalcs** profile · by **bboy45** » 03 Apr 2017, 17:53

deja le menu je n'arrive pas a le faire

→ **MyCalcs** profile · by **clifward** » 03 Apr 2017, 17:54

Laisse tomber le menu, et découpe le programme en 2 sous programmes

→ **MyCalcs** profile · by **bboy45** » 03 Apr 2017, 17:55

je suis débutant si tu peut me mettre sur le bon chemin sa serait cool

→ **MyCalcs** profile · by **clifward** » 03 Apr 2017, 18:00

En gros ce programme est découpé en 2 sous programmes : celui entre lbl A et lbl B, et celui après lbl B
Pour la nspire, comme tu n'as pas la possibilité de créer des menus, autant directement séparer ces deux programmes, et les appeler individuellement quand tu en auras besoin.
(les deux programmes sont indépendants normalement)
(donc les 5 premières lignes ne sont même pas à convertir

)

→ **MyCalcs** profile · by **bboy45** » 03 Apr 2017, 18:09

ok merci je vais test

→ **MyCalcs** profile · by **clifward** » 03 Apr 2017, 18:13

Bon, la personne qui a fait ce "truc" mérite de brûler en enfer... (j'espère que c'est pas toi, mais si tu la connais, il faut à tout prix lui dire d'arrêter d'utiliser les lbl et goto pour faire des boucles, alors qu'il existe while et for, des commandes qui sont infiniment plus rapides...)