ADCMT 6244 - Page 207

6243/44 DC Voltage Current Source/Monitor Operation Manual
5.2.11 Program Examples
5-37
Call SUBsend(vig, “H”) ’ Output OFF
’ Measurement buffer memory data recall
Call SUBsend(vig, “RN1,0”) ’ Setting to measurement buffer memory recall mode and specifying
’ recall address from 0
Do ’ Infinite loop
Call SUBread(vig, dt) ’ Measurement buffer memory data recall
’ Outputting memory data by data recall after memory recall mode
’ setting, adding recall number by 1
If 1 = InStr(1, dt, “EE +888.888E+8”) Then
Exit Do ’ If recalled data is empty, exiting infinite loop
End If ’ Ending If
Loop ’ Ending Do
Call SUBsend(vig, “RN0,0”) ’ Releasing measurement buffer memory recall mode
Call ibonl(vig, 0) ’ Setting device (6243/44) to offline
End Sub ’ Ending event procedure
’ Subroutine
Private Sub SUBread(vig As Integer, dt As String) ’ Recalling talker data
Call ibrd(vig, dt) ’ Recalling talker data
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