6243/44 DC Voltage Current Source/Monitor Operation Manual
5.2.11 Program Examples
5-33
Call SUBsend(vig, “D-2V”) ’ DC source value -2 V
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call SUBsend(vig, “D4V”) ’ DC source value 4 V
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call SUBsend(vig, “F1”) ’ Voltage measurement function
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call SUBsend(vig, “IF”) ’ Current source function
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call ibwrt(vig, “H”) ’ Output OFF
Call ibonl(vig, 0) ’ Setting device (6243/44) to offline
End Sub ’ Event procedure completed
’ Subroutine
Private Sub SUBmeas(vig As Integer) ’ Measurement data recall by measurement trigger
Dim dt As String * 20 ’ Data reception buffer
Call ibwrt(vig, “*TRG” & Chr$(10)) ’ Measurement trigger actuated
Call ibrd(vig, dt) ’ Measurement data recall
Text1.SelStart = Len(Text1.Text) + 1 ’ Specifying display position for text box (Text1)
Text1.SelText = dt & vbCrLf ’ Displaying measurement data in text box (Text1)
End Sub
’ Subroutine
Private Sub SUBsend(vig As Integer, cmd As String) ’ Sending command character string
Call ibwrt(vig, cmd & Chr(10)) ’ Sending command character string + terminator LF(Chr$(10))
End Sub