チュートリアル　＞　Visual Basic 2008

Visual Basic 2008

VISAを使用してGPIB、RS232C、USB経由でPIA4800シリーズと通信します。

プロジェクトの設定

最初にプロジェクトに通信用ドライバ（VISAライブラリ）の設定をします。

[プロジェクト] > [参照設定]を選択してVISA COM3.0 Type Libraryを参照します。

GPIB、RS232C、USBで通信する

通信用ドライバの設定が終わると、GPIB、RS232C、USBで通信ができます。

VISAを経由しての通信手順を説明します。

VISAのオープン

VISAを経由してGPIB、RS232C、USB機器と通信するには、まずVISAをオープンします。VISAをオープンするときに、I/Oリソースを指定します。

例：USBを使用する場合のVISAのオープン

Set rm = CreateObject("VISA.GlobalRM")

Set msg = rm.Open("USB::0x0B3E::0x1014::00000001::INSTR", NO_LOCK, 0, "")

"USB::0x0B3E::0x1014::00000001::INSTR"がI/Oリソースです。

I/Oリソースは以下の構文になっています。[ ]で囲まれた部分は省略可能です。斜体で書かれている部分に適切な値を入れます。

VISAでは、I/Oリソースにエイリアスを使用できます。

I/Oリソースにエイリアスを使用すると、アプリケーション内に直接エイリアス名をハードコーディングしても実行時に適切なI/Oリソース名に簡単に変換できます。

例：I/Oリソースにエイリアス（MYPIA）を使用した場合

Set msg = rm.Open("MYPIA", NO_LOCK, 0, "")

エイリアスを使用した場合には、実際のI/Oリソースは外部コンフィグレーション・テーブル等で指定します。

USBを使用する場合（KI-VISAの例）

KI-VISA以外のVISAを使用している場合には、ご使用のVISAマニュアルを参照してください。

機器の制御

次に、Read、Writeなどを使用して機器を制御します。

例：

msg.WriteString ("NODE 5")         'ノードアドレス5を指定
msg.WriteString ("CH 1")             'チャンネル1を指定 
msg.WriteString ("VSET 10.0")     '電圧値を10.0 Vに設定
msg.WriteString ("ISET 1.0")        '電流値を1.0 Aに設定 
msg.WriteString ("OUT 1")           '出力オン

VISAのクローズ

最後にVISAをクローズします。

VISAのオープン、クローズは一連の処理の中で1回実行すれば大丈夫です。

msg.Close

サンプルプログラム

Imports Ivi.Visa.Interop

Public Class Form1

   Dim rm As ResourceManager

   Dim msg As IMessage

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

      'ノードアドレスは5に設定されているものとします。

      msg.WriteString ("NODE 5")                          'ノードアドレスを指定

      msg.WriteString("CH 1")                             'CH1を指定

     'msg.WriteString("REM 1")                            'OP01-PIAの場合

      msg.WriteString ("VSET 10.0")                       '10Vを設定

      msg.WriteString ("ISET 1.0")                        '1Aを設定

      msg.WriteString ("OUT 1")                           '出力オン

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      msg.WriteString ("NODE 5")                             'ノードアドレスを指定

      msg.WriteString("CH 1")                                'CH1を指定

      msg.WriteString ("VSET 5")                             '5Vを設定

      msg.WriteString ("VOUT?")                              '出力電圧値の問い合わせ

      TextBox1.Text = msg.ReadString(256)

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

                                                             'VISAのオープン 

      rm = CreateObject("VISA.GlobalRM")

      'msg = rm.Open("GPIB0::1::INSTR", NO_LOCK, 0, "")      'GPIBの書き方例

      'msg = rm.Open("MYDEV1", AccessMode.NO_LOCK, 0, "")    'VISAエイリアスを使用した例

      msg = rm.Open("USB0::0x0B3E::0x1014::00000001::INSTR", AccessMode.NO_LOCK, 0, "")

   End Sub

   Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed

                                                             'VISAのクローズ

      msg.Close()

   End Sub

END CLASS