6241A/6242 直流電圧・電流源／モニタ 取扱説明書

Transcription

1 6241A/ GPIB/USB また プログラミングに必要なコマンド一覧やプログラム例を示します 6.1 GPIB USB USB (USB.Id) USB GPIB USB.Id 1 GPIB L) I/F 1) I/F BUS L) I/F 3) Header 6-1

2 6241A/ *CLS *ESE *ESR *IDN *OPC *RST *SRE *STB *TRG *TST *WAI AVE AVN AZ AZ AZ BS BZ BZ BZ BZ BZ BZ C CAL CAL CAL CO CO CO CP CP CP CP CP CP CP CP CW CW CW D DBI DBV DL DL DL DL DL DM DM DM DSE DSR E ERC ERL ERR F F F F F FL FL FL FX FX FX G H I , 6-37 I I I I I I I IF IT IT IT IT IT IT IT IT

3 6241A/ IT IT KA KB KC KHI KLO KNL LF LMI LMV M M M MAX MD MD MD MD MD MIN MN MN MN N , 6-38 NL NL NL NP NZ NZ NZ OH OH OH OP OP OP OP OP OP OPR P , 6-38 R R R RB RB RB RCLP RCLP RCLP RCLP RCLR RD RE RE RE RE RINI RL RLOD RN RNM RS RS RS RSAV S S S SB SBY SC SCL SCL SCL SD SF SINI SIR SIR SIR SIR SIR SIR SIR SIR SIRX SM SN SOI SOV SP SR SR SR SS ST ST ST ST

4 6241A/ STP STP STP STP SUS SUV SUZ SUZ SUZ SV SV SV SVR SVR SVR SVR SVRX SWSP SX SZ TER TOT UZ UZ UZ V , 6-37 V V V VF XADJ XD XDAT XDN XILH XILL XIM XINI XIS XNXT XR XR XR XR XR XR XR XUP XVLH XVLL XVM XVS XWR

5 6241A/ GPIB 6.3 GPIB GPIB(General Purpose Interface Bus) GPIB USB IEEE ASCII 0"High" +2.4 V 1"Low" +0.4 V 6-1 SH1 AH1 T5 L4 SR1 RL1 PP0 DC1 DT1 C0 E2 SDC, DCL GET 3 6-5

6 6241A/ GPIB GPIB 1. 20m m 408JE-1P5 1m 408JE-101 2m 408JE-102 4m 408JE male, female GPIB OFF 5. ATN ATN ATN ms REN LOW 6-6

7 6241A/ GPIB GPIB GPIB 1. MENU, L) I/F L) I/F 2. 1) I/F BUS GPIB 3., 2) GPIB 2) GPIB Adr ) GPIB Adr 01 5., EXIT 2) GPIB Adr MENU, L) I/F L) I/F 2. 1) I/F BUS GPIB 3., 4) Talk Only 4) Talk Only Off 4. 4) Talk Only Off 5. ON/OFF. EXIT 4) Talk Only On 6-7

8 6241A/ USB 6.4 USB USB2.0 USB(Universal Serial Bus) USB USB USB2.0 Full-Speed USB B ID USB.Id ASCII ASCII ADC USB USB USB B USB 1 USB 6-8

9 6241A/ USB USB Id USB MENU, L) I/F L) I/F, 2) USB Id, ) I/F BUS 2) USB Id 2) USB Id USB EXIT USB 20msec 6-9

10 6241A/ IEEE IEEE & 0 1 : : : & 1 : : : n-1 & n-1 n & n OR Summary *CLS AND OR 4 (STB) (SESR) (DESR) (ERR) 6-10

11 6241A/

12 6241A/ : *SRE : *ESE : DSE EOM EOM 1 DSB 1 DSB Device Event Status Register ESB Standard Event Status Register DSB ESB 1 MSS MSS RQS ESB MAV DSB X MSS bit6 bit6 bit6 (MSS) RQS bit0 5 bit7 RQS RQS 0 0 RQS MSS "*CLS" SRQ

13 6241A/ (STB) bit DSB Device Event Status 4 MAV Message Available 5 ESB Standard Event Status 6 MSS Master Summary RQS Request Service 7 0 ON : DESR 1 DESER 1 1 OFF : DESR (DSR?) 0 ON : 1 OFF : 0 ON : SESR 1 SESER 1 1 OFF: SESR (*ESR?) 0 ON : STB SRER 1 1 ON : MSS 1 SRQ RQS 1 OFF : STB *CLS MAV DSB MAV ESB *STB? *SRE0 6-13

14 6241A/ (ESR) bit 0 OPC Operation Complete ON : *OPC 1 3 DDE Device Dependent Error 4 EXE Execution Error 5 CME Command Error ON : 1 ON : 1 1 ON : PON Power On ON : OFF ON 1 *CLS *ESR? *ESE0 6-14

15 6241A/ (DSR) bit 0 HI ON : HI 1 Comparator HI 1 GO ON : GO 1 Comparator GO 2 LO ON : LO 1 Comparator LO ASN ON : Arrive at Store Number 5 SUS Suspend ON : 1 OFF : 0 6 LML ON : Low 1 Limiter Low 7 LMH ON : High 1 Limiter High 8 EOP ON : 1 Ext.Operate Off In 9 ETG ON : 1 Ext.Trigger In 10 MFL Memory Full ON : 1 OFF : 0 11 OPR Operate ON : 1 OFF : 0 12 CAE Calibration End ON : 1 OFF : 0 13 SWE Sweep End ON : 1 OFF : 0 14 SSC Sweep Step Complete 15 EOM End Of Measure ON : ; HOLD 1 OFF : 0 0 ON : 1 OFF :

16 6241A/ *CLS DSR? DSE0 6-16

17 6241A/ (ERR) bit 0 ON : 1 1 ON : 1 2 ON : ON ON : ON : ON : ON : 1 7 ON : ON 1 Save/Load ON 1 OFF 8 ON : ON : 1 10 ON : ON : 1 13 ON : 1 14 ON : 1 15 ON : 1 *CLS ERR? 6-17

18 6241A/ (RECALL) ± E ± CRLF H D E B H : + 1 D : + +6 E : E+ +2 B : 1. OFF DV : DI : RM : EE : U : B : O : Z : 0 F : E : H : HI G : GO L : LO C : N : NULL : 6-18

19 6241A/ mV ±ddd.dddd E-03 ±d.dddddd E-01 3V ±d.dddddd E+00 E+00 30V/6V ±dd.ddddd E+00 E+01 30μA ±dd.ddddd E-06 E μA ±ddd.dddd E-06 E-04 3mA ±d.dddddd E-03 E-03 30mA ±dd.ddddd E-03 E mA/300mA ±ddd.dddd E-03 E-01 3A ±d.dddddd E+00 E+00 5A ±d.dddddd E+00 E+00 1 ±0000.0d ±00000.d ±00000d. ±00000d. E-11 E+09 2 ±0000.dd ±0000d.d E-10 ±0000d.d E+10 ±0000dd. 3 ±000d.dd ±000d.dd E-09 ±000dd.d E-09 E+11 E+09 ±000ddd. 4 ±00d.ddd ±00d.ddd ±00dd.dd ±00ddd.d 5 ±0d.dddd ±0d.dddd ±0dd.ddd ±0ddd.dd High * E E+37 Low * E E+36 ± ± E+35 ± E

20 6241A/ IS 20 IM 200 * E E+34 VS 0 * E E+33 ± ± E+32 ± E+32 ±TOTAL ± E+31 ± E+31 * E E+30 *1 : *2 : 3. 1 CR LF+EOI DL0 LF EOI LF+EOI DL1 DL2 DL3 EOI GPIB USB 6-20

21 6241A/ ,, ; 1. (*)? (,) (,) (;) (,) ( 1 ) 6-21

22 6241A/ : NR1 : NR2 : NR3 E/e 2. D V 10 0 MV 10-3 UV 10-6 A 10 0 MA 10-3 UA 10-6 ±31 (xx.xxxe±31) ±

23 6241A/ ON ON *RST RINI *5 RINI *6 RINI *RST 2. [ ] < > 1 DC OPR/SUS HOLD OPR/SUS MD0 DC ON DC/ MD1 MD2 MD3 MD? DC :MD0 MD3 VF IF V? :VF V3 V5 I? IF I-1 I4 / I-1 I5 SVRX SVR3 SVR4 SVR5 SVR? 300mV 3V 30V 6V : SVRX3 SVRX5 SVR3 SVR

24 6241A/ SIRX ON DC/ SIR-1 SIR0 SIR1 SIR2 SIR3 SIR4 30μA 300μA 3mA 30mA 300mA 500mA 3A SIR5 5A *9 SIR? :SIRX-1 SIRX 5 SIR-1 SIR 5 SOV ±data 0 SOI ±data 0 SOV? : SOV ± d.dddde ± d *1 *2 SOI? SOI ± d.dddde ± d G ±data LMV ±data1 [,±data2] ±32V/ ±6V LMI ±data1 [,±data2] High Low data1 data2 High Low data2 data1 +data1 High -data1 Low ±500mA/ ±300mA 1. LMI data1 data2 2. High Low 60digits LMV? :LMV ± <hl>, ± <ll> *1 LMI? LMI ± <hl>, ± <ll> *1 hl : <d.ddde ± d> High ll : <d.ddde ± d> Low *1 *1: *2: *9: 6241A 6-24

25 6241A/ SUV ± data : 0 ± 32V / 0 ± 6V SUV? : SUV ± d.dddde ± d *1 ON 0 DC/ Hiz/ Loz SUZ0 SUZ1 SUZ? Hiz : Loz : : SUZ0 SUZ1 DBV ± data 0 DBI ± data 0 DBV? : DBV ± d.dddde ± d *1 DBI? DBI ± d.dddde ± d M0 AUTO M1 HOLD M? : M0 M1 SBY OPR SUS OFF ON SBY?, OPR?, SUS? : SBY?, OPR?, SUS? OPR SUS SBY RS0 RS1 RS? 2W 4W : RS0 RS1 *1: 6-25

26 6241A/ SP Th,Td,Tp[,T w] SP? Th : 3ms Td : : ms 4ms Tp : Tw 50ms Tw : { : SP<Th>,<Td>,<Tp>,<Tw> Th,Td,Tp,Tw:<d.dddd> *1 ON 25ms DC/ SD Tds Tds: : ms 0.03ms SD? : SDd.dddd *1 FL0 SLOW FL1 FAST FL? :FL0 FL1 SN [± st, ± sp, step] st: sp: 0.01mV/ 0.001μA 1mV/ 0.1μA step: 0.01mV/ 0.001μA SN? :SN ± <st>, ± <sp>, <step> *1 SF [± lvl, cnt] st,sp,step: <d.dddde ± d> lvl: 0V/0A cnt: (1 8000) 1 SF? : SF ± <lvl>,<cnt> *1 lvl: <d.dddde ± d> cnt: <dddd> SC [st,sp] st: (0 7999) 0 *3 sp: (0 7999) 0 SC? :SCst,sp st,sp:<dddd> *1: *3: 6-26

27 6241A/ SM fd: 0.01mV/ 0.001μA [±fd, ±md, ±ld, st1, st2] md: ON 1mV/ 0.1μA DC/ ld: st1: 1 st2: 2 2mV/ 0.2μA 0.01mV/ 0.001μA 0.01mV/ 0.001μA SM? :SM<±fd>, ±<md>,±<ld>,<st1>,<st2> *1 fd,md,ld,,st1,st2: <d.dddde±d> SX? : : SN?? : SF? : SC? : SM? *1: 6-27

28 6241A/ ON DC/ N [adr] P N P N<adr>,SVR<n>,SOV<data1>,SOV <data2>,...,p N<adr>,SIR<n>,SOI<data1>,SOI <data2>,...,p adr: data1: adr data2: adr *6 N? [adr] : N<adr>,SVR<n>,SOV ± <data>,p N<adr>,SIR<n>,SOI ± <data>,p adr: <dddd> n: <d> data: <d.dddde ± d> *1 NP? RSAV RLOD : RCLR BS [data] data: 0 BS? :BS ± <d.dddde ± d> *1 SB [data] data: 0 SB? :SB ± <d.dddde ± d> *1 RTB (Return To Bias) RB0 RB1 RB? OFF ON :RB0 RB1 *1: *6: RINI *RST 6-28

29 6241A/ ON DC/ SR0 SR1 SR? SV0 SV1 SV? :SR0 SR1 OFF ON :SV0 SV1 SS cnt cnt: (0 1000) 0 SS? : SSdddd 1 SWSP *TRG F0 OFF F1 F2 F3 (DCV) (DCI) (OHM) F? :F0 F3 R0 AUTO R1 R? :R0 R1 FX0 FX1 FX? OFF ON (VSIM/ISVM) OFF OFF : FX0 FX1 6-29

30 6241A/ IT0 100μs IT1 500μs ON DC/ IT2 IT3 IT4 IT5 IT6 IT7 IT8 IT? 1ms 5ms 10ms 1PLC 100ms 200ms S/H :IT0 IT8 AZ0 OFF AZ1 AZ? ON :AZ0 AZ1 DM0 DM1 DM? :DM0 DM1 RE3 3 1 / 2 RE4 4 1 / 2 RE5 5 1 / 2 RE? :RE3 RE5 RD Ard RD? Ard: ms *1 : RDddddd. 0 ST0 ST1 OFF ON *7 ST2 ON ST? :ST0 ST2 RL *1: *7: ST0 ST1 6-30

31 6241A/ ON DC/ RN n[,adr] n : RN? SZ? adr: (0 7999) <EE E+30> : RNn,adr n : <d> adr: <dddd> :<dddd> 0 *6 RNM adr adr: (0 8000) (DSR) 4 (ASM) 0 *6 RNM? : RNMdddd NULL NL0 OFF NL1 NL? KNL ± data KNL? ON :NL0 NL1 NULL NULL OFF *4 :KNL ± d.ddddde ± dd 0 CO0 OFF CO1 CO? ON :CO0 CO1 KHI ± data 0 KLO ± data *4 0 KHI? KLO? : KHI ± d.ddddde ± dd KLO ± d.ddddde ± dd *4: 0 ± E+24 *6: RINI *RST 6-31

32 6241A/ ON DC/ SCL0 SCL1 OFF ON SCL? : SCL0 SCL1 KA a a: A 0 1 KB b b: B 0 KC c c: C *4 1 KA? KB? KC? : KA ± d.ddddde ± dd KB ± d.ddddde ± dd KC ± d.ddddde ± dd MAX/MIN MN0 OFF MN1 MN? ON :MN0 MN1 AVE? 0 MAX? E+26 MIN? E+26 TOT? 0 AVN? : AVN d.ddddde+dd 0 STP0 STP1 0 1 STP2 2 STP3 3 SINI RCLP0 RCLP1 RCLP2 RCLP3 RINI *4: 0 ± E

33 6241A/ ON DC/ *RST *6 C *IDN? : ADC Corp.,nnnnn,xxxxxxxxx,yyyyy ADC Corp.: 9 nnnnn: "6241A" 5, "6242" 4 xxxxxxxxx: 9 yyyyy: ROM 5 LF? : LF0...50Hz LF1...60Hz NZ0 OFF NZ1 NZ? BZ0 BZ1 BZ2 BZ3 BZ4 BZ? UZ0 UZ1 UZ? ON :NZ0 NZ1 OFF ON HI ON GO ON LO ON HI or LO :BZ0 BZ4 OFF ON :UZ0 UZ1 *TST? :0; Pass 1; Fail TER? : a,b,c,d a,b,c,d ERL? : ± ddd, ± ddd, ± ddd, ± ddd, ± ddd + ERC? :ddd 000: : : 6-33

34 6241A/ ON DC/ OP0 OP1 STBY In (IN) OPR/STBY In (IN) OP2 InterLock In (IN) OP3 Operate Out (OUT) OP4 OPR/SUS In (IN) OP? :OP0 OP4 CP0 COMPLETE Meas Front CP1 COMPLETE Meas End CP2 COMPLETE Comp HI HI CP3 COMPLETE Comp GO GO CP4 COMPLETE Comp LO LO CP5 COMPLETE Comp HI or LO HI LO CP6 Sync Out CP? :CP0 CP6 CW0 : 10μs CW1 : 100μs CW? :CW0 CW1 GPIB DL0 DL1 DL2 CRLF<EOI> LF <EOI> *5 *8 DL3 LF<EOI> DL? :DL0 DL3 OH0 OFF OH1 ON *6 OH? : OH0 OH1 *5: RINI *6: RINI *RST *8: EOI GPIB USB 6-34

35 6241A/ GPIB SRQ S0 ON S1 OFF S? :S0 S1 *STB? (STB) :ddd *SRE *SRE? (0 255) :ddd ON *5 0 *6 DC/ *ESR? *ESE *ESE? DSR? DSE DSE? ERR? *CLS (ESR) :ddd (0 255) :ddd (DSR) : ddddd ( ) : ddddd (ERR) : ddddd 0 *6 0 *6 *OPC *OPC? *WAI LSB :1 GPIB *5: RINI *6: RINI *RST 6-35

36 6241A/ SW CAL0 OFF ON DC/ CAL1 CAL? ON :CAL0 CAL1 XINI XWR XVS XIS XVLH XVLL XILH XILL XVM XIM (High) (Low) (High) (Low) XR-1 XR0 XR1 XR2 XR3 XR4 XR5 XR-1-30μA XR0-300μA XR1-3mA XR2-30mA XR3 300mV 300mA XR4 3V 500mA/3A XR5 30V/6V 5A *9 XDAT DMM XD XADJ XUP XDN XNXT data: DMM (UP) (DOWN) *5: RINI *6: RINI *RST *9: 6241A 6-36

37 6241A/ ON DC/ V3 V4 V5 300mV 3V 30V 6V I-1 30μA I0 I1 I2 I3 I4 300μA 3mA 30 A 300mA 500mA 3A I5 5A *9 V? :V3 V5 I1 I5 I? D ± data UNIT UNIT UNIT : ; V, V, μa, ma, A UNIT : +data High -data Low D? :D ± <data1>unit,d <data2>unit data1: <d.dddde ± d> *1 data2: <0d.dddE ± d> *1 UNIT:V A High Low D ± d.dddde ± dunit, D E + 9UNIT *9: 6241A 6-37

38 6241A/ TER? ON DC/ H E OFF ON E?, H? : E?, H? E H H D N [adr] P N P N<adr>,D<data1><UNIT>,D<data2> <UNIT>,...,P adr: (0 7999) data1: adr data2: adr+1 0 * *6: RINI *RST TER? TER? 1. ddddd,ddddd,ddddd,ddddd,ddddd a b c d e 2. a, b, c, d, e 5-17 TER a, b, c, d, e VSVM 3V +FS 00000, 00000, 00016, 00000,

39 6241A/ GPIB GPIB R : DELL OPTIPLEX 170L(Pentium 4 CPU 2.80GHz) GPIB : NATIONAL INSTRUMENTS GPIB-USB-HS : Niglobal.bas, Vbib-32.bas GPIB-USB-HS : Microsoft Excel Visual Basic for Application 2.2 1: DC 2: : : GPIB : DC Option Explicit Private Sub Sampl1_GPIB_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer Dim dt As String * 20 GPIB board=0 GPIB 0 pad=1 1 Call ibdev(board,pad,0,t10s,1,0,vig) Call ibconfig(vig,ibcunaddr,1) Call ibwrt(vig, "C,*RST" & vblf) Call ibwrt(vig, "OH1" & vblf) Call ibwrt(vig, "M1" & vblf) Call ibwrt(vig, "VF" & vblf) Call ibwrt(vig, "F2" & vblf) 10s DCL ON 6-39

40 6241A/ GPIB Call ibwrt(vig, "SOV1,LMI0.003" & vblf) DC 1V 3mA Call ibwrt(vig, "OPR" & vblf) ON Call SUBmeas(vig, dt) & Cells(1, 1) = Left(dt, 15) Call ibwrt(vig, "SOV2" & vblf) Call SUBmeas(vig, dt) Cells(2, 1) = Left(dt, 15) DC 2V & Call ibwrt(vig, "SOV-2" & vblf) DC -2V Call SUBmeas(vig, dt) & Cells(3, 1) = Left(dt, 15) Call ibwrt(vig, "SOV4" & vblf) Call SUBmeas(vig, dt) Cells(4, 1) = Left(dt, 15) Call ibwrt(vig, "F1" & vblf) Call ibwrt(vig, "IF" & vblf) DC 4V & Call ibwrt(vig, "SOI0.002,LMV3" & vblf) DC 2mA 3V Call ibwrt(vig, "OPR" & vblf) ON Call SUBmeas(vig, dt) & Cells(5, 1) = Left(dt, 15) Call ibwrt(vig, "SBY" & vblf) Call ibonl(vig, 0) End Sub OFF Private Sub SUBmeas(vig As Integer, dt As String) & Call ibwrt(vig, "*TRG" & vblf) Call ibrd(vig, dt) End Sub DI E-03 DI E-03 DI E-03 DIU E-03 DV E

41 6241A/ GPIB : Option Explicit Private Sub Sampl2_GPIB_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer Dim dt As String * 20 GPIB board=0 GPIB 0 pad=1 1 Call ibdev(board,pad,0,t10s,1,0,vig) Call ibconfig(vig,ibcunaddr,1) Call ibwrt(vig, "C,*RST" & vblf) Call ibwrt(vig, "OH1" & vblf) Call ibwrt(vig, "M1" & vblf) Call ibwrt(vig, "VF" & vblf) Call ibwrt(vig, "F2" & vblf) Call ibwrt(vig, "MD1" & vblf) 10s DCL ON Call ibwrt(vig, "SOV2,LMI0.003" & vblf) 2V 3mA Call ibwrt(vig, "DBV1" & vblf) 1V Call ibwrt(vig, "SP3,1,130,50" & vblf) 3ms 1ms 130ms 50ms Call ibwrt(vig, "OPR" & vblf) ON Call SUBmeas(vig, dt) & Cells(1, 1) = Left(dt, 15) Call ibwrt(vig, "SOV2.5" & vblf) 2.5V Call SUBmeas(vig, dt) & Cells(2, 1) = Left(dt, 15) Call ibwrt(vig, "SP3,60,130,50" & vblf) 3ms 60ms 130ms 50ms Call SUBmeas(vig, dt) & Cells(3, 1) = Left(dt, 15) Call ibwrt(vig, "DBV0.5" & vblf) 0.5V Call SUBmeas(vig, dt) & Cells(4, 1) = Left(dt, 15) Call ibwrt(vig, "SBY" & vblf) OFF Call ibonl(vig,0) End Sub Private Sub SUBmeas(vig As Integer, dt As String) & 6-41

42 6241A/ GPIB Call ibwrt(vig, "*TRG" & vblf) Call ibrd(vig,dt) End Sub DI E-03 DI E-03 DI E-03 DI E : Option Explicit Private Sub Sampl3_GPIB_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer Dim dt As String*20 Dim s As Integer Dim rownum As Integer GPIB board = 0 GPIB 0 pad = 1 1 Call ibdev(board,pad,0,t10s,1,0,vig) Call ibconfig(vig,ibcunaddr,1) 10s Call SUBsend(vig, "C,*RST" & vblf) Call SUBsend(vig, "*CLS" & vblf) Call SUBsend(vig, "*SRE8" & vblf) Call SUBsend(vig, "DSE8192" & vblf) Call SUBsend(vig, "S0" & vblf) Call SUBsend(vig, "OH1" & vblf) Call SUBsend(vig, "VF" & vblf) Call SUBsend(vig, "F2" & vblf) Call SUBsend(vig, "MD2" & vblf) DCL bit3 1 bit13 1 SRQ SRQ ON Call SUBsend(vig, "SN0.5,5,0.5" & vblf) : 0.5V 5V 0.5V Call SUBsend(vig, "SB0" & vblf) 0V Call SUBsend(vig, "SP3,4,100" & vblf) 3ms 4ms 100ms Call SUBsend(vig, "LMI0.03" & vblf) 30mA Call SUBsend(vig, "ST1,RL" & vblf) Call SUBsend(vig, "OPR" & vblf) Call SUBsend(vig, "*TRG" & vblf) ON ON 6-42

43 6241A/ GPIB Call ibwait(vig,rqs Or TIMO) SRQ If (ibsta And TIMO) Then Call MsgBox("SRQ Time Out",vbOKOnly,"Error") Else Call ibrsp(vig,s) End If If Call SUBsend(vig, "SBY" & vblf) rownum = 1 OFF Call SUBsend(vig, "RN1,0" & vblf) 0 Do Call ibrd(vig,dt) +1 Cells(rowNum, 1) = Left(dt, 15) If 1=InStr(1,dt,"EE E+30") Then Exit Do End If If rownum = rownum Loop Do Call SUBsend(vig, "RN0,0" & vblf) Call ibonl(vig,0) End Sub DI E-03 DI E-03 DI E-03 DI E-03 DI E-03 DI E-03 DI E-03 DI E-03 DI E-03 DI E-03 EE E

44 6241A/ GPIB : 100 Option Explicit Private Sub Sampl4_GPIB_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer Dim dt As String*20 Dim dt_sz As Integer Dim dt_rn(100) As String*20 Dim i As Integer,s As Integer GPIB i:for s: board = 0 GPIB 0 pad = 1 1 Call ibdev(board,pad,0,t30s,1,0,vig) Call ibconfig(vig,ibcunaddr,1) Call ibwrt(vig, "C,*RST" & vblf) Call ibwrt(vig, "*CLS" & vblf) Call ibwrt(vig, "*SRE8" & vblf) Call ibwrt(vig, "DSE8192" & vblf) Call ibwrt(vig, "S0" & vblf) Call ibwrt(vig, "VF,F2" & vblf) Call ibwrt(vig, "MD2" & vblf) 30s DCL bit3 1 bit13 1 SRQ SRQ Call ibwrt(vig, "SN0.05,5,0.05" & vblf) 0.05V 5V 0.05V Call ibwrt(vig, "SB0" & vblf) 0V Call ibwrt(vig, "SP3,4,100" & vblf) 3ms 4ms 100ms Call ibwrt(vig, "LMI0.03" & vblf) 30mA Call ibwrt(vig, "ST1,RL" & vblf) Call ibwrt(vig, "OPR" & vblf) Call ibwrt(vig, "*TRG" & vblf) ON ON Call ibwait(vig, RQS Or TIMO) SRQ If (ibsta And TIMO) Then Call MsgBox("SRQ Time Out",vbOKOnly,"Error") Else Call ibrsp(vig,s) End If If Call ibwrt(vig, "SBY" & vblf) OFF 6-44

45 6241A/ GPIB Call ibwrt(vig, "SZ?" & vblf) Call ibrd(vig, dt) dt_sz = Val(dt) Call ibwrt(vig, "OH0" & vblf) Call ibwrt(vig, "DL2" & vblf) Call ibwrt(vig, "RN1,0" & vblf) For i=1 To dt_sz Call ibrd(vig, dt) dt_rn(i) = dt Next i Call ibwrt(vig, "RN0,0" & vblf) EOI OFF EOI 0 +1 For For i=1 To dt_sz Cells(i, 1) = i Cells(i, 2) = "'" & Left(dt_rn(i), 12) Next i For Call ibonl(vig, 0) End Sub E E E-03 ( ) E E E

46 6241A/ USB USB USB R : DELL OPTIPLEX 170L(Pentium 4 CPU 2.80GHz) : asub.bas ADC USB : Microsoft Excel Visual Basic for Application GPIB : DC USB USB.Id DC Option Explicit Private Const OK As Integer = 0 Private Sub Sampl1_USB_Click() OK Dim vig As Long Dim myid As Long Dim ret As Long Dim dt As String myid = 1 USB USB.Id USB USB.Id"1" ret = ausb_start(10) USB :10 If ret <> OK Then USB NG MsgBox "USB ", vbexclamation GoTo err_exit End If Call msecsleep(100) USB (100ms) ret = ausb_open(vig, myid) MyID:1 VIG USB If ret <> OK Then NG MsgBox " OPEN ", vbexclamation GoTo err_exit End If Call ausbwrt(vig, "*RST") Call ausbwrt(vig, "OH1") Call ausbwrt(vig, "M1") Call ausbwrt(vig, "VF") Call ausbwrt(vig, "F2") ON 6-46

47 6241A/ USB Call ausbwrt(vig, "SOV1,LMI0.003") Call ausbwrt(vig, "OPR") Call SUBmeas(vig, dt) Cells(1, 1) = Left(dt, 15) Call ausbwrt(vig, "SOV2") Call SUBmeas(vig, dt) Cells(2, 1) = Left(dt, 15) Call ausbwrt(vig, "SOV-2") Call SUBmeas(vig, dt) Cells(3, 1) = Left(dt, 15) Call ausbwrt(vig, "SOV4") Call SUBmeas(vig, dt) Cells(4, 1) = Left(dt, 15) Call ausbwrt(vig, "F1") Call ausbwrt(vig, "IF") DC 1V 3mA ON "&" DC 2V & DC -2V & DC 4V & Call ausbwrt(vig, "SOI0.002,LMV3") DC 2mA "3V Call ausbwrt(vig, "OPR") ON Call SUBmeas(vig, dt) & Cells(5, 1) = Left(dt, 15) Call ausbwrt(vig, "SBY") "OFF err_exit: ret = ausb_close(vig) If ret <> OK Then NG MsgBox " CLOSE ", vbexclamation End If ret = ausb_end() USB If ret <> OK Then USB NG MsgBox "USB ", vbexclamation End If End Sub Private Sub SUBmeas(id As Long, dt As String) & Call ausbwrt(id, "*TRG") Call ausbrd(id, dt) End Sub 6-47

48 6241A/ USB Private Sub ausbwrt(id As Long, command As String) Dim ret As Long ret = ausb_write(id, command) If ret <> OK Then MsgBox " ", vbexclamation GoTo err_exit End If Exit Sub err_exit: ret = ausb_close(id) If ret <> OK Then MsgBox " CLOSE ", vbexclamation End If ret = ausb_end() If ret <> OK Then MsgBox "USB ", vbexclamation End If End Sub Private Sub ausbrd(id As Long, dt As String) Dim ret As Long Dim siz As Long ret = ausb_read(id, dt, 50, siz) If ret = OK Then dt = Left$(dt, siz - 1) Else ret = ausb_clear(id) MsgBox " ", vbexclamation GoTo err_exit End If Exit Sub err_exit: ret = ausb_close(id) If ret <> OK Then MsgBox " CLOSE ", vbexclamation End If ret = ausb_end() If ret <> OK Then MsgBox "USB ", vbexclamation End If End Sub DI E-03 DI E-03 DI E-03 DIU E-03 DV E