Visual Basic 2005 サンプルプログラム
    設定と問い合わせのサンプルプログラム(USB)

        'VISAのResourceManagerオブジェクトを作成
        Dim rm As New Ivi.Visa.Interop.ResourceManager
        Dim accessMode As Ivi.Visa.Interop.AccessMode = Ivi.Visa.Interop.AccessMode.NO_LOCK

        'ファンクションジェネレータの製造番号
        Dim serial As String = "0123456"

        Dim timeOut As Integer = 0
        Dim optionString As String = ""
        'デバイスと接続(USB)
        'WF1973の場合 "USB0::0x0D4A::0x000D::" としてください
        'WF1974の場合 "USB0::0x0D4A::0x000E::" としてください
        Dim msg As Ivi.Visa.Interop.IMessage = CType( _
            rm.Open("USB0::0x0D4A::0x000D::" & serial & "::INSTR", _
                    accessMode, _
                    timeOut, _
                    optionString), _
            Ivi.Visa.Interop.IMessage)

        '周波数を5.0kHzに設定し、その値を問い合わせる
        msg.WriteString(":FREQ 5000;:FREQ?" & vbLf)
        Console.WriteLine(msg.ReadString(256))

        'デバイスを閉じる
        msg.Close()




    設定と問い合わせのサンプルプログラム(GPIB)

        'VISAのResourceManagerオブジェクトを作成
        Dim rm As New Ivi.Visa.Interop.ResourceManager
        Dim accessMode As Ivi.Visa.Interop.AccessMode = Ivi.Visa.Interop..AccessMode.NO_LOCK

        Dim timeOut As Integer = 0
        Dim optionString As String = ""
        'デバイスと接続(GPIB address:2)
        Dim msg As Ivi.Visa.Interop.IMessage = CType( _
            rm.Open("GPIB0::2::INSTR", _
                    accessMode, _
                    timeOut, _
                    optionString), _
            Ivi.Visa.Interop.IMessage)

        'オフセット 0.0V、振幅 20.0Vp-p、出力 オンを設定し、振幅の値を問い合わせる
        msg.WriteString(":SOUR1:VOLT:OFFS 0V;:SOUR1:VOLT 20VPP;OUTP1 1;:SOUR1:VOLT?" & vbLf)
        Console.WriteLine(msg.ReadString(256))

        'デバイスを閉じる
        msg.Close()