6146/6156 直流電圧／電流発生器 取扱説明書
Contents
1. 2 3 5 6 7 8 9 oo 2 o 2 o gH o r3 ES o O o m ooo 8 5 gt oon 5 H er 2 EJ mE 8 amp 8 oO gt Son S H m r3 E B 5 EE ri Li 3 Z oo rm PEL e Se EX pep meo O0 SET o O EE PE 0 Ed oo EX oo oo so rn zo E rip t rr o Z oo eu Dun dee Ep ee EE B E EIE Hoo num So Zoo mnm o 00 mnm oa gt auk Sao nr gt goo um oa lt dE ESI rmt 0 pb _ o aug g2 sooo Se E Ej g2 o2 E muuge ga 000 aon c o0 gt o0 E E x a oono a ook oo a o0 a EE Ej 00 rtr so a a aa EJ 00 O00 0002. 00 SCImmm nnn 00000 0000 000 SCmmm nnn mmm 0000 No 0 4999 0 nnn No 0 4999 4999 mmm gt 0000000000 00000 000000 90000000 sc 0000 O O SC lt cmmm gt lt nnn gt mmm 00 0 No 0 4999 nnn No 0 4999 SPdd dd 01 SPdd d dd d 0 02 10 000 sec 5 0000000000 O SPdd dd 5 0 I SCMI 0000000000000 SCM2 0000000000000 SCM 0000000000000 SCMO SCM2 0000000 RCLMnnn 00000 0 x x RCLMnnn 0 O No 0 4999 RCLM 000000 0000 RCLM000 RCLM4999 TRG 0000000000 000 0000000000 SWSP D Ud dut 00 100000 SN 00000000000 1 00 start start 0 0001 231 C stop stop 0 0000 33 0 tstep step 0 0001 mA 0 1 e 000000000000000000000 e 00000000000 0000000000000000000 SN SN cstart tstop tstep 0000000
3. 0 0 0000000000000 5 3 PARALLEL 0 1 GND 2 1 3 2 4 4 5 8 6 1 7 2 8 4 9 8 1 1050 10 2 4 8 NC 1 1 2 10 4 1030 8 1 19500 1040 1 100000 57LE 403600 00000 0 0 0 00000 000 1 61460 HH U D D D DU UE DE C UU U 2 1 1 0000000000000000 53 19 0000000000 39000000000 61440 10V 001 I 4 Non Internal Connection H 1 1 HH E DB E E E E E E 00 5 15 6146 61560 00000000000000 5 5 40 0000000 5 5 4 5 5 5 5 16 00000000 0000000 717 0000 1 000000 8000000 0 000000000 1 D 0 404 000 GND 1 E LI LI L 2 4 4525 D 00 D U 7480 373 7 1519 4 55 51 000000 500000 BCDIJUU O 18000 6146 600000 BCD I I 0 22000 6156 200 00000 32000 6146 000000 320000 6156 200mA 00000 22000 6146 000000 220000 6156
4. 0000 XS0 00000000000 000000 x x 81 00000000000 XS 000000000 x XS0 51 XNO 0000 x x XNI 0000 XN 0000000000000 x x XNO XM0 0000000 x x XMI DMM 00000 XM 000000000 x x 0 0000000 XWR 000000000000000 x x 0000000 XMI 000000000 x x RAM 000000000000000000000 XCLR 0000000000000000000000 x x 000000000000000000000 0000000 000000000 x x DAC 0000 XK2 ym1 00 6156 00 XK3 10 00 XK4 5 120 0 XK6 7 ymi2 ymi3 00 XK9 00 DMMIID DDD XK10 ymi5 00 LU XK12 ymi700 5 41 6146 6156 00000000000000 5 8 4 61440 000000000000 5 8 4 61440 0000000000600 10000 61440 00000000000000 0 000000000000000000000000000000000000 6146 61560 O0 00
5. 54 0101 0 0 0 0 000010 STB 2 2 100000 Message Available 0000 SESERTI LI Standard Event Sum 0 OFF SESR 0 CESR 10000000 MSS ON STB 1000 1000 10 Master Summary 0010 RQS SRQ D Request Service STB 000 1000000000000000000000000 e 10000800 e M VT I 00000 e STB Q 0000000000000 11 01010101010001010110010101001000000 00000020000 10000 5 0000000000 4 0 00000000000000000000000000000 5 5000000 155 00000000000 000000000 ESR ON 0 0 0 ON Execution Error ll Command Error 100 Power 5 21 6146 61560 00000000000000 5 6 10 000000000
6. Option Explicit 0000000000000 Public blnUSBComErr As Boolean USB 0000000000 Private Const OK As Integer 0 Private Const l1ngVIGID As Long 1 VIG USB ID 1 Private Const l1ngDMMID As Long 2 DMM USB ID 2 Private Const lngTimeOut As Long 10 Private Const lngStaRow As Long 1 0000000000 Private Const lngMeaNoCol As Long 1 00000 Private Const lngSrcLimitCol As Long 2 160000000000 Private Const lngSrcDataCol As Long 3 viso 0000000 Private Const lngVDataCol As Long 4 0000000000000 Private Const lngIDataCol As Long 5 000000000000 Public Sub SweepAndMeasure USB Dim IngVIGHdl As Long VIG 9580000 Dim lngDMMHdl As Long pMM 9580000 Dim strRecvStr String 0000000000 Dim strSrcLimit As String 1 lt 00000000 Dim strSrcData String vic 0 D U U Dim strMeasVData As String 00000 Dim strMeasIData As String 00000 Dim IngMeasCnt As Long 0000 Dim lngRowNo As Long Dim lngDMMSTB As Long DMM STB Dim lngVIGDSR As Long VIG DSR Dim blnRDYb As Boolean READY Out Bit Dim blnSWEb As Boolean Sweep End Bit Dim blnLMHb As Boolean Limiter High Bit Dim blnLMLb As Boolean Limiter Low Bit IngRowNo IngStaRow 00000000 Call aUSBSta l1ngTimeOut 95
7. 0 16000000 DMM 00000 2 0000000000 D add B DB D B B D 1600000000 0000000000000 DMM STB vic psR READY Out Bit Sweep End Bit Limiter High Bit Limiter Low Bit 00000000 0 intVIGDes 6146 6156 00000000000000 5 940 00000 3 00000000 0000000000 Call ibdev intIFBoardAdr intDMMAdr 0 T10s 1 0 intDMMDes 000000000000000 5 64 Call ibconfig intVIGDes IbcUnAddr 1 Call ibconfig intDMMDes IbcUnAddr 1 00000000000000000000 Call gpibwrt intVIGDes C RST Call gpibwrt intDMMDes C RST Call gpibwrt intVIGDes VF 00000000000 Call gpibwrt intVIGDes MD2 000000000 Call gpibwrt intVIGDes 5 0000000000000 Call gpibwrt intVIGDes 5 0 5 00000000000 0 55 Call gpibwrt intVIGDes 5 0 3 0 01 ov DO 3710000 10mv Call gpibwrt intVIGDes 5 0 00000000 ov Call gpibwrt intVIGDes LMI 0 01 10mA Call gpibwrt intVIGDes RODO READY 0000 10ms Call gpibwrt intVIGDes CLS 000000000 DMM I Call gpibwrt intDMMDes 1 0000000000000 Call gpibwrt
8. 5 22 6146 61560 00000000000000 5 6 2 61440 000000000000000 56 O0000000000000000000 DSR 2 2 14 SWR oN 0000000000000000 1000000 Sweep Run oFF 0Q0000000000000000000000 9000000 15 000 ur o 0 000000000000000000000000000000 e 00000000000 e 5 1 058 0000000000000000000 1000000000000000000000000000000000000 00000 0000000000000 5 6 2 6144 00000000000000 6144 0000000000000000000000000 5 40 D 57 00000 AT AAUSMPZAA STB AYLZFSYNTAXTZ HAST SRQ OFF 1 ART e BUS SRQ ON S0 100000 5 4 614400000 10000 5 23 6146 61560 00000000000000 5 6 2 61440 000000000000000 10000000000000 STB 614400000 5
9. 0 0000000000000000000000000000000000000 0 00000000000000000000000000 lt 1 000000000 00000000000 0 00000000000000000000000000 0000000000 0 0000000000000000000000000000000000000 ANDUUUUUUDDUDLD 98 000000000000000000000000 0 000000000000000000000 0 0000000000000 STB U 0 GESR 0 0000000000000000000 DESK 0 00000000000000000 300000000 5 18 6146 6156 00000 00 000 00000 5610000000000 100000000000000000 5 20 00000 Device Event Status Register Error Queue ERR 5 MH 6 HighU amp yi 711 ERES AD L 8 1 ___ 3 5321 9 IL T READY T L HBHSa pubs T 2 7 14
10. 0 0000000000000000000000 22 0 5 1 2 1 61440 0000000000000 61440 00000000000 0000000000 61560 6144000000 9 00000000000000000000 6144000000 6144000000 00000000000 6144000000 0010000000 0 1590 000 000000000000000000000000 1000000000000000000000000 6144000000000 DU D 5 3 6146 61560 00000000000000 5 1 20 0000100 Da
11. a oo oo o o O Say aaa 5 O ring rib aaa El E EIC 00 qs m pcuuaguuguuusgadalguuuuuuuu amp amp uuuuu r3 rr 5 9 6146 6156 000000000 00000 5 3 3 J 5 3 3 5 10 000000 GPIB 1 0000000000000 62800000000000000 1 2 6146 1 l MENU Qo 7 vn 000 000 6156 1 l 0 0 Qo s vr 000 000 0000000000000 000000 0 000 6280000 6000000000 10 Dann Qu Du 00100101010001 000000 0 4 Qu 0000 000000 62800000 0 0000000000000000 00000 Qu 4 20000 92800000 USB I F BUS BUS USB BUS GPIB
12. IngMeasCnt IngMeasCnt 1 0000000000000 Call aUSBWrt lngDMMHdl TRG 00000000000 Do Call aUSBWrt IngDMMHdl STB STB I LH BU D Call aUSBRd 1ngDMMHdl strRecvStr 00000 IngDMMSTB CLng strRecvStr STB I 0 IngDMMSTB IngDMMSTB And 16 Message Available bit 0000 If blnUSBComErr True Then 05800000000 GoTo ErrExit End If Loop Until 1ngDMMSTB 16 0000000000 Call aUSBRd l1ngDMMHdl strMeasVData DMM 1 L1 DDD D Call aUSBWrt lngDMMHdl F5 0000000000000 Call aUSBWrt lngDMMHdl TRG 00000000000 Call aUSBWrt IngDMMHdl STB STB I LH D D U Call aUSBRd l1ngDMMHdl strRecvStr 00000 IngDMMSTB CLng strRecvStr STB I I 1ngDMMSTB IngDMMSTB And 16 Message Available bit If blnUSBComErr True Then 05800000000 GoTo ErrExit End If Loop Until IngDMMSTB 16 0000000000 Call aUSBRd lngDMMHdl strMeasIData DMM D Hl B D Call aUSBRd lngVIGHdl strSrcData 16000000000 strSrcData Replace strSrcData Sov 000000000 00000000000000 With ActiveSheet Cells lngRowNo lngMeaNoCol Value IngMeasCnt 115 IngRowNo lngSrcLimitCol Value strSrcLimit Cells lngRowNo lngSrcDataCol Value strSrcData Cells lngRowNo lngVDataCol Value strMeasVData Cells lngRowNo lngIDataCol Value strMeasIData End With strSrcLimit Call aUSBWrt lngDMMHdl 1 0000000000000 IngRowNo IngRowNo 1 End
13. a a x m x DU D 2 0 0 000 0000 DSRII 0000 0000000000000000000000000000 61441 0000000000000 SRE SRE ESR ESE ESE DSR DSE CLS 100000000000000000000000000000000 100000000000000000000000000000000 2 72 1 000000000000 9 159 000000 10000000000000000000000000 1000000000000000000000000 10000000 6146 0000000000000 30 000000000000000 1000000000000000 1000000000
14. l azi So DE L3 r3 wolo o 0000000 000000000 000000000 000 000 000000000 2 SOV d ddddE d 000 SOl d ddddE d 0000000000000 8 000000 5 700 000000 000 6146 6156 000000000 00000 5 8 300000000000 R data 0 4999 00000 du 000000000000 0000000000000000 N lt nnn gt SVR lt n gt SOV lt data gt P 000 N lt nnn gt SIR lt n gt SOI lt tdata gt P N lt nnn gt TC lt n gt JSV lt n gt TMP lt tdata gt P 0000000 0000000000000 8 000000 000000 000 00000000000000 52 000000000000000000000 000000 0000000000 5 5 0000000000000 Ci 5 700 6146 61560 00000000000000 5 8 30 0000000000
15. 5 30 5 44 XNXCGLR 5 41 XDT ddddE d 5 41 5 40 nein 5 40 une edge 5 40 5 40 ea 5 40 5 40 XINI aiii eter rient gerens 5 41 Kl ae 5 41 nenne se 5 41 5 41 Pu 5 41 KKI E 5 41 XK3 nee 5 41 een 5 41 uen 5 41 XRG E 5 41 5 41 5 41 5 41 5 41 nenn ei 5 41 5 7 6146 61560 00000000000000 5 3 GPIB 5 3 GPIB GPIB General Purpose Interface Bus 00000000000000000000 5 3 488 2 ASCII 2 4 0 High 0 4 1 Low 100000 100000 10000000000000000000000000000000000000 628 0000000000000000000000000000000000 0 00000000000000000000 100000
16. 5 62 5 9 4 1 00000 6146 61560 00000000000000 59 4000000 3 00000000 0000000000 0000000000000 0000000 0000000 0000000 000 330 03 000 004 03 009 730E 03 000 001E 03 019 789E 03 000 000E 03 3 211 300 301 LMH 40 00000 0 40 01000 0 40 02000 0 2 10000E 0 2 99000E 0 3 00000E 0 Option Explicit Dim lng Dim Ing Dim bln Dim bln Dim bln Private Const Private Const Private Const Private Const Private Const Private Const Private Const Private Const Private Const DMMSTB RDYb As Dim blnSWEb As LMHb As LMLb As Dim intVIGDes As Integer Dim intDMMDes As Integer Dim strRecvStr As String Dim strSrcLimit As String Dim strSrcData As String Dim strMeasVData As String Dim strMeasIData As String Dim IngMeasCnt As Long RowNo As Long As Long Dim IngVIGDSR As Long Boolean Boolean Boolean Boolean IngRowNo IngStaRow 0000 om 000000 Call ibdev intIFBoardAdr intVIGAdr lngSrcDataCol As Long ingVDataCol As Long 4 IngIDataCol As Long 5 Public Sub SweepAndMeasure_GPIB intIFBoardAdr As Integer 0 intVIGAdr As Integer 1 intDMMAdr As Integer 2 ingStaRow As Long 1 ingMeaNoCol As Long 1 lngSrcLimitCol As Long 2 3 02 1110E 00 010 132E 03 02 1110E 00 010 132E 03 02 1110E 00 010 132E 03 000000 105 Ti08 2
17. ULM 5 39 5 39 5 39 OPA 5 39 en 5 39 ins 5 29 OPR RIDERE 5 29 P 5 34 5 43 S eerte CB 5 33 PEMO itu ties 5 33 PUMI zus 5 33 RB 5 36 5 36 RBI 5 36 a iE 5 35 neigen 5 35 ixi nu a a uu ass 5 34 RINE neus URINE 5 40 steve RD Er ee PERPE 5 34 ROD 5 39 RODO 5 39 mu ERR ette HR 5 39 5 I TE 5 32 RSO 5 32 5 32 RSAN canen 5 34 5 37 5 37 5 37 SB 22 222222 222 5 36 SDR ae ne a eat 5 36 SBY nn UNI 5 29 SBY iiec UIN 5 29 DC unus diete ces 5 35 5 43 SC mmm nnn eene 5 35 5 43 Sunset Gite 5 35 5 36 E 5 35 5 36 Nen ape 5 35 5 36 nein 5 35 5 36 SI nee 5 43 SIddd es 5 43 SINIT ertet tee see 5 39 SIR tora 5 30 SIR Urea du 5 30 5 30 ana en 5 30 5 30 SIRXO 5 30 SIRXT rss 5 30 SN start stop step 5 35 5 35 SOI data 0 5 31 5 31 SOV data unit 5 31 5 31 Nj CER 5 35 5 36 SPdd dd 5 35 5
18. 1 I LH LH D 00000000000 NZO 1 0 00000000000000 00 UZO 021 6146 6156 0 0000000000000 5 8 30 000000000 STBY IN I 1 1 D OPR STBY IN I 1 1 0 INTERLOCK 190000 OPR OUT OPR SUS IN 1 0 0 D 1 00000000000000000 P4 000000 READY OU TOO SYNCOUTI DON 00000 CRPO READY 0 0 READY OUT 00000 READY OU READY OU 03000000000 6146 6156 000 00000 58300000000000 DI rT TD oo Oa Er tj ECN rcc oo oo tir oo Ga 000 00000000 5 40 00 30mV OD 0 0 300mV 0 200mA 1 0 poop 30 000 000000 XRI XR5 6146 61560 000000000 00 5831 0000000
19. 5 37 en 5 35 5 36 DaB ee 5 37 5 38 DE ee 5 37 5 37 5 37 De 5 44 D data unit 5 42 I 5 44 dM HC 5 42 De ne 5 33 23 m nsn kasu 5 42 5 33 ERR MU UE 5 38 64 sur sau 5 33 Te AS ms 5 42 NNNM 5 38 5 44 HS d nue 5 42 e BARNES 5 44 MEME 5 42 5 44 EE 5 42 5 44 MEME 5 42 DL cu 5 43 ROREM RENE 5 42 ams 5 40 5 30 CADO LEM E E 5 40 P TEE 5 30 5 40 5 31 5 33 5 31 C DEL eedem 5 33 mamas a s asao SEEN 5 31 CDN2 ui ie 5 33 5 43 5 33 Rico e 5 43 CDNA VENICE O 5 33 ee 5 43 5 5 6146 61560 00000000000000 5 20000000000000000 K3 5 43 o 5 43 s 5 43 5 43 TES 5 43 datal data2 5 32 T MT 5 32 LMV datal data2 5 32 IB b 5 32 5 29 hupm 9 5 29 NID sees 5 29 edel 5 29 hpc 5 43 onini mcm 5 34 NADI eter nte nei 5 34 5 43 5 34 5 38 5 38 5 38 nime md 5 44 5 39 em ee 5 39
20. SPP pus 00000000000000000 BUS GPIB 5 1 6146 61560 00000000000000 5 1 20 0000100 5 1 2 5 2 958000 00 0000 USB 040 lt 000000000000000 6 0000000 6144 0 0000000000000000000 6144 00000 0 00000000000000000000 n n n n n Lr 61441 0 000000000000000000000000000 6146 6156 0 0 0000000000000000000000000000 0000000000 0 0000000000000000000 57000 0 001 000100 000 00000000 5 8 30 0000000000 5 8 4 6144 0000000000000 61440 00008000 00000 1 6146000 MENU MENU 000 0 00 Qn 7 4 7 UF 000 6156000 MENU MENU 000 0 00 8 4 8 UF 000 9000000000000 BUS 9000 Qn 61440000000 u 00000000 FF DES Ent OFF 6146 61560 00000000000000 5 1 20 0000100 gt pau SE 0 00000000000000000000 Ent ON 0000000000 6 00000000000000
21. 0100000000000 0000000000000 eii4 DD 5 8 0000000000000000000000 1 1 00000000 51 00000000 9000000 SYNTAX ERROR SCAN END 1 2 READY 3 4 SCAN BUSY 5 TRIGGER IN 000000000 5 1000 000000000 D 100000000000000000 5 24 6146 6156 00000000000000 5 70 0000000000000000000000 57 1000 1 61460 0 6156000 SOV 30mV SOV dd dddE 3 SOV dd ddddE 3 300mV SOV ddd ddE 3 SOV ddd dddE 3 3V SOV d ddddE 0 SOV d dddddE 0 30V SOV dd dddE 0 SOV dd ddddE 0 5017 SOl d ddddE 3 SOI d dddddE 3 30mA SOl dd dddE 3 SOI dd ddddE 3 200mA SOl ddd ddE 3 SOI ddd dddE 3 TMP 1 TMP dddd dE 0 D 30mV DV d ddddE 2 DV d dddddE 2 300mV DV d ddddE 1 DV d dddddE 1 3V DV d ddddE 0 DV d dddddE 0 30V DV d ddddE 1 DV d dddddE 1 3mA DI d ddddE 3 Di d dddddE 3 30mA DI d ddddE 2 2
22. DL 0000000000000 DLO DL3 0000000 50 8 0000000 4 x A 000 81 58 e 5 58900000000 O O S0 S1 00000 STB 00000000000000 ddd SRE 0000000000000000000000 750 055 255 SRE 6 00 ddd ESR 6 0000000000000000000000 5 0 ddd ESE 6 0000000000000000000000 5 0 5 000000000 0 255 ESE 6 O O DSR 6 00000000000000000000 DSR D D D ddddd DSE 6 0000000000000000000000 0551 0 0000000 65535 DSE 6 ddddd CLS 6 000000000 000000 0000000000000000000000 0000000 00000000 1580000 OPC 100000000 O O WAI 000000000 628 0 00 00000000000000 RINL RSTU 0000000000000 61440 00000000000000 6146 6156 000000000 00000 5 8 300000000000 PSC lt n gt 32767 70 00000 9 00000000000 000000 00 D L 0 0 9 00000000000 0 00000000000000 000 90000000000 29 ADC orp 6146 nnnnnnnnn xxxx ADC Corp 6156 nnnnnnnnn xxxx nnnnnnnnn 00000 xxxx E B B B DL D D UU U rsr 00000000000 00 0 Pass 1 000000000000000 000000 00000000000 ddd 350 Queue overflow 0 000
23. 0000000000000 Do Call aUSBWrt lngVIGHdl DSR Call aUSBRd l1ngVIGHdl strRecvStr lngVIGDSR CLng strRecvStr blnRDYb lngVIGDSR And 1024 usB d HO D D D O UL C U If blnUSBComErr True Then GoTo ErrExit End If Loop Until blnRDYb True Call aUSBWrt lngVIGHdl TRG Do Call aUSBWrt lngVIGHdl DSR Call aUSBRd l1ngVIGHdl strRecvStr If blnUSBComErr True Then 0000 310000 10mv ov OO OO OD READY 10ms 0000000000000 Middle Bus or 00000 00000 16 0000 oN 00 5800000 58000 READY Out bit 0000 READY Out bit 000000000 000000 15800000 00000 5 5 67 6146 61560 000000000 00000 5 9 40 00000 30000000pPMmM0000000000 5 68 GoTo ErrExit End If IngVIGDSR CLng strRecvStr psSR I 0 2580 eie 0000 blnRDYb lngVIGDSR And 1024 READY Out bit blnSWEb lngVIGDSR And 8192 Sweep End bit blnLMHb l1ngVIGDSR And 128 Limiter High bit blnLMLb IngVIGDSR And 64 Limiter Low bit If blnLMHb True Then Limiter High 0000 strSrcLimit LMH End If If blnLMLb True Then Limiter 0000 strSrcLimit strSrcLimit amp LML End If If blnRDYb True Then
24. GPIB I F BUS 01 I F GP Adr 01 GP Adr 02 GP Adr 02 I F GP Adr 6146 61560 00000000000000 5 3 3 GPIB 0 D 000000000 00000 1 6146000 MENU MENU D D UGJ 00 Qu 7 vr uun 7 UF 000 6156 MENU 0 0 D 04 Pu 010 Qo 8 4 UF 000 0000000000000 EE HH kg 298 BUS 000 SPBUUDUD 6000000000 Dom 5 USB Q D onu Qo GPIB 5 000000000000000000 VF 000000 0 GPIB BUS Qu 0000000000 00000 LoOny 90000000000000000 OFF 8 L Only 4 000 Qu ovornggnuun ON 9 UF 00000000 Lony 10 000000000000000 5 11 6146 61560 00000000000000 5 4 USB 5 4 USB 541 O USB2 0 0 OD D D USB Universal Serial Bus 0000000000 100000000000000000000000000000000000 ES 0
25. In 4 Nan 000000 5 111 0 D dddddunit D 0000 6 00000000000000000 e 61440 000000000000000 0 15900000 0 000 159 P 0000000000000 0 00 OFF ON 000000 SC mmm nnn 00000 0000 No D U l 0 159 x N 00000 SCmmm nnn 0000000 mmm 000 No 0 159 nnn O 0 159 000 gt 0000000 HB 00000 000000 90000 e 61440000000000000000 0 sc 0000000000000000000 SCmmm nnn 1 0000000000 000 159 000000000 000 159 51444 SIddd ddd 1 1000 00 150 0000 0000 51 1 0 150000000000000000000 5 43 6146 6156 00000000 00000 584614 U 000000000000 000000000 L3 C3 2 c3 N 00 EJ 5 CH dd 00000000 0 00000000 N gt Q EIE g amp Em S O OGC eA E E e amp otmooHooono VR 8 5 44
26. 0000000000000 53 00000 1 00000000000 0000000000 PUNIRE 53 00000000000000000 000000000000000000000 3000000000000000000000 5600 0000000 00000000000 56000000000000000 6 000000000000000 9 0 0000000 100000000000000000000000000000000000000000 10000000000000000000000000000 bito 5007000 Ros 10000000000 ROSO 00000000000000000000000000 000000000000000 00000000000000059050 M
27. 10000000000000000000000000000000 00000000000 e 9 0000000 1000000000000000000000000000000000000 11010001 55000000000 000 5 00000000000000000000 100000000000000000000000000 5 6000000 L1 ON EI 1000 DSR 1 2 Suspend LML Limiter Low LMH Limiter High EOP Ext Operate Off In ETG Ext Trigger In RDY READY Out OPR Operate CAE Calibration End SWE Sweep End
28. p3 r3 C3 F3 pn Ep aaa r3 r3 00 00 00 O1 ON 0000000000000000 6144 00000 0000 000 00000000 X0 OFF X1 ON 0 000 000 000 0000000 59 6146 61560 00000000000000 5 9 J 000000000 0 000000000000000000000000000000000000 59 10000000000000000000000 5 9 2 0 1 UUDUUDUUDMMI I 00000000 00000 000000 DMM 5 9 4 00000 593000000 gt 000000 3 00000 0 DMM 00000000 DMM Digital Multimeter 0000 0 0 7351 A E U U U 7351E HH B HH B D B D EL D DE 7 D 65811010 LU 0 0000000000000000 vir n 0000 Device Event Status Register DSR Oo L3 Lr EE Status Byte Register STB 000000 0000000000000 0000000000000 00000 00000 00000000 00000000 0000000 FMV D3220 Windows XP Professional Intel Pentium 4 5241 3 06GHz Microsoft Office Excel Visual Basic for Applications 00000000 628000 GPIB DMM GPIB 000 000 Niglobal bas Vbib 32 bas NI GPI
29. STB I 00 1ngDMMSTB IngDMMSTB And 16 Message Available bit I Ill Loop Until IngDMMSTB 16 0000000000 Call gpibrd intDMMDes strMeasVData Call gpibwrt intDMMDes F5 0000000000000 Call gpibwrt intDMMDes TRG 00000000000 Do Call gpibwrt intDMMDes STB 518 LH EH U Call gpibrd intDMMDes strRecvStr 00000 IngDMMSTB CLng strRecvStr 000 1ngDMMSTB IngDMMSTB And 16 Message Available bit l I Ill Loop Until IngDMMSTB 16 0000000000 Call gpibrd intDMMDes strMeasIData 0000000 Call gpibrd intVIGDes strSrcData 0 0 strSrcData Replace strSrcData sov 00000000000000 With ActiveSheet Cells lngRowNo lngMeaNoCol value lngMeasCnt Cells IngRowNo lngSrcLimitCol value strSrcLimit Cells lngRowNo lngSrcDataCol value strSrcData Cells lngRowNo lngVDataCol value strMeasVData Cells lngRowNo lngIDataCol value strMeasIData End With strSrcLimit Call gpibwrt intDMMDes 1 0000000000000 IngRowNo IngRowNo 1 00000000000 End If DoEvents 0000 es 000000 Loop Until blnSWEb True Sweep End 01 UU utt tut Call gpibwrt intVIGDes SBY ort D D Call ibonl intVIGDes 0 16 000000000 Call ibonl intDMMDes 0 pMM DB B D U U U End Sub 5 65 6146 6156 00000000000000 5 940 00000 3 00000000 0000000000 5 9 4 2 9 800000000
30. 00 D 32000 320000 O 22000 2200001 000000000 865000000000000000000000000 LE ON 30V 300mV 30mV 200mA 30mA 3mA 30V 8000 0000000000000 90000000 1000000 1000 9000000000 10000000 1000 0000 1000 6146 61560 00000000000000 5 5 6 BCD I 1 Hi 00 5 5 6 100 1000000 000 BCDIU EIU D U U D 62800000000
31. 10 Private Const lngStaRow Long 1 Private Const lngVDataCol Long 1 Private Const lngIDataCol As Long 2 Public Sub DCGenerateAndMeasure USB Dim lngVIGHdl As Long Dim lngDMMHdl As Long Dim strRecvStr As String Dim lngVIGDSR As Long Dim lngDMMSTB As Long Call aUSBSta IngTimeOut 000000000000000000000 Call aUSBOpn IngVIGHdl lngVIGID Call aUSBOpn lngDMMHdl l1ngDMMID If blnUSBComErr True Then GoTo ErrExit End If Call aUSBWrt IngVIGHdl C RST Call aUSBWrt IngDMMHdl C RST vien Call aUSBWrt lngVIGHdl VF Call aUSBWrt lngVIGHdl SOV 5V Call aUSBWrt lngVIGHdl CLS Call aUSBWrt lngDMMHdl F1 strRecvStr visD 000 1 00000000 0000000000000 058 1 00090000 VIG J USB ID 1 DMM USB ID 2 uss 00000000 tsi 0000000000000 0000000000000 0000000000000 VriG 9580000 pMM 9580000 0000000000 VIG DSR DMM STB 9580000000 00000 DMM 0000 95800000 00000000000 000 5100000000 000000000 00000000000 6146 61560 00000000000000 5 920 00000 1 00000000 0000000000 Call aUSBWrt lngDMMHdl PR3 00000000000 stow Call aUSBWrt lngDMMHdl TRS3 0000 Call aUSBWrt lngDMMHdl 1 000 on Call aUSBWrt
32. Call aUSBWrt lngVIGHdl TRG 15000000 If blnUSBComErr True Then 9500000 GoTo ErrExit End If lngRowNo IngRowNo 1 00000000000 End DoEvents 0000 95000000 Loop Until blnSWEb True Sweep End 0 00000000 Next ErrExit Call aUSBWrt IngVIGHdl SBY 160000 orgg D 0000000000000 Call aUSBCls lngVIGHdl VIG Call aUSBCls lngDMMHdl DMM uss 0000000 Call aUSBEnd End Sub 5 61 6146 6156 00000000000000 5 940 00000 3 00000000 0000000000 5 9 4 O00000 3 000000009 0000000000 00 0 1000000000 0000000000000 2 000000 000000000 00000000 0 00000 19mAT 000000 0 0000000000000 000 0000000 0000 000 0 000 3V 00000 10mV 000000 500ms 00000000 0000 10mA 00000 2 DMM 7351A E 000000000 000000000 000 0000000000 20150 000 0000000000000 00000000000 2 00000000000000000000000 000000000000000000000000000000
33. Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Public blnUSBComErr As Boolean Private Const OK As Integer 0 Public Sub SetMemAndMeasure USB lngVIGHdl As Long lngDMMHdl As Long strRecvStr As String strSendCmd As String dblGParam As Double intMemNo As Integer blnMemNoDec As Boolean lngVIGDSR As Long blnRDYb As Boolean blnSWEb As Boolean lngDMMSTB As Long lngRowNo As Long IngMeasCnt As Long intNowRepCnt As Integer intNowMemNo As Integer ingRowNo IngStaRow Call aUSBSta IngTimeOut 000000000000000000000 Call aUSBOpn lngVIGHdl Call aUSBOpn lngDMMHdl lngVIGID lngDMMID If blnUSBComErr True Then GoTo ErrExit 0000000000000 VIG USB ID 1 DMM USB ID 2 uss 00000000 cs 0000000 usB 00000000 vIG USE LIDL DMM 9580000 VIG DSR READY Out Bit Sweep End Bit DMM STB 0000000000000 0000 No 00000000 usB I 000000 1600000 DMM 0000 05800000 db Do Lo Call Call Call Call Call Call Call Call Do Lo Do 614
34. intDMMDes PR2 00000000000 Middle Call gpibwrt intDMMDes TRS3 0000 BUS Call gpibwrt intDMMDes OFF Call gpibwrt intDMMDes CLS 000000000 Call gpibwrt intVIGDes OPR 10000 oN D 16 0000000000000 Call gpibwrt intVIGDes DSR 5800000 Call gpibrd intVIGDes strRecvStr 00000 IngVIGDSR CLng strRecvStr 58000 lngVIGDSR lngVIGDSR And 1024 READY Out bit 0000 Loop Until IngVIGDSR 1024 READY Out 5150 Call gpibwrt intVIGDes TRG 000000 Call gpibwrt intVIGDes DSR DSR I U DD Call gpibrd intVIGDes strRecvStr 00000 IngVIGDSR CLng strRecvStr 58000 5 10000 blnRDYb l1ngVIGDSR And 1024 blnSWEb lngVIGDSR And 8192 blnLMHb lngVIGDSR And 128 blnLMLb l1ngVIGDSR And 64 If blnLMHb True Then strSrcLimit LMH End If If blnLMLb True Then strSrcLimit strSrcLimit amp LML End If READY Out bit Sweep End bit Limiter High bit Limiter Low bit Limiter 00060 Limiter 0000 6146 61560 00000000000000 59 4000000 3 00000000 0000000000 If blnRDYb True Then lngMeasCnt IngMeasCnt 1 Call gpibwrt intDMMDes TRG 00000000000 Do Call gpibwrt intDMMDes STB 0000 Call gpibrd intDMMDes strRecvStr 00000 IngDMMSTB CLng strRecvStr
35. lngDMMHdl CLS 000000000 0000000000 Do Call aUSBWrt lngVIGHdl OPC 000000 Call aUSBRd lngVIGHdl strRecvStr 00000 958 000000000000 blnUSBComErr True Then GoTo ErrExit End If Loop Until strRecvStr 1 0 000000000 Do Call aUSBWrt lngDMMHdl OPC 000000 Call aUSBRd lngDMMHdl strRecvStr 00000 958 000000000000 blnUSBComErr True Then GoTo ErrExit End If Loop Until strRecvStr 1 VIG I Call aUSBWrt lngVIGHdl OPR Vie 000 Do Call aUSBWrt IngVIGHdl DSR psR 0000 Call aUSBRd lngVIGHdl strRecvStr 00000 IngVIGDSR CLng strRecvStr DSR IngVIGDSR l1ngVIGDSR And 1024 Ready Out bit If blnUSBComErr True Then usB Hd d gutdtlt GoTo ErrExit End If Loop Until IngVIGDSR 1024 Ready Out bit 00000000 Call aUSBWrt lngDMMHdl TRG 00000000000 Do Call aUSBWrt IngDMMHdl STB STB I HU D Call aUSBRd lngDMMHdl strRecvStr 00000 CLng strRecvStr STB 00 IngDMMSTB lngDMMSTB And 16 Message Available bit If blnUSBComErr True Then 95800000000 GoTo ErrExit End If Loop Until IngDMMSTB 16 0000000000 Call aUSBRd 1ngDMMHdl strRecvStr 00000000 0000000000000 ActiveSheet Cells lngStaRow lngVDataCol Value strRecvStr 5 52 6146 61560 00000000000000 59 2000000 1 00000
36. 0000000000 1000000000 2 4V 5 25 0000000000 100000 t 10000000000000 1 10000000 ov 0 4VD 0 V GND LI LI 00000000000 10000000 00000000000 N 1 0000 5 000000000 LOAD o 1 lt msi l gt 5 17 6146 6156 000000000 00000 56 0000000000000 56 IEEE 488 2 1987 00000 000 00000 0 000 0 000 0 0 000 0 000000000000000000000 00000000000000000000 0 0000000000000 0000000000 5 6 1 0000 0000000600000 0 4882 1987 00000 0 00000 0 0000 0 0 00 0 0 000 0000000000000000000000000000 1 000000 amp amp Summary OR 00000 0000 n 1
37. 00000000000000000000000000000000000000 542 USBII 000 USB2 0 Full Speed 0000000 USBB IDE U U DU 00 USBJIDD D 1 170 00000 0000000000 1000 0000000 5 lt 0000000000000 000000000 5 lt 00000000000000 00000 058 1 000 2 3 000000 5 4 3 9 80000000 5 4 3 1 0000000001000 100000 5 08 100000 0010000010000 usBHHDOUUD 110000 00000000 10000000000000000000000000 11000000000000000000000000000000 9580000000000 100 5 12 6146 61560 00000000000000 5 4 3 USBI 0000600 5 4 3 2 USB 0 USB ID USB ID0 0000000000000000 06580110 01 0 00 00000000 00000 1 6146000 MENU 0 0 Qn 7 0000 7 UF 000 6156000 MENU MENUDDD UGJ Qa 8 0000 Be WF 000 0000000000000 bl 000000 veg GPIB BUS 9580000 6000000000 gt BUS GPIB 4 2000 Qu 5 0
38. 36 E see et 5 33 SIUS nas ne S 5 29 SUS ect tei tes 5 29 niu 5 29 SUZO 5 29 511221 sas a gun nun 5 29 sn en 5 30 5 30 5 30 SVRA Eee 5 30 QA E 5 30 5 30 SVEXO ree rea 5 30 ete 5 30 SWSP tacente tito a ie NEUE 5 35 5 36 ydp NETTER 5 44 ler 5 44 5 44 MI 5 44 5 30 TEI ses teens 5 30 6146 61560 00000000000000 5 20000000000000000 seien 5 30 teas it ets 5 41 u 5 30 ai au 5 41 TEA 5 30 PSU 5 41 poc cC E 5 30 auae e oe teg 5 41 5 30 5 40 TOUT preinan 5 30 XRn u a 5 40 ICH een E 5 30 py 5 41 EE 5 32 XS0 situent tire e Pere 5 41 5 32 IS len 5 41 5 6 0 2 ae eeen 5 32 XWR nenne 5 41 5 30 ju 5 30 data ect 5 32 uu a a u SS ua 5 32 TMP data ettet 5 31 5 31 UZT ia 5 38 UZO a 5 38 5 38 5 42 5 42 5 42 rr 5 42 5 42 5 42 bie 5 30
39. 7 v 2 100000000000000000000000000000 1000 1000000 1000000000 00000 9000000 10000000000000000000000000000 1000000 10000000000000000000 00000000 JO THEE 10000000000000000000 9000000 0 0000000000000000 9000000000000 0 000000000000000000 5890000000000 5008 000 1000 0 0000000000000000 9000000 0 0000000000000000 9000000 0 0000000000000000 9000000 1 0000000000 9000000 OFF ON 10000000000000000000000000 9000 100000000000000 9000000 ON 1 000000000000000000 1000000 1 010100 00000 00000000000101 0
40. DoEvents Loop Until blnSWEb True ErrExit Call a 000 11 11 USB Call a End Sub BWrt lngVIGHdl SBY 000000000 BCls lngVIGHdl BCls lngDMMHdl 00000 6146 61560 00000000000000 59 4000000 3 00000000 0000000000 00000000000 0000 95000000 Sweep End bit LI L1 L1 E DH visD 000 VIG
41. U 1000000000000000000 1000 USB 2 6146 61560 00000000000000 58000000000 58 000000000 000000 100000000000000000000000000 5 8 1 Lc 2222 Lc 000 100000 70000000000000000000 000 0 000000000000000000000000000000000000000 0000000000000000 000000000 0 00000000000000000000000000000 Un 0000000000 1 1000000000000000000000000000 60000000000 10000 90000000000000000000000000000000000 5 8 2000000000000000000000 1000000000000000000000 60000 00000 00000 100000000000000 1 2 3 4 5 27 6146 61560 00000000000000 5 8 2 000
42. 000 0000000000 Call aUSBWrt lngDMMHdl F5 00000000000 Call aUSBWrt lngDMMHdl TRG 00000000000 Do Call aUSBWrt IngDMMHdl STB STB I HU D UO Call aUSBRd lngDMMHdl strRecvStr 00000 lngDMMSTB CLng strRecvStr STB NH IngDMMSTB l1ngDMMSTB And 16 Message Available bit If blnUSBComErr True Then 05800000000 GoTo ErrExit End If Loop Until IngDMMSTB 16 0000000000 Call aUSBRd lngDMMHdl strRecvStr 00000000 0000000000000 ActiveSheet Cells lngStaRow lngIDataCol Value strRecvStr ErrExit Call aUSBWrt IngVIGHdl SBY vies 000 0000000000000 Call aUSBCls l1ngVIGHdl VIG Call aUSBCls lngDMMHdl DMM w w 0580000000 Call aUSBEnd End Sub 5 53 6146 6156 000000000 00000 5 9 30 00000 2 00000000000000 0000000000 5 9 3 O00000 2 000000000000009 0000000000 1000000 0 gt 5 gt 00 00000 10mvpr 00000000000000000 100000000000
43. 000 000 0 000 000 00 000 0 000 0 0 0 0 00 0 0 0 00 10000000000 5 1 2000000000000000000 000000 0000 E 300mV 30V 50000000000000 300 A 200mA 00000000000 2 5 13 0000000 D ddddd D Dzdddddunit NRF 0000000 unit lt 27 77 5 rco L5mV D DD D 15000 0000 1 5 00000 D1 50 0 0 0 1 5 OFF ON SVRXn SI DV ddddE d DI ddddE d r 0 1100000000000000000000000000000101016 0 0000000010101010010 32 11100000 000000 000000010000000000010001010157 0 0000000001000010 5 42 6146 61560 00000000000000 5 8 461440 000000000000 0 0000000 E 0 00000 00 K2 E 2 00000 K3 E 30 00000 K4 E 00 00000 K5 K6 K7 E 30 00000 100000 Nnnn 1 Nonn 00000000 0 159 NO 30mV 0 C3 2 0 D dddddunit 000 100000000 VIE D U 0 3 Vn
44. 0000 160 000000000 Call aUSBWrt l1ngVIGHdl OPC 000000 Call aUSBRd lngVIGHdl strRecvStr 00000 blnUSBComErr True Then GoTo ErrExit End If op Until strRecvStr 1 000000000 Call aUSBWrt 1 9 1 OPC 000000 Call aUSBRd lngDMMHdl strRecvStr 00000 5 59 6146 6156 000000000 00000 5930 00000 2 00000000000000 0000000000 5 60 blnUSBComErr True Then GoTo ErrExit End If Loop Until strRecvStr 1 Call aUSBWrt lngVIGHdl OPR For intNowRepCnt 1 intRepSet Step 1 Do 0000 Call aUSBWrt lngVIGHdl DSR Call aUSBRd lngVIGHdl strRecvStr IngVIGDSR CLng strRecvStr psRBODD 1 0000 blnRDYb l1ngVIGDSR And 1024 blnSWEb IngVIGDSR And 8192 blnUSBComErr GoTo ErrExit End If True Then If blnRDYb True Then Call aUSBWrt lngVIGHdl RCLM Call aUSBRd lngVIGHdl strRecvStr 000 0000000 intNowMemNo CInt Replace strRecvStr RCLM Call aUSBWrt lngVIGHdl Call aUSBRd lngVIGHdl strRecvStr I strRecvStr Replace strRecvStr SOV 0000000000 00000000000 SOV visD 000 oN U 1 DSR 1 1 EH D 00000 psR I 00 READY Out bit Sweep End bit 95800000 0000 00000 0000000000 00000 ActiveSheet Cells lngRowNo ln
45. 0000 9 8000000 5 1 0000000 L Da 1000000000000000000000000 1000000000000 1000000600000 1000000000 0000000000 00000000 000000000000000 00000000000 0 0000000000 00000000000 6 00000000000 300000000000000 5 8 6146 61560 00000000000000 5 3 2 GPIB 0000000 5 3 2 0 000000000000000000000000000000000000000 20 0000000000000000000000 00000000000000000000000000000 1 408JE 101 408JE 102 408JE 104 052 000000000
46. 00000 1 2 3 a gt z 5158155 m m 5 gt gt e Oo K R S S r3 gt E O O c3 1 E m A r3 o o o g o Cj N E19 tme H 23202320 D U 2 2 4 10000000 000 0000000 5 00000000000 0000000000000000000000000 000000 lt 200000000000000000000000 8 900000000000 00000000 10 60 0000000000000 000000000 BED 0 0 00000000 5 14 6146 61560 00000000000000 5531 00000000 5 5 3 000000000
47. 00000 dblGParam Do 00000000000000000 strSendCmd amp CStr intMemNo amp Call gpibwrt intVIGDes strSendCmd If blnMemNoDec False Then dblGParam dblGParam dblVStep T Else dblGParam End If If dblGParam gt dblVMax Then blnMemNoDec True dblGParam dblVMax dblVStep End If intMemNo intMemNo 1 Loop Until dblGParam lt dblVMin And blnMemNoDec True dblVMin 00000000000 SOV amp CStr dblGParam amp V P 000000 dblGParam dblVStep 0000000000000 200000000 L3 C3 r3 SCMO SCO amp CStr intMemNo 1 Call gpibwrt intVIGDes Call gpibwrt intVIGDes r3 oo r3 L3 o Call gpibwrt intVIGDes CLS Call gpibwrt intDMMDes Call gpibwrt intDMMDes TREO Call gpibwrt intDMMDes PR2 TRS3 HO CLS 0000 Middle Call gpibwrt intDMMDes Call gpibwrt intDMMDes nj nj Call gpibwrt intVIGDes 1 To OPR 0 oN U intRepSet Step 1 i 00000000 For intNowRepCnt Do vic D U U U Call gpibwrt intVIGDes DSR T Call gpibrd intVIGDes strRecvStr lngVIGDSR CLng strRecvStr 2580000 eic 0000 blnRDYb IngVIGDSR And 1024 blnSWEb lngVIGDSR And 8192 1 DSR DSR RE
48. 000000 5 8 2 0000000000 0 000000000000000000000000000000 1 00000 1000000000 300000000000000000000000000000 00000000000000000000000000000000000 000000 m 00 0 2000000 0000 O00000 3000000 1000 en 2 SOV SOI D 1000 1000 EI 5 28 6146 61560 00000000000000 5 8 30 0000000000 5 8 3 00000000000 1 000000000 9 000000000
49. 000000 BUS USB 5 UF 000000 VH use Bus nn u d USB id 001 USBid 5 USBid 001 90000000009 8000 Qo vss USBid 4000000000 001 9 UF USBidl 000 0884 10 000000000000000 5 4 3 3 USB I 1 H1 0 B U I U 0 000000000000000000000000 20m 0000000 n n n n 5 13 6146 61560 00000000000000 5 5 BCDD 00000 040 55 040 5 5 1 TRIGGER IND 000 000000 00000000000000000000000 0 0000000000000000000000000000 INTERLOCK T OPERETE INOUTU 000000000000000000000 0 000000000000000000000000 1 00000000000000000 8 lt 92000000000000000000000000 5 5 2 100000000000000000000 9 8000000000
50. 000000000 0000000 End If End Sub 00000 00000000 Sub aUSBRd lngHdl As Long strData As String Dim lngRet As Long Dim lngSize As Long Dim strRawStr As String lngRet ausb_read IngHdl strRawStr If lngRet OK Then strData Left strRawStr strData Replace strData vbCr strData Replace strData vbLf blnUSBComErr False Else lngRet ausb clear 1 9 1 blnUSBComErr True MsgBox End If End Sub 5 48 vbCritical 50 lngSize 1 m m IngSize 0000000 00 000000 CR LF NG 0000 6146 61560 00000000000000 592000000 1 00000000 0000000000 5 9 2 1 000000009 0000000000 0000000000000000 0000 Exee 0 U B E D U D LI UU D D 000 6146 6156 0000000 000000 0000 5V 00000 0000 2 0 00 DMM 7351 000000000 000000000 00000 000 0000000000 90 100000 100msp DD 0000000 DCV 05 0361 00 5 9 2 1 Option Explicit Private Const intIFBoardAdr As Integer 0 DCI 005 034E 03 Private Const intVIGAdr As Integer Private Const intDMMAdr As Integer Private Const lngVDataCol Long Private Const lngStaRow As Long 1 Private Const lngIDataCol As Long 1 2 Public Sub DCGenerateAndMeasure GPIB Dim Dim Di
51. 0000000000000 00 9 00000000000000000000 RSTDDUO 00000000000000000000000 0000 0 8040000000 RIND DD 0 0000000000000 2 00 11101000 1100000000000000000000000000 1111 0 0 lt gt 00000000000100000000000000000 000000 000000000000000 0000000 0 0000000000000000000000000 006000 000 1 0000 00000000 0 00000000000000 a 000 1 0000 A 000000000000000000000000 0000000 0220000000 00000000 00000000 00000000 SBY OPR 0 0 0 SUS 102 000000 0000 0000 0 920 5071 0000000000 505 8 00000 MD0 MD2 MD4 5 29 6146 6156 000000000 00000 5 8 300000000000 IF 6156000 5081 000 gt 0000000 5 000000000000 SVR2 5 SIRI 5183 TC8 TFA 6156000 SVR2 SVR3 SVR4 SVR5 30V 3V SVR 0000000 SVR2 SVR5 0000000000 OFF 0000000000 00000000000000 SVRXI SVRXO SVRXI SVRX 5 5182 30mA SIR3 200mA 0000000 SIRI 183 0000000000 OFF 00000000000000 SIRXO SIRXI 000 00 CO 000 SIR SIRXO SIRXI SIR
52. 00000000000000000000000 0 00000000000000 0000000000060 00 0 00000000000000000000000000000 0000000000000000 90000000 000 61440 000000000000000 61441 0 0000000000000 D data unit 6144 000000000000000000000000000000000 5700000000000000000000000 5 83 LI D D D UH OD D D 5 8 4 61440 000000000000 5 4 52 6146 61560 00000000000000 5 20000000000000000 0000000000000000000050000000000000000000000 000 000000000 00000 000000000 00000 KOUS ssp RHENUS 5 37 5 33 5 37 man qanpas as nn 5 32 5 37 CEO ee ee 5 32 HESR 5 37 Eee 5 32 UNDE ee MEE 5 38 CHEFS acu ee 5 39 KOPC MM 5 37 5 39 5 37 5 39 ROPT 5 39 5 39 Den 5 38 5 39 lt gt 5 38 CR 5 39 Te ee 5 40 CUPO ee 5 33 RCLI nen 5 40 5 33 ERES occu SEM 5 40 CUP onc 5 33 uer 5 40 LUUD ner 5 33 RST 5 38 CUPA e 5 33 EEE 5 39 CUPS u cent nue 5 33 5 39 5 42 ee 5 39 Dee 5 37 5 39 PRENNE 5 37 SRE 5 37 5 37 5 37 Di c icu eu EE 5 37 5 37
53. 000000000000000000000000008 000000000000000 2 6146 6156 000000000 00000 5 8 300000000000 SB data 0000000000000000000 SBtdata 2 RTB Return To Bias 2 0000000000000000000 000000000000000000 2 000000 SPdd dd d d d uolo eo gr e 0 02 10 000 00 50 SP ge c 0000000 0 000000 alaca Ey cy L olo Sj Halo a 000000 000000000 000000000 0 0000000 0 0 8 000000 000000 000 01005700 0000000000000000000000000000000000000 4 5 6 6146 61560 000000000 5 8 30 00000 1 1 000 0000000 210 CR LF EOI A DLI LF DL2 EOI DL3 cerBD 00000 9 8000000
54. 002 000000000000000 1000000000000000000 2000000 10000000000000000000000 00 0000000000000 000 6146 6156 7351 1000000 000000 000000 0V 5V 000000 100mV 10000 2 1010000000000 0000 DMM 7351A E 000000000 100000000 00000 000 0000000000 MED 2050 000 0000000 0000000000 0 00000 0000000 1000000 1000000 1 1 0 00 0000E 3 000 007E 03 000 001E 03 1 2 1 100 000E 3 091 004E 03 000 090 03 1 3 2 200 000 3 182 045 03 000 1788 03 2 200 200 000 3 40182 04E 03 000 181E 03 5 201 100 000 3 091 006 03 000 090 03 2 202 00 0000E 3 000 006E 03 000 001E 03 5 54 6146 61560 00000000000000 5 9 3 1 59 3000000 2 00000000000000 0000000000 Option Explicit 110000 0 0010 00 100 Private Const intIFBoardAdr As Integer 0 00000000 Private Const intVIGAdr As Integer 1 1 Private Const intDMMAdr Integer 2 2 000000000 Private Const dblVMin As Double 0 UD 00 Private Const dblVMax As Double 5 000 00 00 Private Const dblVStep As Double 0 1 Private Const intRepSet As Integer 2 000000 0000000000000 Private Const lngStaRow As Long 1 0000000000 Private Const lngRepCntCol As Long 1 00000000 Private Co
55. 100 5 46 058 0000000 oK l 6000 amp lngRet usB 1005 End Sub 9580000000 00000000 Sub aUSBEnd Dim lngRet As Long lngRet ausb end If lngRet OK Then MsgBox vbExclamation End If End Sub 6146 6156 00000000000000 5 9 10000000000000000000000 USB USB NG I 00000000000000000000 00000000 Sub aUSBOpn IngHdl As Long 10940581 As Long Dim lngRet As Long lngRet ausb_open IngHdl If lngRet OK Then lngUSBID blnUSBComErr False Else blnUSBComErr True MsgBox vbCritical End If End Sub 0000000000000 00000000 Sub aUSBCls lngHdl As Long Dim lngRet As Long lngRet ausb close l1ngHdl If lngRet OK Then MsgBox vecritical End End Sub 00000 00000000 Sub aUSBWrt lngHdl As Long strCmd As String Dim lngRet As Long lngRet ausb write lngHdl strCmd Call mSecSleep 10 If IngRet OK Then blnUSBComErr False Else blnUSBComErr MsgBox strCmd vbCritical True 00000 UsB 000 OK l ID 6 UsB 000 NG J l USB USB OK NG 0 0000000 000000 lngUSBID 000000 0 0000000 5 47 6146 61560 00000000000000 5 91 000000
56. 200mA DI d ddddE 1 Did dddddE 1 61440 00000 30mV DV d ddddE 2 300mV DV d ddddE 1 3V DV d ddddE 0 30V DV d ddddE 1 3mA DI d ddddE 3 30mA DI d ddddE 2 2 200mA DI d ddddE 1 1 0000000 6156100000000 2 61560 0000000000600 0 00000000000000 10020 00 001000000000000 000000 0000 10000 1100 000000 0000 6146 6156 0000 00000 00000 57000000 0 IU 0000 SOV dd dddE 3 6156 l OV dd ddddE 3 SOV ddd ddE 3 SOV ddd dddE 3 SOV d ddddE 0 SOV d dddddE 0 SOV dd dddE 0 SOV dd ddddE 0 SOl d ddddE 3 SOl d dddddE 3 SOl tdd dddE 3 SOl dd ddddE 3 SOl ddd ddE 3 SOl ddd dddE 3 TMP dddd dE 0 300mV DV d ddddE 1 3V DV d ddddE 0 30V DV d ddddE 1 DI d ddddE 3 30mA DI d ddddE 2 200mA DIi d ddddE 1 0000 TMP dddd dE 0 1 61560 0000000 2 61556000 0 D D DU D DE D LUI U L 100000000 11000000000000000000000000 U D B II
57. 5 1 5 1 1 6146 61560 00000000000000 5 000000000000 88 0000000 eon 0000000000000000000000000 000000000000000000000000000000000 t 0000000000000000000000000000000000000000 000000000000000 2 00000000000000000000000009 80000000000000 000000000000000000000000000 08 0000000000000000000000000000 100 GPIB 10000 USB ID 1 00000 0000000 000000000000000000 80 00000000000000000 JUD 00000 1 6146000 MENU MENUD 2000 Qn 7 0000 7 Vr 000 6156000 MENUD 0004 On 4 4 8 VF 000 0000000000000 BUS G Dorn id
58. 6 61560 00000000000000 59 3000000 2 00000000000000 0000000000 End If 0 0000000000000000000 ll aUSBWrt lngVIGHdl C RST 11 aUSBWrt lngDMMHdl C RST VIG I 0 11 aUSBWrt lngVIGHdl MD4 000000000000 11 aUSBWrt 1 RCLR 0000000 00000 1 dblVMin 00 00000 00000000000000000 strSendCmd amp CStr intMemNo amp SOV amp CStr dblGParam amp V P Call aUSBWrt lngVIGHdl strSendCmd If blnMemNoDec False Then 000000 dblGParam dblGParam dblVStep 0000000000000 Else dblGParam dblGParam dblVStep 0000000000000 End If dblGParam gt dblVMax Then 000 00 00000000 blnMemNoDec True 0000000 dblGParam dblVMax dblVStep intMemNo intMemNo 1 000 Ne 0 0000000 If blnUSBComErr True Then UsB I H BU D GoTo ErrExit End If op Until dblGParam lt dblVMin And blnMemNoDec True aUSBWrt IngVIGHdl SCMO 0000000000000 aUSBWrt lngVIGHdl 5 0 6 CStr intMemNo 1 00000000000 aUSBWrt IngVIGHdl CLS 000000000 DMM aUSBWrt lngDMMHdl 1 0000000000000 aUSBWrt lngDMMHdl PR2 00000000000 Middle aUSBWrt 1 1 TRS3 0000 aUSBWrt IngDMMHdl 000 OFF aUSBWrt IngDMMHdl CLS 00000
59. 70000000000000000 6146 6156 000000000 00000 5 8 300000000000 0000 0 61560 00 1 O0 1 data 25 0 85 00 2 0000000 TMC dddd dE d 000000 1 0 32 0 0000000 92100000000 0000000000 data20 0000000000000 LMV datal data2 data 00000 data HII 00000 0000000 MV lt d ddE d gt lt d ddE d gt 000000 0 005 0 220 92100000000 00000000000 data2 80 000000000000 00000 00000 aana So datal data2 aa pH a 15 N 000 9000000000 data HI 0000000000 0 0000000 MI lt d ddE d gt lt d ddE d gt O O B eri So 0 0000000000 50 RS1 0000000000000000 000000000000000 000000000000000 CFIXI 00000 00000 0 0 0 0000000 6146 6156 U 00000000000000 5 8 30 0000000000 0 61561 0 VSIIS 1 DD m 61560 0 5 5 00000 00000 lt co yy Ey py Er LE zoja oo Do a aja A g 1 LE I I I
60. 80000000 000000000000000000000 Call aUSBOpn lngVIGHdl lngVIGID LU LH LI LI Call aUSBOpn lngDMMHdl lngDMMID DMM I LH LH D If blnUSBComErr True Then 05800000 GoTo ErrExit End If 00000000000000000000 Call aUSBWrt lngVIGHdl C RST Call aUSBWrt lngDMMHdl C RST VIG I D Call aUSBWrt lngVIGHdl VF 00000000000 Call aUSBWrt lngVIGHdl MD2 000000000 Call aUSBWrt lngVIGHdl 5 1 0000000000000 Call aUSBWrt IngVIGHdl SPO 5 0 55 5 66 6146 61560 00000000000000 59 4000000 3 00000000 0000000000 Call aUSBWrt IngVIGHdl SN0 3 0 01 Call aUSBWrt IngVIGHdl 5 0 Call aUSBWrt lngVIGHdl LMI 0 01 Call aUSBWrt lngVIGHdl RODO Call aUSBWrt lngVIGHdl CLS Call aUSBWrt IngDMMHdl F1 Call aUSBWrt IngDMMHdl PR2 Call aUSBWrt IngDMMHdl TRS3 Call aUSBWrt IngDMMHdl Call aUSBWrt lngDMMHdl CLS Call aUSBWrt lngVIGHdl OPC Call aUSBRd l1ngVIGHdl strRecvStr usB HD D D O U C U If blnUSBComErr True Then GoTo ErrExit End If Loop Until strRecvStr 1 Do Call aUSBWrt lngDMMHdl OPC Call aUSBRd lngDMMHdl strRecvStr usB B IO D D D O U C U If blnUSBComErr True Then GoTo ErrExit End If Loop Until strRecvStr 1 Call aUSBWrt lngVIGHdl OPR
61. ADY Out Sweep End bit If blnRDYb Call gpibwrt intVIGDes Call gpibrd intVIGDes 000 0000000 intNowMemNo CInt Replace strRecvStr True Then VIG Ready RCLM 0000 00000 strRecvStr 00000 RCLM 5 56 Call gpibwrt intVIGDes Call gpibrd intVIGDes SOV strRecvStr 0 000000000 strRecvStr Replace strRecvStr SOV 0000000000 00000000000 6146 61560 00000000000000 59 3000000 2 00000000000000 0000000000 ActiveSheet Cells lngRowNo lngRepCntCol value intNowRepCnt ActiveSheet Cells lngRowNo lngMemNoCol value intNowMemNo ActiveSheet Cells lngRowNo lngGenerateVCol value strRecvStr pMMDDDD IngMeasCnt IngMeasCnt 1 Call gpibwrt intDMMDes TRG Do Call gpibwrt intDMMDes STB Call gpibrd intDMMDes strRecvStr IngDMMSTB CLng strRecvStr lngDMMSTB IngDMMSTB And 16 Loop Until l1ngDMMSTB 16 Call gpibrd intDMMDes strRecvStr 00000000000000000 00000000000 stell 00 Message Available 00000 0000000000 D UU ut ActiveSheet Cells IngRowNo lngVDataCol value strRecvStr Call gpibwrt intDMMDes F5 Call gpibwrt intDMMDes TRG Do Call gpibwrt intDMMDes STB Call gpibrd intDMMDes strRecvStr lngDMMSTB CLng strRecvStr lngDMMSTB l1ngDMMSTB And 16 Loop Until l1ngDMMSTB 16 Call gpibrd intDMMDes
62. B USB HS NI 488 2 0 0 National Instruments NI GPIB USB HS 00000 00 1 32 USBI U L 0000000 000 USB D DMM USB ID ausb bas 9 80000 000000000 0000000 1 2 5 45 6146 61560 00000000000000 5 91 000000000000000 0000000 5 9 1 0000000000000000000000 5 9 1 1 00000000000000000 00000000 Sub gpibwrt intDes As Integer strCmd As String Call ibwrt intDes strCmd amp vbLf End Sub GIB 00000000 Sub gpibrd intDes As Integer strData As String Dim strRawStr As String 30 Dim intSize As Integer Call ibrd intDes strRawStr If InStr strRawStr vbCr 0 Then intSize InStr strRawStr vbCr 1 ElseIf InStr strRawStr vbLf lt gt 0 Then intSize InStr strRawStr vbLf 1 End If If intSize 0 Then strData Else strData Left strRawStr intSize End If End Sub 000000000 00 0000000 1200000 000000 cr r 0000000000 5 9 1 2 95800000000 00000000 Sub aUSBSta lngTimeOut Long Dim lngRet As Long lngRet ausb start lngTimeOut If lngRet OK Then blnUSBComErr False Else blnUSBComErr True vbCritical End If Call mSecSleep
63. CLng strRecvStr DSR I I IngVIGDSR 1ngVIGDSR And 1024 READY Out Dbit Ell Loop Until IngVIGDSR 1024 READY Out bit 00000000 Call gpibwrt intDMMDes TRG 00000000000 Do Call gpibwrt intDMMDes STB Call gpibrd intDMMDes strRecvStr 00000 IngDMMSTB CLng strRecvStr 000 IngDMMSTB l1ngDMMSTB And 16 Message Available 0000 Loop Until IngDMMSTB 16 0000000000 Call gpibrd intDMMDes strRecvStr 00000000 0000000000000 ActiveSheet Cells lngStaRow lngVDataCol value strRecvStr Call gpibwrt intDMMDes F5 00000000000 Call gpibwrt intDMMDes TRG 00000000000 Call gpibwrt intDMMDes STB 518 0000 Call gpibrd intDMMDes strRecvStr 00000 IngDMMSTB CLng strRecvStr NT IngDMMSTB IngDMMSTB And 16 Message Available bit l l Ill Loop Until IngDMMSTB 16 0000000000 5 50 6146 61560 00000000000000 5920 00000 1 00000000 0000000000 Call gpibrd intDMMDes strRecvStr 0000000000000 ActiveSheet Cells lngStaRow lngIDataCol value Call gpibwrt intVIGDes SBY Call ibonl intVIGDes 0 Call ibonl intDMMDes 0 End Sub 5 9 2 2 1 t Hl D U Option Explicit Public blnUSBComErr As Boolean Private Const OK As Integer 0 Private Const lngVIGID As Long Private Const 1 9 As Long Private Const lngTimeOut As Long I N gt
64. DSE lt NRP gt DSE Device Event Status Enable Register Status Byte Register STB SRQ OFF 1 Query Output Buffer or e BUS L3 21 SRQ ON SO SRE lt NRf gt Standard Event Status Register ESR Service Request Enable Register OPC amp pfESET 0 RTII gt lt NRf gt ESE Standard Event Status Enable Register 5 2 00000000000 2 000000000000000 01100100010010011001010100100000001000 1000000000000000000000000 10000000000 e 0000000000000000000000000 SRE e 00000000000000000000000000000000 ESE e 000000000000000000000000 DSE 000000000000000 0 0000000000000 000000000000000 0000 10000000000000 00 20101010 2580000 1000000000 6146 61560 00000000000000 5 6 10 000000000 000 000000000000 000 DSB Device Event Status Register 000 ESBO Standard Event Status Register I ODO 0000000000000 1 000000000000000000000 000 50000 1000000000 3
65. X AO I oo PET I EE Soloooooooooolo oloolo 6156000 10 PR13 PR30 D 0 EI Ej EJ p Pi 0 0 0 E p P EJ EJ za EI LE rl Z uw mW o m m N ND D C1602 1981 00000 TC7 oloa H us 00000 15 0 6146 61560 00000000000000 5 8 30 0000000000 C1602 1995 JIS C1602 1981 JIS 000000000000000000 0000000000 1590000000 00 JSV 18 0 18 1 5 data unit 00000 00000000 SOV ddddd 00000 SOV dddddunit 000000000 00000 SOV ddddd 00000 sovzdddddunit unit V uv 0 00000 1 5mV 00000 SOV 1 5E 3 SOV 1 5MV SOV SOI data unit SOl ddddd SOl dddddunit 000000000 00000 sorddddd 00000 sordddddunit uit 000 00000 00000000 152 0000 SOI 1 5E 3 SOI 1 5MA 000000 000000 2 SOI 0 data 000000000 0000000000 TMP dddd dE d 51 5
66. gRepCntCol Value intNowRepCnt ActiveSheet Cells IngRowNo lngMemNoCol Value intNowMemNo ActiveSheet Cells IngRowNo lngGenerateVCol Value strRecvStr lngMeasCnt IngMeasCnt 1 0000000000000 Call aUSBWrt IngDMMHdl TRG 00000000000 Do Call aUSBWrt lngDMMHdl STB STB 0000 Call aUSBRd lngDMMHdl strRecvStr 00000 IngDMMSTB CLng strRecvStr STB I 00 IngDMMSTB IngDMMSTB And 16 Message Available bit If blnUSBComErr True Then 05800000 GoTo ErrExit End If Loop Until 1ngDMMSTB 16 0000000000 Call aUSBRd lngDMMHdl strRecvStr 000000 00000000000000000 ActiveSheet Cells IngRowNo lngVDataCol Value strRecvStr Call aUSBWrt IngDMMHdl Call aUSBWrt IngDMMHdl 5 TRG 00000000000 00000000000 6146 61560 00000000000000 59 3000000 2 00000000000000 0000000000 Do Call aUSBWrt IngDMMHdl STB STB I OONO Call aUSBRd 1ngDMMHdl strRecvStr 00000 IngDMMSTB CLng strRecvStr 518 0 1ngDMMSTB IngDMMSTB And 16 Message Available bit blnUSBComErr True Then 95800000 GoTo ErrExit End If Loop Until IngDMMSTB 16 0000000000 Call aUSBRd IngDMMHdl strRecvStr 000000 0000000000000000000000 ActiveSheet Cells lngRowNo lngMeasNoCol Value lngMeasCnt ActiveSheet Cells IngRowNo lngIDataCol Value strRecvStr Call aUSBWrt lngDMMHdl 1 0000000000000
67. m Dim Dim intVIGDes As Integer intDMMDes As Integer strRecvStr As String lngVIGDSR As Long lngDMMSTB As Long GPI 0000000000000 o om0 D OD UD 2 0000000000000 0000000000000 0000000000000 0000000000000 0 0000000000000 00000 VIG DSR DMM STB 5 49 6146 61560 00000000000000 5 920 00000 1 00000000 0000000000 0000 60 om 000000 108 Call ibdev intIFBoardAdr intVIGAdr 0 T10s 1 0 intVIGDes Call ibdev intIFBoardAdr intDMMAdr 0 T10s 1 0 intDMMDes 000000000000000 Call ibconfig intVIGDes IbcUnAddr 1 Call ibconfig intDMMDes IbcUnAddr 1 00000000000000000000 Call gpibwrt intVIGDes C RST Call gpibwrt intDMMDes C RST vie Call gpibwrt intVIGDes VF 00000000000 Call gpibwrt intVIGDes SOV 5V 00000 500000000 DMM 00 Call gpibwrt intDMMDes F1 00000000000 Call gpibwrt intDMMDes PR3 srowi Call gpibwrt intDMMDes TRS3 0000 Bus Call gpibwrt intDMMDes 1 DO OD Call gpibwrt intDMMDes CLS 000000000 1600 Call gpibwrt intVIGDes OPR Call gpibwrt intVIGDes DSR psR Hd E U D Call gpibrd intVIGDes strRecvStr 00000 IngVIGDSR
68. nst lngMeasNoCol As Long 2 000000 Private Const lngMemNoCol As Long 3 000 00 Private Const lngGenerateVCol Long 4 0000000 Private Const lngVDataCol As Long 5 000000 Private Const lngIDataCol As Long 6 000000 Public Sub SetMemAndMeasure GPIB Dim intVIGDes As Integer 160000000000000 Dim intDMMDes As Integer Dim strRecvStr As String 00000 Dim strSendCmd As String 0000000000000 Dim dblGParam As Double 00000000 Dim intMemNo Integer No Dim blnMemNoDec As Boolean 00000000000 Dim IngVIGDSR As Long VIG DSR Dim blnRDYb As Boolean READY Out bit Dim blnSWEb As Boolean Sweep End Bit Dim lngDMMSTB As Long pMM STB Dim lngRowNo As Long 0000000000000 Dim IngMeasCnt As Long 0000 Dim intNowRepCnt As Integer 0000000 Dim intNowMemNo As Integer IngRowNo IngStaRow 00000000 0000 vch pm 000000 000000 105 Call ibdev intIFBoardAdr intVIGAdr 0 T10s 1 0 intVIGDes Call ibdev intIFBoardAdr intDMMAdr 0 T10s 1 0 intDMMDes 000000000000000 Call ibconfig intVIGDes IbcUnAddr 1 Call ibconfig intDMMDes IbcUnAddr 1 00000000000000000000 Call gpibwrt intVIGDes C RST 5 55 6146 6156 000000000 00000 5 9 30 00000 2 00000000000000 0000000000 Call gpibwrt intDMMDes 5 Call gpibwrt intVIGDes Call gpibwrt intVIGDes 4 RCLR 00000 Lr Lr Lr Lr
69. ss D 0 ces 000000000000000 10000000 5800 0000000000 100000000000000000000000 54000000 054 00000000000000 STB 1 2 0 IUD 0 EAV Error Queue 1000 Error Available OFF Error Queue 1000 DSB ON DESR DESER LI Device Event Sum umm mary Bit OFF DESR 5 20 6146 61560 00000000000000 5 6 1 0000000000
70. strRecvStr 0000000000000000000000 00000000000 00000000000 ste 0 00 essage Available bit 000 0000000000 ActiveSheet Cells IngRowNo lngMeasNoCol value IngMeasCnt ActiveSheet Cells IngRowNo lngIDataCol value strRecvStr Call gpibwrt intDMMDes Call gpibwrt intVIGDes TRG ingRowNo IngRowNo 1 End DoEvents Loop Until blnSWEb True Next Call gpibwrt intVIGDes SBY Call ibonl intVIGDes 0 Call ibonl intDMMDes 0 End Sub 0000000000000 vic 000000 D 00000000000 0000 95000000 Sweep End bit 000000000 000 16000000000 00000000 5 57 6146 6156 000000000 00000 5930 00000 2 00000000000000 0000000000 5 9 3 2 USB D D B D D D D Option Explicit Private Const lngVIGID As Long Private Const l1ngDMMID As Long Private Const lngTimeOut As Long 000000000 Private Const dblVMin As Double N Private Private Private Const Const Const dblVMax As Double 5 dblVStep As Double O0 intRepSet As Integer 0000000000000 Private Const lngStaRow Long 1 Private Const lngRepCntCol As Long Private Const lngMeasNoCol As Long Private Const lngMemNoCol As Long 3 Private Const lngGenerateVCol As Long Private Const lngVDataCol As Long 5 Private Const lngIDataCol As Long 6 Dim
Download Pdf Manuals
Related Search