Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
PsyGeneration
Newbie
Newbie

Anmeldedatum: 30.08.2010
Beiträge: 1

Problem bei Datenexport
Verfasst am: 25.10.2010, 10:56

Hi,

kann mir jemand verraten, wieso meine Daten für die Enthalpie alle in eine Spalte, anstatt in 10 Spalten geschrieben werden?

Code:

Option Explicit

Private 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
 
dblDruck = 1013
dblCpl = 1.006
dblCpd = 1.86
 
strText = strText & vbCrLf & "X" & _
    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
 
     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)
   
     
      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
     
       
      dblaX(lngI) = dblaX(lngI) + 0.1
     Loop While dblaX(lngI) <= Text1.Text
 
 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
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: dim lngi, long

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 983 09.06.2011, 13:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2612 06.03.2008, 21:19
Keine neuen Beiträge ListView speichern & laden 1331 05.08.2008, 13:32
Keine neuen Beiträge Registry & Co Fragen 1203 03.05.2007, 10:57
Keine neuen Beiträge Listbox speichern & laden 2271 22.03.2007, 21:25
 


[ Time: 0.1852s ][ Queries: 80 (0.0844s) ][ GZIP on - Debug on ]