'Bu script bir Excel dosyası oluşturur ve for
'döngüsünü kullanarak ardışık satırlara veri yazar.
Imports System 'Gerekli Classlar scripte dahil ediliyor.
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Namespace WinTr
Public Class MainClass
Public Sub Load 'Load prosedürü tanımlanıyor. Script çalışmaya
'bu prosedürden başlar. WinTr Scada Tagları ile
'iletişim bu prosedür aracılığıyla olur.
'Bu prosedürün sonuna ulaşıldığında script çalışmaya
'devam etse bile script'in WinTr
'Tagları ile olan ilişkisi kesilir.
'------- Script Start Line -------
'Excel uygulama nesnesi tanımlanıyor.
Dim Ex As Microsoft.Office.Interop.Excel.Application
Dim i As Integer
'tanımlanan nesnede yeni bir Excel uygulama nesnesi oluşturuluyor.
Ex = New Microsoft.Office.Interop.Excel.Application
Ex.Workbooks.Add() 'Excel workbook oluşturuluyor.
Ex.Worksheets(1).cells(1, 1).value = "Sıra No" 'Excel hücrelerine yazılıyor.
Ex.Worksheets(1).cells(1, 2).value = "Tarih Saat"
Ex.Worksheets(1).cells(1, 3).value = "Seviye"
' 0 dan 10 a kadar çalışacak bir "for" döngüsü oluşturuluyor.
For i = 0 To 10
'Excel sayfasının ardışık satırlarına i değişkeninin içerdiği değer yazılıyor.
Ex.Worksheets(1).cells(i + 2, 1).value = i
Ex.Worksheets(1).cells(i + 2, 2).value = i+1
Ex.Worksheets(1).cells(i + 2, 3).value = i+2
Next
Ex.Visible = True
'------- Script End Line -------
End Sub
End Class
End Namespace
