Type de declaration
Fermé
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Modifié le 25 avril 2018 à 16:22
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 26 avril 2018 à 16:54
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 26 avril 2018 à 16:54
A voir également:
- Type de declaration
- Incompatibilité de type vba ✓ - Forum Programmation
- Processus déclaration tva rapport de stage ✓ - Forum compta / gestion
- Type lnb nilesat - Forum Cinéma / Télé
- Type de parenthèse ✓ - Forum Clavier
- Modifier type de fichier - Guide
1 réponse
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
25 avril 2018 à 21:52
25 avril 2018 à 21:52
bonsoir, tu ne montres qu'une seule ligne de ton code: es-tu certain que l’erreur ne vient pas d'ailleurs?
Modifié le 26 avril 2018 à 09:33
voila le programme tout
le probleme c que quand je donne des petites valeurs pour D et L et RO et vis
dp ne saffiche pas dans mon textbox
Private Sub CommandButton_valider_Click() Dim q1 As Double, d1 As Double, vis As Double, v1 As Single, ro As Double, psi As Double, dp1 As Single ro = TextBox_ro.Value vis = TextBox_vis.Value q1 = TextBox_debit.Value d1 = TextBox_diametre.Value * 0.001 l1 = TextBox_longueur.Value * 0.001 If ComboBox_lisse_rugueux.Value = "lisse" Then v1 = (4 * q1) / (3.14 * (d1 ^ 2)) TextBox_vitesse.Value = v1 re1 = v1 * d1 / vis If re1 < 3300 Then TextBox_regime.Value = "laminaire" k1 = 64 / re1 Else TextBox_regime.Value = "turbulent" Dim r1 As Currency k1 = 0 r1 = 0 '-------------------------- '-------------------------- While r1 <= 1 k1 = k1 + 0.0001 r1 = (2 * ((Log(re1 * Sqr(k1))) / Log(10)) - 0.8) * Sqr(k1) Wend dp1 = k1 * l1 * 0.001 * ro * (v1 ^ 2) * 0.5 / d1 TextBox_perte_de_charge.Value = dp1 '-----------------------------------remplir le tableau 180 'Range("c5") = "" 'Range("d5") = TextBox_matiere.Value ' Range("e5") = TextBox_choix.Value 'Range("f5") = TextBox_rugosite.Value 'Range("g5") = d1 * 1000 'Range("h5") = l1 * 1000 'Range("i5") = q1 'Range("j5") = vis 'Range("k5") = ro 'Range("l5") = v1 'Range("m5") = dp1 '--------------------------------------- End If Else v1 = (4 * q1) / (3.14 * (d1 ^ 2)) Range("L5") = v1 TextBox_vitesse.Value = v1 re1 = v1 * d1 / vis If re1 < 3300 Then TextBox_regime.Value = "laminaire" k1 = 64 / re1 Else TextBox_regime.Value = "turbulent" k1 = 0 r1 = 0 '-------------------------- '-------------------------- While r1 <= 1 k1 = k1 + 0.0001 psi = TextBox_rugosite.Value r1 = (-2 * (Log((psi / (3.7 * d1)) + (2.52 / (Sqr(k1) * re1)))) / (Log(10))) * Sqr(k1) Wend dp1 = k1 * l1 * 0.001 * ro * (v1 ^ 2) * 0.5 / d1 TextBox_perte_de_charge.Value = dp1 '-----------------------------------remplir le tableau 180 'Range("c5") = "" 'Range("d5") = TextBox_matiere.Value 'Range("e5") = TextBox_choix.Value 'Range("f5") = TextBox_rugosite.Value 'Range("g5") = d1 * 1000 'Range("h5") = l1 * 1000 'Range("i5") = q1 'Range("j5") = vis 'Range("k5") = ro 'Range("L5") = v1 'Range("m5") = dp1 '--------------------------------------- End If End If End SubExplications disponibles ici : ICI
Merci d'y penser dans tes prochains messages.
26 avril 2018 à 12:05
26 avril 2018 à 15:37
Modifié le 26 avril 2018 à 16:44
je viens deffectuer un calcul mais je ne crois pas que c la qui reside le probleme
parceque si vous regarder bien le programme vous allez vous rendre compte que
parexemple pour (d=9mm) on est dans le regime laminaire ca veut dire quon est dans la premiere condition
(If re1 < 3300 Then
TextBox_regime.Value = "laminaire"
k1 = 64 / re1
)
et donc c pas la boucle
26 avril 2018 à 16:54
au fait c que linstruction :
dp1 = k1 * l1 * 0.001 * ro * (v1 ^ 2) * 0.5 / d1
je lai ecrite avant que je ferme la condition if
alors il prend pas en compte dp quand je suis dans laminaire
merci qd mm