Scada - Tag bağlantısı

VB Kodu:

'Bu script WinTr taglarına değer yazar

Imports System 'Gerekli classlar script'e dahil ediliyor.

Imports System.IO

Imports System.Windows.Forms

Imports Microsoft.VisualBasic

Namespace WinTr

Public Class MainClass

'WinTr taglarını okuyup yazacak değişkenler Public olarak tanımlanıyor.

Public Tag_1 as Int16

Public Tag_2 as Integer 'integer 32

Public Tag_3 as Int32

Public Tag_4 as Boolean

Public Tag_5 as Single 'Floatpoint

Public Tag_6 as String

Public Tag_7 as Datetime

Public Now as Datetime

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 -------

Tag_1 = 123 'Taglara değerler atanıyor.

Tag_2 = 123000

Tag_3 = 123000

Tag_4 = True

Tag_5 = 123.12

Tag_6 = "Fultek"

Tag_7 = Now

'------- Script End Line -------

End Sub

End Class

End Namespace

C# Kodu:

//Gerekli classlar script'e dahil ediliyor.

using System;

using System.IO;

using System.Windows.Forms;

using Microsoft.VisualBasic;

namespace WinTr

{

public class MainClass

{

//WinTr taglarını okuyup yazacak değişkenler Public olarak tanımlanıyor.

public UInt16 Tag_1;

//integer 32

public UInt32 Tag_2;

public UInt32 Tag_3;

public bool Tag_4;

//Floatpoint

public float Tag_5;

public string Tag_6;

public DateTime Tag_7;

public DateTime Now;

//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.

public void Load()

{

//------- Script Start Line -------

//Taglara değerler atanıyor.

Tag_1 = 123;

Tag_2 = 123000;

Tag_3 = 123000;

Tag_4 = true;

Tag_5 = 123.12F;

Tag_6 = "Fultek";

Tag_7 = Now;

//------- Script End Line -------

}