Bonjour,
j'aimerais savoir si il a une fonction qui met tous les nombre a 0 au lieu de mettre "0->A:0->B"....?
merci d'avance
"AB...XYZ"->Str1 For(X,1,26) 0->Sub(Str1,X,1) End
Baruch (./4) :
DelVar A au lieu de 0->A.
\start83\
\comment=Program file 10/24/08, 12:21
\protected=FALSE
\name=ELEC
\file=C:\DOCUME~1\FAMILL~1\MESDOC~1\TI\PROGRA~1\ELEC.TXT
EffEcr
Lbl \theta\
0\->\F:0\->\D:0\->\E:0\->\A:0\->\B:0\->\O:0\->\P:0\->\Q:0\->\R:0\->\V
Menu("ELECTROTECHN","FLUX TOTAL",1,"FACT SUSPENS",2,"DIST MAX LUM",3,"INDICE LOCAL",4,"NBR LUMINAIR",5,"DIF HT,HU",6,"QUITTER",7)
Lbl 7
EffEcr
Return
Lbl 1
Input "ECLAIREMENT: ",E
Input "LONGUEUR: ",A
Input "LARGEUR: ",B
Disp "FACTEUR DE
Input "DEPRECIATION: ",D
Disp "RENDEMENT
Input "INFERIEUR: ",O
Disp "UTILANCE
Input "INFERIEUR: ",P
Disp "RENDEMENT
Input "SUPERIEUR: ",Q
Disp "UTILANCE
Input "SUPERIEUR: ",R
(E*A*B*D)/(O*P+Q*R)\->\F
EffEcr
Disp "FLUX
Disp "LUMINEUX TOTAL:
Output(7,12,F)
Pause :EffEcr
Goto \theta\
Lbl 2
Disp "HAUTEUR DES
Input "SUSPENSIONS: ",P
Disp "HAUTEUR DU PLAN
Input "DE TRAVAIL: ",Q
Input "HAUTEUR TOTALE: ",R
P/(R-Q)\->\E
EffEcr
Disp "LE FACTEUR DE
Disp "SUSPENSION
Disp "EST DE:
Output(7,12,E)
Pause :EffEcr
Goto \theta\
Lbl 3
Disp "FACTEUR
Input "DINTERDISTANCE: ",V
Disp "DIFFERENCE DE
Input "HAUTEUR: ",A
A*V\->\D
EffEcr
Disp "LA DISTANCE MAX
Disp "EST DE:
Output(7,12,D)
Pause :EffEcr
Goto \theta\
Lbl 4
Input "LONGUEUR: ",A
Input "LARGEUR: ",B
Disp "DIFFERENCE DE
Input "HAUTEUR: ",H
A*B/((A+B)*H\->\Q
EffEcr
Disp "LINDICE DE LOCAL
Disp "EST DE:
Output(7,12,Q)
Pause :EffEcr
Goto \theta\
Lbl 5
Input "FLUX TOTAL: ",F
Disp "FLUX LUMINEUX
Input "DUNE LAMPE: ",A
Disp "NOMBRE DE LAMPES
Disp "DANS UN
Input "LUMINAIRE: ",E
F/(A*E)\->\O
EffEcr
Disp "LE NOMBRE DE
Disp "LUMINAIRE
Disp "EST DE:
Output(7,12,O)
Pause :EffEcr
Goto \theta\
Lbl 6
Input "HAUTEUR TOTAL: ",P
Input "HAUTEUR UTILE: ",Q
Disp "HAUTEUR DES
Input "SUSPENSIONS: ",R
P-Q-R\->\F
EffEcr
Disp "LA DIFFERENCE DE
Disp "HAUTEUR EST DE:
Output(7,12,F)
Pause :EffEcr
Goto \theta\
\stop83\
very (./20) :
( Delvar A ça prends moins d'ocets que 0->1 en tout cas (2 au lieu de 3))
Loclamor (./22) :
ok, mais si tu as 20 variables, Delvar A:...(18 autres DelVar)... elVar Z ça prend moins d'octets d'écrire Fill(0,Liste), même si la liste prend aussi elle m^me de la place, mais elle peut êtres supprimée en fin de prog
very (./12) :
jerem512> est-tu sûr que tu a réellement besoin d'initialiser ces nombres ? (si ils sont affectés par un prompt ou un calc ensuite... bha tu t'en fou de la valeure initiale)