WinCC Script

[ozcansahin]

Selamlar
Wincc V7.0 da bir external bir tagın durumuna bağlı olarak Internal bir Byte yada wordun değerini +1 olarak değişirmek istiyorum.Ayrıca enternal tag pasif olunca wordun değeri 0 olmasını istiyorum.
Bu scripti yazacak yada örnek verecek arkadaşlardan yardım bekliyorum.
Teşekkürler.

 

[elendil_1907]

global script -- vbs editörde action kısmına yazabilirsin...

Option Explicit
Function action

Dim okunan_tag
okunan_tag = HMIRuntime.Tags.Item ("deneme_tag1").Read

If okunan_tag = 1 Then
HMIRuntime.Tags.Item ("deneme_tag2").Write 1
Else
HMIRuntime.Tags.Item ("deneme_tag2").Write 0
End If


End Function

 

[ozcansahin]

elendil 1907 Cevabın için teşekkürler.Sanırım asıl istediğimi yanlış yazdım.
Bir external tag 1 olduğu zaman Internal word tagın değerini surekli olarak 1 er 1 er arttırmak istiyorum.External tag 0 olduğunda ve 10 eşit yada büyük olduğunda Internal word tagın değerinide 0 yapmak istiyorum.
Yardımlarınız için teşekkürler

 

[elendil_1907]

Option Explicit
Function action
'deneme_tag1 ---> external tag
'deneme_tag2 ---> internal tag

Dim ext_tag

ext_tag = HMIRuntime.Tags.Item ("deneme_tag1").Read
If ext_tag = 0 Or ext_tag => 10 Then
HMIRuntime.Tags.Item ("deneme_tag2").Write 0
Else
HMIRuntime.Tags.Item ("deneme_tag2").Write HMIRuntime.Tags.Item ("deneme_tag2").Read + 1
End If

End Function

Internal tag'ın arttırım süresini scriptin "trigger" süresini değiştirerek ayarlayabilirsin...

 

[dpu_force]

elendil banada yardmcı olurmusun. x=10 üzeri (u-5.4) formulunu nasıl hesalatırım . u değeri plcden gliyor

 

[elendil_1907]

elendil banada yardmcı olurmusun. x=10 üzeri (u-5.4) formulunu nasıl hesalatırım . u değeri plcden gliyor

Option Explicit
Function action

Dim a ' (u-5.4)
Dim x ' sonuc
'islemsonucu tagı --> external tag veya internal tag olabilir...
'u tagı --> externa tag
'her iki tag float point olmalı

a = HMIRuntime.Tags.Item ("U").Read - 5.4 'u değişkeninden 5.4 çıkartılır...
x = 10 ^ a ' bulunan değer 10'nun üstü olur...

HMIRuntime.Tags.Item ("islemsonucu").Write x 'çıkan sonuç "işlemsonucu" tagına aktarılır...

End Function

 

[ahmetnoktacom]

hocam bunları tam olarak nereye yazacağız