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