To Next Page

To Previous Page

6243/44 DC Voltage Current Source/Monitor Operation Manual

5.2.11 Program Examples

5-41

Else ’ If no timeout

Call ibrsp(vig, s) ’ executing serial poll

End If ’ Ending If

Call SUBsend(vig, “H”) ’ Output OFF

’ Measurement buffer memory data recall

’ No output data header, block delimiter EOI

Call SUBsend(vig, “SZ?”) ’ Measurement buffer memory data number query

Call SUBread(vig, dt) ’ Measurement buffer memory data number recall

dt_sz = Val(dt)

’ Converting recalled data number to numerical variable

Call SUBsend(vig, “OH0”) ’ Setting output data header to OFF

Call SUBsend(vig, “DL2”) ’ Setting output data block delimiter to EOI

Call SUBsend(vig, “RN1,0”) ’ Setting to measurement buffer memory output mode and

’ specifying output number from 0

For i = 1 To dt_sz ’ Repeating for number of memory data

Call SUBread(vig, dt) ’ Measurement buffer memory data recall

’ Outputting memory data by data recall after memory recall mode

’ setting, adding output number by 1

dt_rn(i) = dt

’ Storing recalled data in order

Next i ’ Ending For

Call SUBsend(vig, “RN0,0”) ’ Releasing measurement buffer memory output mode

’ Displaying measurement data

For i = 1 To dt_sz ’ Repeating for number of memory data

dt = Str(i) & “:” & dt_rn(i) & vbCrLf ’ Creating display character string

Text1.SelStart = Len(Text1.Text) + 1 ’ Specifying display position for text box (Text1)

Text1.SelText = dt ’ Displaying measurement data in text box (Text1)

Next i ’ Ending For

Call ibonl(vig, 0) ’ Setting device (6243/44) to offline

End Sub ’ Event procedure completed

’ Subroutine

Private Sub SUBread(vig As Integer, dt As String) ’ Talker data recall

Call ibrd(vig, dt) ’ Talker data recall

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

ADCMT 6243 User Manual

Questions and Answers: