計測器ドライバ ガイドブック 〜ActiveX編 - Kikusui Electronics Corp.
Contents
1. 3 4 a b 52. KIKUSUI ELECTRONICS CORP Page 3 29 ActiveX uS lr KH L P 5 EIE c er hiuc RECS 5 Uer d E M 5 ES uz or RR RR ka 5 LU Ak 6 ECT s rtv CMM 6 2 GPIB F uisi ptm o ura edietib mecs ttuI tem c fu res Lc DA IM c DIR RP Epi E T PCM Disc R s ILLE M DARE 6 29 Pic he rcp 6 LE EE Cr pA Pre mM 6 LRL 6 3 VISUAL BASICO O RR bae e e pe eR A LE I 7 C pene E SP DLL EMO RU T A AN SEA A A E E TE 7 3 2 EaD m A am a 100D T a y RRRRRRRRRRRRRRRRRMRRRMMMEMMMMMKEKRHR RRR gQRR8EERRKRRRRRRRRRRRRRRRRRRRREEMME 7 3 3 COnfeoE kk 8 JA KN 9 ST NTA i i MUR 9 CN IM CL UL EE 10 C Mrs rir m Dem Ee 2 10 99 86ISININO Gesing A TTR M i 11 C oh MM EO Mr EE 12 4 n mL ID F t SN A EEE A EE A E E E E E AE 12 4 2 UserForm ee 12 9 606EERKKMQ KI OO 13 AAD OS ENNIO 14 TAATAAN me NR RR 14 ON 2 RS ee 15 aqu 2 EE 15 4 8 SetStng otv YR G
3. PCR L W Ver2 70 GPIB National Instruments NI 488 2M PLZ 3W 3WH Ver1 00 KIKUSUI ELECTRONICS CORP Page 5 29 ActiveX 2 2 1 GPIB RS 232C RS 232C 2 2 GPIB GPIB National Instruments NI 488 2M Agilent Technologies HP IB 1 VISA
4. 4 3 Connect Tos9000 tos Visual Basic Tos9000 Figure 4 3 Connect 4 tos Connect VBA ON OFF Space Connect DevName As String String GPIB 1 DevName GPIB 1 GPIB 1 RS 232C ASRL1 Private Sub CommandButtonl Click tos Connect GPIB 1 End Sub Connect 1
5. TOS9000 OK 4 2 Figure 5 8 ME GE RTV FAO 2 mvuhMP CANE MATINO CD 9 AM knalt sug 6 m c J mpmwemjeg ee s croseobe FATIGA AA eCTOS9000DIe Ja e ES 9 i al x Fed aat El ESN Jaa Del boli lac EA E dac Joel hel ond EB ON NN UN 0 eed 0 a aei TR IO IT E E lon 3 TOS9000 3 Dialog EC IDD ABOUTBOX 3 a TOS8000 DIAL 3 kv Eat 3 String Table s Edit cec E Version Figure 5 8 ID Figure 5 9 da 9 Rz ID4D IDC BUTTON CONNECT Xe 532 OY Connect v STER 95 7
6. Registered ActiveX Controls lt l c Kikusui TOS9000 Driv I D Hhopen Control a HtmlDleHelper Class fe KiUniDry Class InstallEngineCtl Object Kodak i Kikusui KJM6755 Driver Dill Kodak Kikusui PIA3200 Driver V1 1 bs Kodak 4 3 7 838 1 Kikusui PLZ 3WH Driver SER Kodak zl FPA Jy QU Kikusui TOSO9000 Driver Ink Kikusui TOSS000 Driver VT EC PROGRAM FILES COMMON FILES KIKUSUI Figure 5 6 TOS9000 Microsoft Visual C Dialog 31 1g Icon x ab Ft String Table SE Version fxe EH m B sot TODO 7 iia Wa Cla E Res IEEE AN CR E CERVI X 1 X 2z 2 un Figure 5 7 ActiveX KIKUSUI ELECTRONICS CORP Page 19 29 ActiveX 5 3 Figure 5 7
7. Visual Basic ActiveX Visual Basic 6 0 Excel 97 Visual C 6 0 Delphi 3 0 Visual Basic ActiveX 6 Borland Delphi Inprise Corporation IBM International Business Machines Corporation Microsoft Windows Visual Basic Visual C ActiveX Microsoft Corporation National Instruments NI 488 2 NI VISA National Instruments Corporation
8. 6 7 2 service kikusui co jpD KIKUSUI ELECTRONICS CORP Page 2 29 ActiveX 3 4 5
9. Figure 3 2 hhapen OLE Control module icmfilter 1 0 Type Library IE Popup Menu IE Super Label IE Timer W Kikusui KJM87554 Driver V1 0 vw Kikusui PIAS200 Driver V1 1 Kikusui PLZ 3W WH Driver V1 0 KEKIKusuil TOS9000 Driver W1 0 Kikusui Universal Instrument Driver V1 5 RG1 SRO C Kodak Kikusui TOSS000 Driver V1 0 OX XCOM XKIKUSUI SHAREDXTOS9000 0CX kevt Figure 3 1 Visual Basic 6 0 3 2 Form Form Tos9000 Tos90001 tos OK TOS9000 Project Microsoft Visual Basic FE RED RT IIINE PRO F
10. 6 7 PPS REMOTE O TODO Figure 6 8 SDI Connect Connect Help C XProgram Files Common Files Kikusui SharedYxxxx hlp KIKUSUI ELECTRONICS CORP Page 25 29 ActiveX 7 Delphi 3 0 7 1 ActiveX Figure 7 1 Kikusui xxxx Driver Vxx ActiveX OXPROGRAM FILESEXCOMMON FILESSKIKUS
11. ActiveX fg Hiroshi Yamaguchi Dec 2000 2nd edition ActiveX fi 1 WEB 1 a b 1 2
12. Me x T Figure 3 3 Form Load Connect LT Unload Disconnect Command Caption Connect Disconnect Private Sub Form Load tos Connect GPIB 1 End Sub Private Sub Form Unload Cancel As Integer tos Disconnect End Sub Connect Help KIKUSUI ELECTRONICS CORP Page 8 29 ActiveX 3 4 Help Help Visual Basic 6 0 ComboBox TOS9000LibCtI Tos9000 TOS9000 Driver Help amp x Project Microsoft Visual Basic 734 MIO RRO 0 2m 2 P ERO FAO 5 IU PISAD U
13. Help C XProgram Files Common Files Kikusui SharedYxxxx hlp 7 5 tos OnTestingW Figure 7 7 IEREVIEFESWE ftos TTos9000 v aaz QnTestingl QnTestingR OnTestingW Figure 7 7 W procedure procedure TForml tosTestingW Sender TObject Status Smallint Voltage Current Double begin ends AutoMonitor Enabled True AutoMonitorlnterval ms 500ms 7 6 500ms Label 7 6 Form Figure 7 8 Edit Start Stop
14. ICommandButton1 TOS9000 REMOTE Disconnect FE CE 0 RO Tos RD YAD 0 AIH xa Ed S 0S LAO gt m h BP ES Slam i x VEAFProject Project Book1 TOS9000 4 amp 3 Microsoft Excel 32 z End Sieg AutoMonitor Enabled g amp AutoMonitorInterval g amp t Cancel g amp t ChHigh JH CommandButtan x CommandButton1 CommandButton CommandButtonl False BackColor CO amp H8000000F amp BackStyle 1 fmBackStyleOpac Cancel False Caption CommandButtonl Default False Enabled True MS P B 2H80000012 amp 24 Figure 4 3 UserForm Connect Disconnect CommandButton Caption KIKUSUI ELECTRONICS CORP Page 13 29 ActiveX Private Sub UserForm Initialize tos Connect GPIB 1 End Sub Private Sub UserForm Terminate tos Dis
15. Visual Basic Editor Microsoft Visual Basic Book1 Excel VBA VBA VBA VBA Figure 4 1 O Kikusui xxxx Driver Figure 4 2 FIFHSTREA T HI 71 GR O HHCtrl Object O Hhopen Control O HtmlDlgHelper Class O InstallEngineCt Object EK IKusui TOS9000 Driver O KiUniDry Class Fo OXPROGRAM FILESECO
16. Tos9000 Doc Tos9000 CTOS9O00O0EBDoc CTos9000EBDoc TODO 1 HRESULT hr z CoCreateInstance CLSID Tos9000 NULL CLSCTX INPROC SERVER IID ITos9000 void amp m spTos ASSERT SUCCEEDED hr EnableAutomation AfxOleLockApp 6 6 ClassWizard OnInstrConnect d m_spTos gt void CTosS9S000SDIDoc OnlInstrConnect TODO try m spTos Connect L GPIB 1 catch com error e bstr t strDesc e Description AfxMessageBox strDesc Visual C UNICODE _bstr t UNICODE ANSI
17. SDI MDI MFC AppWizard exe Tos9000SDI Figure 5 1 SDI Figure 6 1 HOME D c puo C s 294 DEDI CD C PS Ha 72 k a D C IA i e I 2 Ca QD C MDKM C D Iv Fiata 9 U APPWZ IPN DLD lt RTE se Figure 6 1 MFC AppWizard Step1 6 9 C GO C i4 N 0 C N Q C WF 8 D 79747 F5aXyb 373 0 Iv EN
18. mg 3 s AIS MEI Y 7a SE ir GUAT AutoMonitorEnab True AutoMonitorInters 500 a Figure 4 8 UserForm KIKUSUI ELECTRONICS CORP Page 15 29 ActiveX Private Sub CommandButtonStart Click Dim szTestPat As String Dim szcmad As SGELDO Dim nSts As Integer True Then d If OptionButtonl Value szTestPat A ElseIf OptionButton2 Value True Then szTestPat B Else 7 szTestPat C End If If Worksheets Sheetl Range szTestPat tos TestMode tosMode_W tos Voltage Val Worksheets Sheet1 tos LimitLower Val Worksheets Sheetl tos LimitUpper Val Worksheets Sheet1 tos ExecTime Va O E BELTER 2 5 ElseIf ONERE ud s t tos TestMode tosMode I tos Voltage Val Worksheets Sheet1 1000 tos LimitLower Val Worksheets Sheetl tos tos ExecTime LimitUpper Val Worksheets Sheetl SVa IE eat ELTER 2 5 Else Exit Sub End If tos Start End Sub Private Sub CommandButtonStop Click i tos Stop End Sub Private Sub tos TestingI ByVal Status As ine o i As Double Dim dMomR As Double dMonR Resistance If dMonR 99900 Then Labell Caption OVER Else Labell Caption Str dMonR MQ End If End Sub Private Sub tos_TestingW ByVal Status As Integer Double ByVal Current As Dou
19. AutoMonitorIntervallms 500ms 4 7 4 7 Excel Excel A B C Stat 500ms Label Z Microsoft Excel Bank1_TQSgHIHxls FT zT E A FAT Q iD GA LH x D Ha 56i S X5 e ml IMSP FF I4 4 b M NSheetl Sheet2 Sheets f DE RR I In TTE s n n S Figure 4 7 Excel TES E REO RAD FE T m D Um AH NETT x a kl X Bs 4 n aX SS TS 3 C K CAI DH IN Aab EB EH lv C gp EH Sheetl Sheet1 j v b JUAT tos x tos Tos9000 z
20. D H Iv 57 zb2 B Figure 5 9 Tos9000 Class ID IDC_TOS9000 MFC ClassWizard IDC_TOS9000 m tos9000 Figure 5 10 MFG GlassWizard AvE y vot INER A ha actveX 5 2 nvuuMP 55225 532058h00 v TOS9000 z CTosgnnnpig D3 XTOSO000 TOSSOD DIe h D TOS9000 TOS9000Dle cpp _ ID rr PM LV D IDC BUTTON CONNECT DERO IDC EDIT Time GEdit m edtTime IDO EDIT Volt CEdit Im_edtwnlt CStatic m IblEvent Glos m tos TEN Figure 5 10 Class Wizard KIKUSUI ELECTRONICS CORP Page 20 29 ActiveX 5 4 Connect m tos9000 Visual C 6 0 co Connect try catch void CTOS9000D1g OnButtonConnect CString SEEVOI try
21. try except uses ComObj uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls Buttons OleCtrls TOS9000Lib TLB ComObj procedure TRFRorml BtnConneoctOollek Sender TObject Form begin try tos Connect GPIB 1 except on e EOleException do begin MessageDlg e Message mtWarning mbOK 0 OK end end end Connect TOS9000 REMOTE Connect Delphi Figure 7 6 KIKUSUI ELECTRONICS CORP Page 27 29 ActiveX cm x 50 Figure 7 6 Connect
22. ActiveX TOS8000 WBA TOS9000 VBA r Test Pattern r Test Pattern DAE IBI 26 CA CB CO Figure 4 9 4 8 SetString GetString SetString ibwrt ibrd PRINT 1 INPUT 1 Private Sub CommandButtonMonitor Click tos oetSrtring VDATA Labell Caption tos GetString End Sub KIKUSUI ELECTRONICS CORP Page 17 29 ActiveX 5 Visual C 6 0 5 1 MFC AppWizard exe TOS9000 Figure 5 1 7 xw x 4 ATL COM AppWizard mu 2 Dnzx MOD Cluster Resource Type Wizard ITosgnnn a Custom AppWizard Cx DWO RKCOMXTOSO9000 IJ lm MFC ActiveX ControlWizard MFC AppWizard dI RARI IRA RET EBSE AM C
23. Sub Private Sub tos TestingW ByVal Status As Integer ByVal Voltage As Double ByVal Current As Double End Sub Project Microsoft Visual Basic Form kA 274 ME FEO La JUMP 0 TUS RT II G475540Q vY MOD TFIA Ie B B sm d o c B ir 9 99 3 ni seno a I El 2 8 n d x Ces EED Rn EN lt lt restingW HERZEN E AA ba Private Sub tos Test inall ByVal Status s Integer ByWal 2 Dim szVoltage s String Figure 3 6 Visual Basic ComboBox AutoMonitorEnabled True ne a i i Nt 500ms 3 7 500ms Label 3 7 Setting TestMode TestVoltage Start Stop Fom Connect Disconnect Connect IMonitor MonVolt
24. TestMode 1 tosMode_W LimitLower LimitUpper Figure 7 8 Form Edit 500ms KIKUSUI ELECTRONICS CORP Page 28 29 ActiveX procedure TForml BtnuConnectClick Sender TODbject Form begin try tos Connect GPIB i Tl s except on e EOleException do begin MessageDlg e Message mtWarning mbOK 0 OK end end end procedure TForml BtnStartClick Sender TObject Start begin tos Voltage StrToFloat EditVoltage Text Edit tos ExecTime StrToFloat EditTime Text Edit OS Cart Start end procedure TForml BtnStopClick Sender TObject Stoph begin tos SPODi Stop end procedure TForml FormClose Sender TObject var Actio
25. ActiveX Delphi ActiveX KIKUSUI ELECTRONICS CORP Page 26 29 ActiveX 7 2 Form ActiveX Tos9000 Additionall BitBtn Form BitBtn Caption Connect IZ Tos9000 1 Name tos Figure 7 5 Form 7 3 Connect tos Tos9000 Connect Enter tos Connect CGPIBz1 GPIB 1 IX GPIB 1 RS 232C ASRL1 procedure TForml BtnConnectClick Sender TObject begin tos Connect GPIB 1 end 7 4 try except
26. P VARIED Iv 3D 3 M MAPI Gyt APDO Windows Y9 yhing pry cmo Um Internet Explorer ReBarGO X fza8 452 8 3374 55 533 4 TREO BD SIS 3 252 b DEDE D z 8 TO _ ow Figure 6 4 MFC AppWizard Step4 6 V ActiveX IM R B reo AppWizard 93210 Microsoft Developer Stud ZI TOM AO 2300 C MFC 542730 0005 MFC DLL D C MFC 00257490 552380 As 354 IE CTos9000S DIView Tosgnns DIView h 9 T9299 X 2741 D View X TosS000SDIView cpp re Figure 6 5 MFC AppWizard Step5 6 Figure 6 6 MFC AppWizard Step6 6 6 2 447 StdAfx h include import l import C Program Files Common Files Kikusui SharedYTOS9000 0CX named guids no_namespace finclude afxcmm h MFC Windows dt import C XProgram FilesXCommon Files Kikusu1 Shared TOS9000 OCX named guids no namespace dendif AEX
27. MFC AppWizard exe MEOD JE Ti Utility Project nd Win32 Application Win32 Console Application Win32 Dynamic Link Library Win32 Static Library Py win32 toy Figure 5 1 Visual C 6 0 1 MFC AppWizard Step1 Figure 5 2 Step2 4 7 Iv 8 2YE Iv 3D Mm Oh Ot VL d V 0 7 UU v ActiveX Jv N1 1 C2 WOSA zethp Hose d mm J mi m Windows HW APPWZ JPN DLL Faad P 33 4 3 Caur 7 TOS9000 Sa mple1 9 C SDIS C MDM RTE _ tow BTO st Figure 5 2 MFC AppWizard Step1 4 Figure 5 3 MFC AppWizard Step2 4 Jn M deo ESIZUxE TH AppWizard C EPSOTVSSRART 2707 ja 05240 Hd G TOSOUOUO App D 4 CTOSSUD Dle 2541 AE C 320 C Ufa YD MFC 54773 00075 MF
28. m tosI000 Connect T GPIB 71 3 catch COleDispatchException DE CHAR szMsg 64 pE GetErrorMessage szMsg sizeof szMsg NULL AfxMessageBox szMsg pE Delete Figure 5 11 5 5 Form TOS9000 TestingW Figure 5 12 W void CTOS9000Dlg OnTestingoWTos9000 short Status double Voltage double Current TODO 5532 CTOSS000Dle AO Windows Windows 7 AVES ok TestIEW I I TestingR Ay G D 9 6 MDI FOLA iii OnTestineWTos90000 IDC TOS9000 Notifies testing state for W MODE Figure 5 12 Tos9000 Class Auto Monitor
29. AutoMonitor Enabled True AutoMonitorlnterval ms 500ms 5 6 500ms KIKUSUI ELECTRONICS CORP Page 21 29 ActiveX 5 6 Connect Disconnect Start Stop void CTOS9000D1g OnButtonDisconnect Disconnect m tos9000 Disconnect void CTOS9000D1g OnButtonStart Start COLPTIDO SLECVOIDS CString strTime LEV m edtVolt GetWindowText strVolt Edit m edtTime GetWindowText strTime m tos9000 SetTestMode 1 1 TosModeW 2 TosModel 3 TosModeR m tos9000 SetVoltage atof strVolt m tos9000 SetLimitLower 0 m tos9000 SetLimitUpper 40 m tos9000 SetExecTime atof strTime catch COleDispatchE
30. 97 r hax Visual Basic 6 0 4 Excel 97 5 Visual C 6 0 6 Visual C 6 0 7 Delphi3 0 KIKUSUI ELECTRONICS CORP Page 6 29 ActiveX 3 Visual Basic6 0 3 1 Visual Basic 6 0 Visual Basic Figure 3 1 O Kikusui xxxx Driver Vx x
31. C DLL 55222 Aay C MFO ORHI TOSeonapp 75 lt lt R Figure 5 4 MFC AppWizard Step3 4 Figure 5 5 MFC AppWizard Step4 4 KIKUSUI ELECTRONICS CORP Page 18 29 ActiveX 5 2 Visual C Figure 5 6 Registered ActiveX Controls ActiveX O Kikusui xxxx Driver Figure 5 7
32. MD TFD 00F900 AM lb ma X Ra S dA o cs B ES T9 39 7A ops 4902220 g 480x480 wee xs EN T IE lH Project Form G H m General Declarations k pa Private Sub Form Load A abf tos Connect GPIB 1 Pr End Sub vc Private Sub Form Unload Cancel 4s Int tos Disconnect EB End Sub rm E TETEE Connects to a TOS9000 instrument through GPIB What you should do first after creating an z LEEREN instance of Tos9000 object is to call this Connect method This is an initiation work for GPIB C3 rossoootibcu l elj 9 operation 3 amp x Syntax ia Tos9000 yv On v p AutoMonitorEnabled ea et bonneet DEVNaME aP ModeSonstants RE RN The Connect method syntax has these parts AM p mud a Part Description PIA E EU object An object expression for the instrument object E RE DevName A string expression that represents a GPIB device name such as GPIB 1 p amp t hGpib Remarks g amp t Index Initialize Creating an instance of the Tos9000 object is different than establishing a GPIB connection Sub eer pia As ud Normally your application automatically creates an instance because the object is supplied as Establishes GPIB connection an ActiveX control but no GPIB connection has been established yet in this point of time The Connect method should be first invoked by your pr
33. MMON FILESXKIKUSUI SHAREDXTOSS9000 00X Kikusui TOS9000 Driver Figure 4 1 Excel VBA 4 2 4B Microsoft Visual Basic Book1 E ERO my DD U 44D 0 AIH x a Ed amp Ba K amp d O c y a m BE YNES C xj VEAProject i E Bonk1 UserForm UserForm VBAProject Booki J HI Jl 3 63 Microsoft Excel 32x E Sheer Sheet A abl 8 Sheet2 Sheet2 c EB Sheet3 Sheet3 x ThisWorkbook FF M Gy 24 4 m rs a UserForml JH PTS Tos90001 Tos9000 i Eit 5 GUATA AutoMonitorEnabled False Figure 4 2 Excel VBA Figure 4 2 Tos9000 UserForm Tos9000 Tos90001 tos OK TH KIKUSUI ELECTRONICS CORP Page 12 29 ActiveX TOS9000
34. NO QR I ATIA FRED JUPID 42 Xp z 480x480 a I B m E 8 Fi Proiect Formi Form JH xh Projectl x i Project Formi Form ea E Projecti Project1 B 74 4 Fi Farm1 Form Tos90001 Tos9000 a G0 MES URN Tos90001 UNF y AutoMonitorEnabled False AutoMonitorInterval 500 GAF Lu Figure 3 2 Visual Basic 6 0 KIKUSUI ELECTRONICS CORP Page 7 29 ActiveX 3 3 Connect Tos9000 tos Visual Basic Tos9000 Figure 3 3 Connect tos Connect Visual Basic ON OFF Space Connect DevName As S
35. NO AFXCMN SUPPORT KIKUSUI ELECTRONICS CORP Page 23 29 ActiveX import no namespace PIA3200 PIA4800 ISupply no namespace CLSID ITos9000 ID IID_ITos9000 CTos9000SDIApp Initlnstance AfxOleInit AppWizard Figure 6 3 6 3 Menu IDR_MAINFRAME ID ID INSTR CONNECT ClassWizard Doc COMMAND Fig
36. S 232C COM Component Object Model Visual Basic Microsoft Office Delphi ActiveX Visual Basic GPIB National Instruments gpib 32 dll NI Visual Basic 1 2 Visual Basic 6 0 Excel 97 Visual C 6 0 Delphi 3 0 32bit ActiveX Visual Basic 4 0 5 0 C Builder 1 3 VISA Virtual Instrument S
37. Stop 2 tos Stop Stop End Sub Private Sub tos TestingW ByVal Status As Integer ByVal Voltage As Double ByVal Current As Double Dim szVoltage As String Dim szCurrent As String If Status 2 Then szVoltage Format Voltage 0 00kV szCurrent Format Current 0 00mA Label2 Caption szVoltage Chr amp HD Chr amp HA szCurrent Label2 End If End Sub Setting Figure 3 7 3 8 SetString GetString SetString ibwrt ibrd PRINT 1 INPUT 1 Private Sub Monitor Click tos Setotring VDATA Labell Caption tos GetString End Sub KIKUSUI ELECTRONICS CORP Page 11 29 ActiveX 4 Excel 97 4 1 UserForm Excel97 Visual Basic Visual Basic Visual Basic
38. UI SHARED TOS 3 amp nn i AURR EO 5523500 TTos9000 z z Py Activex 9 CXProeram Files Barland Delphi 3I El T amp 3E AS CXProeram Files Borland Delphi 3XLib C XProgra U Al H Figure 7 1 ActiveX OK sig i 8m 254 I CE IC Program Files Barland Delphi 3 Lib dclusr3Hidp 408 B Dy Delphi User s Components OK LH Figure 7 2 X O AI OXProgram Files Barland Delphi 3XLibXdclusr30 dpl TTos9000 Figure 7 3 Delphi JUMP CE G RTA FP OO P N 77 59 40 YD AFH eg gO rei sv m aum Figure 7 4
39. age Label Private Sub Form Load Form On Error GoTo GPIB EXP GPIB_EXP tos Connect GPIB 1 Exit Sub GPIB EXP MsgBox Err Description tos Disconnect End End Sub Private Sub Form Unload Cancel As Tnteger Form IARE OALE T tos Disconnect End Sub Private Sub Monitor Click Monitor Labell Caption Format tos MonVoltage O 00kV Label1 End Sub Setting Private Sub Setting Click tos TestMode tosMode W tos ScanningUnits 0 tos Voltage 5 5kV tosdmcrthowsr 0 0mA 40mA 10sec tos LimitUpper 40 tos ExecTime 10 End Sub KIKUSUI ELECTRONICS CORP Page 10 29 ActiveX Private Sub Start Click Start tos S5tatt End Sub Private Sub Stop Clickt
40. ble Labell Caption Format Current 0 00mA End Sub Private Sub UserForm Initialize i On Error GoTo GPIB_EXP sot Y tos Connect GPIB Exit Sub GPIB_EXP MsgBox Err Description tos Disconnect End l End Sub Private Sub UserForm Terminate tos Disconnect l End Sub KIKUSUI ELECTRONICS CORP Start A BOFA ZIR C vete W Then Excel 1 1 W Range szTestPat Range szTestPat WA RandgetszrestPat TAT wM Range szTestPat 5 FE TL MN Then Excel 1 1 1 Ra SLG et a AZM BandgdedigelosUPgLbu c E d Range szTestPat 5 Start Stoph Val Resistance 99 9GG OVER Label1 Val Voltage As H Form GPIB_EXP Form T Page 16 29
41. connect End Sub Connect Help 4 4 Help Help VBA ComboBox TOS9000Lib Tos9000 TOS9000 Driver Help T EO Gen AD dt PAO RB 4200 x 9 El X Ba ia d n m4 5 ES TS 7 VEAProject E E1 y LlserFarm Ww Cx frossonntib rose gt al gt E 5 Eg Ce T Tos9000 Object Other methods Top Connects to a TOS9000 instrument through GPIB What you should do first after creating an instance of Tos9000 object is to call this Connect method This is an initiation work for GPIB operation Tos9000 MHA UE ee ChLaw UserFormi UserForm Modetonstants xd Connect i px Disconnect Syntax BL rra REI RE object Connect DevName EN gt ExecTime HMM DER i UcerFormi m GetString e Lonnect menoa syn
42. etSliilg 9 Uy B A i 17 5 VISUAL C 6 0 18 SA EO RO Si i ATAA E A T 18 52 sos er EOD A toti ci Ni i i 19 o cru 7X an cr d D E RR E RR RR RR P RR RR 20 bobo 0109 B Gonne e a a a i a 21 SS EO M TM MEER NER NER 21 a oen ni 29 2 Pen Ld ERR NN ENTRO NOE 22 ee 22 SESE e O EE NE CS 22 6 VISUAL C 6 0 23 G4 AES x7 UTE Bie Cc Nt cau a LER Agr d cena 23 DONE OW Ug seem uL 23 sse ecc I ET pee PT 24 bAT AAA IAD E MER RR 24 oes quu RUP TOE Ma TNR ONSE 25 euoguw rc Uus fmit b MR E E EEEE AENT Gi 25 6 J EE i a 25 A pu sc DEDI demi titu em asp scu EI E m ex DESI ID tree 26 FR enel eL LIP Los MM cT 26 T2 FOMA ZFA S T sets statuit itor GO 27 7 3 Connect kk 27 Tod py e except US d DINE MITES i i ed 27 Em Eo AD c MR H 28 FA cR m Pon SNR RD RERUM E EE E E O E EE EEA E E E 28 KIKUSUI ELECTRONICS CORP Page 4 29 ActiveX 1 1 1 GPIB R
43. lt 2 3 IEEE488 RS 232C 2 4 xxx exe Figure 2 1 Winzip Self Extractor TOSSODU EXE This pragram installs Activess Driver r RE re pis 5 Ss used i with Visual Basic Officed7 etc Cancel About Winzip Selt Estractor Mica M ak Computing Ine htkpe we winzip com Figure 2 1 Setup Complete C Program Files Common Files Kikusui Shared 2 5 Visual Basic 6 0 Excel
44. n TCloseAction Form begin tos Disconnect end procedure TForml tosTestingW Sender TObject Status Smallint Voltage Current Double begin LabelMonitorl Caption Format 2 2fkV Voltage LabelMonitor2 Caption Format 2 2fmA Current Label end Test Voltage kv 12 Test Time sec 10 1 20kV 1 15mA Connect Figure 7 9 KIKUSUI ELECTRONICS CORP Page 29 29
45. oftware Architecture GPIB RS 232C VISA 2 0 NI VISA HP VISA VISA GPIB HP IB Etz LabVIEW CD ROM NI VISA 2 0 http Www ni com visa GPIB Windows 9x NT4 2000 National Instruments NI 488 2M Agilent Technologies HP IB GPIB RS 232C Windows 9x NT4 2000 RS 232C VISA PCR L W Ver 2 70 PIA3200 Ver 1 10 TOS9000 Ver 1 01 KJM6755A Ver 1 00 PCR L W Ver2 70
46. ogram code Once a GPIB connection has been established hGpip LegalviodelName Version and Revision properties will be also updated Figure 3 4 Help 3 5 TOS9000 Start Stop Auto Monitor Gieneral Auto Monitor TestMode fi tosMode_ w ScanninglUnits fi Ll General Auto Monitor v AutoMonitorE nabled AutoMonitorInterval ms saa Test Conditions Voltage kV 5 00 ChLow p 4 ChHigh P d LimitLower m amp 0 00 LimitUpper m joo ExecTime s ees we Lees me we Figure 3 5 TOS9000 KIKUSUI ELECTRONICS CORP Page 9 29 ActiveX 3 6 Form TOS9000 ComboBox tos ComboBox TestingW Figure 3 7 W
47. orInterval ms sao m Test Conditions Valtaae k 5 00 ChLow fo ChHigh f zl LimitLower m 0 00 LimitUpper m jao Dn ExecTime s hs 2 2 Figure 4 5 TOS9000 KIKUSUI ELECTRONICS CORP Page 14 29 ActiveX 4 6 UserForm TOS9000 ComboBox tos ComboBox TestingW Figure 4 6 W Sub Private Sub tos TestingW ByVal Status As Integer ByVal Voltage As Double ByVal Current As Double End Sub 7 Microsoft Visual Basic Book1_TOS9000 xls PE E 0 FAT 0 PrO RB YD 20 AH X a i UR TE E o HERMES Am v mr 8 Sheet3 Sheet3 ThisWorkbook Private Sub tos Test inst ByVal Status As E iiy us Figure 4 6 VBA en ComboBox AutoMonitorEnabled True
48. tax has mese parts hGpib Part Descripti C amp H8000000F gs d De ar escription object Anobject expression for the instrument object DevName A string expression that represents a GPIB device name such as GPIB 1 Heo000012 amp D fmBorderStyle TOS8000 VBA D fmOvcleAllForn 32000 True H Sub Connect 2evNsme As String mrnrnrwW a T Cun Tn Remarks Creating an instance of the TnsgHHH object is different than establishing a GPIB connection Normally your application automatically creates an instance because the object is supplied as an ActiveX control but no GPIB connection has been established yet in this point of time The Connect method should be first invoked by your program code Once a GPIB connection has been established hGpip LegaltodelName Version and Revision properties will be also updated Figure 4 4 Help 4 5 TOS9000 Stop Auto Monitor General Auto Monitor General Auto Monitor TestMode fi tosMode_ w Scanninglnits fi E v AutoMonitorE nabled AutoMonit
49. tring String GPIB 1 DevName GPIB 1 GPIB 1 RS 232C ASRL1 Private Sub Commandl Click tos Connect GPIB 1 End Sub Connect 1 Command1 TOS9000 REMOTE Disconnect Prajectl Microsoft Visual Basic Formi HK FTT X DILO E RATY ODUSOMP 0 POPO RIR H U AD YD PEAD DW D lex a ASe 55m A oc Naras Alno RE TT B e Private Sub Command CI ick TOS Projecti Project1 1 43 747A Formi Form End Sig AutoMonitor Enabled g amp t AutoMonitorInterval gt ChHieh mg g amp t ChLow E Eoonnect E 4 Disconnect JH Command1 x EH EH Soelh Z Command1 CommandButton z aj EIR p R i Commandl t L3 1 3D E CO amp H8000000F amp Ls False 5 Commandl Gy e 7 m gu
50. ure 6 7 MFC ClassWizard Ave y unt NER een Activex 5283 2 Dn x5 MP IFAN h52 EDO v Tos9000SDI lt CTos9000SDIDoc E DX XTos9000SDIDoc h DX XTos9000SDIDoc cpp _ 4 DE G D m mE AA RIRE V OnNewDocument V Serialize Pt TOERE ODITIF OK Figure 6 7 ClassWizard 6 4 Doc ITos9000Ptr m spTos class CTos9000SDIDoc public CDocument protected ITos9000Ptr m spTos CIlos90005DIDOGC DECLARE DYNCREATE CTos9000SDIDoc XDebug type library F th ITos9000 Smart pointer typedef implementation tli KIKUSUI ELECTRONICS CORP Page 24 29 ActiveX 6 5 Doc
51. xception pE CHAR szMsg 64 pE GetErrorMessage szMsg sizeof szMsg NULL AfxMessageBox szMsg pE Delete void CTOS9000D1g OnButtonStop Stoph i m tos9000 Stop Stop void CTOS9000D1g OnTestingWTos9000 short Status double Voltage double Current m tos9000 Statti Start CString strEvent strEvent Format 3 2fkVXn 3 2fmA Voltage Current m lblEvent SetWindowText strEvent Static Text 5 7 kV Conect s ho Disconnect 1 00kV 0 88mA Figure 5 13 5 8 Help Help C XProgram Files Common Files Kikusui SharedYxxxx hlp KIKUSUI ELECTRONICS CORP Page 22 29 ActiveX 6 Visual C 6 0 6 1
Download Pdf Manuals
Related Search