DS-8812/DS-8814(Bringo)のGP-IBの使用例
2002/3/8
岩崎通信機株式会社
計測技術部
１．はじめに
DS8812/8814をGP-IBを使用して制御する場合の方法について､コーディング例をもとに説明します｡
使用環境は、
・ＰＣ ：IBM PC/AT互換PC｡
・ＯＳ ：Windows95/98｡
・仕様言語 ：Microsoft社 VisualBasic(Ver4以上)｡
・GP-IBインタフェース
ナショナルインスツルメント社製GPIBカード､またはボード｡
コンテック社製GPIBカード（ドライバソフト：LabView対応 API-GPLV(W32)(Ver1.11〜)）｡
・ディジタルオシロスコープ
岩崎通信機社製 DS-8812(GP-IBオプション付き),DS-8814｡
なお、コーディング例はプログラムの一部分ですので、そのままでは動作しません。
ユーザのアプリケーションに組み込んでご使用下さい。
２．初期化
初期化は次のように行います。プログラムの最初に最低１回は行って下さい。
なお、PCのGP-IBインタフェースアドレスは０、DSO(ﾃﾞｨｼﾞﾀﾙ･ｵｼﾛｽｺｰﾌﾟ,以下同様)は１０とします｡
' インタフェースの初期設定を行います｡
' 第２パラメータ：DS8812アドレス 10｡
' 第４パラメータ：タイムアウトなし｡
' 第５パラメータ：書き込み時のEOIは付けない｡
' 第６パラメータ：８ビットコード｡読み取り時にデリミタ(LF)検出で終了する｡
' 第７パラメータ：デバイスディスクリプタ｡以後､GP-IBへのアクセスはこの変数で行う｡
Call ibdev(0,10,0,TNONE,0,&H140A,osc%)
' デバイスクリアを行います｡
Call ibclr(osc%)
' 初期状態では､割込みマスクレジスタSTB,ESR,TESRはすべて不可です｡
' ・波形書込みを*WAIで待つ場合で、エラーSRQも処理しなければ､設定は不要です｡
' 波形書込みSRQのみ抑えるには､"*SRE 254"を設定して下さい｡
' ・波形書込みとエラーをSRQで待つ場合は､以下のコーディングが必要です｡
Call ibwrt(osc%, "*SRE 255;*ESE 255;TESE 1" + Chr$(10))
３．設定と確認
DSOのパネルの設定と確認を行うには次のように行います
(1) 装置を識別します。
Call ibwrt(osc%, "*IDN?" + Chr$(10))
rbuf$ = space(31)
status% = ilrd(osc%, rbuf$, 31)
rbuf$=Left(rbuf$,ibcntl-1) ' 受信文字列(にデリミタを含む)のデリミタ以降をカットします
実行結果：rbuf$には DSOがDS-8812の場合､"IWATSU,DS-8812,+00013,<ｿﾌﾄﾊﾞｰｼﾞｮﾝ>"が、
DSOがDS-8814の場合､"IWATSU,DS-8814,+00013,<ｿﾌﾄﾊﾞｰｼﾞｮﾝ>"が、返却されます｡
(2) time/divを10μsに設定します｡
Call ibwrt(osc%, "TDIV 10us;TDIV?" + Chr$(10))
rbuf$ = " "
status% = ilrd(osc%, rbuf$, 15)
rbuf$=Left(rbuf$,ibcntl-1) ' 受信文字列(にデリミタを含む)のデリミタ以降をカットします
実行結果：rbuf$には"+10.0000E-06"が返却されます｡
(3) V軸CH1の設定をまとめて行います｡
Call ibwrt(osc%, "C1:TRA ON;CPL AC;BWL OFF;PROBE MANUAL,1;VDIV 2m" + Chr$(10))
４．波形の書込み／転送
DSOの波形の取込み／転送は次のように行います
(1)波形の書込み
ａ．SRQを使用する方法
この方法は､ナショナルインスツルメント社のサンプルでも使用されています｡
Call ibwrt(osc%, "*SRE 255") ' SRQ割込みをすべて可とします(重要)｡
Call ibwrt(osc%, "WSGL" + Chr$(10)) ' 波形書込みを要求します
Call ibwait(osc%, &H800) ' RQSを待ちます
Call ibrsp(osc%, spr%) ' ステータスバイトを読み取って確認します
If spr% And &H41 <> &H41 Then ' エラー?
Response = MsgBox("SRQが異常です", vbExclamation, "波形取込終了")
End If
＜データ転送などの処理＞
・・・・・・・・・・・・・
ｂ．*WAI コマンドを使用する方法
Call ibwrt(osc%, "*SRE 254") ' 波形書込完了SRQ割込みを不可とします(重要)｡
Call ibwrt(osc%, "WSGL" + Chr$(10)) ' 波形書込みを要求します｡
Call ibwrt(osc%, "*WAI" + Chr$(10)) ' 波形書込みが完了するまで､以下のコマンドを
' 受け付けません｡なお､*WAIの後に継続してコマ
' ンドを書かないで下さい｡
＜データ転送などの処理＞
・・・・・・・・・・・・・
(2)波形の書込み／転送
ａ．バイナリ転送
・データは直接にファイルに格納します
・波形の書込みは､SRQを使用して行います｡
(a) YT波形の場合
Call ibwrt(osc%, "*SRE 255") ' SRQ割込みをすべて可とします
Call ibwrt(osc%, "DTFORM BYTE" + Chr$(10)) ' 転送データの形式はBYTEです
Call ibwrt(osc%, "DTSTART 120" + Chr$(10)) ' データ転送開始アドレス(DS-8812の場合)
Call ibwrt(osc%, "DTPOINTS 5000" + Chr$(10)) ' 転送データ数(メモリ長：SHORTの場合,DS-8812の場合)
Call ibwrt(osc%, "WSGL" + Chr$(10)) ' 波形を書込みを要求します
Call ibwait(osc%, &H800) ' RQSを待ちます
Call ibrsp(osc%, spr%) ' ステータスバイトを読み取って確認します
If spr% And &H41 <> &H41 Then ' エラー?
Response = MsgBox("SRQが異常です", vbExclamation, "波形取込終了")
End If
' CH1波形データの転送を行います
Call ibeos(osc%, &H1000) ' 扱うデータがバイナリデータなので
' 入力をEOSで終了させないようにします(重要)
Call ibwrt(osc%, "WAVESRC CH1" + Chr$(10)) ' ターゲットCHを指定します
Call ibwrt(osc%, "DTWAVE?" + Chr$(10)) ' 波形の転送を要求します
rbuf$ = " "
status% = ilrd(osc%, rbuf$, 10) ' データのプリアンブル(転送データ数)を読取る
' この場合､rbuf$は"#800005000"が返却されます
Call ibrdf(osc%, "ch1data.bin") ' データを転送して、PCのカレントディレクトリ
' のch1data.binに転送します｡
＜＜ファイルからデータを読み込むには次のようにして下さい＞＞
Dim datab(5000) As Byte
Open "ch1data.bin" For Binary As #1
fs = LOF(1)
Data = String$(LOF(1), 0)
Get #1, , datab BYTE型の変数に読み込むことが重要です
Close #1
Call ibeos(osc%, &H140A) ' 入力をEOSで終了させる(ASCII)モードに戻して
' おきます
＜＜波形の描画は次のように行って下さい＞＞
s = datab(0) ' 1点目の処理
If s > 127 Then s = s - 256
For count = 0 To maxcount - 2 Step 1
e = datab(count + 1)
If e > 127 Then e = e - 256
ピクチャボックスformwave.線を１本引きます
formwave.PictureWave.Line (count, s)-(count + 1, e)
s = e
Next
(b) FFT波形の場合(FFTオプション有りの場合)
Call ibwrt(osc%, "DTFORM WORD" + Chr$(10))
Call ibwrt(osc%, "DTBORD L/H" + Chr$(10))
Call ibwrt(osc%, "DTSTART 0" + Chr$(10))
Call ibwrt(osc%, "DTPOINTS 500" + Chr$(10))
Call ibwrt(osc%, "DTSTEP 1" + Chr$(10))
Call ibwrt(osc%, "DTWAVE?" + Chr$(10))
rbuf$ = " "
Status% = ilrd(osc%, rbuf$, 10) ' rbuf$:データのプリアンブル
Call ibrdf(osc%, "FFTL_H.bin")
'＜＜ファイルからデータを読み込むには次のようにして下さい＞＞
Open filename For Binary As #1
fs = LOF(1)
Data = String$(LOF(1), 0)
Get #1, , dataw
Close #1
' ＜＜波形の描画は次のように行って下さい＞＞
s = dataw(0)
For count = 0 To maxcount - 2 Step 1
c1 = (count + 1) * 2
e = dataw(count + 1)
formwave.Picturewave.Line (count, s)-(count + 1, e)
s = e
Next
ｂ．ASCII転送
(a) DS-8814の場合
' ch1波形の転送
Call ibwrt(osc%, "DTFORM ASCII" + Chr$(10))
Call ibwrt(osc%, "DTSTEP 1" + Chr$(10))
Call ibwrt(osc%, "DTSTART 24" + Chr$(10)) ' データ転送開始アドレス
Call ibwrt(osc%, "DTPOINTS 1000" + Chr$(10)) ' 転送データ数(メモリ長：SHORTの場合)
Call ibwrt(osc%, "WAVESRC CH1" + Chr$(10))
Call ibwrt(osc%, "DTWAVE?" + Chr$(10)) ' 全データの転送要求
Call ibrdf(osc%, "ch1data.txt") ' データを転送して、テキストイメージでファイルに格納する
＜＜出力ファイルの内容＞＞
<d1>,<d2>,･･････････････,<d1024><ﾃﾞﾘﾐﾀ>
＜＜ch1波形の表示＞＞
Open filename For Input As #1
rbuf$ = " "
Input #1, rbuf$
s = Val(rbuf$)
count = 0
For count = 0 To maxcount - 2 ' ファイルの終端までループを繰り返します。
rbuf$ = " "
Input #1, rbuf$
e = Val(rbuf$)
formwave.Picturewave.Line (count, s)-(count + 1, e)
s = e
Next count
Close #1
(b) DS-8812の場合
' ch1波形の転送
Call ibwrt(osc%, "DTFORM ASCII" + Chr$(10))
Call ibwrt(osc%, "DTSTEP 1" + Chr$(10)) ' 装備されてないバージョンがあります(取説参照)
' 以下、"DTSTART"の値を+35しながら、繰り返して下さい。
Call ibwrt(osc%, "DTSTART 120" + Chr$(10)) ' データ転送開始アドレス
Call ibwrt(osc%, "DTPOINTS 35" + Chr$(10)) ' 転送データ数(１回の転送データの最大数：３５なので)
Call ibwrt(osc%, "WAVESRC CH1" + Chr$(10))
Call ibwrt(osc%, "DTWAVE?" + Chr$(10)) ' 全データの転送要求
Call ibrdf(osc%, "ch1data.txt") ' データを転送して、テキストイメージでファイルに格納する
＜＜出力ファイルの内容＞＞
<d1>,<d2>,･･････････････,<d35><ﾃﾞﾘﾐﾀ>
＜＜ch1波形の表示＞＞
(a)に同じ。
５．画面の転送
画面をBMP形式で転送する方法を説明します｡
Call ibeos(osc%, &H1000) ' 入力をEOSで終了させないようにします
Call ibwrt(osc%, "TSCRN? BMP" + Chr$(10))
rbuf$ = " "
status% = ilrd(osc%, rbuf$, 10) ' データ数を読み出します(#80009662)
Call ibrdf(osc%, "screen.bmp") ' 画面データをEOIまで読み取ってファイルに格納する
Call ibeos(osc%, &H140A) ' 入力をEOSで終了させる(ASCIIモード)
６．自動測定
自動測定をする方法について説明します｡
Call ibwrt(osc%, "*SRE 255") ' SRQ割込みをすべて可とします
Call ibwrt(osc%, "DIRM A;MSEL CH1,TR" + Chr$(10)) ' 自動測定項目ＡをCH1､TRに設定します
Call ibwrt(osc%, "WSGL" + Chr$(10)) ' 波形を書込みを要求します
Call ibwait(osc%, &H800) ' RQSを待ちます
Call ibrsp(osc%, spr%) ' ステータスバイトを読み取って確認します
If spr% And &H41 <> &H41 Then ' エラー?
Response = MsgBox("SRQが異常です", vbExclamation, "波形取込終了")
End If
Call ibwrt(osc%, "MSRA?" + Chr$(10)) ' 自動測定項目Ａの値を読み込みます
rbuf$ = " "
Call ibrd(osc%, rbuf$) ' rbuf$にCH1,TRの測定結果が返却されます
rbuf$=Left(rbuf$,ibcntl-1) ' 受信文字列のデリミタ以降をカットします
７．セットアップの読取り／書込み
セットアップの読取り／書込みの方法について説明します｡
セットアップデータの形式は、BYTEのみです｡
(1)セットアップの読取り
Call ibeos(osc%, &H1000) ' 入力をEOSで終了させません
Call ibwrt(osc%, "WAVESRC CH1" + Chr$(10))
Call ibwrt(osc%, "DTSTUP?" + Chr$(10)) ' データの読取り要求を出します｡
Ch1SetupSize$ = " "
status% = ilrd(osc%, Ch1SetupSize$, 10) ' rbuf$:データのプリアンブル
Call ibrdf(osc%, "ch1setup.bin") ' ファイル＜ch1setup.bin＞にセットアップを
' 読み込みます
Call ibeos(osc%, &H140A) ' 入力をEOSで終了させるモードに戻します
(2)セットアップの書込み
Call ibeos(osc%, &H1000) ' 入力をEOSで終了させません
Call ibwrt(osc%, "WAVESRC CH1" + Chr$(10))
Call ibwrt(osc%, "DTSTUP" + Chr$(10)) ' データの書込み要求を出します
status% = ilwrt(osc%, Ch1SetupSize$, 10)' データのプリアンブル
Call ibwrtf(osc%, "ch1setup.bin") ' ファイル＜ch1setup.bin＞からセットアップを
' DS8812に書込みます
Call ibeos(osc%, &H140A) ' 入力をEOSで終了させるモードに戻す
８．コンテック社LabView対応GPIBドライバ(API-GPLV(W32))をご使用の場合の注意
(1) ヘッダーファイルは対応のファイルにお取り替え下さい。
コマンドのニーモニックは全く同様です。
(2) あらかじめ、付属のコンフィギュレーション・ユーティリティ(Nconfig.exe)を使用して、
次の設定をして下さい。
ａ．<IEEE488.2><advanced>で<automatic serial polling>のレを外して下さい(disableにする)。
ｂ．<IEEE488.2><Temination Methods>で
<Teminate Read On EOS>のレを外して、<EOS Byte>を0にして下さい。
これを行わないと、？応答の受信ASCII文字列にデリミタを含みません。
NI社の場合、受信ASCII文字列個数はデリミタを含んだ桁数が返ってきます。
以上