6240A 6. 6. GPIB また プログラミングに必要なコマンド一覧やプログラム例を示します 6.1 GPIB GPIB 6 GPIB GPIB GPIB *CLS... 6-33 *ESE... 6-33 *ESR... 6-33 *IDN... 6-31 *OPC... 6-33 *RST... 6-31 *SRE... 6-33 *STB... 6-33 *TRG... 6-27 *TST... 6-31 *WAI... 6-33 AVE... 6-30 AVN... 6-30 AZ... 6-28 AZ0... 6-28 AZ1... 6-28 BS... 6-26 BZ... 6-31 BZ0... 6-31 BZ1... 6-31 BZ2... 6-31 BZ3... 6-31 BZ4... 6-31 C... 6-31 CAL... 6-34 CAL0... 6-34 CAL1... 6-34 CO... 6-29 CO0... 6-29 CO1... 6-29 CP... 6-32 CP0... 6-32 CP1... 6-32 CP2... 6-32 CP3... 6-32 CP4... 6-32 CP5... 6-32 CP6... 6-32 CW... 6-32 CW0... 6-32 CW1... 6-32 D... 6-35 DBI... 6-24 DBV... 6-24 DL... 6-32 DL0... 6-32 DL1... 6-32 DL2... 6-32 DL3... 6-32 DM... 6-28 DM0... 6-28 DM1... 6-28 DSE... 6-33 DSR... 6-33 E... 6-36 ERC... 6-31 ERL... 6-31 ERR... 6-33 F... 6-27 F0... 6-27 F1... 6-27 F2... 6-27 F3... 6-27 H... 6-36 I... 6-22, 6-35 I1... 6-35 I2... 6-35 I3... 6-35 I4... 6-35 I5... 6-35 IF... 6-22 IT... 6-28 IT0... 6-28 IT1... 6-28 IT2... 6-28 IT3... 6-28 6-1
6240A 6.1 GPIB IT4... 6-28 IT5... 6-28 IT6... 6-28 IT7... 6-28 KA... 6-30 KB... 6-30 KC... 6-30 KHI... 6-29 KLO... 6-29 KNL... 6-29 LF... 6-31 LMI... 6-23 LMV... 6-23 M... 6-24 M0... 6-24 M1... 6-24 MAX... 6-30 MD... 6-22 MD0... 6-22 MD1... 6-22 MD2... 6-22 MD3... 6-22 MIN... 6-30 MN... 6-30 MN0... 6-30 MN1... 6-30 N... 6-26, 6-36 NL... 6-29 NL0... 6-29 NL1... 6-29 NP... 6-26 NZ... 6-31 NZ0... 6-31 NZ1... 6-31 OH... 6-32 OH0... 6-32 OH1... 6-32 OP... 6-32 OP0... 6-32 OP1... 6-32 OP2... 6-32 OP3... 6-32 OP4... 6-32 OPR... 6-24 P... 6-26, 6-36 R... 6-27 R0... 6-27 R1... 6-27 RB... 6-27 RB0... 6-27 RB1... 6-27 RCLP0... 6-30 RCLP1... 6-30 RCLP2... 6-30 RCLP3... 6-30 RCLR... 6-26 RE... 6-28 RE3... 6-28 RE4... 6-28 RE5... 6-28 RINI... 6-30 RL... 6-28 RLOD... 6-26 RN... 6-29 RS... 6-24 RS0... 6-24 RS1... 6-24 RSAV... 6-26 S... 6-33 S0... 6-33 S1... 6-33 SB... 6-27 SBY... 6-24 SC... 6-25 SCL... 6-30 SCL0... 6-30 SCL1... 6-30 SD... 6-25 SF... 6-25 SINI... 6-30 SIR... 6-23 SIR1... 6-23 SIR2... 6-23 SIR3... 6-23 SIR4... 6-23 SIR5... 6-23 SIRX... 6-23 SN... 6-25 SOI... 6-23 SOV... 6-23 SP... 6-25 SR... 6-27 SR0... 6-27 SR1... 6-27 SS... 6-27 ST... 6-28 ST0... 6-28 ST1... 6-28 ST2... 6-28 STP0... 6-30 STP1... 6-30 STP2... 6-30 6-2
6240A 6.1 GPIB STP3... 6-30 SUS... 6-24 SUV... 6-24 SUZ... 6-24 SUZ0... 6-24 SUZ1... 6-24 SV... 6-27 SV0... 6-27 SV1... 6-27 SVR... 6-23 SVR4... 6-22 SVR5... 6-22 SVRX... 6-22 SWSP... 6-27 SX... 6-26 SZ... 6-29 TER... 6-31 TOT... 6-30 UZ... 6-31 UZ0... 6-31 UZ1... 6-31 V... 6-22, 6-35 V4... 6-35 V5... 6-35 VF... 6-22 XADJ... 6-34 XD... 6-34 XDAT... 6-34 XDN... 6-34 XILH... 6-34 XILL... 6-34 XIM... 6-34 XINI... 6-34 XIS... 6-34 XNXT... 6-34 XR1... 6-34 XR2... 6-34 XR3... 6-34 XR4... 6-34 XR5... 6-34 XUP... 6-34 XVLH... 6-34 XVLL... 6-34 XVM... 6-34 XVS... 6-34 XWR... 6-34 6-3
6240A 6.2 GPIB 6.2 GPIB IEEE 488-1978 GPIB (General Purpose Interface Bus) 6.2.1 GPIB GPIB GPIB IEEE 488-1978 GPIB 1 15 GPIB 1 GPIB GPIB GPIB IFC REN GPIB Take Control (TCT) : GPIB : 6.2.2 GPIB 1. GPIB GPIB GPIB 2 6-4
6240A 6.2.2 GPIB GPIB GPIB 1 GPIB 20m 2m GPIB 1 1 15 1 4 GPIB 4 5 10m 5 2m/ = 10m 10 2m 20m GPIB OFF ATN ATN 5ms REN LOW 6-5
6240A 6.2.2 GPIB 2. GPIB 1. MENU 4W/2W( ) RCL( ) 2. DOWN( ) 3., 123... 01 02 4. SEL, 5. MENU HOME GPIB 6-6
6240A 6.2.3 GPIB 6.2.3 GPIB SH1 AH1 T5 L4 SR1 RL1 PP0 DC1 DT1 C0 E2 SDC, DCL GET 6.2.4 IEEE 488-1978 1. (IFC) GPIB 2. (REN) GTL REN LOCAL LOCAL 3. (SPE) (SPD) IFC (SRQ) bit6 (RQS bit) 1 (TRUE) RQS bit 0 (FALSE) 6-7
6240A 6.2.5 (SRQ) 4. (DCL) DCL MAV MAV 0 5. (SDC) DCL SDC 6. (GTL) 7. (LLO) LOCAL 3 GTL REN 6.2.5 GPIB 1. GPIB 2 255 6-8
6240A 6.2.6 2 DCL SDC 255 2 DCL SDC 6.2.6,, ; 1. (*)? 2. 1 3. (,) (,) 6.2.7 4. (;) (,) ( 1 ) 6.2.7 6-9
6240A 6.2.8 1. 3 : 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 6.2.8 IEEE 488.2-1987 1. IEEE 488.2-1987 6-10
6240A 6.2.8 0 & 0 1 : : : & 1 : : : n-1 & n-1 n & n OR Summary *CLS AND OR 4 (STB) (SESR) (DESR) (ERR) 6-11
6240A 6.2.8 6-1 6-1 6-12
6240A 6.2.8 2. 10 : *SRE : *ESE : DSE EOM EOM 1 DSB 1 PRINT 8 ; DSE32768 N88BASIC OUTPUT 708 ; DSE32768 HP200 300 DSB Device Event Status Register ESB Standard Event Status Register DSB ESB 1 MSS 1 PRINT 8 ; *SRE40 N88BASIC OUTPUT 708 ; *SRE40 HP200 300 3. 6-2 MSS RQS ESB MAV DSB 2 1 7 X 5 4 3 2 1 0 MSS 6-2 3 bit6 bit6 bit6 (MSS) RQS 6-13
6240A 6.2.8 bit0 5 bit7 RQS RQS 0 0 RQS MSS *CLS SRQ 6-1 6-1 (STB) bit 0 0 1 0 2 0 3 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-14
6240A 6.2.8 4. 6-2 6-2 (ESR) bit 0 OPC Operation Complete 1 0 2 0 ON : *OPC 1 3 DDE Device Dependent Error 4 EXE Execution Error 5 CME Command Error ON : 1 ON : 1 1 ON : 1 6 0 7 PON Power On ON : OFF ON 1 *CLS *ESR? *ESE0 6-15
6240A 6.2.8 5. 6-3 6-3 (DSR) bit 0 HI Comparator HI 1 GO Comparator GO 2 LO Comparator LO ON : HI 1 ON : GO 1 ON : LO 1 3 0 4 0 5 SUS Suspend 6 LML Limiter Low 7 LMH Limiter High 8 EOP Ext.Operate Off In 9 ETG Ext.Trigger In 10 MFL Memory Full 11 OPR Operate 12 CAE Calibration End 13 SWE Sweep End 14 SSC Sweep Step Complete ON : 1 OFF : 0 ON : Low 1 ON : High 1 ON : 1 ON : 1 ON : 1 OFF : 0 ON : 1 OFF : 0 ON : 1 OFF : 0 ON : 1 OFF : 0 ON : ; HOLD 1 OFF : 0 0 6-16
6240A 6.2.8 6-3 (DSR) bit 15 EOM End Of Measure ON : 1 OFF : 0 0 *CLS DSR? DSE0 6-17
6240A 6.2.8 6. 6-4 6-4 (ERR) bit 0 ON : 1 1 ON : 1 2 0 3 ON : 1 0 4 ON : 1 0 5 ON : 1 0 6 ON : 1 7 0 8 0 9 ON : 1 10 ON : 1 11 0 12 ON : 1 13 ON : 1 14 ON : 1 15 ON : 1 *CLS ERR? 6-18
6240A 6.2.9 6.2.9 (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 : 20 200 E : H : HI G : GO L : LO C : N : NULL : 6-19
6240A 6.2.9 2. 3V ±d.ddddd E+00 ±d.ddddd E+00 15V ±dd.dddd E+00 E+01 3mA ±d.ddddd E-03 E-03 30mA ±dd.dddd E-03 E-02 300mA ±ddd.ddd E-03 E-01 1A ±d.ddddd E+00 E+00 4A ±d.ddddd E+00 E+00 High *1 Low *1 1 ±0000.0d ±00000.d ±00000d. ±00000d. E-08 E+06 2 ±0000.dd ±0000d.d E-07 ±0000d.d E+07 ±0000dd. 3 ±000d.dd ±000d.dd E-06 ±000dd.d E-06 E+08 E+06 ±000ddd. 4 ±00d.ddd ±00d.ddd ±00dd.dd ±00ddd.d 5 ±0d.dddd ±0d.dddd ±0dd.ddd ±0ddd.dd +9.99999 E+37 +9.99999 E+37 +9.99999 E+36 +9.99999 E+36 ± ±9.99999 E+35 ±9.99999 E+35 IS 20 +9.99999 E+34 +9.99999 E+34 IM 200 *1 6-20
6240A 6.2.9 VS 0 *1 +9.99999 E+33 +9.99999 E+33 ± ±9.99999 E+32 ±9.99999 E+32 ±TOTAL ±9.99999 E+31 ±9.99999 E+31 *2 +8.88888 E+30 +8.88888 E+30 *1 : *2 : 3. 1 CR LF+EOI DL0 LF EOI LF+EOI DL1 DL2 DL3 6-21
6240A 6.3 GPIB 6.3 GPIB 6.3.1 GPIB 1. 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 V4 V5 I? IF I1 I5 SVRX SVR4 SVR5 3V 15V 6-22
6240A 6.3.1 GPIB SVR? : SVRX4 SVRX5 SVR 4 SVR 5 SIRX ON DC/ SIR1 SIR2 SIR3 SIR4 SIR5 SIR? 3mA 30mA 300mA 1A 4A :SIRX1 SIRX5 SIR 1 SIR 5 SOV ±data 0 SOI ±data 0 SOV? :SOV ± d.dddde ± d *1 *2 SOI? LMV ±data1 [,±data2] LMI ±data1 [,±data2] SOI ± d.dddde ± d ±15V ±1A High Low data1 data2 High Low data2 data1 +data1 High -data1 Low 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 : 6-23
6240A 6.3.1 GPIB SUV ± data : 0 ± 15V 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 SBY?, OPR?, SUS? OFF ON : SBY?, OPR?, SUS? OPR SUS SBY RS0 RS1 RS? 2W 4W : RS0 RS1 *1 : 6-24
6240A 6.3.1 GPIB SP Th,Td,Tp[,Tw] 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 SN [± st, ± sp, step] st: 0.1mV/ 0.1μA sp: 10mV/ 10μA step: 0.1mV/ 0.1μA SN? :SN ± <st>, ± <sp>, <step> *1 st,sp,step: <d.dddde ± d> SF [± lvl,cnt] lvl: 0V/0A cnt: 1 5000 1 SF? : SF ± <lvl>,<cnt> *1 lvl: <d.dddde ± d> cnt: <dddd> SC [st,sp] st: 0 4999 0 sp: 0 4999 0 SC? :SCst,sp st,sp:<dddd> *1 : *3: *3 6-25
6240A 6.3.1 GPIB ON DC/ SX? : : SN?? : SF? : SC? N adr P N P N<adr>,SVR<n>,SOV<data1>,SOV <data2>,...,p N<adr>,SIR<n>,SOI<data1>,SOI <data2>,...,p adr: 0 4999 data1: adr data2: adr+1 0 0 *6 1. 2. 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? : 0... 1... 0 RSAV RLOD RCLR BS data data: 0 BS? :BS ± <d.dddde ± d> *1 *1 : *6 : RINI *RST 6-26
6240A 6.3.1 GPIB ON DC/ SB data data: SB? :SB ± <d.dddde ± d> *1 0 RTB (Return To Bias) RB0 RB1 RB? OFF ON : RB0 RB1 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 *1 : 6-27
6240A 6.3.1 GPIB IT0 100μs IT1 500μs ON DC/ IT2 IT3 IT4 IT5 IT6 IT7 IT? 1ms 5ms 10ms 1PLC 100ms 200ms :IT0 IT7 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 ST0 ST1 OFF ON *7 ST2 ON ST? :ST0 ST2 RL *7 : ST0 ST1 6-28
6240A 6.3.1 GPIB ON DC/ RN n[,adr] n : 0... 1... RN? adr: 0 4999 <EE +8.88888E+30> : RNn,adr n : <d> adr: <dddd> SZ? :<dddd> NULL NL0 OFF 0 *6 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 ± 999.999E+24 *6 : RINI *RST 6-29
6240A 6.3.1 GPIB 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? -9.99999 E+26 MIN? +9.99999 E+26 TOT? 0 AVN? STP0 STP1 STP2 STP3 SINI RCLP0 RCLP1 RCLP2 RCLP3 : AVN d.ddddde+dd 0 1 2 3 0 3 0 1 2 3 RINI *4: 0 ± 999.999E+24 0 6-30
6240A 6.3.1 GPIB ON DC/ *RST *6 C *IDN? : ADC Corp., R6240A, XXXXXXXXX, YYYYY ADC Corp.: 9 R6240A: 6 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 0 65535) ERL? : ± ddd, ± ddd, ± ddd, ± ddd, ± ddd + ERC? : ddd 000: 001 999: 006 999: 6-31
6240A 6.3.1 GPIB 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 DL3 LF<EOI> DL? :DL0 DL3 OH0 OFF OH1 ON *6 OH? : OH0 OH1 *5 :RINI *6 :RINI *RST 6-32
6240A 6.3.1 GPIB 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 (0 65535) : ddddd (ERR) : ddddd 0 *6 0 *6 *OPC *OPC? *WAI LSB :1 *5 :RINI *6 :RINI *RST 6-33
6240A 6.3.1 GPIB SW CAL0 OFF ON DC/ CAL1 CAL? ON :CAL0 CAL1 XINI XWR XVS XIS XVLH XVLL XILH XILL XVM XIM (High) (Low) (High) (Low) XR1 XR2 XR3 XR4 XR5 XR1-3mA XR2-30mA XR3-300mA XR4 3V 1A XR5 15V 4A XDAT DMM XD XADJ XUP XDN XNXT data: DMM (UP) (DOWN) 6-34
6240A 6.3.1 GPIB ON DC/ V4 3V V5 15V I1 3mA I2 I3 I4 I5 30 A 300mA 1A 4A V? :V4,V5 I1 I5 I? D ± data UNIT UNIT UNIT : ; V,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 09.999E + 9UNIT 6-35
6240A 6.3.2 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 4999) data1: adr data2: adr+1 0 *6 1. 2. *6 :RINI *RST 6.3.2 TER? TER? 1. ddddd,ddddd,ddddd,ddddd a b c d 2. a, b, c, d 5-18 TER a, b, c, d VSVM 15V +FS 00000,00000,00016,00000 6-36
6240A 6.4 6.4 GPIB : FMV-5350ML3 Windows98 GPIB : NATIONAL INSTRUMENTS PCI-GPIB : Niglobal.bas, Vbib-32.bas NI-488.2 : Visual Basic 6 2.2 Visual Basic 1: 2.2.5 DC 2: 2.2.6 3: 2.2.7 4: 6.4.1 1: DC Option Explicit Private Sub Start_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer (Start) GPIB board=0 GPIB 0 pad=1 1 Call ibdev(board,pad,0,t10s,1,0,vig) Call ibconfig(vig,ibcunaddr,1) Call SUBsend(vig,"C,*RST") Call SUBsend(vig,"M1") Call SUBsend(vig,"VF") Call SUBsend(vig,"F2") Call SUBsend(vig,"SOV1,LMI0.003") Call SUBsend(vig,"OPR") Call SUBmeas(vig) Call SUBsend(vig,"SOV2") Call SUBmeas(vig) 10s DCL DC 1V 3mA ON & DC 2V & Call SUBsend(vig,"SOV-2") DC -2V Call SUBmeas(vig) & Call SUBsend(vig,"SOV4") Call SUBmeas(vig) Call SUBsend(vig,"F1") DC 4V & 6-37
6240A 6.4.1 1: DC Call SUBsend(vig,"IF") Call SUBsend(vig,"SOI0.002,LMV3") Call SUBsend(vig,"OPR") Call SUBmeas(vig) Call SUBsend(vig,"SBY") Call ibonl(vig,0) End Sub Private Sub SUBmeas(vig As Integer) Dim dt As String*17 Call ibwrt(vig,"*trg" & Chr(10)) Call ibrd(vig,dt) Text1.SelStart=Len(Text1.Text) Text1.SelText=dt End Sub DC 2mA 3V ON & OFF (Text1) (Text1) Private Sub SUBsend(vig As Integer,cmd As String) Call ibwrt(vig,cmd & Chr(10)) + LF(Chr(10)) End Sub DI +1.00000E-03 DI +2.00000E-03 DI -2.00000E-03 DIU+3.00000E-03 DV +2.00000E+00 6-38
6240A 6.4.2 2: 6.4.2 2: Option Explicit Private Sub Start_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer (Start) GPIB board=0 GPIB 0 pad=1 1 Call ibdev(board,pad,0,t10s,1,0,vig) Call ibconfig(vig,ibcunaddr,1) Call SUBsend(vig,"C,*RST") Call SUBsend(vig,"M1") Call SUBsend(vig,"VF") Call SUBsend(vig,"F2") Call SUBsend(vig,"MD1") Call SUBsend(vig,"SOV2,LMI0.003") Call SUBsend(vig,"DBV1") Call SUBsend(vig,"SP3,1,130,50") Call SUBsend(vig,"OPR") Call SUBmeas(vig) 10s DCL 2V 3mA 1V 3ms 1ms 130ms 50ms ON & Call SUBsend(vig,"SOV2.5") 2.5V Call SUBmeas(vig) & Call SUBsend(vig,"SP3,60,130,50") Call SUBmeas(vig) 3ms 60ms 130ms 50ms & Call SUBsend(vig, "DBV0.5") 0.5V Call SUBmeas(vig) & Call SUBsend(vig,"SBY") Call ibonl(vig,0) End Sub Private Sub SUBmeas(vig As Integer) Dim dt As String*17 Call ibwrt(vig, "*TRG"&Chr$(10)) Call ibrd(vig,dt) Text1.SelStart=Len(Text1.Text)+1 Text1.SelText=dt&vbCrLf End Sub OFF (Text1) (Text1) 6-39
6240A 6.4.2 2: Private Sub SUBmeas(vig As Integer) Dim dt String*17 Call ibwrt(vig,"*trg" & Chr(10)) Call ibwrt(vig,dt) Text1.SelStart=Len(Text1.Text) Text1.SelText=dt End Sub (Text1) (Text1) Private Sub SUBsend(vig As Integer,cmd As String) Call ibwrt(vig,cmd & Chr(10)) + LF(Chr(10)) End Sub DI +2.00000E-03 DI +2.50000E-03 DI +1.00000E-03 DI +0.50000E-03 6-40
6240A 6.4.3 3: 6.4.3 3: Option Explicit Private Sub Start_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer Dim dt As String*17 Dim s As Integer (Start) 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") Call SUBsend(vig,"*CLS") Call SUBsend(vig,"*SRE8") Call SUBsend(vig,"DSE8192") Call SUBsend(vig,"S0") Call SUBsend(vig,"VF") Call SUBsend(vig,"F2") Call SUBsend(vig,"MD2") Call SUBsend(vig,"SN1,10,1") Call SUBsend(vig,"BS0") Call SUBsend(vig,"SP3,4,100") Call SUBsend(vig,"LMI0.03") Call SUBsend(vig,"ST1,RL") Call SUBsend(vig,"OPR") Call SUBsend(vig,"*TRG") DCL bit3 1 bit13 1 SRQ SRQ : 1V 10V 1V 0V 3ms 4ms 100ms 30mA 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 SUBsend(vig,"SBY") Call SUBsend(vig,"RN1,0") Do Call SUBread(vig,dt) OFF 0 6-41
6240A 6.4.3 3: +1 If 1=InStr(1,dt,"EE+8.88888E+30") Then Exit Do End If If Loop Do Call SUBsend(vig,"RN0,0") Call ibonl(vig,0) End Sub Private Sub SUBread(vig As Integer,dt As String) Call ibrd(vig,dt) Text1.SelStart=Len(Text1.Text) Text1.SelText=dt End Sub (Text1) (Text1) Private Sub SUBsend(vig As Integer,cmd As String) Call ibwrt(vig,cmd & Chr(10)) + LF(Chr(10)) End Sub DI +01.0000E-03 DI +02.0000E-03 DI +03.0000E-03 DI +04.0000E-03 DI +05.0000E-03 DI +06.0000E-03 DI +07.0000E-03 DI +08.0000E-03 DI +09.0000E-03 DI +10.0000E-03 EE +8.88888E+30 6-42
6240A 6.4.4 4: 6.4.4 4: 100 Option Explicit Private Sub Start_Click() Dim board As Integer Dim pad As Integer Dim vig As Integer Dim dt As String*17 Dim dt_sz As Integer Dim dt_rn(100) As String*16 Dim i As Integer,s As Integer (Start) 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 SUBsend(vig,"C,*RST") Call SUBsend(vig,"*CLS") Call SUBsend(vig,"*SRE8") Call SUBsend(vig,"DSE8192") Call SUBsend(vig,"S0") Call SUBsend(vig,"VF") Call SUBsend(vig,"F2") Call SUBsend(vig,"MD2") 30s DCL bit3 1 bit13 1 SRQ SRQ Call SUBsend(vig,"SN0.1,10,0.1") : 0.1V 10V 0.1V Call SUBsend(vig,"SB0") 0V Call SUBsend(vig,"SP3,4,100") 3ms 4ms 100ms Call SUBsend(vig,"LMI0.03") 30mA Call SUBsend(vig,"ST1,RL") Call SUBsend(vig,"OPR") Call SUBsend(vig,"*TRG") 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 SUBsend(vig,"SBY") OFF 6-43
6240A 6.4.4 4: Call SUBsend(vig,"SZ?") Call SUBread(vig, dt) dt_sz = Val(dt) Call SUBsend(vig, "OH0") Call SUBsend(vig, "DL2") Call SUBsend(vig, "RN1,0") For i=1 To dt_sz Call SUBread(vig, dt) dt_rn(i) = dt Next i Call SUBsend(vig, "RN0,0") For i=1 To dt_sz dt=str(i)&":"&dt_rn(i) Text1.SelStart=Len(Text1.Text) Text1.SelText=dt Next i Call ibonl(vig, 0) End Sub EOI OFF EOI 0 +1 For (Text1) (Text1) For Private Sub SUBread(vig As Integer,dt As String) Call ibrd(vig, dt) End Sub Private Sub SUBsend(vig As Integer, cmd As String) Call ibwrt(vig, cmd & Chr(10)) + LF(Chr(10)) End Sub 1:+00.1000E-03 2:+00.2000E-03 3:+00.3000E-03 ( ) 98:+09.8000E-03 99:+09.9000E-03 100:+10.0000E-03 6-44