KG ELS-304, Operation Manual

Page: 60 / 80

ELS-304
8-6 Programming Mode
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 of Sample-1
）
Call InitIF
' initialize 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 11 times as No. of loops
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 the character region with
blank
ilrd IFid, rcv, 16 ' receipt of meas. value
MsgBox rcv & "[V]", vbInformation, "Voltage" ' receipt of meas. volt.
ilwrt IFid, "MC0", 3 ' send volt. 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 setting vale for 0A
End Sub ' end of sample -1
）