Publicité
(4) Mesure par déclenchement externe 2
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.
(L'appareil importe la mesure la plus récente avec la temporisation d'entrée de déclenchement avec l'état de
mesure continue)
Private Sub MeasureTrig2Sub()
∗
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 = 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 IMM", NLend)
Call Send(pad, gpibad, ":INIT:CONT ON", NLend)
'Clear confirmation of External I/O TRIG input
Call Send(pad, gpibad, ":IO:IN?", NLend)
Call Receive(pad, gpibad, buffer, STOPend)
recvstr = Left(buffer, InStr(1, buffer, Chr(10)) - 1)
For i = 1 To 10
'Wait for External I/O TRIG input
Do While 1
Call Send(pad, gpibad, ":IO:IN?", NLend)
Call Receive(pad, gpibad, buffer, STOPend)
If Left(buffer, 1) = "1" Then Exit Do
DoEvents
Loop
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 100s (because of external trigger wait
state)
' 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
8.8 Programmes d'échantillonnage
TRIG
ou entrée de borne
173
8
Publicité
