Hallo,
Ich habe das Problem das ich mehrere *.lvm Files nacheinander diese bearbeite, auswerte und einen Kanal Erstelle in welchen ich ein Event lade(ein bis zwei werte).
Nun möchte ich nach dem das erste *.lvm ausgewertet wurde die Daten des Eventkanals behalten. Mein erster Gedanke war die werte in z.B. ein Excel File zu speichern.
Wenn dann nun die zweite *.lvm ausgewertet wurde sollen die daten der zweiten Auswertung an das Excelfile angehängt werden. Oder kann man alle Werte sammeln und am ende der z.B. 90 Durchläufe wegspeichern? So das ich am ende ein Excelfile erhalte bei 90 ausgewählten *lvm mit 90 Werten aus den Eventkanälen.
Ich bin in dem ganzen Thema relativ neu also hoffe ich das ich mich einigermaßen verständlich ausgedrückt habe.
Das ist mein bisheriges Script in dem ich die *.lvm lade bearbeite den Report aktualisiere und als PDF ausgebe. Das sollte auch weiterhin so funktionieren.
Option Explicit
Dim i
Dim MyFolders()
Call InitMyFolders
'-------------------------------------------------------------------------------
Sub InitMyFolders
ReDim MyFolders(1)
MyFolders(0)="G:\05_DIAdem\03_Auswertung\"
End Sub
'-------------------------------------------------------------------------------
If FileDlgShow(DataReadPath,"LVM Files,*.lvm","DataSelection",True) = "IDOk" Then
For i = 0 to UBound(FileDlgNameList)
Call Data.Root.Clear()
Call DataFileLoad(FileDlgNameList(i),"LVM","Load")
Call Data.Root.ChannelGroups(1).Channels.Add("CurrentLoad[A]",DataTypeFloat64,10)
Call Data.Root.ChannelGroups(1).Channels.Add("ForceLoad[kN]",DataTypeFloat64,10)
Call Data.Root.ChannelGroups(1).Channels.Add("Way[mm]",DataTypeFloat64,10)
Call Data.Root.ChannelGroups(1).Channels.Add("Voltage[V]",DataTypeFloat64,10)
Call DataBlCopy("Untitled", 1, 4500, "Voltage[V]")
Call DataBlCopy("Untitled 1", 1, 4500, "Way[mm]")
Call DataBlCopy("Untitled 2", 1, 4500, "ForceLoad[kN]")
Call DataBlCopy("Untitled 3", 1, 4500, "CurrentLoad[A]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
Call ChnDel("[1]/[1]")
ChnEventResultList= Null
ChnEventResultList = ChnEventDetectionWindow(, "[1]/[3]", 5.999 , 6.001 , 0, 0)
If Not IsNull(ChnEventResultList) Then
Call ChnEventCopyValues(,"[1]/[4]", "EventresultX", "Current[A]_6kN", ChnEventResultList)
End If
Call Report.Refresh
Call Report.Sheets.ExportToPDF(MyFolders(0)&Data.Root.Name,FALSE)
Next
End If
