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
