To Next Page

To Previous Page

6243/44 DC Voltage Current Source/Monitor Operation Manual

5.2.11 Program Examples

5-40

5.2.11.5 Program Example 5: Using Measurement Buffer Memory

(100 measurement data is recalled in the shortest time.)

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

Dim dt As String * 20 ’ Data reception buffer

Dim dt_sz As Integer ’ Number of measurement buffer memory data

Dim dt_rn(100) As String * 15 ’ Measurement buffer memory data storage string variable

Dim i As Integer, s As Integer ’ i: Loop variable, s: Serial poll result storage variable

board = 0 ’ GPIB board address 0

pad = 1 ’ 6243/44 address 1

Call ibdev(board, pad, 0, T30s, 1, 1, vig) ’ Opening and initializing device (6243/44) (timeout 30 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

’ Executing sweep measurement

Call SUBsend(vig, “C,*RST”) ’ DCL and parameter initialization

Call SUBsend(vig, “*CLS”) ’ Status byte initialization

Call SUBsend(vig, “*SRE8”) ’ Setting bit 3 for the Service Request Enable Register to 1

Call SUBsend(vig, “DSE8192”) ’ Setting bit 13 for the Device Event Enable Register to 1

Call SUBsend(vig, “S0”) ’ SRQ transmission mode

’ Registering setting for transmitting SRQ following completion of sweep

Call SUBsend(vig, “MD2”) ’ Sweep generation mode

Call SUBsend(vig, “SN0.1V,10V,0.1V”) ’ Linear sweep: Start 0.1 V, stop 10 V, step 0.1 V

Call SUBsend(vig, “SB0V”) ’ Sweep bias value 0 V

Call SUBsend(vig, “SP3,4,100”) ’ Hold time 3 ms, measure delay time 4 ms

’ Period 100 ms

Call SUBsend(vig, “D30MA”) ’ Limiter value 30 mA

Call SUBsend(vig, “SM1”) ’ Memory Store ON

Call SUBsend(vig, “E”) ’ Output ON

Call SUBsend(vig, “*TRG”) ’ Starting sweep

’ Waiting for sweep measurement completion

Call ibwait(vig, RQS Or TIMO) ’ Waiting for SQL transmission

If (ibsta And TIMO) Then ’ In case of timeout

Call MsgBox(“SRQ Time Out”, vbOKOnly, “Error”)

’ indicating error

ADCMT 6244 User Manual

Questions and Answers: