WinCC 7.0 Bölümü

wincc 7.0 da faceplate özelliği nedir ne işe yarar?
 
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.
Yazımızda endüstrinin can damarı sayılabilecek PLC’yi inceleyeceğiz.
arkadaşlar wincc 7.0 da printer arızasını algılamam gerekiyor. bunu nasıl yapabilirim.;
 
arkadaşlar, eğer plc ve scadayla uğraşıyorsanız xp profosyonelden şaşmayın derim...çünki bütün proğramları xp destekliyor..diğer vista ve windows 7 de problem yaşabilirsiniz..
 
arkadaslar aşağıdakı scrıpt neden çalışmıyor

Sub OnClick(ByVal Item)
Dim ANLIK,ANLIKR,ANLIKT
Dim SAATLIK,SAATLIKR,SAATLIKT
Dim GUNLUK,GUNLUKR,GUNLUKT
Dim IGUNLUK,IGUNLUKR,IGUNLUKT
Dim SARTDEGERI

Dim ISAATLIK1,ISAATLIKR1,ISAATLIKT1
Dim ISAATLIK2,ISAATLIKR2,ISAATLIKT2
Dim ISAATLIK3,ISAATLIKR3,ISAATLIKT3
Dim ISAATLIK4,ISAATLIKR4,ISAATLIKT4
Dim IANLIK,IANLIKT,IANLIKR
Dim TOPLA


Set ANLIK=HMIRuntime.Tags("ANLIK")
Set ANLIKR=HMIRuntime.Tags("ANLIKR")
Set ANLIKT=HMIRuntime.Tags("ANLIKT")
Set SAATLIK=HMIRuntime.Tags("SAATLIK")
Set SAATLIKR=HMIRuntime.Tags("SAATLIKR")
Set SAATLIKT=HMIRuntime.Tags("SAATLIKT")
Set GUNLUK=HMIRuntime.Tags("GUNLUK")
Set GUNLUKR=HMIRuntime.Tags("GUNLUKR")
Set GUNLUKT=HMIRuntime.Tags("GUNLUKT")
Set SARTDEGERI=HMIRuntime.Tags("SARTDEGERI").Read
Set TOPLA=HMIRuntime.Tags("TOPLA_1").Read


Set ISAATLIK1=HMIRuntime.Tags("ISAATLIK1")
Set ISAATLIK2=HMIRuntime.Tags("ISAATLIK2")
Set ISAATLIK3=HMIRuntime.Tags("ISAATLIK3")
Set ISAATLIK4=HMIRuntime.Tags("ISAATLIK4")


Set ISAATLIKR1=HMIRuntime.Tags("ISAATLIKR1")
Set ISAATLIKR2=HMIRuntime.Tags("ISAATLIKR2")
Set ISAATLIKR3=HMIRuntime.Tags("ISAATLIKR3")
Set ISAATLIKR4=HMIRuntime.Tags("ISAATLIKR4")

Set IANLIK=HMIRuntime.Tags("IANLIK")
Set IANLIKR=HMIRuntime.Tags("IANLIKR")
Set IANLIKT=HMIRuntime.Tags("IANLIKT")


Set IGUNLUK=HMIRuntime.Tags("IGUNLUK")
Set IGUNLUKR=HMIRuntime.Tags("IGUNLUKR")
Set IGUNLUKT=HMIRuntime.Tags("IGUNLUKT")






Set ISAATLIKT1=HMIRuntime.Tags("ISAATLIKT1")
Set ISAATLIKT2=HMIRuntime.Tags("ISAATLIKT2")
Set ISAATLIKT3=HMIRuntime.Tags("ISAATLIKT3")
Set ISAATLIKT4=HMIRuntime.Tags("ISAATLIKT4")






If TOPLA Then
IANLIK.VALUE = ANLIK.Read
IANLIKR.VALUE = ANLIKR.Read
IANLIKT.VALUE = ANLIKT.Read
IANLIK.WRITE
IANLIKR.WRITE
IANLIKT.WRITE
End If

If SARTDEGERI = 1 And TOPLA=1 Then
ISAATLIK1.VALUE = SAATLIK.Read
ISAATLIKR1.VALUE = SAATLIKR.Read
ISAATLIKT1.VALUE = SAATLIKT.Read
ISAATLIK1.WRITE
ISAATLIKR1.WRITE
ISAATLIKT1.WRITE
END IF

If SARTDEGERI = 2 And TOPLA=1 Then
ISAATLIK2.VALUE = SAATLIK.Read
ISAATLIKR2.VALUE = SAATLIKR.Read
ISAATLIKT2.VALUE = SAATLIKT.Read
ISAATLIK2.WRITE
ISAATLIKR2.WRITE
ISAATLIKT.WRITE
END IF

If SARTDEGERI = 3 And TOPLA=1 Then
ISAATLIK3.VALUE = SAATLIK.Read
ISAATLIKR3.VALUE = SAATLIKR.Read
ISAATLIKT3.VALUE = SAATLIKT.Read
ISAATLIK3.WRITE
ISAATLIKR3.WRITE
ISAATLIKT3.WRITE
END IF


If SARTDEGERI = 4 And TOPLA=1 Then
ISAATLIK4.VALUE = SAATLIK.Read
ISAATLIKR4.VALUE = SAATLIKR.Read
ISAATLIKT4.VALUE = SAATLIKT.Read
ISAATLIK4.WRITE
ISAATLIKR4.WRITE
ISAATLIKT4.WRITE
END IF

If SARTDEGERI = 24 And TOPLA=1 Then
IGUNLUK.VALUE = GUNLUK.Read
IGUNLUKR.VALUE = GUNLUKR.Read
IGUNLUKT.VALUE = GUNLUKT.Read
IGUNLUK.WRITE
IGUNLUKR.WRITE
IGUNLUKT.WRITE
END IF





End Sub
 
wincc 7 window 7 ye kurulur
 
herkes sadece soru sormus bırısde zahmet edıp cevap yazmıyor,paylaşımcılık ruhu bumudur arkadaslar?
 
S7200 Pc Access Üstünden Wincc Haberleştirme önce linkteki opc server pack yükleyin
sorun yasamadan wincc üstünden bağlanırsınız.
 

Yeni mesajlar

Forum istatistikleri

Konular
128,217
Mesajlar
915,877
Kullanıcılar
449,998
Son üye
Muharrem_Arslan

Yeni konular

Geri
Üst