KEISOKU GIKEN LOAD EDGE Series User Manual

Load Edge Series
86 Remote Control
Option Explicit
Dim IFid As Integer ' NI I/F Device ID
Private Sub InitIF()
If 0 <= ilfind("GPIB0") Then
' Init I/F
IFid = ildev(0, 1, 0, T3s, 1, &HC0A)
ilsic 0 ' Interface Clear
ilsre 0, 1 ' Remote Enable
ilwrt IFid, "INI", 3
Sleep 3000
Else
MsgBox "GPIB I/F(GPIB0) can't find"
End If
End Sub
Private Sub Command1_Click() ' Start sample-1
Call InitIF ' initialize the GPIB I/F
ilwrt IFid, "SW1", 3 ' LOAD ON
Dim i As Integer
Dim curr As Double
Dim cmd As String
Dim rcv As String
curr = 50# „ set 50A as the initial value
For i = 0 To 10 ' set No of loops for 11 times
cmd = "CC" & CStr(curr) ' create cc setting command
ilwrt IFid, cmd, Len(cmd)
ilwrt IFid, "MV1", 3 ' Volt meas in HIGH range
' send a command
rcv = " " ' fill in receive characters domain
with blank
ilrd IFid, rcv, 16 ' receive meas. value
MsgBox rcv & "[V]", vbInformation, "Voltage" ' receive meas. voltage
ilwrt IFid, "MC0", 3 ' send current meas, command
rcv = " "
ilrd IFid, rcv, 16
MsgBox rcv & "[A]", vbInformation, "Current"
curr = curr - 5# ' decrease next setting by 5A
Next i
MsgBox "End CC set & Measure loop Sample Program"
ilwrt IFid, "SW0", 3 ' LOAD OFF
ilwrt IFid, "CC0", 3 ' Set value for 0A
End Sub ' End of sample -1）

KEISOKU GIKEN LOAD EDGE Series Specifications

General

Brand	KEISOKU GIKEN
Model	LOAD EDGE Series
Category	Measuring Instruments
Language	English