Publicité
172
8.8 Programmes d'échantillonnage
(3) Mesure par déclenchement externe 1
Mesurez et importez conformément au déclenchement externe de l'appareil (touche
EXT I/O TRIG) et sauvegardez des mesures dans un fichier texte.
Private Sub MeasureTrigSub()
∗
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
im i As Integer
pad = 0
gpibad = 1
timeout = T100s
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 EXT", NLend)
Call Send(pad, gpibad, ":INIT:CONT OFF", NLend)
For i = 1 To 10
Call Send(pad, gpibad, ":READ?", 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 100s (because of external trigger wait
state)
'Initialize GP-IB
'Open a text file for saving
'Select external triggering
'Continuous measurement OFF
'Send ":READ?" to measure and import the
measurement
'Receive
'Write to the file
HIOKI BT3562A960-05
TRIG
ou entrée de borne
Publicité
