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