288 Keysight E4980A/AL Precision LCR Meter
Sample Program
Read Measurement Results
9-
Res = Split(Result, ",")
For i = 0 To Nop - 1
Cells(13, i + 2).Value = Val(Res(i))
Next i
'===================================
' Setup End
'===================================`
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================`
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub
To Next Page
Loading...
