Keysight 34970A Guide D'utilisation page 249

Sub makeDataTable(Channel As Integer, columnIndex As Integer)
' Cette routine prendra les données découpées de la ligne '1' pour une voie et les
' placera dans un tableau. 'Channel' détermine la ligne du tableau et 'columnIndex' 
' détermine la colonne (nombre de balayages de la scrutation).
' Le nombre de champs délimités par une virgule retournés par voie est déterminé par les
' commandes FORMat:READing. Le nombre de champs par voie est requis pour localiser
' les données de la ligne 1. Dans cet exemple, il y a trois cellules (champs) par voie.
' Définit l'en-tête pendant la scrutation de la première voie.
If Channel = 1 Then
' Libelle l'en-tête de la colonne de données et de la colonne d'horodatage
Cells(4, columnIndex * 2) = "Scrutation " & Str(columnIndex)
Cells(4, columnIndex * 2).Font.Bold = True
Cells(3, columnIndex * 2 + 1) = "Horodatage"
Cells(4, columnIndex * 2 + 1) = "min:sec"
End If
' Recueille le numéro de voie, et le place de la colonne 'A' pour la première scrutation 
' seulement
If columnIndex = 1 Then
Cells(Channel + 4, 1) = Cells(1, 3)
End If
' Recueille les données de lecture et les place dans la colonne
Cells(Channel + 4, columnIndex * 2) = Cells(1, 1)
' Recueille l'horodatage et le place dans la colonne à droite des données ; pour
convertir le temps
' relatif vers le temps Excel, diviser par 86400.
Cells(Channel + 4, columnIndex * 2 + 1) = Cells(1, 2) / 86400
Cells(Channel + 4, columnIndex * 2 + 1).NumberFormat = "mm:ss.0"
End Sub
Fonction ConvertTime(TimeString As String) As Date
' Cette routine recueillera la chaîne retournée par la commande SYSTem:TIME:SCAN? et
' retournera un nombre compatible avec le format Excel. Lorsqu'il est chargé dans une
' cellule, il peut être formaté à l'aide du menu 'Format' d'Excel.
Dim timeNumber As Date
Dim dateNumber As Date
Cells(1, 1).ClearContents
Cells(1, 1) = TimeString
Range("a1").TextToColumns Destination:=Range("a1"), comma:=True
dateNumber = DateSerial(Cells(1, 1), Cells(1, 2), Cells(1, 3))
timeNumber = TimeSerial(Cells(1, 4), Cells(1, 5), Cells(1, 6))
ConvertTime = dateNumber + timeNumber
End Function
Sub GetErrors()
' Appelez cette routine pour consulter les erreurs de l'instrument. La variable
' d'adresse GPIB 'VISAaddr' doit être définie.
Dim DataString As String
OpenPort
SendSCPI "SYSTEM:ERROR?"
Delay (0.1)
DataString = GetSCPI()
MsgBox DataString
ClosePort
End Sub
Exemples de programmes pour Excel 7.0
' Partie décimale ou de temps du nombre
' Partie entière ou de date du nombre
' Lit une erreur de la file d'erreurs
Chapitre 6 Programmes d'application

4
6
249