wincc 6.2 de vba hakkında genel bir soru

[aseker]

wincc de sorunsuz bir şekilde vbs kullanabiliyorum, daha önceleri vb 6.0 ve vb.net kullandığım için programlama konusunda sorunum yok ama wincc de vba yı nasıl kullanacağımı çözemedim çok kısıtlı sürem olduğundan derinlemesine bir araştırma da yapamadım.
sorum şu;
vba da yazacağım bir kodu bir butonun click olayına nasıl bağlarım ya da bir tagin değişimine nasıl bağlarım?

 

[ugur.demir1983]

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

 

[ugur.demir1983]

Sub procedure2
Dim b0
Dim a0
Dim tp
Dim sart0
Set sart0 = HMIRuntime.Tags("sart").Read
Set tp = HMIRuntime.Tags("tp")

Set a0 = HMIRuntime.Tags("a")

Set b0 = HMIRuntime.Tags("b")


If tp = 1 And sart0 =2 Then
a0.Value = b0.Read
a0.Write
End if
End Sub