WinCC 2008SP3 _Tabelle erstellen

ka1978

Well-known member
Beiträge
139
Punkte Reaktionen
0
Zuviel Werbung?
->Hier kostenlos registrieren
Hallo,

Es soll durch 10 Kanälen ,Temperaturen von Test Objekten darstellen, die Temperaturen werden von der Sps übernommen und in Wincc flex

ausgewertet und in einer Tabelle dargestellt.Ich habe das Projekt mit einer Tabelle in die Untere Link getestet. Da bekomme ich dieFolgende

Fehermeldung : Active X-Komponenten kann kein Objekt erstellen: "FileCtl.FileSystem" in Skript<Read_line> in Zeile 21.

ich hoffe,dass jemand mir weiter helfenkann.


Vielen Dank im Voraus!

ID22726112 Wie können Daten bei Panels oder bei der WinCC flexible PC Runtime aus einem Variablenarchiv in Tabellenform dargestellt werden?

P.S. Soryy falls ein ähnlicher Beitrag schon vorhanden ist!
 

rostiger Nagel

Forums-Knochenbrecher
Teammitglied
Beiträge
14.355
Punkte Reaktionen
4.194
Kannst du das scipt bitte mit Code-Tags (Raute am Forumseditor) einstellen.
Ansonsten muß man es erst runterladen, dazu hat nicht jeder Lust.

Auf welcher Plattform hast du das Projekt getestet, MP oder PC-Runtime?
 

PN/DP

User des Jahres 2011-2013; 2015-2017; 2020-2021
Beiträge
17.564
Punkte Reaktionen
5.167
OP
K

ka1978

Well-known member
Beiträge
139
Punkte Reaktionen
0
OP
K

ka1978

Well-known member
Beiträge
139
Punkte Reaktionen
0
Hallo,

ich habe den Folgenden Code für die Fkt Readline eingesetzt.

Code:
Dim fso, fs, f, i, ix, il, FName, HMIO, Zeile(100), Zeilen, Screen_Name, Storage_Path, temp, text_stream

' Angabe des Bildnamens 
' declaration of the screen name
Screen_Name = "Screen_01"

' "Sanduhr" anzeigen, solange die Daten ausgelesen werden.
' Announcing "sand-glass" as long as the data are selected.
Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("wait")
    HMIO.Visible = True

' Ablagepfad festlegen 
' Define Storage path
Storage_Path = "C:\Storage_Data\Logs\Engine_01\Tag_Values" 


' FileSystemObject erzeugen 
' creating the FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

 
' prüfen ob Pfad und Datei existiert 
' check if path and file exists
If fso.FileExists(Storage_Path & "\" & Data_Log_Name & "0.csv") = False Then
    ShowSystemAlarm ("path or file not available")
    
    
' Schaltflächen sperren
' lock buttons
    Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("down")
        HMIO.Enabled = False
    Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("up")
        HMIO.Enabled = False
    Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("down_0")
        HMIO.Enabled = False
    Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("up_0")
        HMIO.Enabled = False
    Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("pos1")
        HMIO.Enabled = False
    Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("ende")
        HMIO.Enabled = False
    Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("wait")
         HMIO.Visible = False
         
' Einträge in der Tabelle löschen 
' Delete entries in the table         
    For ix = 1 To SmartTags("Linenumbers")
    ' clear list
        Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VarNameTextfeld"& ix)
            fs.Text = ""
        Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("ZeitTextfeld"& ix)
            fs.Text =""
        Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VarTextfeld"& ix)
            fs.Text = ""
    Next

' Eintragsnummer auf "0" setzen 
' Set Entry Number to "o"
    SmartTags("SkipIndex") = 0
    
    Exit Sub
End If
 
Oben