Keysight E4980A User Manual page 306

Sample Program
Save/Recall
TimeOutTime)
+ vbLf, 0)
+ vbLf, 0)
Result)
306
ErrorCheck viSetAttribute(AgtE4980A/AL, VI_ATTR_TMO_VALUE,
'===================================
' SaveRecall
'===================================
If Cells(9, 2).Value = "Save" Then
ErrorCheck viVPrintf(AgtE4980A/AL, ":MMEM:STOR:STAT 1"
Else
ErrorCheck viVPrintf(AgtE4980A/AL, ":MMEM:LOAD:STAT 1"
End If
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf, "%t",
If Cells(9, 2).Value = "Save" Then
MsgBox ("State Save End")
Else
MsgBox ("State Recall End")
End If
Cells(15, 2).Value = Trim(Result)
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
Keysight E4980A/AL Precision LCR Meter