Signametrics Corporation SMU2060, Руководство оператора

Страница: 66 / 182

Signametrics
66
Declare Function DMMSetAperture Lib "SMU2060.dll" (ByVal nDmm As Long, ByVal nAperture As Long) _
As Long
Declare Function DMMSetFunction Lib "SMU2060.dll" (ByVal nDmm As Long, ByVal nFunc As Long) As Long
Declare Function DMMSetRange Lib "SMU2060.dll" (ByVal nDmm As Long, ByVal nRange As Long) As Long
Declare Function DMMRead Lib "SMU2060.dll" (ByVal nDmm As Long, dResult As Double) As Long
' Definitions from USBDMMUser.h
' for DMMSetFunction()
Global Const VDCFunc = 0
Global Const VACFunc = 4
Global Const Ohm2Func = 21
Global nDmm as Long
' for DMMSetRange()
Global Const Range0 = 0
Global Const Range1 = 1
Global Const Range2 = 2
Global Const Range3 = 3
'Measurement Apertures for use with DMMSetAperture()
Global Const APR_1p0666s = 4 '1.07s
Global Const APR_p96s = 5 '960ms Aperture
Global Const APR_p5333s = 6 '533ms
Global Const APR_p48s = 7 '480ms
Global Const APR_p2666s = 8 '266ms
Global Const APR_p16s = 9 '160ms
Global nDmm As Long ' Global store for the DMM number
SimplePanel.frm Form file contents:
Private Sub Form_Load()
'Fomr_Load allways gets executed first.
Dim i As Long
nDmm = 0
‘Set to first DMM in the system
i = DMMInit(nDmm,"C:\SM60CAL.dat") 'Initialize and load cal file
i = DMMSetFunction(nDmm, VDCFunc) 'Set DMM to DCV function
i = DMMSetRange(nDmm, Range2) 'Select the 24V range
i = DMMSetAperture(nDmm, APR_p16s) 'Set measurement Aperture to 160ms
End Sub
Private Sub ReadBotton_Click()
'Read Botton Click action.
Dim i As Long 'Any time this botton is pressed
Dim dReading As Double 'the DMM takes a reading and displays it.
i = DMMRead(nDmm, dReading) 'Take a reading
TextReading.Text = dReading 'display it in a Text box.
End Sub