Opt.001 Visual Basic Programming Example

' Define the object

Dim material As MaterialsMeasLib.TransmissionLine

Private Sub Form_Load()

' Create the object

Set material = CreateObject("MaterialsMeas.TransmissionLine")

'Initialize the interface

Call material.Init

' Setup frequency type and range

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

' Define the sample holder

Call material.SetSampleHolder(0, 0, 1, INCH, COAX, 0)

End Sub

Private Sub Measure_Click()

Dim er As Single

Dim ei As Single

Dim ur As Single

Dim ui As Single

Dim f As Single

' Trigger a measurement

Call material.TriggerMeasurement

' Get the frequency and measurement values at the 5th measurement point

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

End Sub

18-July-2014

Updated