3441xA Sample Program Guide
Contents
1. 9 Email 34410A2. PC 10 Libraries Suite PC Visual Studio EXCEL web Help 0120 421 34
3. 0 1 0 1 Dim stopFlag As Integer Private Sub Agt 441xaSample01 Loadsender As System Object e As System EventArgs Handles MyBase Load btnSetting Enabled True btnStartEnabled False btnStopEnabled False stopFlag 0 End Sub Private Sub btnSaveFileDialog Clicktsender As System Object e As System EventAres Handles btnSaveFieDialogClck txtSaveFileName Text Dim FileDialog As New SaveFileDialog0 Dialog FileName Aalent3441xADatatxt tart fletstletxticsv lee cavilt cevl Dialog OverwritePrompt False
4. alse addMessage End Sub Private Sub btnStart Chicktsender As System Object e As System EventArgs Handles btnStart lck Dim intActuaiMeas As Integer Dim intDataPoint As Integer 3441xA Dim smlMemsData0 As Single 3441xA Dim dbIMeasSum As Double Dim dbIMeasMax As Double Dim dbIMeasMn As Double Tm DMM riteString INIT addMessage Catch ex As Exception addMessage ERROR INIT Exit Sab End Try btnSetting Enabled Fe btnStartEnabled False btnStopEnabled True stopFlag 0 IntActualMe IMeasSum 0 IMeasMax Double MinValue IMessMn Double MaxValue INIT 05 Do Loop ForiAs Integer 1 T
5. 3441xA 34410A 11A 6 172 ttp cp iterature agilentcom litweb pdf 34410 90413 pdf L4411A 34410A 11A Digital Multimeter User s Guide ttp cp iterature agilent com litweb pdf 34410 90001pdf 34410A 11A6 Digit Multimeter Programmer s Reference ZIP 3441xA http wwwhome agilentcom agilent productjspx pn 34410a 3441xA 34410A 11A http cp literature agilent com litweb pdf 5991 2011JAJP pdf VISACOM IO Libraries Sute Windows I0 Documentation gt API Documentation gt VISA COM Help 5
6. 10 000 Sub btnStart_Click DMM WriteString DATAREM amp intDataPoint ToString sglData DMM ReadIEEEBlock Sub btnSetting_Click DMM I0 Timeout 10000 10 TCP 3441xA LAN VXI11 TCP TCP VXL11 TCP Sub btnSeting_Click DMM I0TerminationCharacterEnabled True TCP I0TerminationCharacterEnabled True GPIB USB LA
7. 500m i NO 500m 3441xA Questionable Data Register Questionable Data Register 3441xA PC 3441xA 3441xA 3441xA
8. x intMeasCount intSampCount intTrigCount addMessage amp intMeasCountToSting0 Dim dbiSampTimer As Doutle ISampTimer 00001 34410A 01m 34411A 002m DMM WriteStringt SAMP SOUR TIM DMM WriteString SAMP TIM amp gaISampTimerToStrng0 addMessage SAMP TIM amp dbiSamgTimer ToString0 DMMWriteStringt SYSTERR 1 swResp DMM ReadString0 1F Integer Parse strResp Substring O syRespindexOf 0 Then addMessage ERROR strResp DMM10 Cpse0 System Runtime InteropServices Marshal FinaiReleaseComObject DMM System Runtime InteropServices Marshal FinaiReleaseComObject RM riter Closed Et Sub Er Catch Ex As Exception rterClose0 DMMIO Close System Runtime InteropServices Marshal FinalReleaseComOtject DMM System Runtime InteropServices Marshal FinalReleaseComOtject RM addMessage ERROR 3441xA amp ExMessage MegBox 344ixA Exit Sub amp Ex Mossage
9. DC 10V 34410A 5 1 2 34411A L4411A 4 172 34410A0 006NPLC 34411A L4411A 0 001NPLC DC P51 Questionable Data Register Sub btnSetting_Click DMM WriteString CONF VOLT D
10. VISA VISA DMMI0 Cse System Runtime InteropServices Marshal FinalReleaseComOtject DMM System Runtime InteropServices Marshal FinalReleaseComOtject RM Exit Sub End Ty addMessage amp txtSaveFileName Text amp Tw 3441xA Dim intTngCount As Integer Dim intSampCount As Integer Dim strResp As Sting DMM WiteString RST CLS DMM riteString CONF VOLTDC 10MAX DCV 10V DMM WriteString VOLTIDC NPLC MIN 34410A 0006 NPLC 34411A 0001 NPLC DMM WriteSvingt TRIGDEL 0 DMM WriteString FORMAT DATA REAL32 32 irtSampCount 10000 10000 DMM WriteStringt SAMP COUN amp intSampCount ToStrg0 addMessage SAMP COUN amp intSampCountToStrn0 IntTrigCount IntegerParseltxtTrigCount Tex DMMWrteSuinaKCTRIGCOUN amp intTrigCount ToString addMessage TRIG COUN amp intTigCount ToString0
11. Catch ex As Exception addMessaget btnSetting Enabled True btnStart Enabled False btnStop Enabled False stopFlag 0 Exit Sub End Try btnSetting Enabled True 13 btnStartEnabled False alse addMessage DMM WriteStringt STAT QUES EVEN Questionable Data Register Dim intReg As Integer intReg DMM ReadNumber Dim strReg As Sing strReg intReg ToString X addMessage STAT QUESEVEN IF ntReg And amp HA Then addMessage End mtReg And amp H4000 Then addMessage Ed Dim strResp A String pe seRep DMMWrteStingKCSYSTERRY strResp DMM ReadSting0 addMessage SYSTERR2 amp strResp TF Integer Parse strResp Substring 0 strResp IndexOf Y 0 Then Exit Do Era Leop rterClose0 DM
12. 10 000 Im ErO0 OO00oEvo 4 2 5 6 7 4 3441xA 3441xA DC 10V 34410A 5 12 34411A L4411A 4 172 34410A 0 006 NPLC 34411A L4411A 0 001 NPLC 0 1m 10 000 x 34410A DC 34411A L4411A 0 02m 3441xA 500m 500m NO Yes 3441xA 01m
13. IF FileDialog ShowDialog ttSaveFileName Text En logResuit OK Then rieDiapgFleName 10 End Sub Private sub btnSetting Click sender As System Object e As System EvertAras Handles btnSetting Click VISA VISA Tm RM New IviVisa Interop ResourceManager DMM New IviVisaInterop FormattedlO488 DMMJO RM Open txtVisaAddress Text 3441xA DMMIO Timeout 10000 VISA 10 DMMIO TerminationCharacterEnabled Tie TCP Catch ex As Exception addMessage ERROR VISA COM amp ex Message MsgBox VISA COM amp ex Message Exit Sub End Ty addMessage VISA COM amp txtVisaAddressText amp Te rter New SystemiO SireamiWrtertbtSaveFieName Text True Catch ex As Exception addMessage ERROR amp txtSaveFileName Text amp MssBox
14. VISACOM 3 0 Type Library 0K ysoas EE Er Ta A Vewie 100 Tee taey 180 Cmegmim eamacewzeVamlatdoiaawcomn s 0 Cssprogram Filestcomomon rlesMoosot shoredtMSE Bastc For Applications eo CtW ndowssystems2tmsvhvm6 a Yesl studio NE Converter eker tn rsprogram FieskMerosaft Viauai etude tn okCommo helz 1 0 Tvpe Lbcary 10 Cispregram Filestsymantecrsymantsc Endpomt rotec VsDebug 9 0 Type Library 0 Ci Program FlestMicrosoft Visiat Stueio 10 0 Commor ye 1 0 cmregiam feexconrnon nextiowoF earan 1 5 EL a a VISACOM VISACOM 3441xA 3441xA VISACOM 1 1 2 Formattedl10 I0 3 FormattedI0
15. Agilent Connection Exper 3441xA VISA Address Agilent Connection Expert 10 Libraries Suite 16 3 16 2 VISA Address GPIBO 22 INSTR GPIB TCPIPO 169 254 4 10 inst0 INSTR LAN VXL11 TCPIPO 169 254 4 10 5025 SOCKET LAN TCP USB0 0x0957 0x0607 MY47001234 0 INSTR USB 1 Visual Basic 2010 Express Edition gt Microsoft Visual Studio 2010 Express gt Microsoft Visual Basic 2010 2 gt 2 Agt3441xaSample01YAgt3441xaSample01 sln 3 gt 1 VISA 3441xA DCV rar COBE 2 Agilent3t4IxADatatkt x0 5 1 3 x 100000 MK Et0U
16. ID 4 1 2 Dim RM As MiVisa interop ResourceManager VISACOM Dim DMM As IviVisa Interop Formattedl0488 VISA COM IO RM New MiVisa interop ResourceManager DMM New Interop Formattedl0488 DMM 0 RM 0pen btVisaAddress ex DMM WriteString SYSTERRY strResp DMM ReadString DMM0 Close System Runtime InteropServices Marshal FinalReleaseComObject DMM System Runtime InteropServices Marshal FinalReleaseComObject RM 7 3441xA DCV 201 0307
17. PPT FIRE 6 FAO P2uani2 7 8 9 Windows Wisual Basie MieosoR Carporaton Anticipate Accelerate Achieve Agilent Technologies 1 Windows XP SP3 IO Libraries Suite 16 3 isual Basice 2010 Express Edition Microsofte Microsofte Visual Basic 2010 Express Edition Visual Basic 3441xA 10 Libraries Suite VISACOM 10 Libraries Suite URL IO Libraries Suite
18. tentsettenteettecttettsettetteeteettettentteetnttentttettnteette TvwietrartavwwteerdttwredezweetWedetHeetMreewatdetMt aaeteris Publie Class AgtS441xaSample0 wwrtettvtwwerdetwwedeaYeetMetetot etttroternte tient eens ronntetee Dim RM As MLVisalnterop ResourceManager VISA COM Dim DMM As i Visalnterop Formattedl0488 VISA COM IO Dim fWrer As System10 StreamiWrier Fle Dim itMeasCount As Integer
19. http wwwagilent com find iolib 2013 3 16 3 IO Uibraries Suite 16 3 16 2 http cp_iteratureagilentcom litweb pdf 5991 0331JAJPpdf PC 34410A 34411A L4411A GPIB GPIB 82350B 82357B E5810A 2 ZIP Agt3441xaSample01 Agt3441xaSample01 sin Visual Basic 2010 Express Edition Agt3441xaSample01 Agt3441xaSample01 Agt3441xaSample01 vb 3 PC Agilent Connection Expert 3441xA
20. abortDmm Exit Do Ear 4 tActualMeas intDataPoint 0 To intDataPoint 1 tblMeasSum sgMeasData TF sgiMeasDatat lt dbiMeasMin Then dbiMeasMin sgiMeasDatati Ear TF dbiMeasMax lt sgiM dbiMeasMax sgiM End rerWrteLineOE7I sgiMeasDatat Ne IpiDataPoin Text intDataPoint ToString N0 IprTotalCount Text intActualMeas ToString NO IblAve Text IMeasSum intActualMeas ToStrng E7 IpiMin Text dbiMeasMin ToString E7 lbiMax Toxt dbiMeasMax ToString E7 MWriter Flush 5 TF ntActualMeas gt intMeasCount Then Ext De Ear 6 1F stopFlag abortDmmt Ext De Ear 7 500m ForiAs Integer 1 To 5 System Threading Thread Sleap 100 100m Apalication DoEvents Ne Loop
21. Agilent PS X30 G10103A 34410A 34411A DCV 34410A 34411A L4411A 3441xA PC 3441xA 3441xA 34410A DC PE shoA poy snare yn EH waa vari ET 1 earzf tions 3 4 mesea leo aeecee
22. 5 Email contact_japan agilent com E http wwmr home agilent com upload cmc_upload All otoiawased txt 15 IO Libraries Suite 10 Libraries Suite VISA http wwve agilent com find iolib 2012 11 16 3 16X Agilent IO Libraries Suite 163 162 http op literature agilent com litweb pdf 5991 0331JAJP pdf Aailent VEE Pro http wwvr aglent com find vee VEE Pro 30 2012 11 93 Agilent PS X30 G10101A E3600 DC http wwwwaglent cojp find E3600 sample program Aglent PS X30 G10102A 34970A 34972A Ittp wwwwagilentcojp find datalog sample_program infiniVision http w
23. C 10 MAX DMM WriteString VOLT DC NPLC MIN 34410A 10 000 0 1m 34411A L4411A 50 000 0 02m Sub btnSetting_Click intSampTimer 0 0001 DMM WriteString SAMP SOUR TIM DMM WriteString SAMP TIM amp intSampTimerToStrng 500m 500m 500m Sub btnStart_Click ForiAs Integer 1 To 5 SystemThreadingThread Sleep 100 100m Application DoEvents 3441xA x 10 000
24. MI0 Close System Runtime InteropServices Marshal FinalRel System Runtime InteropServices Marshal FinalRel End Sub seComObject DMM eComObject RM Private Sub addMossage ByVai str As String ttMessage Text txtMessage Text amp str voCrLf ttMessage SelectionStart ttMessage TextLength TaxtBcy ttMossage SorolToCaret End Sub Private Sub btnStop ClickCsender As System Object e As System EventArgs Handles btnStop Click etcpFlag stopFlg End Sub Private Sub abortDmm ByVal sr As String rierternnertrne rtetet eeternteteeetees 3441xA wereefteerrrtteefteteettefHrteefe DMM WiteSting ABOR DMM WriteSting OPC DMM ReadStrng0 lf str Then addMessage str End Ff End Sub End Class 14 8
25. N VXI 11 3441xA ASCII 32 64 32 64 ASCII 32 Sub btnSetting_Click DMM WriteString FORMAT DATA REAL329 Sub btnStart_Click DMM WriteString DATA REM amp intDataPointToString s9IMeasData DMM ReadIEEEBlockllviVisalnteroplEEEBinaryType BinaryType_R4 6 FA0 VISACOM 3441xA Agilent 10 Libraries Suite VISACOM Visual Basic 2010 Express Edition VISACOM gt
26. ent Technologies Ine 2013 Published in Japan March 182013 B991 2173JAJP 0000 08A Agilent Technologies
27. o 5 System Threading Thread Sleep 100 100m ApplicationDoEvents Next Tw 1 3441xA 2 344ipA 3 12 4 5 6 7 500m ps 1 3441xA DMMWriteSving DATAPOIN 34410A intDataPoint DMM ReadNumber ivi Visa Interop IEEEASCIType ASCIType 4 Hf intDataPoint gt 0 Then 2 3441xA DMMWriteStringt DATAREM amp intDataPoint ToString sgiMeasData DMM ReadlEEEBlock lviVisa Interop IEEEBinaryType BinaryType R Ee 3
28. www agllent cojp find Infiniiision sample to 5096 88 1 1 1 182 8510 91 EN emecor rxntins ty ied TE WR 0120 421 345 CMZ556 9 7 No a Email contact japan agientcam wumaglentcoip Agil
Download Pdf Manuals
Related Search