ＧＰ−ＩＢ 2008.10.12
最近、ヤフオクに安価なＧＰ−ＩＢカードがかなりたくさん出品されています。
以前から「ＴＲ４１７２」の画面取り込みが出来ないかなと思っていました。思い切って１つ落札してみました。
|
|
今回入手したカードです。 メーカーは「ＣＯＮＴＥＣ」製です。 ドライバもＣＤ−ＲＯＭで付いてきたので取り付けインストールは すんなりと出来ました。 |
これをどうやって使うかということですが、フリーのソフトでＥａｓｙＧＰＩＢというものがあります。
http://www.activecell.jp/index.htm
このソフトをダウンロードしてきて使っています。
当方の環境は
パソコン Ｄｅｌｌ ＰＲＥＣＩＳＩＯＮ３４０ Ｐｅｎ４ ２．２ＧＨｚ
ＯＳ ＷＩＮ２０００ ＳＰ４
Ｏｆｆｉｃｅ２０００
といった環境です。
Ｏｆｆｉｃｅ２０００の中のＥｘｃｅｌ２０００のマクロ機能を使って制御しています。
ＴＲ４１７２をＧＰ−ＩＢ制御するにはまず、背面にあるアドレス（ＧＰ−ＩＢ用）設定ＤｉｐＳＷを使ってアドレスを設定します。（１に設定しました）
このアドレス設定用のＤｉｐＳＷですが、ＤｉｐＳＷそのものの番号とアドレス設定用の番号は違っています。最初はこれに気がつかずずいぶんと悩みました。
取説のＧＰ−ＩＢの項目を読んで理解しようとしましたが最初はちんぷんかんぷんでした。
しかし、幾度となく読み返しているうちに少しずつ判るようになってきました。（年のせいで新しいことはなかなかすぐには理解できません。Ｈｉ）
いきなりですが、作ったマクロです。
当方のＴＲ４１７２はＯＰのプロッタ出力がないので画面のハードコピー的な取り込みは出来ません。
そこでトレースデータ（１００１ポイント）を読み出してエクセルのグラフを使って表示させます。
このマクロは、画面のトレースデータを読み出しエクセルのＡ１セルからＡ１００１セルまで入力するものです。
Sub
getgpib()
eg.CardOpen ‘カードＯＰＥＮ
eg.ActiveAddress
= 1 ‘ＴＲ４１７２のアドレス＝１
eg.Delimiter
= eg.DELIMs.Eoi ‘デリミタはＥＯＩ
Dim i As
Integer
eg.AsciiLine
= "RDC0180040" ‘ＲＤ＝任意のメモリ・データを出力させる。 ＡメモリのトレースデータはＣ０１８から始まる。 ００４０は定数
Range("A1").Activate
eg.AsciiLine
= "TO" ‘ＴＯ＝トレース・メモリのデータを１０進数で出力させる。
For i = 0 To
1001 ‘１００１ポイントのトレースデータをＡ１セルから順次入力する。
ActiveCell.Value =
eg.AsciiLine
ActiveCell.Offset(1,
0).Activate
Next i
eg.CardCLose カードクローズ
End Sub
このマクロを実行すると、エクセルの指定セルにデータが収納されます。この数値データをエクセルのグラフ機能を使って表示させます。
|
|
マーカー信号（５０ＭＨｚ −２０ｄｂｍ）を 中心周波数 ５０ＭＨｚ ＳＰＡＮ １００ＫＨｚ レファレンスレベル −１０ｄｂｍ ＲＢＷ ３ＫＨｚ で表示させたものを取り込んだものです。 |
|
|
実際の画像です。 ＧＰ−ＩＢで取り込むのには結構時間がかかります。 その後、グラフ表示するための操作などがあるのでデジカメで 撮影して使うのとどっちがいいのかは好みの問題のような感じ です。 |
アドバンテスト社のＨＰに、Ｒ３２６７（３２６４、３２７３、Ｕ３７００シリーズ用）で使用出来る位相雑音測定用のアプリケーションがあります。
このアプリケーションを利用して位相雑音測定が出来る環境を作ろうと思いました。
このアプリケーションは、ＧＰ−ＩＢカードにＮＩ社製のものが必須になります。そこでこのＮＩ社製のＧＰ−ＩＢカードを入手してみました。
|
|
最初は無謀にも「ＣＯＮＴＥＣ」製のカードでやってみましたが 当然のごとくダメでした。（自己責任です。） 今回入手した、ＮＩ社製のＧＰ−ＩＢカードです。 |
|
|
ＤＬしてきたアプリケーションの初期画面です。 ＧＰ−ＩＢアドレスを設定して、測定する信号の周波数を設定 して「ＰｈａｓｅＮｏｉｓｅ Ｍｅasurment」ボタンを押すと測定出来る はずです。 しかし、ボタンを押すと 非表示モジュール「ＣｏｍＬｉｂ内でコンパイルエラーが発生 しました」 とのメッセージが出てＳＴＯＰします。 そこで、アドバンテストのサポートセンターに問い合わせてみた ところ 「このアプリケーションは無償で提供させていただいているもの なので個々の不具合はサポート出来ません」 しかし 「最新のアプリケーションを送りますので、こちらで試してみて ください」 とのことです。 |
|
|
最新版の初期画面です。 変っているところは、右上の「Ｉｎｔｅｒｆａｃｅ」の項目が増えています。 |
|
|
早速、３０ＭＨｚのＣＡＬ信号を測定してみたところ 見事に測定できました。 １ＫＨｚ Ｏｆｆｓｅｔ −１０８ｄｂｃ/Ｈｚ １０ＫＨｚ −１１９ｄｂｃ/Ｈｚ ２０ＫＨｚ −１１９ｄｂｃ/Ｈｚ ５０ＫＨｚ −１１７ｄｂｃ/Ｈｚ １００ＫＨｚ −１２２ｄｂｃ/Ｈｚ 元は水晶発振でしょうから、当然いい値です。 |
そこで、手持ちの発信機の位相ノイズを片っ端から測ってみました。
すべて３０Ｍｈｚの信号です。
|
|
|
|
|
Ｒ３２６７ ＣＡＬ |
ＨＰ８６５７Ｂ |
ＶＰ８１７９Ｂ１０ |
|
|
|
|
|
ＡＤ９９５２（ＲＦＴＴＧ） |
ＡＤ９８５１（６０ＭＨｚＳＧ） |
|
こらからみると、ＡＤ９９５２がさすがに良いようです。ＡＤ９８５１はクロックを３０ＭＨｚの６倍を使っているのでその影響だろうと思います。
しかし、最新のものにはＣＯＭ１なる項目があるのでマニュアルを読んでみると「ＲＳ２３２Ｃにも対応しました」と書いてあります。
え！ うっそ〜。
それだったら、ＮＩ社製のＧＰ−ＩＢカードは別にいらなかった・・・・・・・
まあ、しかたないです。
こういうアプリケーションを無償で提供してくれるアドバンテストに感謝です。
おまけ
Ｕ３７００シリーズ用にはスペアナの測定画面をＰＣに取り込めるアプリケーションもあります。
これは、Ｒ３２６７に対応するとは書いてないのですがダメモトで試してみましたが、コネクト自体は出来ましたが取り込みは出来ませんでした。
（すべて自己責任です。）
この度、ＥａｓｙＧＰＩＢを、再び使ってＳＳＧと電源（ＨＰ８６４２Ａ・ＨＰ８６５７Ｂ・ＨＰ６６３２Ａ・ＨＰ６６３３Ａ）の４台をリモートコントロールすることにしました。
これは、作業机の上が手狭になってきて作業効率が悪くなってきたためです。
そこで上記４台を作業机の下に移動してＰＣから操作することにして、作業スペースを拡大しようというもくろみです。
|
|
作業机の下に移動したところです。 |
リモートコントロールのアプリは、ＥＸＣＥＬ付属のＶＢＡとＥａｓｙＧＰＩＢを使って作りました。
|
|
ＨＰ８６５７Ｂ用の制御画面です。 必要最小限の機能に絞っています。（以後同） 使い方は、ＧＰ−ＩＢアドレスを設定して初期設定ボタンをクリックすることによって 開始となり、周波数・出力レベル・変調（ＡＭ・ＦＭ）を設定することが出来ます。 |
|
|
ＨＰ８６４２Ａ用 基本機能は８６５７Ｂと一緒で、周波数と出力レベルのＳＷＥＥＰ機能が追加になっています。 |
|
|
電源 ＨＰ６６３２Ａ・６６３３Ａ用 設定出来る項目は、電圧と電流です。 出力電圧と電流は、リアルタイムで表示するようにしてあります。 |
|
|
ＳＧ２台と、電源２台の出力は、Ｒ３２６７の下のスペースにパネルを設置しました。 出力電圧と電流をＰＣ上で確認するのは、ＰＣが正面に無いので面倒くさくなり 目の前で確認出来るようにＡＶＲを使って電圧と電流を表示するようにしました。 電流の検出方法には、ハイサイドとローサイドがあるのですが今回は簡単なローサイドで 検出するようにしてあります。 |
|
|
ついでに、ＨＰ５３８４Ａ周波数カウンターの出力をロガーしてグラフ表示するものも作ってみました。 図のグラフは、Ｔｒｉｍｂｌｅ Ｔｈｕｎｄｅｒｂｏｌｔの出力をルビジュウムＬＰＲＯ−１０１を基準入力した ＨＰ５３８４Ａで計測しその出力をＧＰ−ＩＢ経由で取り込みぐらふ化したものです。 横の題目がＳになっていますがゲートを１０Ｓにしているので１０倍した秒になります。 １ｍＨふらついていますが、Ｔｈｕｎｄｅｒｂｏｌｔが悪いのか、ＬＰＲＯ−１０１の原因なのかはたまた 測定誤差なのか真相は藪の中です。 |
作業スペースを少し広げることが出来ました。