Operator`s manual

49 Signametrics
load cal file
'display it in a Text box.
i = DMMInit(nDmm,"C:\sm40cal.dat") 'Initialize and
i = DMMSetFunction(nDmm, VDCFunc) 'Set DMM to DCV function
i = DMMSetRange(nDmm, Range2) 'Select the 33V range
i = DMMSetRate(nDmm, RATE_10) 'Set measurement rate to 10 rps
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
End Sub