![background image](http://html.mh-extra.com/html/kusam-meco/m3500a/m3500a_operation-manual_2011854154.webp)
154
Dim M3500A As Object
Dim Rdgs As String
Dim i As Integer ' Array Index
' To assign an object reference using CreateObject
Set M3500A = CreateObject("INS001.IOUtils")
M3500A.Refresh
If M3500A.Count = 0 Then
MsgBox "Connect M3500A device failed.", 48, "Configure sample"
Exit Sub
End If
M3500A.Index = 0
M3500A.TimeOut = 10000 ' Assign timeout period
With M3500A
.Output = "*RST" ' Reset M3500A
.Output = "*CLS" ' Clear M3500A status registers
.Output = "CALC:DBM:REF 50" ' 50 ohm reference resistance
.Output = "CONF:VOLT:AC 1,0.001" ' Set M3500A to 1 amp ac range
.Output = "DET:BAND 200" ' Select 200 Hz (fast) ac filter
.Output = "SAMP:COUN 5" ' M3500A will accept 5 triggers
.Output = "TRIG:SOUR IMM" ' Trigger source is IMMediate
.Output = "CALC:FUNC DBM" ' Select dBm function
.Output = "CALC:STAT ON" ' Enable math
.Output = "READ?" ' Take readings
Rdgs = .Input
End With
For i = 0 To (5 - 1) ' print out the 5 times samples reading
Debug.Print "Rdgs = "; Mid(Rdgs, i * 16 + 1, 15)
Next
End Sub
Summary of Contents for M3500A
Page 1: ...An ISO 9001 2000 Company 6 Digit Multimeter M3500A Operation Manual ...
Page 2: ...Operation Manual M3500A DMM ...
Page 6: ......
Page 7: ......
Page 8: ......
Page 9: ......
Page 10: ......
Page 11: ......
Page 26: ...1 2 3 4 5 6 ...
Page 33: ......
Page 34: ......
Page 35: ......
Page 37: ......
Page 38: ......
Page 39: ......
Page 40: ......
Page 42: ......
Page 43: ......
Page 44: ......
Page 45: ......
Page 47: ......
Page 48: ...48 Figure 3 18 5 ...
Page 95: ......
Page 104: ......
Page 151: ......
Page 155: ......