Visual Basic Programming Example (Opt.004)

Dim material As MaterialsMeasLib.CoaxialProbe

Private Sub Calibrate_Click()

Call material.CalibrateProbe

End Sub

Private Sub Form_Load()

' Create the object

Set material = CreateObject("MaterialsMeas.CoaxialProbe")

' Initialize the object (starts the 85070.exe)

Call material.Init

' Sets the measurement frequencies

Call material.SetMeasurement(1000000000#, 3000000000#, 101, LOG_SWEEP)

End Sub

Private Sub Measure_Click()

Dim er As Single

Dim ei As Single

Dim f As Single

' Trigger a measurement

Call material.TriggerProbe

'Obtain the frequency and measurement value for the 5th point

Call material.GetMeasurement(5, f, er, ei)

End Sub