To Next Page

To Previous Page

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

ADCMT 6244 User Manual

Questions and Answers: