WinCC 2008SP3 _Tabelle erstellen

[ka1978]

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]

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]

Zuviel Werbung?
-> Hier kostenlos registrieren

Das Objekt "FileCtl.FileSystem" gibt es nur auf Panels unter Windows CE.
Skripte, die das FileCtrl benutzen, kann man nicht direkt auf einem PC testen.

Was die Unterschiede Windows<->WinCE sind und wie man dennoch testen kann siehe:
FAQ: Protool/WinCCflex Daten lesen / schreiben mit VB-Script

Harald

 

[ka1978]

Hallo,

ich möchte die Archivierte Messungen für 10 Kanäle auf Runtime PC in einer Tabelle darstellen. hat man vielleicht eine idee, ich habe mit dem Beispiel

vom Siemens, was unter diesem Link
ID22726112 Wie können Daten bei Panels oder bei der WinCC flexible PC Runtime aus einem Variablenarchiv in Tabellenform dargestellt werden?

aber leider bin ich nicht zum eine Ergebnis gekommen. kann mir jemand helfen.

Danke im Voraus

 

[ka1978]

Hallo,

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

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