Örnek Script: Görsel Arayüz Oluşturmak
'Bu script Tag değerini görsel bir form arayüzü kullanarak değiştirir.
Imports System 'Gerekli classlar script e dahil ediliyor.
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Namespace WinTr
Public Class MainClass
'Buton tanımlaması. Buton, click olayı ile
'kullanılacağı için Withevents kelimesi ile tanımlanıyor
Private Withevents btn as New Button
Private Textbox1 as new Textbox 'Textbox tanımlaması
Public Tag_1 as Uint16 'Erişilecek olan WinTr tag ı
'aynı isimde ve tipte Public olarak tanımlanıyor.
Public Sub Load
'------- Script Start Line -------
Dim frm as new form 'Arayüzü meydana getirecek form tanımlanıyor.
textbox1.top=70 'textbox'ın yeri belirleniyor.
textbox1.left=100
btn.top= 100 'butonun yeri belirleniyor
btn.left=100
btn.text="Ok" 'butonun üzerindeki yazı belirleniyor
frm.controls.add(btn) 'buton form üzerine ekleniyor
frm.controls.add(textbox1) 'textbox form üzerine ekleniyor.
frm.showdialog 'form gösteriliyor
'------- Script End Line -------
End Sub
'butonun click handler ı tanımlanıyor
Sub btnhandler(sender as object,e as system.eventargs) handles btn.click
Tag_1=val(textbox1.text) 'Tag a textbox içeriğinin sayısal değeri atanıyor.
End sub
End Class
End Namespace
