Table des Matières
Publicité
Exemples de programme
Programmation via l'interface RSIB
Les remarques suivantes s'appliquent aux versions 16 bits et 32 bits des DLL (RSI.DLL ou
RSIB32.DLL), sauf si des distinctions sont expressément indiquées.
L'interface RSIB supporte simultanément des liaisons de 16 appareils de mesure au maximum.
Visual Basic
Remarques concernant la programmation :
• Accès aux fonctions de RSIB.DLL
Pour générer des applications de commande Visual Basic, on ajoute le fichier RSIB.BAS pour des
programmes Basic 16 bits ou le fichier RSIB32.BAS pour des programmes Basic 32 bits
(C:/R_S/INSTR/RSIB) à un projet afin que les fonctions de RSIB.DLL ou RSIB32.DLL puissent être
appelées.
• Génération d'une file d'attente de réponses
Une chaîne de longueur suffisante doit être générée avant l'appel des fonctions RSDLLibrd() et
RSDLLilrd(. Cela peut s'effectuer lors de la définition de la chaîne ou avec l'instruction
Space$():
Génération d'une chaîne de longueur 100 : -
Si une réponse de l'appareil de mesure doit être sortie sous forme de chaîne, les espaces qui
suivent peuvent s'effacer au moyen de la fonction RTrim() de Visual Basic.
Exemple :
Response = Space$(100)
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
Response = RTrim(Response)
' Sortie de Response
• Lecture des données de courbe au format réel
Les déclarations de fonctions du fichier RSIB.BAS ou RSIB32.BAS ne permettent d'attribuer les
réponses de l'appareil qu'à une seule chaîne. S'il s'agit de lire les données dans un tableau à valeurs
de type float, l'en-tête et les données utiles doivent être sortis au moyen d'appels de fonction
séparés.
Exemple d'en-tête :
#
Préfixe des
Nombre de chiffres
données
de lindication de
binaires
longueur suivante
Une déclaration spéciale de fonction doit être créée pour permettre une lecture directe des données
de courbe dans un tableau de type float.
Declare Function RSDLLilrdTraceReal Lib "rsib32.dll" Alias "RSDLLilrd"
(ByVal ud%, Rd As Single, ByVal Cnt&, ibsta%, iberr%, ibcntl&) As Integer
1088.7531.13
- Dim Response as String
4
3208
Longueur des données
par ex. 501 valeurs
4 octets/valeur
Dim Response as String * 100
Response = Space$(100)
7.6
ESIB
F-15
Publicité
Table des Matières
