Rohde & Schwarz ESIB7 Manuel D'utilisation page 744

Exemples de programme
• Dans cet exemple, un save/recall (sauvegarde/rappel) des réglages de l'appareil est effectué.
Dim ibsta As Integer
Dim ibsta As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Cmd As String
' Établir la liaison à l'appareil de mesure
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
' Traitement des erreurs
End If
' Interroger les réglages de l'appareil
Cmd = "SYST:SET?"
Call RSDLLibwrt(ud, Cmd, ibsta, iberr, ibcntl)
' Sauvegarder la réponse de l'appareil dans un fichier
Call RSDLLibrdf(ud, "C:\db.sav", ibsta, iberr, ibcntl)
' Remettre l'appareil à l'état initial
Call RSDLLibwrt(ud, "*RST", ibsta, iberr, ibcntl)
' et restaurer les réglages antérieurs
' désactiver le message END à cet effet
Call RSDLLibeot(ud, 0, ibsta, iberr, ibcntl)
' envoyer d'abord l'instruction
Call RSDLLibwrt(ud, "SYST:SET ", ibsta, iberr, ibcntl)
' valider de nouveau le message END
Call RSDLLibeot(ud, 1, ibsta, iberr, ibcntl)
' et émettre les données
Call RSDLLibwrtf(ud, "C:\db.sav", ibsta, iberr, ibcntl)
1088.7531.13
' Variable d'état
' Variable d'erreur
' Variable de comptage
' Saisie pour l'appareil de mesure
' Chaîne d'instructions
7.8
ESIB
F-15