FAWEBドットネット「OPCサーバ／VB6.0サンプル」

	サイトマップ　個人情報保護　 ENGLISH

JAPAN	ホーム｜製品情報｜サポート｜ナレッジベース｜ダウンロード｜ご購入｜会社情報｜お問合せ

現在のページ　：　HOME　>　製品情報　>　OPCサーバ > VB6.0サンプル

戻る

Visual Basic 6.0のOPCクライアントサンプル

OPCサーバを用いた最も簡単なサンプルプログラムを紹介します。さらに詳しい説明は、こちらもご参考にしてください。

ここで紹介するサンプルプロジェクトは、こちらからダウンロードできます。

【注意事項】
弊社は当サイトに公開しているサンプルコード及び各説明に関して如何なる動作保証及びサポートを行いません。ご使用される場合は、十分に機能検証されることを推奨します。

	サンプル画面
このサンプルでは、OPCサーバへの接続、自動読出、手動読出、手動書込の3つの機能を使用しています。

サンプルコード

Option Explicit

Public OpcServer As IOPCServerDisp 'OPC server object
Public OpcItemMgt As IOPCItemMgtDisp 'OPC group object
Public OpcItem As IOPCItemDisp 'OPC item object

Private Const ItemMax = 8
Private Const OPC_DS_CACHE = 1
Private Const OPC_DS_DEVICE = 2

Dim ClientHandles(ItemMax) As Long
Dim ServerHandles As Variant
Dim bConnect As Boolean 
Private Sub CONNECT_Click()
	On Error GoTo problem
	Dim i%
	If bConnect Then
		CONNECT.Caption = "Connect"
		Set OpcServer = Nothing
		Set OpcItemMgt = Nothing
		Set OpcItem = Nothing
		bConnect = False
		READ_Button.Enabled = False
		WRITE_Button.Enabled = False
		For i% = ItemName.lbound To ItemName.ubound
		  ItemName(i%).Enabled = True
		Next i%
		Exit Sub
	End If

' Create server object
	Set OpcServer = CreateObject(Form1.ServerName.Text)
	If TypeName(OpcServer) = TypeName(Nothing) Then Return 'no server

' Add a group
	Dim UpdateRate As Long
	Dim ServerHdl As Long
	UpdateRate = UpdateRateSet.Text ' Update Rate 1秒
	Set OpcItemMgt = OpcServer.AddGroup("Group One", True,
						  UpdateRate, 22, 1, 0, ServerHdl, UpdateRate)
	If TypeName(OpcItemMgt) = TypeName(Nothing) Then Return

' Add an item
	Dim ItemIDs(ItemMax) As String
	Dim AccessPaths(ItemMax) As String
	Dim Active(ItemMax) As Boolean
	Dim Errors As Variant
	Dim ItemObjects As Variant
	Dim DataType(ItemMax) As Variant

For i% = 0 To ItemMax - 1
		Active(i%) = True
		ClientHandles(i%) = 22 + i%
		AccessPaths(i%) = ""
		ItemIDs(i%) = Form1.ItemName(i%).Text
		DataType(i%) = 2
	Next i%
	OpcItemMgt.AddItems ItemMax, ItemIDs, Active,	
				ClientHandles, ServerHandles, Errors,	
				ItemObjects, AccessPaths, DataType

Set OpcItem = ItemObjects(0)
	bConnect = True
	CONNECT.Caption = "DisConnect"
	READ_Button.Enabled = True
	WRITE_Button.Enabled = True
	For i% = ItemName.lbound To ItemName.ubound
		ItemName(i%).Enabled = False
	Next i%
	Exit Sub

problem:
	MsgBox "Error connecting"
	For i% = 0 To ItemMax - 1
		Form1.Value(i%) = "Error"
	Next i%
End Sub

Private Sub Form_Load()
	Dim i%
	For i% = 0 To ItemMax - 1
		Form1.ItemName(i%).Text = "UC24.D" + Format$(i%)
	Next i%
End Sub

Private Sub READ_Button_Click()
	Dim ReadValue As Variant
	Dim pQuality As Variant
	Dim pTimestamp As Variant
	Dim Errors As Variant
	Dim i%
	Dim io As IOPCSyncIODisp

Set io = OpcItemMgt
	io.OPCRead OPC_DS_CACHE, ItemMax, ServerHandles,	
						ReadValue, pQuality, pTimestamp, Errors
	For i% = 0 To ItemMax - 1
		Form1.Value(i%) = ReadValue(i%)
		pTimestamp(i%) = DateAdd("h", 9, pTimestamp(i%))
		Form1.Time(i%) = pTimestamp(i%)
		Form1.Quality(i%) = pQuality(i%)
	Next i%
End Sub

Private Sub WRITE_Button_Click()
	Dim WriteValue(ItemMax) As Variant
	Dim io As IOPCSyncIODisp
	Dim Errors As Variant
	Dim i%

Set io = OpcItemMgt
	For i% = 0 To ItemMax - 1
		WriteValue(i%) = Form1.Value(i%)
	Next i%
	io.OPCWrite ItemMax, ServerHandles, WriteValue, Errors
End Sub

戻る	Copyright © 1998-2006 TAKEBISHI Corporation All rights reserved.

株式会社たけびし　〒615-8501 京都市右京区西京極豆田町29 [地図]　
TEL: 075-325-2171 FAX: 075-325-2273　fa-support@takebishi.co.jp