6241A/6242 DC Voltage Current Source/Monitor Operation Manual
6.8.1 Programming Examples with GPIB
6-45
Call SUBsend(vig, "SBY" & vbLf) ’ Output OFF
rowNum = 1 ’ Designates the first row number in the cell
’ Measurement buffer memory data recall
Call SUBsend(vig, "RN1,0" & vbLf) ’ Setting to measurement buffer memory recall mode and
’ Specifying recall address from 0
Do ’ Infinite loop
Call ibrd(vig,dt) ’ Measurement buffer memory data recall
’ Outputting memory data by data recall after memory recall
mode setting, adding recall number by 1
Cells(rowNum, 1) = Left(dt, 15) ’ Assigns data to the designated cell.
If 1=InStr(1,dt,"EE+8.88888E+30") Then
’ If recalled data is empty,
Exit Do ’ exiting infinite loop
End If ’ Ending If
rowNum = rowNum + 1 ’ Cell row number +1
Loop ’ Ending Do
Call SUBsend(vig, "RN0,0" & vbLf) ’ Releasing to measurement buffer memory recall mode
Call ibonl(vig,0) ’ Setting the 6241A/6242 to offline
End Sub ’ Event procedure complete
(Output example)
DI +00.5000E-03
DI +01.0000E-03
DI +01.5000E-03
DI +02.0000E-03
DI +02.5000E-03
DI +03.0000E-03
DI +03.5000E-03
DI +04.0000E-03
DI +04.5000E-03
DI +05.0000E-03
EE +8.88888E+30