vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Problem bei Datenexport 
Autor: Pete85
Datum: 26.10.10 09:34
OK, ich denke ich habe den Code jetzt soweit umgeschrieben, dass es passt. Das Einzige ist jetzt noch, das beim Erreichen der Zeile dblaLuftfeuchte(lngI) = dblaLuftfeuchte(lngI) + 0.1 die Fehlermeldung "Index außerhalb des gültigem Bereichs" kommt.

Hier werden die 0,1 nicht dazu addiert und dadurch kann die Bedingung "Do Until dblaLuftfeuchte(lngI) > 1" nicht erfüllt werden. 

Do Until dblaLuftfeuchte(lngI) > 1
 
 dblaX(lngI) = 0.1
 
     Do
      dblaDampfdruck(lngI) = (dblaX(lngI) / 1000 * 1.013) / (dblaLuftfeuchte( _
        lngI) * (0.622 + (dblaX(lngI) / 1000))) * 1000 'mbar
      dblLog10 = Log(dblaDampfdruck(lngI)) / Log(10#)
      dblaT(lngI) = (237.3 * dblLog10 - 186.45) / (8.2856958 - dblLog10) '°C
      dblaRV(lngI) = 2500 - (2.43 * dblaT(lngI))
      dblaEnthalpie(lngI) = (dblCpl * dblaT(lngI)) + (dblaX(lngI) / 1000 * ( _
        dblaRV(lngI) + dblCpd * dblaT(lngI)))
      dblaDichteLuft(lngI) = ((0.3483 * dblDruck) - (0.1316 * dblaLuftfeuchte( _
      lngI) * dblaDampfdruck(lngI))) / (dblaT(lngI) + 273.15)
 
      dblaX(lngI) = dblaX(lngI) + 0.1
 
     Loop While dblaX(lngI) <= Text1.Text
 
     lngI = lngI + 1
 
 dblaLuftfeuchte(lngI) = dblaLuftfeuchte(lngI) + 0.1
 
 
 
      strText = strText & CStr(dblaX(lngI)) & vbTab & CStr(dblaLuftfeuchte( _
        lngI)) & vbTab & CStr(dblaEnthalpie(1)) & vbTab & CStr(dblaEnthalpie( _
        2)) & _
      vbTab & CStr(dblaEnthalpie(3)) & vbTab & CStr(dblaEnthalpie(4)) & _
      vbTab & CStr(dblaEnthalpie(5)) & vbTab & CStr(dblaEnthalpie(6)) & _
      vbTab & CStr(dblaEnthalpie(7)) & vbTab & CStr(dblaEnthalpie(8)) & _
      vbTab & CStr(dblaEnthalpie(9)) & vbTab & CStr(dblaEnthalpie(10)) & vbCrLf
 
Loop


Beitrag wurde zuletzt am 26.10.10 um 09:34:34 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem bei Datenexport1.047Pete8525.10.10 11:41
Re: Problem bei Datenexport591eierlein25.10.10 18:51
Re: Problem bei Datenexport592Pete8525.10.10 19:56
Re: Problem bei Datenexport590eierlein25.10.10 22:33
Re: Problem bei Datenexport602Pete8526.10.10 00:03
Re: Problem bei Datenexport606Pete8526.10.10 09:34
Re: Problem bei Datenexport615eierlein28.10.10 19:49

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel