CALCUL DU VOLUME PARTIEL D UNE CUVE À MAZOUT POSÉ HORIZONTALEMENT
cs_JLN
Messages postés
371
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
17 juin 2013
-
18 janv. 2005 à 17:51
cs_meudon Messages postés 35 Date d'inscription lundi 13 octobre 2003 Statut Membre Dernière intervention 16 janvier 2009 - 4 mai 2009 à 19:17
cs_meudon Messages postés 35 Date d'inscription lundi 13 octobre 2003 Statut Membre Dernière intervention 16 janvier 2009 - 4 mai 2009 à 19:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/28782-calcul-du-volume-partiel-d-une-cuve-a-mazout-pose-horizontalement
https://codes-sources.commentcamarche.net/source/28782-calcul-du-volume-partiel-d-une-cuve-a-mazout-pose-horizontalement
4 mai 2009 à 19:17
Il y a maintenant une variante un peu plus appronfondie sur :
http://www.vbfrance.com:80/code.aspx?ID=29523
avec l'exe sur le site:
http://olravet.fr/Edouard.php
Ca marche très bien.
3 janv. 2009 à 17:26
Malheureusement je suis dans le cas de mazwaz et malgré la modification de la sous fonction, j'ai toujours des résultat abérrant, pourrais tu m'envoyer si tu peut le ZIP corrigé.
Merci d'avance
guilhem.barral-d-esteve@wanadoo.fr
15 sept. 2008 à 10:22
j'ai donc ouvert le fichier cuve.frm j'ai changer la fonction "private Sub calc" par celle du site, j'ai enregistré et j'ai relancé le programme!!
tjs pareil:( pourrais tu m'envoyer le prog corrigé sur ma boite de réception???
mazwazni@yahoo.fr
merci d'avance
14 sept. 2008 à 13:38
erreur de paranthese dan le prg.
fait copier - coller le sous prg "private Sub calc" (ci dessus)
banne chance
Etienne
14 sept. 2008 à 13:01
je suis trés intéressé par le calcul du volume d'1 citerne. la formule ne marche pas chez moi j'obtient des valeurs pas normal!!! apparement la formule a une erreur mais je ne sais pas comment editer la formule pour mettre la correction posté par PISTA
Merci pour votre aide
mazwaz
13 sept. 2005 à 12:31
CALCUL DU VOLUME PARTIEL D UNE CUVE À MAZOUT CIRCULAIRE POSÉE HORIZONTALEMENT Je déconne ... Bien même si dans mon cas mes radiateurs sont électriques
30 janv. 2005 à 09:29
Bon cette fois c'est du bon du sérieux ca fonctionne la formule, mais il reste pas mal de bug au niveau de la saisie (diamètre, ficelle) une meilleur gestion de celle-ci serait souhaitable et du coup le zip pourrait être mis à jour. Pour le moment, il ne faut pas oublier de supprimer tous ce qui touche à L1 et L1n voila. Sinon c'est du bon boulot et surtout ca va rendre service à pas mal de monde, qui comme moi ne savait jamais ou il en était.
Merci et bonne prog.
JLN
30 janv. 2005 à 08:42
J'espere que tu as fait le plein avant mes calcules et personne ne se trouve a sec par ce temps à cause d'une
parenthese mal placée.
ci deddous le S/P modifié
Private Sub calc()
Dim demil, longueur, niveau1, niveau2, volume1, volume2, rayon As Double
Dim h1n, h2n, l1n, l2n, d1n, p1n, total1n, total2n, unit1 As Double
PI = 3.14159265358979
' l2n = Val(l2.Text) SUPRIME DANS Picrure1 Le 'TextBox' l1
l2n = Val(l2.Text)
h1n = Val(h1.Text)
h2n = Val(h2.Text)
d1n = Val(d1.Text)
p1n = Val(p1.Text)
rayon = d1n / 2
niveau1 = h1n
niveau2 = h2n
longueur = l2n
volume1 = longueur * (PI * rayon ^ 2 / 2 - rayon ^ 2 * ASIN(1 - niveau1 / rayon) - (rayon - niveau1) * Sqr(niveau1 * (2 * rayon - niveau1)))
volume2 = longueur * (PI * rayon ^ 2 / 2 - rayon ^ 2 * ASIN(1 - niveau2 / rayon) - (rayon - niveau2) * Sqr(niveau2 * (2 * rayon - niveau2)))
volume1 = volume1 / 1000000
volume2 = volume2 / 1000000
total1.Text = Round(volume1, 3)
total2.Text = Round(volume2, 3)
total1n = Val(total1.Text)
total2n = Val(total2.Text)
reste.Text = Round((volume1 - volume2), 3)
End Sub
29 janv. 2005 à 16:52
Ma cuve fait 2600 Litres diametre 1300 mm longueur environ 2 m.
Les parametres mis en place, une hauteur de produit = 150 mm fait apparaitre un volume restant de 937 litres. Pire encore une hauteur de 1300 (maxi possible) donne 14600,552. Alors c'est décidé je me met à mon compte et je revend le fioul que ma cuve fabrique....
18 janv. 2005 à 17:51
Bonne prog
JLN