3.6.3
Calling Measurement and Measurement Results
3-19
3.6.3. Calling Measurement and Measurement Results
Example Triggers a single measurement and call measurement results when measurements are
completed.
Program
(VB6.0)
Adds declare_bis.bas and bis_macro.bas to the standard module in advance.
Assume the first argument in the API function, lngID, is defined separately as an exter-
nal variable. Place bis.dll in a folder that can be recognized by Visual Basic.
Private Sub cmdSweep_Click()
Dim stat As Long
Dim endP As Long, totP As Long
Dim logmag(1601) As Single
Call BisInitCont(lngID, 0)
' Sets continuous measurement to OFF.
Call BisInitImm(lngID)
' Starts the measurement.
Do
Call QryStatOper(lngID, stat)
' Calls the operation status
' (If during a measurement, 1 appears).
DoEvents
Loop While (stat <> 0)
' Waits until the status is 0.
Call QryStatSweCoun(lngID, endP, totP) ' Calls the total measurement point number.
Calls the measurement result (LOG amplitude)
Call QryTracData(lngID, BIS_TRAC1_LOGMAG, 0, totP - 1, logmag(0))
End Sub
Program
(VB 2008)
Adds MdlDeclare_bis.vb and MdlBis_macro.vb to the standard module in advance.
Assume the first argument in the API function, lngID, is defined separately as an exter-
nal variable. Place bis.dll in a folder that can be recognized by Visual Studio.
Private Sub cmdSweep_Click(ByVal sender As System.Object, ByVal e As Sys-
tem.EventArgs) Handles cmdSweep.Click
Dim stat As Long
Dim endP As Long, totP As Long
Dim logmag(1601) As Single
Call BisInitCont(lngPID, 0)
' Sets continuous measurement to OFF.
Call BisInitImm(lngPID)
' Starts the measurement.
Do
Call QryStatOper(lngPID, stat)
' Calls the operation status
System.Windows.Forms.Application.DoEvents()
Loop While (stat <> 0)
' Waits until the status is 0.
'
(If during a measurement, 1 appears).
Call QryStatSweCoun(lngPID, endP, totP) ' Calls the total measurement
'
point number.
' Calls the measurement result (LOG amplitude)
Call QryTracData(lngPID, BIS_TRAC1_LOGMAG, 0, totP - 1, logmag(0))
End Sub
