    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