Goto 3 ne vas pas à Lbl3 mais à Lbl 7 :o
Posté le 13/11/2009 21:10
Bonjour, je suis en train (d'essayer) de créer un programme pour le dessin Technique. ça calcule les intervalles entres les dessins sur la page pour que ce soit centré.
Je veux faire ça pour le format A4 (portrait, paysage) A3 (portrait, paysage) et A2 (portrait, paysage).
La sélection du format se fait au début
A4, c'est bon c'est fait.
Mais je n'arrive pas à aller jusqu'à A3
Est-ce que quelqu'un de plus qualifié de moi pourrait regarder ce qui cloche, car quand j'appuie sur F2, ça va à lbl 7 au lieu de lbl 3
Bon je vous laisser regarder, Merci
Cliquez pour découvrir
Cliquez pour recouvrir
Filename:DESSIN T
210ãBÙ
297ãCÙ
420ãDÙ
594ãEÙ
"CHOISIR LE FORMAT DE LA FEUILLES"Ù
"[F1] A4"Ù
"[F2] A3"Ù
"[F3] A2"Ù
Lbl 1Ù
DoÙ
GetkeyãAÙ
LpWhile A=0Ù
A=79×Goto 2Ù
A=69×Goto 3Ù
A=59×Goto 4Ù
Goto 1Ù
Lbl 2Ù
ClrTextÙ
"TU AS CHOISI A4(210;297)"Ø
"[1]PORTRAIT"Ù
"[-]PAYSAGE"Ù
Lbl 5Ù
DoÙ
GetkeyãFÙ
LpWhile F=0Ù
F=72×Goto 6Ù
F=32×Goto 7Ù
Goto 5Ù
Lbl 6Ù
ClrTextÙ
"LARGEUR TOTALE DES FIGURES"Ù
?ãGÙ
B-20-GãHÙ
"NOMBRE DE FIGURES EN LARGEUR"Ù
?ãFÙ
F+1ãIÙ
HÁIãJÙ
ClrTextÙ
Locate 1,4,"X="Ù
Locate 10,4,JØ
ClrTextÙ
"HAUTEUR TOTALE FIGURES"Ù
?ãGÙ
"NOMBRE DE FIGURES EN HAUTEUR"Ù
?ãFÙ
F+1ãIÙ
C-20-GãHÙ
HÁIãJÙ
ClrTextÙ
Locate 1,4,"Y="Ù
Locate 15,4,JØ
StopÙ
Lbl 7Ù
ClrTextÙ
"TOTAL LARGEURS FIGURES"Ù
?ãGÙ
C-20-GãHÙ
ClrTextÙ
"NOMBRE FIGURES"Ù
?ãFÙ
F+1ãIÙ
HÁIãJÙ
ClrTextÙ
Locate 1,4,"X="Ù
Locate 15,4,JØ
ClrTextÙ
"TOTAL HAUTEURS FIGURES"Ù
?ãGÙ
B-20-GãHÙ
"NOMBRE FIGURES"Ù
?ãFÙ
F+1ãIÙ
HÁIãJÙ
ClrTextÙ
Locate 1,4,"X="Ù
Locate 15,4,JØ
StopÙ
Lbl 3Ù
"TU AS CHOISIS A3(420;297)"Ù
"[1] PORTRAITÙ
[-] PAYSAGE"Ù
Lbl 7Ù
DoÙ
GetkeyãAÙ
LpWhile A=0Ù
A=72×Goto 8Ù
Goto 7Ù
Lbl 8Ù
ClrTextÙ
"TOTAL LARGEURS FIGUR0ÁES"Ù
?ãGÙ
C-20-GãHÙ
"NOMBRE DE FIGURES"Ù
?ãFÙ
F+1ãIÙ
HÁIãJÙ
ClrTextÙ
Locate 1,4,"X="Ù
Locate 15,4,JØ
"TOTAL HAUTEURS FIGURES"Ù
?ãGÙ
D-20-GãHÙ
"NOMBRE FIGURES"Ù
?ãFÙ
F+1ãIÙ
HÁIãJÙ
ClrTextÙ
Locate 1,4,"Y="Ù
Locate 15,4,J