![ADVANTEST R3755 Series Operation Manual Download Page 39](http://html.mh-extra.com/html/advantest/r3755-series/r3755-series_operation-manual_2858773039.webp)
3.6.4
Calling and Writing Complex Number Data
3-21
Program Adds MdlDeclare_bis.vb and MdlBis_macro.vb to the standard module in advance.
(VB 2008) Assume the first argument in the API function, lngID, is defined separately as an external
variable. Place bis.dll in a folder that can be recognized by Visual Studio.
Dim cal1(3202) As Single
Dim cal2(3202) As Single
Dim cal3(3202) As Single
Dim totP As Integer
Dim caltype As Integer
'
' Calling calibration data.
'
Private Sub cmdCalRead_Click(ByVal sender As System.Object, ByVal e As Sys-
tem.EventArgs) Handles cmdCalRead.Click
Dim endP As Long
Call QryStatSweCoun(lngPID, endP, totP) ' Calls the total measurement point number.
Call QrySensCorrCollMeth(lngPID, caltype)' Calls the calibration type.
' Calls each calibration data item.
Call QryTracData(lngPID, BIS_TRAC1_CAL1, 0, totP - 1, cal1(0)) 'Cal Data 1
Call QryTracData(lngPID, BIS_TRAC1_CAL2, 0, totP - 1, cal2(0)) 'Cal Data 2
Call QryTracData(lngPID, BIS_TRAC1_CAL3, 0, totP - 1, cal3(0)) 'Cal Data 3
End Sub
'
' Writing calibration data.
'
Private Sub cmdCalWrite_Click(ByVal sender As System.Object, ByVal e As Sys-
tem.EventArgs) Handles cmdCalWrite.Click
Call BisSensCorrCollDel(lngPID)
' Clears the current calibration data.
Call BisSensCorrCollMeth(lngPID, caltype)' Sets the calibration type.
' Writes each calibration data item.
Call BisTracData(lngPID, BIS_TRAC1_CAL1, 0, totP - 1, cal1(0), totP * 8)
Call BisTracData(lngPID, BIS_TRAC1_CAL2, 0, totP - 1, cal2(0), totP * 8)
Call BisTracData(lngPID, BIS_TRAC1_CAL3, 0, totP - 1, cal3(0), totP * 8)
End Sub