2. Fórumok
  3. Egyéb hardverek
  4. PLC programozás

Új hozzászólás Aktív témák

  • #4526 Szirty őstag Mazsika #4525
    Új Válasz #4526
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Szirty

    őstag

    válasz Mazsika #4525 üzenetére

    Üdv Mazsika!

    "VB skript??? Itt már elvesztettem a fonalat... "

    Miért? Nem találkoztál velük?
    Itt egy példa file írására:

    'Aprító üzemidő kiírása TXT file-ba:
    Dim CSV, CSVFile
    'A mentést kezdeményező érték visszaírása nullába a mentés végén
    SmartTags("WinCC_Adatcsere.CSVWRT")=0
    Set CSV = CreateObject("Scripting.FileSystemObject")
    'csv file megnyitása.
    'Ha nem létezik létrehozza és első sorba beírja a fejléc szövegeit. Ha létezik, hozzáfűzi a végéhez az adatokat.
    If (CSV.FileExists(Filename)) Then
    Set CSVFile = CSV.OpenTextFile(Filename, 8, True)
    Else
    Set CSVFile = CSV.OpenTextFile(Filename, 8, True)
    CSVFile.WriteLine(Chr(34)+"Dátum (év.hó.nap. ó:p:mp)"+Chr(34)+";"+Chr(34)+"Üzemidő kifele (ó:p)"+Chr(34)+";"+Chr(34)+"Üzemidő befele (ó:p)"+Chr(34)+";"+Chr(34)+"2. r. töltések száma"+Chr(34)+";"+Chr(34)+"2/2 sz. előre irányba állás számláló"+Chr(34)+";")
    End If
    'Adatok kiírása a file-ba:
    CSVFile.Write(Now&";"&FormatDateTime(SmartTags("WinCC_Adatcsere.HKE"),4)&";"&FormatDateTime(SmartTags("WinCC_Adatcsere.HBE"),4)&";"&SmartTags("WinCC_Adatcsere.T18")&";")
    CSVFile.Write(SmartTags("WinCC_Adatcsere.T20")&";")
    CSVFile.WriteLine()
    CSVFile.Close

    Ez amikor a "WinCC_Adatcsere.CSVWRT" változó (INT) értéke nullától eltérő lesz (ezt a PLC kapcsolja be naponta egyszer) kiírja egy file-ba egy sorba 4 változó értékét.

Új hozzászólás Aktív témák