vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 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: eierlein
Datum: 28.10.10 19:49
Hallo Pete85,

Zitat:

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.


Du kannst testweise die Schleife vor Überschreiten der Arraygrenze von »lngI« verlassen.
Allerdings hast du dann immer noch nicht das gewünschte Ergebnis. 
...
 
 vbTab & CStr(dblaEnthalpie(9)) & vbTab & CStr(dblaEnthalpie(10)) & vbCrLf
 
 IF lngI > 9 then exit do '<-----
 
Loop
Versuch mal folgenden Code: 

SUB Berechnen_Click()
   DIM dblCpd AS DOUBLE
   DIM dblLog10 AS DOUBLE
   DIM dblDruck AS DOUBLE
   DIM dblCpl AS DOUBLE
   DIM strText AS STRING
   DIM lngI AS LONG
   DIM dblaX( 1 To 10 ) AS DOUBLE
   DIM dblaDampfdruck( 1 To 10 ) AS DOUBLE
   DIM dblaT( 1 To 10 ) AS DOUBLE
   DIM dblaRV( 1 To 10 ) AS DOUBLE
   DIM dblaEnthalpie( 1 To 10 ) AS DOUBLE
   DIM dblaDichteLuft( 1 To 10 ) AS DOUBLE
   DIM dblaLuftfeuchte( 1 To 10 ) AS DOUBLE
 
   DIM zz AS LONG
 
   dblDruck = 1013
   dblCpl = 1.006
   dblCpd = 1.86
 
   strText = strText & VbCrLf & "X01" & _
   VbTab & "Luftfeuchte" & VbTab & "Enthalpie01" & VbTab & "Enthalpie02" & _
   VbTab & "Enthalpie03" & VbTab & "Enthalpie04" & _
   VbTab & "Enthalpie05" & VbTab & "Enthalpie06" & _
   VbTab & "Enthalpie07" & VbTab & "Enthalpie08" & _
   VbTab & "Enthalpie09" & VbTab & "Enthalpie10" & VbCrLf
 
'Schleife für rel. Luftfeuchte 0.1...1
   lngI = 1
   dblaX( lngI ) = 0.1
   dblaLuftfeuchte( lngI ) = 0.1
 
   DO
      dblaX( lngI ) = 0.1
      zz = 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( zz ) = ( 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 )
 
 
'      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
' 
         zz = zz + 1
 
         dblaX( lngI ) = dblaX( lngI ) + 0.1
      LOOP WHILE dblaX( lngI ) <= 1 'Text1.Text
 
      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
 
 
 
      dblaLuftfeuchte( lngI ) = dblaLuftfeuchte( lngI ) + 0.1
 
   LOOP WHILE dblaLuftfeuchte( lngI ) <= 1
   lngI = lngI + 1
 
   DIM lngDateiNr AS LONG
   lngDateiNr = FREEFILE
   OPEN "C:\Filename.txt" FOR Output AS lngDateiNr
   PRINT #lngDateiNr, strText
   CLOSE lngDateiNr
END SUB
0
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem bei Datenexport1.047Pete8525.10.10 11:41
Re: Problem bei Datenexport592eierlein25.10.10 18:51
Re: Problem bei Datenexport592Pete8525.10.10 19:56
Re: Problem bei Datenexport590eierlein25.10.10 22:33
Re: Problem bei Datenexport603Pete8526.10.10 00:03
Re: Problem bei Datenexport606Pete8526.10.10 09:34
Re: Problem bei Datenexport616eierlein28.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