306 Keysight E4980A/AL Precision LCR Meter
Sample Program
Save/Recall
9-
ErrorCheck viSetAttribute(AgtE4980A/AL, VI_ATTR_TMO_VALUE,
TimeOutTime)
'===================================
' SaveRecall
'===================================
If Cells(9, 2).Value = "Save" Then
ErrorCheck viVPrintf(AgtE4980A/AL, ":MMEM:STOR:STAT 1"
+ vbLf, 0)
Else
ErrorCheck viVPrintf(AgtE4980A/AL, ":MMEM:LOAD:STAT 1"
+ vbLf, 0)
End If
ErrorCheck viVQueryf(AgtE4980A/AL, "*OPC?" + vbLf, "%t",
Result)
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