Forum TI-Planet.org

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

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...

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.

pourtant il marche

merci

deja le menu je n'arrive pas a le faire

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

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

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 )

ok merci je vais test

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...)