Hallo alle zusammen,

ich versuche mich an einem kleinen Vba Programm um den Durchfluss an einer Blende zu berechnen. Dieser sollte iterativ ermittelt werden.  Folgender Algorithmus soll erfüllt werden.

https://www.dropbox.com/s/4wfqbwckjq3jk1n/Screenshot_NormarAppImage.png

Ich habe das ganze bereits einmal auf papier rechnen müssen und es sind nicht viele iterationsschritte nötig um das gewünschte ergebnis zu erfüllen.  Habe hier einen Teil des Programmcode gepostet, die Dimensionierung ist jetzt nicht dabei nur den Teil für die Berechnung. Wäre nett wenn ihr mir etwas helfen könntet. Habe mir schon ein paar schleifen im Internet gefunden aber bislang kam ich nicht viel weiter. Vielen dank, im vorraus

DB = TextBox2.Value / 1000                                                           
DR = TextBox1.Value / 1000
P1 = TextBox4.Value * 10 ^ 5
P2 = TextBox5.Value * 10 ^ 5



Pamb = TextBox7.Value * 10 ^ 5
PW = TextBox6.Value * (10 ^ 5)
T1 = TextBox3.Value + 273.15
Tr = 291.15
my0 = 18.27 * (10 ^ -6)
c = 120


P1abs = P1 + Pamb                                                                                     

ß = DB / DR

E = 1 / Sqr(1 - ß ^ 4)                                                              

Ep = 1 - ((0.351 + 0.256 * ß ^ 4 + 0.93 * ß ^ 8 * (1 - ((P2 / P1))) ^ 1 / 1.4))      

Rho1 = P1abs / ((287 * T1))

my = my0 * (Tr + c) / (T1 + c) * ((T1 / Tr) ^ (3 / 2))
                                                            
Re = 10 ^ 5


Calt = 0.5961 + 0.0261 * (ß ^ 2) - 0.216 * (ß ^ 8) + 0.000521 * (10 ^ 6 * ß / Re) ^ 0.7 + (0.0188 + 0.0063 * A) * (ß ^ 3.5) * (10 ^ 6 / Re) ^ 0.3

A = (19000 * ß / Re) ^ 0.8




Do

qm = Ep * Calt * (3.14 / 4 * DB ^ 2) * E * Sqr(2 * PW * Rho1) * 3600   'Gleichung für Berechnung massenstrom in kg/h
Label31 = Round(qm, 2)

qv = qm / Rho1
Label33 = Round(qv, 2)

sg = qv / (3.14 / 4 * DR ^ 2) / 3600
Label35 = Round(sg, 2)

Re_i = sg * DR * Rho1 / my
Label37 = Round(Re_i, 2)


Dim C_neu As Double, Ai As Double



Loop Until Abs(C_neu - Calt) / Calt < 10 ^ -6