Publicité
170
8.8 Programmes d'échantillonnage
Communications GP-IB _________________________________________
(Avec la carte GP-IB National Instruments)
(1) Mesure de résistance simple
Importe des valeurs mesurées 10 fois et sauvegarde les mesures dans un fichier texte.
Private Sub MeasureSub()
∗
Dim buffer As String
40
Dim recvstr As String
Dim pad As Integer
Dim gpibad As Integer
Dim timeout As Integer
Dim ud As Integer
Dim i As Integer
pad = 0
gpibad = 1
timeout = T10s
Call ibfind("gpib0", 0)
Call ibdev(pad, gpibad, 0, timeout, 1, 0, ud)
Call SendIFC(pad)
Open App.Path & "\data.csv" For Output As #1
Call Send(pad, gpibad, ":TRIG:SOUR IMM", NLend)
Call Send(pad, gpibad, ":INIT:CONT ON", NLend)
For i = 1 To 10
Call Send(pad, gpibad, ":FETCH?", NLend)
Call Receive(pad, gpibad, buffer, STOPend)
recvstr = Left(buffer, InStr(1, buffer, Chr(10)) - 1)
Print #1, Str(i) & "," & recvstr
Next
Close #1
Call ibonl(pad, 0)
End Sub
'Receiving butter
'Receiving char string
'Controller access
'Device Address
'Timeout period
'State (unused)
'Board Address 0
'BT3562-01, BT3563-01 Address 1
'Timeout about 10s
'Initialize GP-IB
'Open a text file for saving
'Select internal triggering
'Continuous measurement ON
'Send ":FETCH?" to import the most recent
measurement
'Receive
'Write to the file
HIOKI BT3562A960-05
Publicité
