2080 Serial->GPIB コンバータ

概要

「2080 シリアル->GPIB コンバータ」は、EIA-232 経由で GP-IB を制御するためのコンパクトなプロトコル変換器で、シリアル・ポートさえあれば、どんなコンピュータでも使えますし、電源も不要ですから、とても便利ですが、次の制約もあります。

  1. システム・コントローラとしてしか使えない。
  2. デリミタなしのデータを扱えない。(EOI があればよい)
  3. バイナリ・データを扱えない。
  4. ２次アドレスを扱えない。

プログラミング

すべての制御は、テキスト・データのコマンドで行いますから、ユーザが制御プログラムを書くのも簡単ですが、付属の Windows 95 の VxD や Unix のハンドラを使うと、アプリケーション・プログラムは、極めて簡単になります。

例えば、「HP 3478A デジタル・マルチメータ」から直流電圧の測定値を読みだすＣのプログラムを例示すると、次のようになります。

#include <stdio.h>

char buf[BUFSIZ];

main()
{
  gbopn();
  gbcmod(3);
  gbwrt(23, "F1N5T1M00", 0, 2);
  for(;;) {
  	gbred(23, buf, BUFSIZ, 2);
  	printf("%s\n", buf);
  }
}

Visual Basic 4.0 の場合は、次のとおりです。

Private Declare Function gbopn Lib "gblib" (ByVal nPort As Long, ByVal nSpeed As Long) As Long
Private Declare Function gbcmod Lib "gblib" (ByVal nMode As Long) As Long
Private Declare Function gbred Lib "gblib" (ByVal nAdr As Long, ByVal lpBuf As String, ByVal nLen As Long, ByVal nDlm As Long) As Long
Private Declare Function gbwrt Lib "gblib" (ByVal nAdr As Long, ByVal lpBuf As String, ByVal nLen As Long, ByVal nDlm As Long) As Long
Private Declare Function gbcls Lib "gblib" () As Long

Private Sub Form_Click()

Dim buf As String

Call gbopn(0&, 9600&)
Call gbcmod(3&)
Call gbwrt(23&, "F1N5T1M00", 0&, 2&)
For i = 0 To 10 Step 1
    buf = String$(32, 32)
    n = gbred(23&, buf, 32&, 2&)
    Print Left(buf, n)
Next i

Call gbcls

End Sub

概略仕様

シリアル．ポートの伝送速度: 300, 1200, 2400, 4800, 9600, 19200 bps
シリアル．ポートの伝送コード: 8-bit ASCII, no parity, one or two stop bit
シリアル・ポートのコネクタ: D-sub 25 P male
GP-IB の機能: C1, C2, C3, C4, C28
GP-IB の伝送速度: シリアル．ポートの伝送速度 / 10
電源: シリアル．ポートの DTR と RTS を使用 (12 V 以上必要)
動作環境: 0 - 50C, 90 %RH 以下
寸法: 57mm x 95mm x 27mm