2 using a list to perform a series of operations, Using a list to perform a series of operations -16 – KEPCO KLP Series Developers Guide, Rev 3 User Manual

Page 38

3-16

KLP-DEV 041213

FIGURE 3-3. SETTING THE OUTPUT AND TAKING A MEASUREMENT EXAMPLE,

WRITTEN IN VISUAL BASIC (SHEET 2 OF 2)

3.4.2

USING A LIST TO PERFORM A SERIES OF OPERATIONS

The filename for this example is VBListexample.txt, located in the ivi\drivers\kepco\examples
folder (see Figure 3-6 for complete code).

' display the measured voltage
StatusTextBox.Text = StatusTextBox.Text & "Measured Voltage is " & measVoltage & " at chan-

nel " & channel

StatusTextBox.Refresh

ReadInstrumentError driver

driver.Close

StatusTextBox.Text = StatusTextBox.Text & "Driver closed." & vbCrLf
StatusTextBox.Refresh
Exit Sub
ErrorHandler:
MsgBox Err.Description
driver.Close
Exit Sub

End Sub

' Wait the specified number of seconds
Private Sub Delay(DelayTime As Single)
Dim Finish As Single
Finish = Timer() + DelayTime
Do
Loop Until Finish <= Timer()
End Sub