WinCC Script Deposu?

bilgeyazilim

Üye
Katılım
11 Haz 2007
Mesajlar
11
Puanları
1
Yaş
39
Arkadaşlar WinCC Flexible ile panel programlıyorum. Program içinde script segmesi var. Buna ilişkin bilgileri nereden bulabilirim. Her hangi bir script kütühhanesi, döküman, çok kullanışlı kodlar falan bulabilirmiyim, elinde olan varmı acaba? Veya aşka bir yol?
 
KNX Nedir?
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.
PLC Nedir ? Plc Ne İşe Yarar ?
Yazımızda endüstrinin can damarı sayılabilecek PLC’yi inceleyeceğiz.
Sub OnClick(ByVal Item)
Dim sonuc,deger1,deger2,topla
topla = HMIRuntime.Tags(" topla").write
deger1 = HMIRuntime.Tags("deger1").Read
deger2 = HMIRuntime.Tags("deger2").Read
sonuc = HMIRuntime.Tags("sonuc").write

If topla= true Then
sonuc = deger1 + deger2​
End If​
End Sub

arkadaşlar ben yeni yeni vba ile uğraşıyorum. wincc ıkı tag degerını toplayıp sonuca yazmak istıyorum. ama bir türlü olmuyor. yardım ederseniz sevinirim.
 
Moderatör tarafında düzenlendi:
bu simatic wincc 7.0 ise bunu vba kullanmadan da yapabilirsin tag oluşturusken objeye properties ayarlarından toplama çarpma çıkarma gibi özellikler mevcut bana meil atabilirseniz nasıl yapıldığını size gösterebilirim.
 
tahsin bey teşşekür ederim. ben dediğinizi yapabliyorum. benim gayem vba öğrenmek. script falan yazmayı öğrenmek.
 
Sub procedure2
Dim IOField1,IOField2,IOField3
Dim Button1
IOField1 = HMIRuntime.Tags("deger1").Read
IOField2 = HMIRuntime.Tags("deger2").Read
IOField3 = HMIRuntime.Tags("sonuc").Read
Button1 = HMIRuntime.Tags("topla").Read
If Button1 Then
IOField3 = IOField1 + IOField2​
End if​
End Sub

yukarıdaki programı wincc vba editore aynen yazdım. sonra garfik sayfasında 3 IOField ve birde buton koydum ama butona bastığımda vba çalışmıyor.
 
Moderatör tarafında düzenlendi:
tahsin bey tag ile nasıl hesap yapıldığının gösterebilirmisiniz
 
merhaba arkadaşlar ben aşağıda yazılan scrıpt doğruluğundan emin değilim. bu degerlerı 24 saat de bir ya da her saat başı excel atmak istiyorum. bunu nasıl yapabılırım. script i daha yeni yeni ögreniom. i ile başlayan tag wincc iç tagleridir.

Dim ANLIK,ANLIKR,ANLIKT
Dim SAATLİK,SAATLİKR,SAATLİKT
Dim GÜNLÜK,GÜNLÜKR,GÜNLÜKT
Dim İGÜNLÜK,İGÜNLÜKR,İGÜNLÜKT
Dim SARTDEGERİ.
Dim iSAATLİK1,İSAATLİKR1,İSAATLİKT1
Dim iSAATLİK2,İSAATLİKR2,İSAATLİKT2
Dim iSAATLİK3,İSAATLİKR3,İSAATLİKT3
Dim iSAATLİK4,İSAATLİKR4,İSAATLİKT4
Dim iSAATLİK5,İSAATLİKR5,İSAATLİKT5
Dim iSAATLİK6,İSAATLİKR6,İSAATLİKT6
Dim iSAATLİK7,İSAATLİKR7,İSAATLİKT7
Dim iSAATLİK8,İSAATLİKR8,İSAATLİKT8
Dim iSAATLİK9,İSAATLİKR9,İSAATLİKT9
Dim iSAATLİK10,İSAATLİKR10,İSAATLİKT10
Dim iSAATLİK11,İSAATLİKR11,İSAATLİKT11
Dim iSAATLİK12,İSAATLİKR12,İSAATLİKT12
Dim iSAATLİK13,İSAATLİKR13,İSAATLİKT13
Dim iSAATLİK14,İSAATLİKR14,İSAATLİKT14
Dim iSAATLİK15,İSAATLİKR15,İSAATLİKT15
Dim iSAATLİK16,İSAATLİKR16,İSAATLİKT16
Dim iSAATLİK17,İSAATLİKR17,İSAATLİKT17
Dim iSAATLİK18,İSAATLİKR18,İSAATLİKT18
Dim iSAATLİK19,İSAATLİKR19,İSAATLİKT19
Dim iSAATLİK20,İSAATLİKR20,İSAATLİKT20
Dim iSAATLİK21,İSAATLİKR21,İSAATLİKT21
Dim iSAATLİK22,İSAATLİKR22,İSAATLİKT22
Dim iSAATLİK23,İSAATLİKR23,İSAATLİKT23
Dim iSAATLİK24,İSAATLİKR24,İSAATLİKT24

SET ANLIK=HMIRuntime.Tags("mw0")
SET ANLIKR=HMIRuntime.Tags("mw2")
SET ANLIKT=HMIRuntime.Tags("mw4")
SET SAATLİK=HMIRuntime.Tags("mw6")
SET SAATLİKR=HMIRuntime.Tags("mw8")
SET SAATLİKT=HMIRuntime.Tags("mw10")
SET GÜNLÜK=HMIRuntime.Tags("mw12")
SET GÜNLÜKR=HMIRuntime.Tags("mw14")
SET GÜNLÜKT=HMIRuntime.Tags("mw16")
SET SARTDEGERİ=HMIRuntime.Tags("mw18")
SET İSAATLİK1=HMIRuntime.Tags("İS1")
SET İSAATLİK2=HMIRuntime.Tags("İS2")
SET İSAATLİK3=HMIRuntime.Tags("İS3")
SET İSAATLİK4=HMIRuntime.Tags("İS4")
SET İSAATLİK5=HMIRuntime.Tags("İS5")
SET İSAATLİK6=HMIRuntime.Tags("İS6")
SET İSAATLİK7=HMIRuntime.Tags("İS7")
SET İSAATLİK8=HMIRuntime.Tags("İS8")
SET İSAATLİK9=HMIRuntime.Tags("İS9")
SET İSAATLİK10=HMIRuntime.Tags("İS10")
SET İSAATLİK11=HMIRuntime.Tags("İS11")
SET İSAATLİK12=HMIRuntime.Tags("İS12")
SET İSAATLİK13=HMIRuntime.Tags("İS13")
SET İSAATLİK14=HMIRuntime.Tags("İS14")
SET İSAATLİK15=HMIRuntime.Tags("İS15")
SET İSAATLİK16=HMIRuntime.Tags("İS16")
SET İSAATLİK17=HMIRuntime.Tags("İS17")
SET İSAATLİK18=HMIRuntime.Tags("İS18")
SET İSAATLİK19=HMIRuntime.Tags("İS19")
SET İSAATLİK20=HMIRuntime.Tags("İS20")
SET İSAATLİK21=HMIRuntime.Tags("İS21")
SET İSAATLİK22=HMIRuntime.Tags("İS22")
SET İSAATLİK23=HMIRuntime.Tags("İS23")
SET İSAATLİK24=HMIRuntime.Tags("İS24")

SET İSAATLİKR1=HMIRuntime.Tags("İR1")
SET İSAATLİKR2=HMIRuntime.Tags("İR2")
SET İSAATLİKR3=HMIRuntime.Tags("İR3")
SET İSAATLİKR4=HMIRuntime.Tags("İR4")
SET İSAATLİKR5=HMIRuntime.Tags("İR5")
SET İSAATLİKR6=HMIRuntime.Tags("İR6")
SET İSAATLİKR7=HMIRuntime.Tags("İR7")
SET İSAATLİKR8=HMIRuntime.Tags("İR8")
SET İSAATLİKR9=HMIRuntime.Tags("İR9")
SET İSAATLİKR10=HMIRuntime.Tags("İR10")
SET İSAATLİKR11=HMIRuntime.Tags("İR11")
SET İSAATLİKR12=HMIRuntime.Tags("İR12")
SET İSAATLİKR13=HMIRuntime.Tags("İR13")
SET İSAATLİKR14=HMIRuntime.Tags("İR14")
SET İSAATLİKR15=HMIRuntime.Tags("İR15")
SET İSAATLİKR16=HMIRuntime.Tags("İR16")
SET İSAATLİKR17=HMIRuntime.Tags("İR17")
SET İSAATLİKR18=HMIRuntime.Tags("İR18")
SET İSAATLİKR19=HMIRuntime.Tags("İR19")
SET İSAATLİKR20=HMIRuntime.Tags("İR20")
SET İSAATLİKR21=HMIRuntime.Tags("İR21")
SET İSAATLİKR22=HMIRuntime.Tags("İR22")
SET İSAATLİKR23=HMIRuntime.Tags("İR23")
SET İSAATLİKR24=HMIRuntime.Tags("İR24")

SET İSAATLİKT1=HMIRuntime.Tags("İT1")
SET İSAATLİKT2=HMIRuntime.Tags("İT2")
SET İSAATLİKT3=HMIRuntime.Tags("İT3")
SET İSAATLİKT4=HMIRuntime.Tags("İT4")
SET İSAATLİKT5=HMIRuntime.Tags("İT5")
SET İSAATLİKT6=HMIRuntime.Tags("İT6")
SET İSAATLİKT7=HMIRuntime.Tags("İT7")
SET İSAATLİKT8=HMIRuntime.Tags("İT8")
SET İSAATLİKT9=HMIRuntime.Tags("İT9")
SET İSAATLİKT10=HMIRuntime.Tags("İT10")
SET İSAATLİKT11=HMIRuntime.Tags("İT11")
SET İSAATLİKT12=HMIRuntime.Tags("İT12")
SET İSAATLİKT13=HMIRuntime.Tags("İT13")
SET İSAATLİKT14=HMIRuntime.Tags("İT14")
SET İSAATLİKT15=HMIRuntime.Tags("İT15")
SET İSAATLİKT16=HMIRuntime.Tags("İT16")
SET İSAATLİKT17=HMIRuntime.Tags("İT17")
SET İSAATLİKT18=HMIRuntime.Tags("İT18")
SET İSAATLİKT19=HMIRuntime.Tags("İT19")
SET İSAATLİKT20=HMIRuntime.Tags("İT20")
SET İSAATLİKT21=HMIRuntime.Tags("İT21")
SET İSAATLİKT22=HMIRuntime.Tags("İT22")
SET İSAATLİKT23=HMIRuntime.Tags("İT23")
SET İSAATLİKT24=HMIRuntime.Tags("İT24")


IF SARTDEGER>=0 THEN
İANLIK.VALUE = ANLIK
İANLIKR.VALUE = ANLIKR
İANLIKT.VALUE = ANLIKT
İANLIK.WRİTE
İANLIKR.WRİTE
İANLIKT.WRİTE​
END IF

IF SARTDEGER = 24 THEN
İGÜNLÜK.VALUE = GÜNLÜK
İGÜNLÜKR.VALUE = GÜNLÜKR
İGÜNLÜKT.VALUE = GÜNLÜKT
İGÜNLÜK.WRİTE
İGÜNLÜKR.WRİTE
İGÜNLÜKT.WRİTE​
END IF

IF SARTDEGER = 1 THEN
İSAATLİK1.VALUE = SAATLİK
İSAATLİKR1.VALUE = SAATLİKR
İSAATLİKT1.VALUE = SAATLİKT
İSAATLİK1.WRİTE
İSAATLİKR1.WRİTE
İSAATLİKT1.WRİTE​
END IF

IF SARTDEGER = 2 THEN
İSAATLİK2.VALUE = SAATLİK
İSAATLİKR2.VALUE = SAATLİKR
İSAATLİKT2.VALUE = SAATLİKT
İSAATLİK2.WRİTE
İSAATLİKR2.WRİTE
İSAATLİKT2.WRİTE​
END IF

IF SARTDEGER = 3 THEN
İSAATLİK3.VALUE = SAATLİK
İSAATLİKR3.VALUE = SAATLİKR
İSAATLİKT3.VALUE = SAATLİKT
İSAATLİK3.WRİTE
İSAATLİKR3.WRİTE
İSAATLİKT3.WRİTE​
END IF


IF SARTDEGER = 4 THEN
İSAATLİK4.VALUE = SAATLİK
İSAATLİKR4.VALUE = SAATLİKR
İSAATLİKT4.VALUE = SAATLİKT
İSAATLİK4.WRİTE
İSAATLİKR4.WRİTE
İSAATLİKT4.WRİTE​
END IF


IF SARTDEGER = 5 THEN
İSAATLİK5.VALUE = SAATLİK
İSAATLİKR5.VALUE = SAATLİKR
İSAATLİKT5.VALUE = SAATLİKT
İSAATLİK5.WRİTE
İSAATLİKR5.WRİTE
İSAATLİKT5.WRİTE​
END IF


IF SARTDEGER = 6 THEN
İSAATLİK6.VALUE = SAATLİK
İSAATLİKR6.VALUE = SAATLİKR
İSAATLİKT6.VALUE = SAATLİKT
İSAATLİK6.WRİTE
İSAATLİKR6.WRİTE
İSAATLİKT6.WRİTE​
END IF


IF SARTDEGER = 7 THEN
İSAATLİK7.VALUE = SAATLİK
İSAATLİKR7.VALUE = SAATLİKR
İSAATLİKT7.VALUE = SAATLİKT
İSAATLİK7.WRİTE
İSAATLİKR7.WRİTE
İSAATLİKT7.WRİTE​
END IF


IF SARTDEGER = 8 THEN
İSAATLİK8.VALUE = SAATLİK
İSAATLİKR8.VALUE = SAATLİKR
İSAATLİKT8.VALUE = SAATLİKT
İSAATLİK8.WRİTE
İSAATLİKR8.WRİTE
İSAATLİKT8.WRİTE​
END IF


IF SARTDEGER = 9 THEN
İSAATLİK9.VALUE = SAATLİK
İSAATLİKR9.VALUE = SAATLİKR
İSAATLİKT9.VALUE = SAATLİKT
İSAATLİK9.WRİTE
İSAATLİKR9.WRİTE
İSAATLİKT9.WRİTE​
END IF


IF SARTDEGER = 10 THEN
İSAATLİK10.VALUE = SAATLİK
İSAATLİKR10.VALUE = SAATLİKR
İSAATLİKT10.VALUE = SAATLİKT
İSAATLİK10.WRİTE
İSAATLİKR10.WRİTE
İSAATLİKT10.WRİTE​
END IF


IF SARTDEGER = 11 THEN
İSAATLİK11.VALUE = SAATLİK
İSAATLİKR11.VALUE = SAATLİKR
İSAATLİKT11.VALUE = SAATLİKT
İSAATLİK11.WRİTE
İSAATLİKR11.WRİTE
İSAATLİKT11.WRİTE​
END IF

IF SARTDEGER = 12 THEN
İSAATLİK12.VALUE = SAATLİK
İSAATLİKR12.VALUE = SAATLİKR
İSAATLİKT12.VALUE = SAATLİKT
İSAATLİK12.WRİTE
İSAATLİKR12.WRİTE
İSAATLİKT12.WRİTE​
END IF

IF SARTDEGER = 13 THEN
İSAATLİK13.VALUE = SAATLİK
İSAATLİKR13.VALUE = SAATLİKR
İSAATLİKT13.VALUE = SAATLİKT
İSAATLİK13.WRİTE
İSAATLİKR13.WRİTE
İSAATLİKT13.WRİTE​
END IF

IF SARTDEGER = 14 THEN
İSAATLİK14.VALUE = SAATLİK
İSAATLİKR14.VALUE = SAATLİKR
İSAATLİKT14.VALUE = SAATLİKT
İSAATLİK14.WRİTE
İSAATLİKR14.WRİTE
İSAATLİKT14.WRİTE​
END IF

IF SARTDEGER = 15 THEN
İSAATLİK15.VALUE = SAATLİK
İSAATLİKR15.VALUE = SAATLİKR
İSAATLİKT15.VALUE = SAATLİKT
İSAATLİK15.WRİTE
İSAATLİKR15.WRİTE
İSAATLİKT15.WRİTE​
END IF

IF SARTDEGER = 16 THEN
İSAATLİK16.VALUE = SAATLİK
İSAATLİKR16.VALUE = SAATLİKR
İSAATLİKT16.VALUE = SAATLİKT
İSAATLİK16.WRİTE
İSAATLİKR16.WRİTE
İSAATLİKT16.WRİTE​
END IF

IF SARTDEGER = 17 THEN
İSAATLİK17.VALUE = SAATLİK
İSAATLİKR17.VALUE = SAATLİKR
İSAATLİKT17.VALUE = SAATLİKT
İSAATLİK17.WRİTE
İSAATLİKR17.WRİTE
İSAATLİKT17.WRİTE​
END IF

IF SARTDEGER = 18 THEN
İSAATLİK18.VALUE = SAATLİK
İSAATLİKR18.VALUE = SAATLİKR
İSAATLİKT18.VALUE = SAATLİKT
İSAATLİK18.WRİTE
İSAATLİKR18.WRİTE
İSAATLİKT18.WRİTE​
END IF

IF SARTDEGER = 19 THEN
İSAATLİK19.VALUE = SAATLİK
İSAATLİKR19.VALUE = SAATLİKR
İSAATLİKT19.VALUE = SAATLİKT
İSAATLİK19.WRİTE
İSAATLİKR19.WRİTE
İSAATLİKT19.WRİTE​
END IF

IF SARTDEGER = 20 THEN
İSAATLİK20.VALUE = SAATLİK
İSAATLİKR20.VALUE = SAATLİKR
İSAATLİKT20.VALUE = SAATLİKT
İSAATLİK20.WRİTE
İSAATLİKR20.WRİTE
İSAATLİKT20.WRİTE​
END IF

IF SARTDEGER = 21 THEN
İSAATLİK21.VALUE = SAATLİK
İSAATLİKR21.VALUE = SAATLİKR
İSAATLİKT21.VALUE = SAATLİKT
İSAATLİK21.WRİTE
İSAATLİKR21.WRİTE
İSAATLİKT21.WRİTE​
END IF

IF SARTDEGER = 22 THEN
İSAATLİK22.VALUE = SAATLİK
İSAATLİKR22.VALUE = SAATLİKR
İSAATLİKT22.VALUE = SAATLİKT
İSAATLİK22.WRİTE
İSAATLİKR22.WRİTE
İSAATLİKT22.WRİTE​
END IF

IF SARTDEGER = 23 THEN
İSAATLİK23.VALUE = SAATLİK
İSAATLİKR23.VALUE = SAATLİKR
İSAATLİKT23.VALUE = SAATLİKT
İSAATLİK23.WRİTE
İSAATLİKR23.WRİTE
İSAATLİKT23.WRİTE​
END IF

IF SARTDEGER = 24 THEN
İSAATLİK24.VALUE = SAATLİK
İSAATLİKR24.VALUE = SAATLİKR
İSAATLİKT24.VALUE = SAATLİKT
İSAATLİK24.WRİTE
İSAATLİKR24.WRİTE
İSAATLİKT24.WRİTE​
END IF
END Sub
 
Moderatör tarafında düzenlendi:
Wincc7.2 de global script direk yaz internal tag oluştur ve toplama işlemi tamamdır.

Dim objTag

Set objTag = HMIRuntime.Tags("SONUC")

objTag.Read

objTag.Value = HMIRuntime.Tags("TAG1").Read + HMIRuntime.Tags("TAG2").Read

objTag.Write
 
Şöyle olmalı :

Sub OnClick(ByVal Item)


deger1 = HMIRuntime.Tags("deger1")
deger2 = HMIRuntime.Tags("deger2")
sonuc = HMIRuntime.Tags("sonuc")

deger1.read
deger2.read
sonuc.read

sonuc.value = deger1.value + deger2.value
sonuc.write

End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.

Benzer Konular

Siemens Excel Veri Kaydetme
Cevaplar
8
Görüntüleme
4K
demura09
Wincc flexible 2008 SCRİPT OLUŞTURMA
Cevaplar
0
Görüntüleme
4K
EZDOL
WinCC 5.1 den 6.2'ye Yükseltme (Migration) İşlemi yardım?
Cevaplar
6
Görüntüleme
5K
upik
ebico
TP700 Comfort panel yazılımı
Cevaplar
2
Görüntüleme
1K
ebico
ebico
nonamez
Apple HomeKit Uyumlu Akıllı Ev Sistemi Kurulumu - (Projesi)
Cevaplar
7
Görüntüleme
8K
aksiyim

Yeni mesajlar

Forum istatistikleri

Konular
128,196
Mesajlar
915,755
Kullanıcılar
449,974
Son üye
umitseyhan

Yeni konular

Çevrimiçi üyeler

Toplam: 1,415 (Kullanıcı: 24, ziyaretçi: 1,391)
Geri
Üst