Specifications

Programming Examples ZVx
1043.0009.50 D.8 E-2
• In this example, a Save/Recall of the instrument setups is performed.
Dim ibsta As Integer ’ Status variable
Dim iberr As Integer ’ Error variable
Dim ibcntl As Long ’ Count variable
Dim ud As Integer ’ Handle for measuring instrument
Dim Cmd As String ’ Command string
’ Set up connection to measuring instrument
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
’ Error treatment
End If
’ Request instrument settings
Cmd = "SYST:SET?"
Call RSDLLibwrt(ud, Cmd, ibsta, iberr, ibcntl)
’ Store instrument response in file
Call RSDLLibrdf(ud, "C:\db.sav", ibsta, iberr, ibcntl)
’ Reset instrument
Call RSDLLibwrt(ud, "*RST", ibsta, iberr, ibcntl)
’ and restore the previous settings
’ to this end disable the END message
Call RSDLLibeot(ud, 0, ibsta, iberr, ibcntl)
’ first send off command
Call RSDLLibwrt(ud, "SYST:SET ", ibsta, iberr, ibcntl)
’ enable the END message again
Call RSDLLibeot(ud, 1, ibsta, iberr, ibcntl)
’ and send the data
Call RSDLLibwrtf(ud, "C:\db.sav", ibsta, iberr, ibcntl)
D.9.2 Visual Basic for Applications (Winword and Excel)
Programming hints:
The programming language Visual Basic for Applications (VBA) is supported as a macro language by
various manufacturers. The programs Winword and Excel use this language for the versions Winword
97 or Excel 5.0 and higher.
For macros created with Visual Basic for Applications, the same hints are valid as for Visual Basic
Applications.