Probleme mit Array

[einfachf]

Hallo Zusammen,

ich bin Neuling in VB und habe mir jetzt ein Projekt überlegt.
Ich möchte dynamische Viskositäten berechnen.
Das klappt auch ganz gut.

n = 0

For i = anf To 15

   t = F * CDbl(Me.Controls("TextBoxNeu" & CStr(i)).Text)
   D = 1.292 * 780 * 10 ^ ((i - 15) / 6.42)
   v = t / D
   x = Sqr(D)
   y = Sqr(t)
   v = Math.Round(v, 1)
   D = Math.Round(D, 2)
   If v > 100 Then v = CInt(v)
   If D > 100 Then D = CInt(D)
   'FELD1(0, i) = D
   'FELD1(1, i) = v
   'FELD1(2, i) = t
         vResult = vResult & vbCrLf & ("‰ =") & ("  ") & (Me.Controls("TextboxNeu" & CStr(i)) & "  " & ("Visko =") & " " & v & " " & ("Tau =") & " " & t)
   
  Debug.Print t, D, v
  n = n + 1

Next i

Die Werte werden in eine MsgBox geschrieben(als Anhang). Ich möchte aber die gesamten Werte aus der Laufzeit weiter verwenden um z.B. die Strukturviskosität zu berechnen.
Ich habe überhaupt keine Ahnung wie das gehen soll.

Wäre super wenn mir jemand weiterhelfen könnte
Danke

 

[Woll0r]

ich habe zwar nicht so wirklich verstanden, was genau da gerechnet wird aber so füllst du jedenfalls ein Array. Pro Durchlauf eine Zeile, also insgesamt 15 mit jeweils 3 Werten

btw. hat die Variable n irgendeinen Sinn ?

n = 0
dim arraywerte(15,3)  as variant

For i = anf To 15

   t = F * CDbl(Me.Controls("TextBoxNeu" & CStr(i)).Text)
   D = 1.292 * 780 * 10 ^ ((i - 15) / 6.42)
   v = t / D
   x = Sqr(D)
   y = Sqr(t)
   v = Math.Round(v, 1)
   D = Math.Round(D, 2)
   If v > 100 Then v = CInt(v)
   If D > 100 Then D = CInt(D)
   arraywerte(i,0) = D
   arraywerte(i,1) = v
   arraywerte(i,2) = t
         vResult = vResult & vbCrLf & ("‰ =") & ("  ") & (Me.Controls("TextboxNeu" & CStr(i)) & "  " & ("Visko =") & " " & v & " " & ("Tau =") & " " & t)
   
  Debug.Print t, D, v
  n = n + 1

Next i

 

[einfachf]

Hallo,

die Variable n brauche ich für die Anzahl Durchläufe, damit ich später den ersten und den letzten wert von t und D ermitteln kann.

Die Inhalte des Arrays möchte ich zum Einen ausgeben. Ich wollte Teile des Arrays an Excel ausgeben.Weiß aber auch noch nicht wie ich das machen soll
Zum Anderen muß ich mit den Inhalten weiterrechnen.

Danke für die Hilfe