Keysight 34970A Guide D'utilisation page 245

Exemple Excel 7.0 : Macro Configuration de
port
Option Explicit
' Déclarations pour VISA.DLL
' Opérations d'E/S de base
Private Declare Function viOpenDefaultRM Lib "VISA32.DLL" Alias "#141" (sesn As Long) As Long
Private Declare Function viOpen Lib "VISA32.DLL" Alias "#131" (ByVal sesn As Long, _ 
ByVal desc As String, ByVal mode As Long, ByVal TimeOut As Long, vi As Long) As Long
Private Declare Function viClose Lib "VISA32.DLL" Alias "#132" (ByVal vi As Long) As Long
Private Declare Function viRead Lib "VISA32.DLL" Alias "#256" (ByVal vi As Long, _ 
ByVal Buffer As String, ByVal Count As Long, retCount As Long) As Long
Private Declare Function viWrite Lib "VISA32.DLL" Alias "#257" (ByVal vi As Long, _ 
ByVal Buffer As String, ByVal Count As Long, retCount As Long) As Long
' Codes d'erreur
Global Const VI_SUCCESS = 0
' Variables globales
Global videfaultRM As Long
Global vi As Long
Dim errorStatus As Long
Global VISAaddr As String
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
' Cette routine exige le fichier 'VISA32.DLL' qui réside habituellement dans le
' répertoire c:\windows\system sur votre PC. Cette routine utilise la bibliothèque VTL pour
' envoyer des commandes à l'instrument. Une description de celles-ci et d'autres commandes
' VTL se trouve dans le document Agilent VISA User's Guide (Guide d'utilisation Agilent
' VISA).
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Public Sub SendSCPI(SCPICmd As String)
' Cette routine envoie une chaîne de commande SCPI au port GPIB. Si la commande est une
' interrogation (avec un point d'interrogation), vous devez lire la réponse avec 'getScpi'
Dim commandstr As String
Dim actual As Long
'Ecrit la commande terminée par une fin de ligne à l'instrument
commandstr = SCPICmd & Chr$(10)
errorStatus = viWrite(vi, ByVal commandstr, Len(commandstr), actual)
End Sub
Function getScpi() As String
Dim readbuf As String * 2048
Dim replyString As String
Dim nulpos As Integer
Dim actual As Long
' Lit la chaîne de réponse
errorStatus = viRead(vi, ByVal readbuf, 2048, actual)
replyString = readbuf
' Extrait tous les zéros de la chaîne de réponse
nulpos = InStr(replyString, Chr$(0))
If nulpos Then
replyString = Left(replyString, nulpos - 1)
End If
getScpi = replyString
End Function
Exemples de programmes pour Excel 7.0
' id Gestionnaire de ressources pour VISA GPIB
' Enregistre la session pour VISA
' Code d'erreur VTL
' Commande transmise à l'instrument
' Nombre de caractères envoyés/retournés
' Tampon utilisé pour la chaîne retournée
' Enregistre la chaîne retournée
' Situe tous les zéros dan le tampon de lecture
' Nombre de caractères envoyés/retournés
Chapitre 6 Programmes d'application
Suite à la page suivante
4
6
245