6243/44 DC Voltage Current Source/Monitor Operation Manual
5.2.11 Program Examples
5-39
Call ibonl(vig, 0) ’ Setting device (6243/44) to offline
End Sub ’ Event procedure completed
’ Subroutine
Private Sub SUBmeas(vig As Integer) ’ Recalling measurement data 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