wincc to excel script ...

[timucincelik82]

Robosoft Kontrol ve Bilişim Hizmetleri Ltd. Şti. adresini bir inceleyiniz. Script yazmanıza gerek kalmadan excel raporlarınızı alabiliyorsunuz.

 

[Pokajy]

Programların demo veriyonları var mı? Varsa incelememiz için gönderebilir misiniz?

 

[ugur.demir1983]

Dim TORBASAYISI1
Set TORBASAYISI1 = HMIRuntime.Tags("TORBASAYISI1")
Dim URUNCINSI1
Set URUNCINSI1 = HMIRuntime.Tags("URUNCINSI1")
Dim ExcelNesne
Set ExcelNesne = CreateObject ("Excel.Application")
excelnesne.visible = True
ExcelNesne.Workbooks.Open ("c:\rapor2.xls")
X = 4
Do While ExcelNesne.Cells(X,1).VALUE=True
X = X + 1
Loop
ExcelNesne.Cells(X,1).value = Date
ExcelNesne.Cells(X,2).value = Time
ExcelNesne.Cells(X,3).value = "KANTAR1"
ExcelNesne.Cells(X,4).value = TORBASAYISI1.Read
ExcelNesne.Cells(X,5).value = URUNCINSI1.Read

ExcelNesne.ActiveWorkbook.Save
excelnesne.Workbooks.close
excelnesne.Quit


wincc de bulunan 3 adet tagı bir butana bastığımda EXCEL DEKİ ÖRNEĞİN A sutununda ilk boşolan satıra 3 adet tagı A ,B ,C SUTUNLARINA YAZMAK İSTİYORUM. Örnek bir script yazıp bana gönderebilirmisiniz...

burada buton tag i hangisi acaba

script i nereye yazacagız

 

[ugur.demir1983]

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

 

[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





End Sub

 

[gezer77]

bu sekılde yapmak yerıne r s vede t degerlerını sureklı olarak okumalısınız vede onu sql ıle dıyelımkı 5 sanıyede dosyaya kaydet demelı vede sonra gerektıgınde raporunu almalısınız boyle daha kolay olur

 

[ugur.demir1983]

arkadaşlar en sonunda wincc degerleri excel atabıldım.... ve bu uzun zamandır uğraştığım script yayınlamaya karar verdım. çünkü bana malesef bu konu hakkında bu forumda yardımcı olunmadı..........................


Sub OnClick(Byval Item)


Dim objExcelApp
Dim objWorkSheet
Dim objTag1
Dim objTag2
Dim objTag
Dim objTag3
Dim objTag4
Dim objTag5



Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "C:\Example"
set objWorkSheet = objExcelApp.Activeworkbook.Worksheets(1)


Set objTag = HMIRuntime.Tags("ianlik")
objTag.Read
objWorkSheet.Cells(2,2).Value = objTag.Value

Set objTag1 = HMIRuntime.Tags("ianlikr")
objTag1.Read
objWorkSheet.Cells(2,3).Value = objTag1.Value

Set objTag2 = HMIRuntime.Tags("ianlikt")
objTag2.Read
objWorkSheet.Cells(2,4).Value = objTag2.Value
Set objTag3 = HMIRuntime.Tags("isaatlik1")
objTag3.Read
objWorkSheet.Cells(2,5).Value = objTag3.Value

Set objTag4 = HMIRuntime.Tags("isaatlikr1")
objTag4.Read
objWorkSheet.Cells(2,6).Value = objTag4.Value

Set objTag5 = HMIRuntime.Tags("isaatlikt1")
objTag5.Read
objWorkSheet.Cells(2,7).Value = objTag5.Value


objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objTag = Nothing
Set objTag1 = Nothing
Set objTag2 = Nothing
Set objTag3 = Nothing
Set objTag4 = Nothing
Set objTag5 = Nothing
Set objWorkSheet= Nothing
Set objExcelApp = Nothing



on numara da çalışıyor.......................................................

 

[ugur.demir1983]

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace s7_300_haberleşme
{
public partial class MainForm1 : Form
{

public static libnodave.daveOSserialType fds;
public static libnodave.daveInterface di;
public static libnodave.daveConnection dc;
public static int rack = 0;
public static int slot = 2;
string ipadres = "10.0.0.209";

byte[] boy = new byte[256];
// int[] tag = new int[64];
double[] tag = new double[64];
int[] res = new int[16];
public MainForm1()
{
InitializeComponent();
}

private void MainForm1_Load(object sender, EventArgs e)
{
baglan();
}
private void baglan()
{


try // ip adresine 102. portan bağlantı kurulablir ise
{
fds.rfd = libnodave.openSocket(102, ipadres);
}
catch { Slbl1.Text = ipadres + " 'e ulaşılamadı"; }
fds.wfd = fds.rfd;
di = new libnodave.daveInterface(fds, "FD1", 0, libnodave.daveProtoISOTCP, libnodave.daveSpeed187k);
di.setTimeout(5000); //50 saniye
dc = new libnodave.daveConnection(di, 0, rack, slot);
try
{
if (fds.rfd > 0) //Eğer Bağlantı Başarılı ise
{
if (0 == dc.connectPLC())
{
Slbl1.Text = ipadres + " Ye Bağlı Durumdasınız";
//timer1.Enabled = true;
}
else
{
Slbl1.Text = "Bağlantı Başarısız";
}
}
else
{
Slbl1.Text = "Bağlantı Başarısız";
}
}
catch { Slbl1.Text = "Çok Acayip bir Hata Oluştu"; }
}
private void kopar()
{
if (fds.rfd > 0) //Eğer Bağlantı Başarılı ise
{
if (0 == dc.connectPLC())
{
try
{
libnodave.closePort(fds.wfd);
di.disconnectAdapter();
dc.disconnectPLC();
}
catch { }
Slbl1.Text = " Plc Bağlantınızı sonlandırdınız";
}

}
}

private void button1_Click(object sender, EventArgs e)
{
int daveReadBytes (daveConnection * dc, int alan, int DB, int start, int len, void * tampon);

//Parametreleri:

//dc: bir bağlantı temsil eden bir daveConnection yapısına bir işaretçi.
//alan : Bir PLC sabit bellek alanına bir belirtir.
//DB: Bir veri bloğu sayısıdır. Tek anlamlı alan daveDB eğer. 0 oterwise kullanın.
//start: blokta ilk byte adresi.
//len: bayt sayısı.
//tampon: Eğer sonuç çok kopyalanmasını istiyorsanız bazı bellek alanına bir gösterici.

}
}
}
okuma yazmanın nasıl olduğunu anlayamadım...