Table des Matières
Publicité
ESIB
Exemple :
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Result As String
Dim Digits As Byte
Dim TraceBytes As Long
Dim TraceData(401) As Single
' Établir la liaison à l'appareil
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
' Interroger des données de courbe au format réel
Call RSDLLibwrt(ud, "FORM:DATA REAL,32", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "TRACE? CH1DATA", ibsta, iberr, ibcntl)
'Lire le nombre de caractères de l'indication de longueur
Result = Space$(20)
Call RSDLLilrd(ud, Result, 2, ibsta, iberr, ibcntl)
Digits = Val(Mid$(Result, 2, 1))
'Lire l'indication de longueur
Result = Space$(20)
Call RSDLLilrd(ud, Result, Digits, ibsta, iberr, ibcntl)
TraceBytes = Val(Left$(Result, Digits))
' Lire des données de courbe
Call RSDLLilrdTraceReal(ud, TraceData(0), TraceBytes, ibsta, iberr,ibcntl)
Exemples de programmation :
• La fréquence de départ de l'appareil est interrogée dans cet exemple.
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Response 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
' Envoyer une interrogation à l'appareil
Call RSDLLibwrt(ud, "FREQ:START?", ibsta, iberr, ibcntl)
' Faire de la place pour la réponse
Response = Space$(100)
' Lire la réponse de l'appareil
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
1088.7531.13
' Variable d'état
' Variable d'erreur
' Variable de comptage
' Saisie pour l'appareil de mesure
' File d'attente pour résultats simples
' Nombre de caractères avec indication de
longueur
' Longueur de données de courbe en octets
' File d'attente pour données binaires
en virgule flottante'
'et sauvegarder
' Variable d'état
' Variable d'erreur
' Variable de comptage
' Saisie pour l'appareil de mesure
' Chaîne de réponse
7.7
Exemples de programme
F-15
Publicité
Table des Matières
