Text Dosyası içindeki verileri Wincc Scadaya Alma?

Öncelikle real ve word uzunluğundaki değişkenleri sorunsuz bir şekilde alabilirsiniz.Sayının virgülden sonrası durumuna gelince, olay sadece tag i wincc de tanımlarken floating-point olarak tanımlamaktan geçiyor.Biz integer olarak tanımladığımız için virgülden sonrasını alamadık :)

string kısmına gelince;

string deger kullanacagin tagi Text tag 16 bit olarak tanımla.Bu sana 255 harflik bir string değişkeni kazandıracak.Ekranında da bir tane static text tanımla.

ardından butonun event kısmında StaticText nesnesini tanımla (diyelim adı da metin2 olsun) ve daha sonra
metin2.text=tagler(5).value
komutunu kullanabilirsin.

Ben denedim oldu :)
 
Yazımızda endüstrinin can damarı sayılabilecek PLC’yi inceleyeceğiz.
KNX Standardı, küçük bir rezidansın içerisindeki aydınlatma, perde panjur, klima kontrolünden, Dünya’nın en büyük havalimanlarındaki aydınlatma otomasyonu gibi çözümler için tercih edilen bir Dünya standardıdır.
Evet denedİm olmuŞtu. yardimlarin İÇİn teŞekkÜr ederİm
 
yanlışlıkla iki defa gönderdim sorum alttaki mesajda dır
 
Son düzenleme:
[I]ardaşlar script ler le ilgili bir sorunum var.

bende bir text dosyasına veri yazmaya çalışıyorum.

Set fso = CreateObject("Scripting.FileSystemObject")

satırını script e eklediğimde bir hata veriyor ve wincc flexible kapanıyor.

aynı şekilde bikaç gün önce açtığım ve şu anda da çalışır durumda olan script leride
açmaya kalktığımda aynı hatayı verip kapanıyor bu satırı silersem sripti aça biliyorum hatanın açıklamasını ekliyorum bilen varsa söylesin ben konuya hakim deiğim bi yerlerden buldum kullanıyorum.

hata açıklaması[/I]

This is an automatically generated error report for the WinCC flexible Engineering System.

Microsoft Windows XP Professional Service Pack 3 5.1.2600.196608

Product version: WinCC flexible 2008 SP1 Advanced; V 1.03 ServicePack 1; V 1.3 SP 1.0 (1.67.02)


System.Security.SecurityException
Requested registry access is not allowed.

Exception Source
mscorlib

Exception Target Site
Void ThrowSecurityException(System.ExceptionResource)

Exception Stack Trace
at System.ThrowHelper.ThrowSecurityException(ExceptionResource resource)
at Microsoft.Win32.RegistryKey.OpenSubKey(String name, Boolean writable)
at Microsoft.Win32.RegistryKey.OpenSubKey(String name)
at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.FillTlbsHashtableFormRegistryKeyCLSID()
at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.FillTypeLibsHashTable()
at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.GetTypeLibGuidFromProgId(String progID)
at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.Init_ProgId(String progId)
at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.ScriptEditOMReflection.Init(Object progIdOrInterface, Boolean setHelpDescription)
at Siemens.Simatic.Hmi.Utah.Scripting.EditControl.LoadTlbAndConvertToAssemblyThread.LoadTlbAndConverToAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
End Exception
--------------------------------------------------------------------------
[I]kendi kullandığım script aşağıdaki gibi bu script çalışıyor ama değişiklik yapmak için açamıyorum açtığımda yukarıda ki hatayı veriyor.
[/I]


'////////////////////////////////////////////////////////////////
' en: Script for the creating and saving of a text file
' de: Script zum Erstellen und Speichern einer Textdatei
' Created: 14-05-2007
' Version: v0.1
' Author: ZW
'////////////////////////////////////////////////////////////////

'Declaration of local tags - Deklaration von lokalen Variablen
Dim fso, f, ts, path

'Definition of file extension - Definition der Datei-Extension
If SmartTags("bExtension") = 0 Then
path = "c:\textfile.txt"
Else
path = "c:\textfile.csv"
End If

'Error Routine - Fehlerroutine
On Error Resume Next

'Create object - Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

'if no file exist a text file will be created - Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(path) Then
fso.CreateTextFile path
End If

Set f = fso.GetFile(path)

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

Set ts = f.OpenAsTextStream(2, -2)

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

'Write values into the file - Werte in die Datei schreiben
ts.WriteLine("material; " & SmartTags("szMaterial") & ";")
ts.WriteLine("pressure; " & SmartTags("nPressure") & "; mbar;")
ts.WriteLine("temperature; " & SmartTags("nTemperature") & "; °C;")

'Close file - Datei schließen
ts.Close

Set ts = Nothing
Set f = Nothing
Set fso = Nothing

ShowSystemAlarm "Storage of the data was successful!"
'// EOS /////////////////////////////////////////////////////////
 
Öncelikle real ve word uzunluğundaki değişkenleri sorunsuz bir şekilde alabilirsiniz.Sayının virgülden sonrası durumuna gelince, olay sadece tag i wincc de tanımlarken floating-point olarak tanımlamaktan geçiyor.Biz integer olarak tanımladığımız için virgülden sonrasını alamadık :)

string kısmına gelince;

string deger kullanacagin tagi Text tag 16 bit olarak tanımla.Bu sana 255 harflik bir string değişkeni kazandıracak.Ekranında da bir tane static text tanımla.

ardından butonun event kısmında StaticText nesnesini tanımla (diyelim adı da metin2 olsun) ve daha sonra
metin2.text=tagler(5).value
komutunu kullanabilirsin.

Ben denedim oldu :)
erdinç bey bazı komutları kullanma nedenimizi anlayamadım yardımcı olurmusunuz?
 

Forum istatistikleri

Konular
127,952
Mesajlar
913,880
Kullanıcılar
449,599
Son üye
Gksn

Yeni konular

Geri
Üst