ADCMT 6244 - Program Example 2: Pulse Measurement

6243/44 DC Voltage Current Source/Monitor Operation Manual
5.2.11 Program Examples
5-34
5.2.11.2 Program Example 2: Pulse Measurement
Option Explicit ’ Explicit declaration for all variables
Private Sub Start_Click() ’ Event procedure for the command button (Start)
Dim board As Integer ’ GPIB board address
Dim pad As Integer ’ 6243/44 address
Dim vig As Integer ’ 6243/44 device descriptor
board = 0 ’ GPIB board address 0
pad = 1 ’ 6243/44 address 1
Call ibdev(board, pad, 0, T10s, 1, 1, vig) ’ Opening and initializing device (6243/44) (timeout 10 s)
Call ibconfig(vig, IbcUnAddr, 1) ’ Address setting performed for each transmission or reception
Call ibeos(vig, &H40A) ’ Setting terminator to LF for sending command
Call SUBsend(vig, “C,*RST”) ’ DCL and parameter initialization
Call SUBsend(vig, “M1”) ’ Trigger mode hold
Call SUBsend(vig, “MD1”) ’ Pulse generation mode
Call SUBsend(vig, “D2V,D3MA”) ’ Pulse source value 2 V, limiter value 3 mA
Call SUBsend(vig, “DB1V”) ’ Pulse base value 1 V
Call SUBsend(vig, “SP3,1,130,50”) ’ Hold time 3 ms, measure delay time 1 ms
’ Period 130 ms, pulse time 50 ms
Call SUBsend(vig, “E”) ’ Output ON
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call SUBsend(vig, “D2.5V”) ’ Pulse source value 2.5 V
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call SUBsend(vig, “SP3,60,130,50”) ’ Hold time 3 ms, measure delay time 60 ms
’ Period 130 ms, pulse time 50 ms
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call SUBsend(vig, “DB0.5V”) ’ Pulse base value 0.5 V
Call SUBmeas(vig) ’ Measurement trigger & data recall
Call SUBsend(vig, “H”) ’ Output OFF
Call ibonl(vig, 0) ’ Setting device (6243/44) to offline
End Sub ’ Event procedure completed
’ Subroutine
Private Sub SUBmeas(vig As Integer) ’ Measurement data recall by measurement trigger
Dim dt As String * 20 ’ Data reception buffer