取扱説明書 Resonance Mini DOAS Spectrometer Model # RMD I
Contents
1. Scanner 0000000000 2min Y manual auto 0000 manual 0 0 Controller power 1 000 ONU UI O amin 0000000000000 8 min o 3UUUUUUUUUU Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada L4N 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 6 OF22 Electro Optics Research Development and Manufacturing Resonance Micro DOAS RMDI RMDI system doc Q D LU poDo0o000000 D qi D ul w ODO C O O O 1 z E r3 a m S un o L3 Lr L3 r3 E3 C3 p H L Lr E3 r3 C3 E p E pon ooon oao aH oooo oo ooo oaoo ko noo oFoo www resonance on ca 000000000 O Ocean Optics D UBDBBDdud Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 res resonance on ca Dado 0d 00 000000000000 DODOo Dd Do DD 00000000000 DODO00 Dd 0000000000000 0000000000000000000 Dodo 0D o0000000 DO00 Ad 0000000000000 Ocean Optics uU gau x uu art 00000 DU ut O O 1 O DUBDDIUD OOOU000 OResonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 7 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI syst2. OH x1 p nmm 200000 1 p4 H N IM IM IM I EE ju Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 9 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Appendix 1 SPECTROMETER SPECIFICATIONS Date Jan 19 2004 Initial Identification Spectrometer Model Serial Number RMDI 040121 Entrance Slit Type Fixed Height Width 1 mm 0 025mm Exit Detector Type Linear CCD Pixel i 200 x 14 microns Array Width 28 mm Spectral coverage 295 to 437 nm Spectral coverage with UV filter 295 to 385 nm Grating Grooves mm 2 400 mm UV type Resolution System 0 4 nm first order Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada
3. Resonance Ltd Operating Manual Page 1 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing LI EIL LI LI N Resonance Mini DOAS Spectrometer Model RMD I April 12 2004 Tripi maara g perm bn um Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca OResonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 2 OF 22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing 1 1 RMDE TUE E aaa 3 DE CEE EE EY TED ET acs T eco I 3 21 EE EEES EE EE Ei Gato 5 AA EA CEU El ame A AAA AA 5 31 A A El EE EEES EE RAR ES SS S S 6 3 2 Resonance NIE E 7 Appendix 1 SPECTROMETER SPECIFICATIONS sssssersereseresesnenese 9 Appendix 2 SPECTROMETER CALIBRATION sseeeees 10 Appendix 3 Script File Listing sesososossescsososscscsosossesosososoesososossesosososscsososossssosososse 11 Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 www resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 3 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Il RMDI 0000 RMDIQO
4. 2002 Resonance Ltd Operating Manual Page 10 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Appendix 2 SPECTROMETER CALIBRATION Date Jan 19 2004 Initial Equipment Spectrometer Model Serial Number RMDI H a E Te e Fixed 25 micron slit RMDI Sky Calibration with S07 gas cells E 2 Grd n E 31053 terre a 313 1 channel a 2144 channel Poly 315 4 channel Po 313 1 channel Poly 310 8 channa 3000 4000 3000 6000 SO in pam m Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca OResonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 11 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Appendix 3 Script File Listing SCRIPT FILE NAME RMDI Script 6 bas The following script was based on the excelinterface bas which was script file in Ocean Optics Platinum Software package Script files are written in The Sax Basic Language which provides the core language definition Sax Basic is Visual Basic for Applications TM compatible Sax Basic and Sax Basic Editor are products of Polar Engineering And Consulting BEORE RUNNING THIS SCRIPT YOU MUST ADD A REFERENCE TO THE MICROSOFT EX
5. H E E B BH B HH D D HE E EE HE E E E E Beer pla In VL ooo pl 0000 SO0 00 x000 ppm m a p00000000 SO 00000 ppm m M D0000000000000 4 Macro raappoo 0000000000000 DO OOO EXCEL po000 DO00d0 00000 0000000000000 EXCEL 00000000000 5 0000000 Ocean Optics D O0DODOD 0000000 Time acquistion J nt I O 00000000000 Ocean Optics O OOO do Dg oO Dg OD do dogo 000 MOHO naa na 0100 eee te eer I OOOO 0857 P
6. 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 22 OF 22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing I 00i Grid Data Grid value 2 1 Log 2 RFlux1 4 RFlux1 3 RFlux1 5 BaseRat309 i ooi Grid Data_Grid value 2 2 Log 2 RFlux1 6 RFlux1 5 RFlux1 7 BaseRat311 ooi Grid Data_Grid value 2 3 Log 2 RFlux1 8 RFlux1 7 RHlux1 9 BaseRat313 ooi Grid Data Grid value 3 1 Log 2 CRFlux1 4 CRFlux1 3 CRFlux1 5 BaseRat309 ooi Grid Data Grid value 3 2 Log 2 CRFlux1 6 CRFlux1 5 CRFlux1 7 BaseRat311 ooi Grid Data Grid value 3 3 Log 2 CRFlux1 8 CRFlux1 7 CRFlux1 9 BaseRat3 13 For i l To NWL1 o001 Grid Data_Grid value 2 1 3 RFlux1 1 i ooi Grid Data Grid value 3 14 3 2 CRFlux1 i Next 1 For i l To NWL2 001 Grid Data_Grid value 2 i NWL1 3 RFlux2 1 i 001 Grid Data_Grid value 3 it NWL1 3 CRFlux2 i i Next i DO NOT MODIFY THE FOLLOWING BLOCK OF CODE InEvent False END NONMODIFY ABLE BLOCK 1 1 End Sub Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002
7. 4 0 000000 G2RMIOOOOOOD D UVOOOOUOO It a gud lut tL 2 Ocean Optics USB 200 OO 00000 GRMDIQGOOOOOOO0O00OU0U00000dO OResonance Ltd Canada 2002 Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada L4N 9V9 Phone 705 733 3633 FAX 705 733 1388 3 9 c a e c T c a D S Y D l www resonance on ca Resonance Ltd Operating Manual Page 5 OF22 Br ora M eiu Resonance Micro DOAS RMDI as cai DOO OO Dd 00d O DO ODO DO DO O DA O DO DO ODO DO O dodo ooo ooo DOO DO DO OU O Dd O ODO DO Dd 0000000 WODDODODOODODDODO DOOD OO Dd OO A DO Dd O O DO DO DDD AO DO DO ODO DO odo doo 0000 RMDI JJ nn Dgo do ooo OU OU OU OO GN Cd 00000 000000000000 uggguamaugugumagugaguamaguuummuauuumumuiuuumuiuulutt DOO ODO DO O O O DO DD O OO DO DD OD ODO DD 000000 RMDILTT TG DODO gg gg DO OOO DO ODO DDD ODO OD DDD 0 dodo 0000000 ODO DO Do 00000 RM ODO D B DL do U 0000000 RMDI po o0000000000000000 USB 000000 RMD 00 USB0o000000 puguggagagagagemugsmmuauggagmmuaudagguunmttdtdebltsttdtt utlb utl manual auto 000 auto power 0000 ONU L O start Cycle Auto Power cycle ti 0000000 time e DR Bum OOO start Uu t E 000000000 RESONANCE 30 sec rae ae Pe D 6 LTD im e OOUOddO
8. M RHlux1 2 RFlux1 1 CWL1 2 CWL1 1 B RFlux1 1 Fori 1To2 CRFlux1 i RFlux1 i Next i For i 3 To NWLI X CWL1 i CWL1 2 CRFlux1 i RFlux1 i B M X B Next i Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 21 OF22 Electro Optics Research Resonance Micro DOAS RMDI Development and Manufacturing RMDI system doc For i 1 To NWL2 X CWL2 1 CWL1 2 CRFlux2 i RFlux2 i B M X B Next i 001 0Sheet Cells 10 j 1 Str Timer StartTimer oo1 0Sheet Cells 10 j 2 Log 2 CRFlux1 4 CRFlux1 3 CRFlux1 5 BaseRat309 oo1 0Sheet Cells 10 j 3 Log 2 CRFlux1 6 CRFlux1 5 CRFlux1 7 BaseRat311 oo1 oSheet Cells 10 j 4 Log 2 CRFlux1 8 CRFlux1 7 CRFlux1 9 BaseRat3 13 For 1 1 To NWL1 ooi oSheet Cells 10 j 4 1 RFlux1 i i Next i i For 1 1 To NWL2 oo1 oSheet Cells 10 3 1 4 NWL1 RFlux2 i f Next i Put continuous spectrum into Excel For i 1 To 237 oSheet Cells 10 3 18 1 data Spect_Stpix 1 3 1 data Spect_Stpix i 3 data Spect_Stpix i 3 1 3 i Next i USE CODE BELOW IF DATA GOING TO SHEET IN OOI32 PLAT put the data into the grid in the ooibase sheet Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733
9. WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 17 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Nexti set numerical precision and format 001 Grid Format Grid ColumnPrecision 2 22 001 Grid Format_Grid ColumnPrecision 4 2 001 Grid Format_Grid ColumnExponentialFormat 2 True ooi Grid Data_Grid value 2 1 1000000000 ooi Grid Format_Grid ColumnPrecision 4 4 001 Grid Format_Grid ColumnExponentialFormat 4 True ooi Grid Data_Grid value 2 1 1000000000 size the columns i ooi Grid Format Grid AutosizeColumn 1 2 3 bfSizeBestFit END comment out for excel initialize communication with excel Set oXL GetObject Excel Application Set OWB o0XL Active Workbook Set oSheet o WB ActiveSheet put the wavelengths into the grid in the excel ss oSheet Cells 7 1 Start Time oSheet Cells 7 3 Str Time StartTimer Timer oSheet Cells 10 1 sec after start oSheet Cells 10 2 Absorb 310 8 oSheet Cells 10 3 2 Absorb 313 1 oSheet Cells 10 4 Absorb 315 4 A For i 1 To 237 oSheet Cells 10 18 i wl Spect_Stpix i 3 Next i Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 18 OF2
10. 2 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing For i 1 To NVVLI oSheet Cells 10 4 2CWL 1 1 Nexti For i 1 To NWL2 oSheet Cells 10 4 NWL1 1 CWL2 1 Next i DO NOT MODIFY THE FOLLOWING BLOCK OF CODE Ready INITDONE END NONMODIFY ABLE BLOCK Public Sub EventGenerator NewSpectraReady ByVal windowname As String ByVal channels As Integer 1 J DO NOT MODIFY THE FOLLOWING BLOCK OF CODE If Ready lt gt INITDONE Then Exit Sub If ooi InNextScanWait True Then ooi InNextScanWait False Exit Sub End If If ooi InTimeWait True Then Exit Sub If InEvent True Then Exit Sub InEvent True i END NONMODIFY ABLE BLOCK HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHBHHHHHBHHHHHHHHHHHHHHHHHE HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHBHHHHHHHBHHHHHHHHHHHE Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 19 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Insert your event code here THHHHHHHHHBHHHHHHHHHBHHBHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE THHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE this On Error statement is necessary when you edit a cell in Excel while the script is runn
11. CEL TYPE LIBRARY YOU MUST SELECT EDIT REFERENCES and check off the reference compatible with the version of Excel run on the host computer e g MICROSOFT EXCEL XX OBJECT LIBRARY YY The resonanceexcelinterfacel bas script used the MICROSOFT EXCEL 9 0 OBJECT LIBRARY 1 3 ALSO MAKE SURE EXCEL IS OPEN PRIOR TO RUNNING THE MACRO AND THE EXCELTEST XLS WORKBOOK or Worksheet in earlier versions of Excel IS OPEN IN EXCEL BEFORE YOU EXECUTE THIS MACRO LOG OF Changes AND ADDITIONS TO THE EXCEL INTERFACE SOFTWARE by Bill Morrow bmorrow resonance on ca on June 2 03 1 change program name to resonanceexcelinterface 2 set references as above xx 9 0 and 1 3 part of reference This process is self explanitory BUT i it is vitally important not to use two excel references at once e g Excel 5 0 and 9 0 references simultaneously 3 Add in integrate module which integrates over wavelength ranges 3a Use Simpsons rule integration A MODULE IN OO Normalize each signal to 1 nanometer by dividing by wI2 wll 4 Set up five wavelengths which includes two background wavelengths at 281 and 292 nm to estimate of scattered light and three wavelengths around an SO absorption band at 309 6 nm 5 Calculate band strength by averaging signal on either side and taking ratio with signal on line i 6 Use a linear extrapolation of the signal at 292 based on the slope betvveen 281 and 292 to estimate scattered light 7 Remo
12. HHBHHHHHHHHHHHHHBHHHBHBHHBHHHBHHHHHBHHBHHHHHBHHBE THHHHHHHHHHHHHHBHHHHHHHHHHHHHBHHHBBHHBBHHBHHHHHBHHBHHHHHBHHBE get the wavelength array ooi SpectralData GetWavelengths chan wl 0 Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 14 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing j 0 jmax 10000 set starting and ending wavelengths Compressed Spectrum Mask Spect_StWL 308 Spect_EnWL 356 03 SO2 MASK WLO 0 Wave length offset can be used to correct for temp drift WLM 1 Wave length span can be used to correct for temp drift NWLI 9 Number of slits CWL1 1 270 WLM WLO Center wavelength 1 background reference SHWI 1 25 WLM Slit 1 half width corrected for wave length span CWL1 2 280 WLM WLO Center wavelength 2 background reference SHW1 2 25 WLM Slit 2 half width CWL1 3 309 77 WLM WLO Center wavelength 3 low SO2 absorption SHW1 3 0 25 WLM Slit 3 half CWL1 4 310 75 WLM WLO Center wavelength 4 high SO2 absorption SHVV1 4 0 25 VLM Slit 4 half width CWL1 5 312 1 WLM WLO Center wavelength 5 low SO2 absorption SHW1 5 0 25 WLM Slit 5 half width CWL1 6 313 08 WLM WLO Center waveleng
13. OOOOGU0000000000000 00000000000 vvunnat ugnmnupnugpnaugpnaug eep0 000000000680 24mapp00000000 po do md 000000000000 0000000000000 0000000000000 pOdo0 0000 00000000000 0000000000000 88000000000 po0000000000000008S02 No2 so20 00 NO 000000000000 DODBO 0d 00000000 00000000000 0000000000000000000 0 0 DO O O DO H Ocean Optics OOIBase OO 000 10 on line off line 1 0 DO ugunumnpnunaunpnnaunmnMpr pos sisqynnnnaumna gmninppnadn DUN UDC OU dd OO UOC dd dd OO OU OU OU OU Tunguruhua 900000000 0000000 RMDIQOOO00U00U0U00dU0ON RMDp0000000000000000 figure30 00000 2 00060 RMDI JO 0 0 0000000 0000000 0000000 l4 in x 20 tpi tripod mounting hole are present on all four faces Spectrometer assembly in protective case Telescope and filter assembly pago go gd 0000 0000000000000 000000000 s 300 4 poOd poo 000000000 OOOOO00 nmmnppnnnn Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada L4N 9V9 Phone 705 733 3633 FAX 705 733 1388 www resonance on ca res resonance on ca Resonance Ltd Canada 2002 Page 4 OF22 RMDI system doc Resonance Micro DOAS RMDI Operating Manual El RE 3 a 5 5 a E S 9o 5 E E DpDuggpopnupnupnuunupn 1200000000000000000000COUD OU Development and Manufacturing Resonance Ltd Electro Optics Research 0000 OU MO n er uin O po000 M0 Ooo CUN Oe ann nn SOCOCOUE figure
14. chan Spect EnWL For SO2 mask For i 1 To NWLI Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 www resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 16 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Stpix1 1 001 Spectrometer wavelength GetPixel chan CWL1 i SHW1 1 Enpix1 i 001 Spectrometer wavelength GetPixel chan CWL1 1 SHW1 1 Next i For O3 mask For i 1 To NWL2 Stpix2 1 001 Spectrometer wavelength GetPixel chan CWL2 1 SHW2 1 Enpix2 1 001 Spectrometer wavelength GetPixel chan CWL2 1 2 SHW2 1 Next 1 Configure OO Sheet create new grid window If ooi SetGridByName Integration False Then ooi Windows NewGridWindow 4 30 1 Integration i Call ooi SetGridActive End If name the cells ooi Grid Format_Grid ColumnPrecision 1 2 ooi Grid Format_Grid ColumnPrecision 3 2 ooi Grid Data Grid Text 1 1 2 Absorb 310 8 001 Grid Data_Grid Text 1 2 Absorb 313 1 ooi Grid Data Grid Text 1 3 2 Absorb 315 4 i For i 1 To NVVLI ooi Grid Data_Grid value 1 1 3 CWL1 1 Nexti For i 1 To NWLI NWL2 001 Grid Data_Grid value 1 NWL1 3 1 CWL2 1 Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388
15. em doc Development and Manufacturing 3 2 Resonance DO U U U 000 DEI EEXAXA lt KHA A Resonance J 000000000 0000000 0000000000000 000000 GU 3000000000000 000000000000 000000 3100 3300 0 315nm0 S2J PO 00000000 00000000 00000 1 DOBO DO OD OD DO OD 0 DD 000000 0000 0000000000000 dC 0000000000000 000000000 000000000000 OO 2g0 00 0000000000000 000000000 000000000000 DOCU 0000000000000 000000000 000000000000 OB g0d 000000 00000000 00000000 000000 RMDI EXCEL Template xls 00000000 AAA A AMI ura SEGUI as Bee re m E E t pE zr cmm dela 7 eM i a F A 1708 EEN iam I VEN SOU es ee Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada L4N 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca OResonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 8 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing 2 nnnnnnnnnnnn poD0008000000000000000 Ocean Optics 0 O a Script Show IDE 00000 b IDE window File Open RMDI Script 6 bas 0 0000 DO O H Ocean Optics O 0 0 D 0 0 O Resonance H 1 D 0 0 ugszzatlt it 000000000 00 RMDI Script bas 0 OO HH BL D U HOODOUODODOU300000000000000 so2 t t 00000000 310 8 313 1315 4nm SO2 B
16. ing Excel generates an error automation clients are unalbe to access cell contents while it is being edited the On Error statement causes the script to gracefully continue On Error Resume Next with each new spectrum get the desired wavelength Dim wl As Double wl 340 oSheet Cells 5 3 define local variables Dim M As Double Dim X As Double Dim B As Double Dim RFlux1 9 Dim CRFlux1 9 Dim CRFlux2 5 Dim RFlux2 5 Dim CurPix As Integer get processed spectral data ooi SpectralData GetProcessedS pectrum chMaster data 0 Theo ok kok kkk Create compressed spectrum de de de ke K K ofe ee K KK de le K Create average integrate For i l To NWLI Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 20 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing RFlux1 i 0 For CurPix Stpix1 1 To Enpix1 1 RFlux1 i RFlux1 i data CurPix Next CurPix RFlux1 i RFlux1 i Enpix1 i Stpix1 i Next i For i 1 To NWL2 RFlux2 i 0 For CurPix Stpix2 1 To Enpix2 1 RFlux2 1 RFlux2 i data CurPix Next CurPix RFlux2 1 RFlux2 i Enpix2 i Stpix2 i Next i USE CODE BELOW IF DATA GOING TO EXCEL put the data into the excel spreadsheet j j 1
17. th Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 13 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing Global Spect_Array 2048 As Integer Global chan As SPECCHANNEL Global WLO As Double Wavelength offset parameter Global WLM As Double Wavelength multiplier parameter Global CWL1 15 As Double Center Wavelength array for SO2 slit set nanometre units Global CWL2 15 As Double Center Wavelength array for Ozone slit set nanometre units Global SHW1 15 As Double Slit HALF width array for SO2 slit set nanometre units Global SHW2 15 As Double Slit HALF width array for Ozone slit set nanometre units Global Stpix1 15 As Integer Global Enpix1 15 As Integer Global Stpix2 15 As Integer Global Enpix2 15 As Integer Global BaseRat309 As Double Global BaseRat311 As Double Global BaseRat313 As Double Global StartTimer As Double Public Sub EventGenerator_MacroBegin ByVal modname As String DO NOT MODIFY THE FOLLOWING BLOCK OF CODE If Ready INITDONE Then Exit Sub InEvent False Set ooi New OOIBase32Platinum END NONMODIFY ABLE BLOCK THHHHHHHHHHHHHHBHHHHHHHHHHHHBHBHHHBHBHHBBHHBHHHHHBHHBHHHHHBHHBE THHHHHHHHHBHHHHBHHHHBHHHHHHHHBHHHBHBHHBHHHBHHHHHBHHBHHHHHBHHBE Insert your start up code here THHHHHHHHHHHH
18. th 6 high SO2 absorption SHW 1 6 0 25 WLM Slit 6 half width CWLI1 7 314 16 WLM WLO Center wavelength 7 low SO2 absorption SHWI 0 25 WLM Slit 7 half width Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 www resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 15 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing CWL1 8 315 43 WLM WLO Center wavelength 8 high SO2 absorption SHWI 8 0 25 WLM Slit 8 half width CWL1 9 316 52 WLM WLO Center wavelength 9 low SO2 absorption SHWI 9 0 25 WLM Slit 9 half width BaseRat309 1 22 BaseRat311 1 01 BaseRat313 1 01 OZONE MASK NWL2 5 CWL2 1 306 3 WLM WLO SHW2 1 0 25 WLM Slit 1 half width corr for wave length span CWL2 2 310 0 WLM WLO SHW2 2 0 25 WLM Slit 2 half width CWL2 3 313 5 WLM WLO SHW2 3 0 25 WLM Slit 3 half width CWL2 4 316 8 WLM WLO SHVV2 4 0 25 VLM Slit 4 half width CWL2 5 320 WLM WLO SHW2 5 0 25 WLM Slit 5 half width set spectrometer channel chan chMaster get starting and ending pixel from wavelengths For compressed spectrum Spect_Stpix 001 Spectrometer wavelength GetPixel chan Spect_StWL Spect_Enpix ooi Spectrometer wavelength GetPixel
19. ve spectra recording in excel 1 Resonance LTD 143 Ferndale Drive North Barrie Ontario Canada LAN 9V9 Phone 705 733 3633 FAX 705 733 1388 WWW resonance on ca res resonance on ca Resonance Ltd Canada 2002 Resonance Ltd Operating Manual Page 12 OF22 Electro Optics Research Resonance Micro DOAS RMDI RMDI system doc Development and Manufacturing DO NOT MODIFY THE FOLLOWING BLOCK OF CODE Option Explicit uses classes menuverify bas Global ooi As OOIBase32Platinum Global Ready As Integer Global Const INITDONE 66 Global InEvent As Boolean END NONMODIFY ABLE BLOCK THHHHHHHHHBHHHHHHHHHBHHBHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE THHHHHHHHHHHHHHHHHHHHBHHBHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE Insert global variables here THHHHHHHHHHHHHHHHHHHBHHBHHHHHHHHHHHHHHHBHHHHHHHHHHHHHHHHHHHHE THHHHHHHHHHHHHHHHHHHHHHBHHHHHHHHHHHHHHHBHHHHHHHHHHHHHHHHHHHHE declare all excel objects Global oXL As Excel Application Global oWB As Excel Workbook Global oSheet As Excel Worksheet define global arrays for wavelength and intensity Global i As Integer Global j As Integer Global jmax As Integer Global NWL1 As Integer Global NWL2 As Integer Global PixCount As Integer Global wl 2048 As Double Global data 2048 As Double Global Spect_StWL As Double Global Spect EnWL As Double Global Spect_Stpix As Integer Global Spect Enpix As Integer Resonance LTD 143 Ferndale Drive Nor
Download Pdf Manuals
Related Search