Table des Matières
Publicité
ESIB
Visual Basic pour applications (Winword et Excel)
Remarques concernant la programmation :
Les différents fabricants utilisent le langage de programmation Visual Basic pour applications (VBA)
comme langage macro. Les programmes Winword et Excel utilisent ce langage à partir des versions
Winword 97 ou Excel 5.0.
Les mêmes remarques que celles utilisées pour des applications de Visual Basic s'appliquent aux
macros créées avec Visual Basic pour applications.
Exemples de programmation :
•
Un balayage unique suivi d'une interrogation de la crête maximum s'effectue au moyen de la macro
QueryMaxPeak. Le résultat s'entre dans un document Winword ou Excel.
Sub QueryMaxPeak()
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
Call MsgBox("L'appareil avec l'adresse 89.10.38.97 n'a pas " & _
End
End If
' Déterminer la crête maximum dans la gamme de 1 à 2 MHZ
Call RSDLLibwrt(ud, "*RST", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "INIT:CONT OFF", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "FREQ:START 1MHZ", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "FREQ:STOP 2MHZ", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "INIT:IMM;*WAI", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "CALC:MARK:MAX;Y?", ibsta, iberr, ibcntl)
Response = Space$(100)
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
Response = RTrim(Response) ' Couper des espaces
' Insérer la valeur dans le document actuel (Winword)
Selection.InsertBefore (Response)
Selection.Collapse (wdCollapseEnd)
' Terminer la communication avec l'appareil
Call RSDLLibonl(ud, 0, ibsta, iberr, ibcntl)
End Sub
L'entrée de la valeur de crête dans le document Winword peut se remplacer comme suit sous
Excel :
' Insérer la valeur dans le document actuel (Excel)
ActiveCell.FormulaR1C1 = Response
1088.7531.13
' Variable d'état
' Variable d'erreur
' Caractères transmis
' Descripteur d'unité (saisie) pour l'appareil
de mesure
' Chaîne de réponse
"pu être trouvé", vbExclamation)
7.9
Exemples de programme
F-15
Publicité
Table des Matières
