Bonjour,

Regarde là:

http://www.processs.com/mementos/m0101.htm

papy

Des fois çà malche,des fois çà malche pas, hi hi hi hi
Décontlasté,  hi hi hi hi

Pas mal Papy, le site, de quoi lire pour les longues soirées d'hiver
merci :)

Où Patrice passe
Le matériel trépasse

Bonjour,
Tu peux m'envoyer les dimensions, je ferai le tableau.
Sinon:
Code en Basic pour imprimer la capacité de mm en mm
10 cls
20 print
30 input" Donner en mm la Long. de la citerne "; L
40 print
50 input" Donner en mm le Diam. de la citerne "; D
60 print
70 input" Donner le Nbre de gradua. [ex: N=D] "; N
80 print
90 a$=" H= #### mm V= ####.### Lit. soit ###.## %"
100 R=D/2
110 E=R*R
120 PAS=D/N
130 C=50
140 F=PAS*C
150 G=G+1
160 print#-2," Diamètre = "D" mm
170 print#-2,""
180 print#-2," Longeur = "L" mm
190 print#-2,""
200 print#-2," ---------------------------"
210 print#-2,""
220 print#-2,""
230 for H=0 to D+PAS/2 step PAS
240 A=sqr(abs(H*(D-H)))
250 B=R-H
260 P=3.1415927
270 if B=0 then S=E*P/2;goto 310 else 280
280 TETA=atn(A/B)
290 if B<0 then TETA=TETA+P
300 S=E*TETA-B*A
310 X=P*E*L*0.000001
320 T=(0.000001*S*L)/X
330 print#-2,using a$;H,0.000001*S*L,T
340 if H=F*G then gosub 370
350 if H=>D then end
360 next H
370 G=G+1
380 return

Salut
ew.hansen@skynet.be

Salut E.Hansen,
Du basic de ma toute prime jeunesse...Ça ne nous rajeunit pas, dis donc...
Il y a une synthaxe qui n'est ni du Basic MSX ni du GMW Basic .. Serait-ce du Quick Basic ?
Depuis, envers et contre tout, je suis resté fidèle au basic au travers du Visual Basic...
Et puis, il y a aussi Excel pour ce type de job...
Amicalement...

Bon courage ou bonne chance et @+
...Chi va piano va sano...chi va sano va lontano...

...lire GW Basic...

Bon courage ou bonne chance et @+ 
...Chi va piano va sano...chi va sano va lontano...

Bonjour,
Voici un autre code
sous forme de Macro pour Excel.
sinon envoye tes dimesions je te
retournerai un fichier avec la liste
des volumes mm par mm .
Sub calcul1()
L = 2600
D = 1198
Rem N = Nbre de graduation (si N=D grad.=1mm)
N = 1198
R = D / 2
E = R * R
PAS = D / N
Rem C = Nbre de lignes par page
C = 50
F = PAS * C
G = 1
Open "Fich1" For Output As #1
For H = 0 To D + PAS / 2 Step PAS
A = Sqr(Abs(H * (D - H)))
B = R - H
P = 3.1415927
If B = 0 Then S = E * P / 2: GoTo saut1
TETA = Atn(A / B)
If B < 0 Then TETA = TETA + P
S = E * TETA - B * A
saut1:
X = P * E * L * 0.01 * 0.000001
V = 0.000001 * S * L
T = 0.000001 * S * L / X
haut = Format(H, "####0")
Vol = Format(V, "####,##0.00")
Tot = Format(T, "###,##0.00")
Print #1, "Haut =", haut, "mm Vol.=", Vol, "Lit. soit", Tot, "%"
If H = F * G Then GoSub saut2
If H >= D Then GoTo saut3
Next H
saut2:
Print #1, " "
G = G + 1: Return
saut3:
Close #1
End Sub

Salut.

Salut regarde ce site http://www.terre-net.fr/applets/cuve/cuve.asp?Type=Citerne