Bnc 645 User Manual download pdf (Page 183)

183

The following example uses CONFigure with the dBm math operation.

The CONFigure command gives you a little more programming

flexibility than the MEASure? command. This allows you to

“incrementally” change the multimeter’s configuration. The example is

is shown in Visual Basic.

Creating the Application

Create a new Visual Basic project as follows:

1. Create a new Standar.EXE project.

2. To set the startup object for a Windows Application to Sub Main

3. Add New Module, Declare a Sub Main().

LISTING D.2. THE CONFigure FUNCTION.

Sub Main()

Dim Model 645 As Object

Dim Rdgs(1 To 5) As Double

Dim i As Integer ' Array Index

' To assign an object reference using CreateObject

Set Model 645 = CreateObject("Berkeley Nucleonics Corporation.IOUtils")

' Address String Grammar for rsrcName Parameter

Model 645.Connect = "USB::5710::4002::tw00000001"

' USB[board]::manufacturer ID::model code::serial number[::USB interface

' number][::INSTR]

Model 645.Output = "*RST" ' Reset Model 645

Model 645.Output = "*CLS" ' Clear Model 645 status registers

Model 645.Output = "CALC:DBM:REF 50" ' 50 ohm reference resistance

Model 645.Output = "CONF:VOLT:AC 1,0.001" ' Set Model 645 to 1 amp ac range

Model 645.Output = "DET:BAND 200" ' Select 200 Hz (fast) ac filter

Model 645.Output = "TRIG:COUN 5" ' Model 645 will accept 5 triggers

Model 645.Output = "TRIG:SOUR IMM" ' Trigger source is IMMediate

Model 645.Output ="CALC:FUNC DBM" ' Select dBm function

Model 645.Output = "CALC:STAT ON" ' Enable math

Model 645.Output = "READ?" ' Take readings; send to output buffer

Rdgs = Model 645.Input

For i = LBound(Rdgs) To UBound(Rdgs)

Debug.Print Rdgs(i)

Next i

End Sub

Using the Status Registers

The following example shows how you can use the multimeter’s status

1 2 ... 178 179 180 181 182 183 184 185 186 187 188 189 190

No comments

Bnc 645 User Manual Page 183