аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ ўџџџ#2ўџџџ" !$1%&'()*+,-./03<ўџџџ456789:;=C>?@ABDўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFј@рšЦ€ЮЧpЭ?WorkbookџџџџџџџџV_VBA_PROJECT_CUR" уQ‘5рЧPЉ‘5рЧVBAџџџџџџџџ уQ‘5рЧPЯœ‘5рЧ ЮЭЩРсАСт\p Matt Carolanto BАaР=гК ThisWorkbookœЏМ=”<x-x-8X@"Зк1ШџArial1ШџМArial1ШџArial1ШџМArial1ШџArial1ШџМArial1№џМArial1ШџArial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)Є#,##0\ "F";\-#,##0\ "F"!Ѕ#,##0\ "F";[Red]\-#,##0\ "F""І#,##0.00\ "F";\-#,##0.00\ "F"'Ї"#,##0.00\ "F";[Red]\-#,##0.00\ "F";Ј6_-* #,##0\ "F"_-;\-* #,##0\ "F"_-;_-* "-"\ "F"_-;_-@_-8Љ3_-* #,##0\ _F_-;\-* #,##0\ _F_-;_-* "-"\ _F_-;_-@_-CЊ>_-* #,##0.00\ "F"_-;\-* #,##0.00\ "F"_-;_-* "-"??\ "F"_-;_-@_-@Ћ;_-* #,##0.00\ _F_-;\-* #,##0.00\ _F_-;_-* "-"??\ _F_-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р рЋѕџ јР рЉѕџ јР рЊѕџ јР рЈѕџ јР р ѕџ јР р(Р р Р р Р р!Р “€џ“€џ“€џ“€џ“€џ“€џ’т8џџџџџџџџџџџџ€€€€€€€€€РРР€€€€€џ€ `џџР рр`€џ€€€РРРџ€џџџџџџ€€€€€џЬџiџџЬџЬџџ™ІЪ№ЬœЬЬ™џууу3fџ3ЬЬ3™3™™3™f3™ffff™–––33Ь3ff333f3™3f33™BBB\џџџ`…*  modTestCode…™ Sheet1…Sheet2…3Sheet3ŒЎСС`iыZ№R№3 №П Р@@ё  їќmStep Volt PointsCurrent points Dwell points!Agilent Power supply List Example Channel =џ š cc^ ЮЭЩР&A Page &Pƒ„Ё"PFent р?р?oi> P ЮЭЩР ~ ц  dќЉёвMbP?_*+‚€%џС&A Page &Pƒ„MHP DeskJet 500д@fўўќџ,@MSUDHP DeskJet 500„dЁ"dќџ,р?р?U} I ;џў€џџџџ џ џ џ џ џџџџџџ§ О § ~ @§ § § § Н№?№?р?№?Н@@№?@Н@@ј?р?Н@@@№?Н @@@а?Н @@@ј?Н @@ @$@Н  @ @@№?Н "@"@@ш?Н$@$@@^@з&@@8"""""""""" ьд№№№Ю№( № №№„т № Г №B€А*#…П GСџџџH:џџ™ПР@ П№ xЕ№]`А*#p+ь №Ж(<5Note: To start the program start the macro 'main_list' from the menu: Tools>Macro>Macros& (Alt-F8) You must have a GPIB interface with VISA COM installed It demonstrates reading a list from a range of cells and sending the values to the power supply. To see the code press Alt-F11<(!vFУbOь„№„т № Г №B€+#…П G(ИџџH0*џџ™ПР@ П№@—р ˆ№]`+#а+ь №Ж)<*Enter values for the list to be executed.<т)ь~№~т № Ѓ №<€P+#ПG§АџџH #џџ™ПР@ П№аˆ №]`P+#0+ь №Ж<Enter the power supply channel<Жь8?№0№№№>Ж@я7К Sheet3 ЮЭЩР з  dќЉёвMbP?_*+‚€%џС&A Page &Pƒ„Ё"Pр?р?U>Ж@я7К Sheet4 ЮЭЩР њ  dќЉёвMbP?_*+‚€%џС&A Page &Pƒ„Ё"Pр?р?U>Ж@я7К Sheet5 modTestCode џџџџ{__SRP_2џџџџџџџџџџџџT__SRP_3џџџџkSheet5 џџџџйўџџџўџџџ ўџџџ !"#ўџџџ%&'()*+,-./0123ўџџџ56789:;<=>?@ABCўџџџEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyўџџџ{ўџџџ}~ўџџџ€02007&*You have a royalty-free right to use, Оify, reproduc.nd disъJthe Sample Apla‚rFDs (and/or anyƒ&ied vers„) inQ way‚$yJfi€0>ful, €:vid€thaфt agRu!€is no‚&wa rrant_ obligKs Fliabilitиy fM•_.$‚& ’6„OsTgram€ming exCТsillu@KƒD only,BThpis sMС assumes Ч:re fam@*€ar with€e‰‚langu@age beAd№emonB€M_Т  toolstdv0crea€Љdebug‚@!ced ures.‘ support e ngine@p c€an help@<8plaРr@‚Тfu”ncС€aТXofoftРhe coPmpon@­s@ƒdбСAoci@(d@^m€*@БзA3yРBlšl@ytФЇse„SРOoСHС ad‘$rAIuct #D>GmeeBšr specificr @;dsB‚ыЃ} В € Ђ@Х?w@E‚ !D work`р=N676xA €Power M pоlрCс6ЂA 5­т "HЂ{$Ž054 Hс { SpeРBA’ иtenСpЃ.r.BVС 8 voltaJ` С" point VC"G@Ѓ=€celsh'€$Съexe†c Ђ  10  р currЁ”AE l Š. It alsoЅ/es Adiffe‚d$weР?ti`e. rFxea ?РZd prr checFkС mnot`cluТASub m рU_L@() GЗЦ.€ИProcDataaInv`oke_F [сК P\n14 К D(im nA y €As VariрŽ …SCPIcФmdaStr@G!рTempG *P 255iALŒon€tХ IDNч1'ErrЃ ‘chxann 5Р„Ё ф 'с`trЁƒС>ХАnumb NРРbŽneрqe6PcBJ 'Ч!! ЂpconA СsѕJ,E?,B}G9чaC}S ТSЂ—@ зCFA Aa@Ѕ@Њe рјgth' Ђ M ApЁ"'€уiti@•ze"IOcoС Global GPIBCa‰€Ѓs ifBa:lСMyРJЅфIf PwrSаRly Is Nothaс Then3 aS|et€0JqЃEРoIfГS' GGIС@qr d№( Јfro 'p r7#ЃF(= R@ae("b6:d15"€).value'`дf?each 'QX= p#$(%(1, 1) 3чБ o 2ei\ 3uГ=i 6L Bound†) + 1 To U|SсZ Ш& "а," &Œ iˆ Ю У˜ пray(аі ?б;йџєvNe~xPJGuE9R sч’‚R4puбMР: dp`;syntaxЇХАЈ(@бCРS0s(3,pА"){@L“W†–+3! .0writ0ЌK ":*аG?„OбСH= р.ReadƒEѕ Са' Se-aP_lЋ`.Ё,ob6iтwmP`cЏЄRSTж уQ№ueryьЦ+Ё№)џА6Я Я py1С АР­1$СpаА Bo2qћVOLT:MODE LISўTђ&$Г&‘pПсПCURRПq]OџB… =“wаtqПб њ:С A"Su+_ їРcт!)C}Ÿ я’Ё ’6 Ÿ™25‡Я J*"DWEL" _8&?ЁpTurnбrout15oјZ; €OUTP ONяŸЁр]’р~gg!9иourагuu?PpУ"TRIG:TRAN:SOUR0 BUSIn•agt#ktpЮsia$Рsystemџ/ѓ/№INITЃ3Л#юTр Au0ЏЄ4јTRGЦ9QkсCЅб@fIі=€‰orЁaSub € € џџџџ€ $   Ш € џџџџ€ $ш ( € џџџџ€ $8 (` € џџџџ€ rU€€€€~| џџџџk0 € џџџџ€ $X € € rU€€€ џџџџџџџџ$`§џџџџџџџЙnџ  ЭџџxрI№Ьдџџџџг'Ыgѕџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0н"%Eп№МдАџџџџъ’ЫgВ‚џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџџџџџ€ џџџџ`џџџџ@џџџџџџџџџџџџџџMM„ 14`„џџџџџџџџ џџ`„џџџџџџџџџџ „џџџџџџџџ' h`„ џџџџџџџџџџree `„"џџџџџџџџџџ, re`„$џџџџџџџџџџte`„&џџџџџџџџџџ`„(џџџџџџџџџџ any`„*џџџџџџџџџџn an`„,џџџџџџџџџџfindџџџџƒџџџџџџpџџџџџџџџџџџџџџ%џџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@н"%E$*\Rffff*0748343c0cпўЪe€€ P€ *X€ ˆ€ N€ Nр€ R0€ Nˆ€ и€ Rр€ N8€ Jˆ€ Pи€ P(€ Jx€ JШ€ P€ џџџџ€ \h€ Vш € 0Ш€ џџџџ€ Tј€ TP"Ј€А€И€ Р€а€и€р€<ш€F(€>p€А€ џџџџ€ PH  И Ши€ џџџџ€ *р€ џџџџ€ ((Ph€€ џџџџ ˜&И&р& 0€ џџџџ€ F@"ˆ€ џџџџАИШ€ џџџџ€ ,а € џџџџ€ . @ P € џџџџ€ $X  € € џџџџ€ $   Ш € џџџџ€ $ш ( € џџџџ€ $8 (` € џџџџ€ ˆ (Ј € џџџџ€ а № € џџџџ€ $ $0 € џџџџ€ $X € € џџџџ€   И € џџџџШ € џџџџа € џџџџи џџџџ  ЭџџxрI' """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""р$' Љ Agilent Technologies, Inc. 2007xр'рH' You have a royalty-free right to use, modify, reproduce and distributeрG' the Sample Application Files (and/or any modified version) in any wayрK' you find useful, provided that you agree that Agilent Technologies has noрG' warranty, obligations or liability for any Sample Application Files.р'рK' Agilent Technologies provides programming examples for illustration only,рH' This sample program assumes that you are familiar with the programmingрD' language being demonstrated and the tools used to create and debugрI' procedures. Agilent Technologies support engineers can help explain theрJ' functionality of Agilent Technologies software components and associatedрC' commands, but they will not modify these samples to provide addedрD' functionality or construct procedures to meet your specific needs.рI' """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""рU This program will only work with N676xA Power Modules and with N675xA Power Modulesр* points specified in the Excel worksheet.рN This program executes a 10 point current and voltage list. It also specifiesрM 10 different dwell times. For ease in reading error checking is not included–]ђH]ђ`]Ќџђx]ђ˜]ђА]ђШ]ђрр - controls the channel number to be programmedamme]ђјр 8 strings to control the voltage, current, and dwell timeel]ђр / for creating a list. All are the same length]ђ( .Аœ 2A@0kџџЈр$ Get the user data from spread sheetЖb6:d15$4!6'р" create a string for the each listЌЌ$$ 8'(ЌЌ$$ 8'*ЌЌ$$ 8',џ ў ŠЌ ‘’ (Ж, Ќ$$ 8'( *Ж, Ќ$$ 8'* ,Ж, Ќ$$ 8',џ ўШр@ Get the channel from the spreadsheet and put into proper syntaxЖ(@ЌЌ$:Ж)'& .ѕЖ*IDN?C@<5>'"р% Send a power reset to the instrumentЖ*RSTC@<р( Query the instrument for the IDN stringЖ*IDN?C@<5>'"р Set the voltage mode to listЖVOLT:MODE LIST, &C@<р Set the current mode to listЖCURR:MODE LIST, &C@<р Send the voltage list pointsЖ LIST:VOLT (Ж, &C@<р Send the Current list pointsЖ LIST:CURR *Ж, &C@<р Send the dwell pointsЖ LIST:DWEL ,Ж, &C@<р Turn the output onЖOUTP ON, &C@<р Set the trigger source to busЖTRIG:TRAN:SOUR BUS, &C@<р Initiate the transient systemЖ INIT:TRAN &C@<р Trigger the unitЖ*TRGC@<qџџИA@@oџџЈџџџџ рO that have Option 054 High Speed Test Extensions and rated for the voltage andџџџџ рJ Initialize the IO with the Global GPIB address if not already initializedџџџџа џџџџпЗAttribute VB_Name = "modTestCode" Option Explicit '' "C– Љ Agilent Technologies, Inc. ўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et5" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2№Ьдџџџџг'Ыg/Мџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџThisWorkbookџџџџџџџџсSheet3 џџџџ$йSheet4џџџџџџџџџџџџ4йmodSetIOџџџџџџџџџџџџDM џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0н"%EпўЪџџџџџџџџxџџџџААAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2№Ьдџџџџг'ЫgŸ;џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0н"%EпўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et3" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2№Ьдџџџџг'ЫgБ џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0н"%EпўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et4" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2№дРџџџџV2 Ыg7џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(1”џџ<џџ6 џџџџ<џџџџџџLX(ШGPIB0::5::INSTR%%џџџџ @`џџџџџџџџџџџџџџџџџџџџџџ„`„Nџџџџџџџџџџ 0џџџџ`џџџџџџџџџџџџаџџџџџџ„iƒ2џџџџџџџџџџџџџџ„ „Vџџџџџџџџј%`„NџџџџџџџџџџЊ€/Pџџ@џџџџџџџџЪ2џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџ8(PƒJџџџџџџ џџџџџџџџџџџџџџџџџџ88џџџџ(џџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџxн"%E*\R4*#3c$*\Rffff*0848343c0cпўЪ.€€ џџџџ€ @€H€ џџџџ€ P„h€ џџџџ"ˆ€ 2€Ш€ џџџџ€ <а€  0 @P€ џџџџX` x€ џџџџ€ (€ Ј *Иш№ј€ џџџџ" € $€ 00€ *`€ .€ Р€р€ш€ џџџџ€ џџџџ€ ,№  0@€ џџџџX€ џџџџџџџџhЭџџxр9These variable are neccessary to initialize the VISA COM.] ђ(р The GPIB address]ЖGPIB0::5::INSTRђPx–8р, Read the instrument error and show if error, re]ђxр6 Initialize the IO with the Global GPIB address if notр already initialized .Аœ 2A@0kџџЈ .ѕЖ syst:err?C@<5>'Nр" give message if there is an error N$PœЖError in instrument! T NA@Rkџџqџџoџџ–р Initialize the IO connectionр) VISA COM requires that you reference theр# VISA COM Type x.x type library andр' Agilent VISA COM resource manager fromр the Tools>References menu]ђ№]ђр& Initialize the VISA COM communicationэЦ.VxэЦ..э 2 V% ./Zoџџ џџџџ˜џџџџГAttribute VB_Name = "modSetIO" Option Explicit  'These variable are neccessary to initialize thКISA COM.~Pubž PwrSupply As VisaComLib.FormattedIO48&82' y GPIB addroGlobalР ConstЮ-0::5:: INSTRе €Sub ReadIrumentError()—…6`i† e and sho0w ifƒDiPm reiSЎnFg ƒ' I ŒIРO with‚1b3‰n.no€Л‚К aTlr€VyˆЎdƒ+IfІIs Notаhing–nƒ —‚ъ  E€2If‡ CW%FhG.writes‚6 "sаyst:@D?€UуТ@= .OAG' give m9A‹ge8€ˆ@is@U S@6Val( ‚)Ь3СMsgB№ox "nF€Р&Тr!" & vb№CrLfB! =С; ASubЧСЙˆˆТM(By" —@­C7Р‹Qvcon@ХСAа ' VФРР‡quiРЎ}at you@fere ncЫЪ Type@ x.x tl8ibrиŸA Ag ilРЌIsour€manager` fromA СрT€ools>Re„2s`nu"ЁVio˜MgrqЄ RMAqРSRMClsЇЂ(?Ё%ƒюЦco€mmunica! 6* у = Neќw VЇ„ƒ…J .рk=C .OperU€€€€~| џџџџџџџџfrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ(Љ`§џџџџџџџџџџџбnЬayџ  фњ*\G{000204EF-0__SRP_4џџџџџџџџџџџџz^__SRP_5 џџџџ|™_VBA_PROJECTџџџџџџџџџџџџYdirџџџџџџџџџџџџЙˆ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИўџџџКЛМНОПРСТУФХЦЧўџџџЩЪЫЬЭЮЯабвгдежзийклмнопрўџџџтуўџџџхцўџџџшщъыьэюя№ёђўџџџєѕўџџџїјљўџџџћўџџџџџџџџџџџџџџџџџџџ000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{36F6E2F6-A9CE-11D4-98E5-00108301CB39}#1.0#0#C:\PROGRAM FILES\COMMON FILES\AGILENT\VISACOM\AGTRM.DLL#Agilent VISA COM Resource Manager 1.0ц*\G{DB8CBF00-D6D3-11D4-AA51-00A024EE30BD}#3.0#0#C:\Program Files\VISA\VisaCom\GlobMgr.dll#VISA COM 3.0 Type Library  џџJList example for Agilent Power supplyџџн"%EџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЫgmodTestCode0748343c0cџџmodTestCodeџџВ‚˜џџ Sheet50248343bf8џџC Sheet5џџѕ-џџThisWorkbook0348343bf8џџEThisWorkbookџџ/М0-џџ Sheet30448343bf8џџG Sheet3џџŸ;H-џџ Sheet40548343bf8џџI Sheet4џџБ `-џџmodSetIO0848343c0cџџJmodSetIOџџ7x8 џџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџљС~#qHAЌдBюOŒLOџџџџ4јIэзMуM­љИ:7Рžџџџџœ­†РK@‹„CДшMџџџџ-<L№‘FKЇrЉLШЅвWџџџџm{Cи@{ŸLЏ- GLлnџџџџ$lђЙЄG}L‡pnV-џџџџџџџџh€/0џи* Excel€+ VBAїтWin16С~Win32MacГВVBA6­# List_VISACom.љstdole“` AgilentRMLibНS VisaComLibYA modTestCodesю _Evaluateй Ќ(main_ListП[strArrayЋSCPIcmdдуstrTempMi`IDNЩ ErrString@Zchannelђ voltPointsИ* currPointsОe dwellPointsЗ Ќ(PwrSupplyвЌ(SetIOж Ќ(GPIBaddress дRangeк valueфKStr—еCells writestringЁЫ ReadStringСОЌ(ReadInstrumentErrorЊy Sheet5ь ThisWorkbook|у Sheet3ъ Sheet4ы modSetIOЗоFormattedIO488ЅXreply /ValнтMsgBox—RvbCrLfЏЌioMgrєЕSRMClsхяIOБ]Workbookk WorksheetСўџџџџџџCEGIKџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџl€„Г€0* pH‚dф List_VIS€ACom%D example for Agilent Power supply@JTist exampl fobrAg#n5'Pw!sFu/1yMД=Њ  ‚  н"%EЖ(<+9st`dole>d‹€29 €C\€*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2 .TLB# Automatio2nD‚>„•RMРLib> ‹€ RML€ˆbh —€€M36F6E2F6-A9CE-11D@4-98E5€M108301CB39}#1…MPROGRAM FILES\COMMONAG€ NT\ТtOM\AGTRРM.DLL#ХqA Р Resource ManagРvРР#€ a@Visa€…‚2ЋС.s€yC€Wm†1}@sР1DB8CBF00-D6„D3ƒ1AA51€1A024EE30 BD}#3†1ro@gram F˜sB,\Ф\GlobMgr.dll#, Type a€$rary@€ДТЫg @modTe€stCodeGg‚ЇodTŸЋˆС0dР 2 ЂРHB1BЄ`˜B,QB В‚!B+BBЈSheet5GQТˆSheРУ54H2NЯ-1Яѕ"ЪѕThisWorkbohokGтPT ЁuWA€7rkbрomрЂщ2њЙ /Мkс{b 3m Ъ3i 3m 3џ с TŸ;є 4э 4щ 4Mэ 4џ b<Б ы ` NSetIOGŒЁр+dS =`tIO i2›ro8рpэK7щKa __SRP_0џџџџџџџџџџџџШ__SRP_1џџџџсЊPROJECTwmџџџџџџџџџџџџфЇPROJECTџџџџчУ“K*yџџџџrU€€€~~~~~~~~j Щ‰Ьg\УCО|флuч,А  фџџџџˆ џџџџ€џџџџсџџё џџџџџџџџџџџџ џџџџџџџџџџџџ) џџџџџџџџџџџџQ џџџџџџџџџџџџiˆ Йџџџџ˜џџџџqЁџџAQi‰‰ List_VISACom modTestCodeSheet5 ThisWorkbookSheet3Sheet4modSetIOяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Ёџџџџ Щ10РF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel ™џџџџС9@0РFC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole Љџџџџ QPіті6ЮЉд˜хƒЫ97C:\PROGRAM FILES\COMMON FILES\AGILENT\VISACOM\AGTRM.DLL AgilentRMLib Сџџџџщa`ПŒлгждЊQ $ю0Н )C:\Program Files\VISA\VisaCom\GlobMgr.dll VisaComLib сџџџџ ip main_List  GPIB0::5::INSTRReadInstrumentErrorSetIO rU€€€ aџџџџџџџџ џџџџџџџџџџџџџџџџ  %List example for Agilent Power supply 14 GPIBaddressbmodTestCodemodTestCodeThisWorkbookThisWorkbookSheet3Sheet3Sheet4Sheet4Sheet5Sheet5modSetIOmodSetIOID="{657C55D7-6989-4099-B3DB-6BCC60CF0381}" Module=modTestCode Document=ThisWorkbook/&H00000000 Document=Sheet3/&H00000000 Document=Sheet4/&H00000000 Document=Sheet5/&H00000000 Module=modSetIO HelpFile="" Name="List_VISACom" HelpContextID="0" Description="List example for Agilent Power supply" VersionCompatible32="393222000" CMG="B7B55726B96A686E686E686E686E" DPB="6A688AFB3CFC3CFC3C" GC="1D1FFD4C03FE04FE0401" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] modTestCode=0, 0, 543, 494, Z ThisWorkbook=0, 0, 0, 0, C Sheet3=242, 242, 675, 770, C Sheet4=0, 0, 433, 528, C Sheet5=22, 22, 455, 550, C modSetIO=220, 220, 653, 748, ўџр…ŸђљOhЋ‘+'Гй0p08 P \hфMarlo Manaloto@€с~ У@’\‘5рЧўџеЭеœ.“—+,љЎ0ФHP X`hp x ЁфSummaryInformation(џџџџџџџџѓ DocumentSummaryInformation8џџџџџџџџџџџџієCompObjџџџџџџџџџџџџњmџџџџџџџџџџџџФ Sheet1Sheet2Sheet3  Worksheetsўџ џџџџ РF!Microsoft Office Excel WorksheetBiff8Excel.Sheet.8є9Вq