VBA(Office 2003) サンプルプログラム
設定と問い合わせのサンプルプログラム(USB)
'VISAのResourceManagerオブジェクトを作成
Dim rm As New VisaComLib.ResourceManager
Dim accessMode As VisaComLib.accessMode
Dim serial As String
Dim timeOut As Integer
Dim optionString As String
Dim msg As VisaComLib.IMessage
accessMode = VisaComLib.accessMode.NO_LOCK
'ファンクションジェネレータの製造番号
serial = "0123456"
timeOut = 0
optionString = ""
'デバイスと接続(USB)
'WF1973の場合 "USB0::0x0D4A::0x000D::" としてください
'WF1974の場合 "USB0::0x0D4A::0x000E::" としてください
Set msg = rm.Open("USB0::0x0D4A::0x000D::" & serial & "::INSTR", _
accessMode, _
timeOut, _
optionString)
'周波数を5.0kHzに設定し、その値を問い合わせる
msg.WriteString(":SOUR1:FREQ 5000;:SOUR:FREQ?" & vbLf)
Debug.Print msg.ReadString(256)
'デバイスを閉じる
msg.Close
設定と問い合わせのサンプルプログラム(GPIB)
'VISAのResourceManagerオブジェクトを作成
Dim rm As New VisaComLib.ResourceManager
Dim accessMode As VisaComLib.accessMode
Dim timeOut As Integer
Dim optionString As String
Dim msg As VisaComLib.IMessage
accessMode = VisaComLib.accessMode.NO_LOCK
timeOut = 0
optionString = ""
'デバイスと接続(GPIB address:2)
Set msg = rm.Open("GPIB0::2::INSTR", _
accessMode, _
timeOut, _
optionString)
'オフセット 0.0V、振幅 20.0Vp-p、出力 オンを設定し、振幅の値を問い合わせる
msg.WriteString(":SOUR1:VOLT:OFFS 0V;:SOUR1:VOLT 20VPP;OUTP1 1;:SOUR1:VOLT?" & vbLf)
Debug.Print msg.ReadString(256)
'デバイスを閉じる
msg.Close