8341
Contents
1. 1 2 3 5 Ooo r3 r3 r3 Yoo om o or Soo a o ono Hog m oO oo EE rnm o o ono Soe a o o0 Hong m m E rmm rm r1 m EJ oo Cp m Coo c o ES Ed e LE CI H Co ub LE m Ej oo om aa o On oO r3 r3 o r r3 mm 1 CI EL E c Ed Nai CES Ej ED g ooo Hog m ccu ES no Ong m cc E a El r3 oo nooo Cl Lo o Ex CI 9 9 r3 oO UN Ho ons Oo a r3 g o0 oon ngo Cogon ric oo Tooo oO r3 r3 oOo nooo Oo goog com r3 oOo oaa Fi cn E ES E ES r3 g r32. 0 5 1 ceBIngggggmgggagngmggpgBpumuaggumugeagnuuiutubutut 100000000000000 sPIB TL CB B DO B ELO U 7 D D U 2m xrp 000g 000000 0000000 10000000000 00000 00000000000000 20 0000000 100000000000000000000000 50000 e 00000000000000000000000001000000 40000 000000000000000000 e 00000500000000000000000000000000000 10 0050 2 10000000000000000 100000000000000000000 100 200000000000000000000 20 0000000000 00000000 2 0 000 GPIB O O D 00 System O O GPIB ADDRESSIJI 00000000000 2 9 5 GPIBADDRESS 0 0000000 5 5 83410 000000000000 00000 5 8 GPIB 0000 5 3 GPIBO OOOO GPIBI LID BD BD D U 5 3 1 GPIB II DD UD D D D
3. 00000 1 488 2 1987 1 0000000000000000000000000000000000 lt gt 00 000 0000000000000000000000000000 HOt 0000000000000000 000 1000000000000 1 2 4 000 DISPlay MARKer MODE 100000000 DISP MARK 10000000 DISPLAY MARKER MODE 40 0000000000000000000000000000000 00000000000000 0000000000000000000000000 4 lt ch gt 00000600 1 300 00 00000000000 lt bool gt 000 000 OFF 1 ONO OO lt int gt 000 real 000 str O00 block 1000000 000000000 x 0000 5 24 8341 0000000000000 00000 5 620 00000 000000 CLS 5 6 2 1
4. 3000000000000000000000 00000000000000000000000000000000000 bier 10000000 00000000000 46000000000000000 000000000000000 656 5 0000000000000 amp 0 0 1000000 100000000000000000000000000000000000000000 10000000000000000000000000000 51900 50 57000 ROS 00000000000 RESO 900000000000000000000000000 000000000000000 0 000000000000005890 0 u crs p 000000000000000 0000000 89 00000000000 0 0000000000000000000000000000000 5 6 11916000 000000000 D 6 MSS 9 00000000000000000 msso 1000000 TRUEQOOOOOO 000000000000000000 0000000000000 5 00000000000000000000089
5. 1000000000 O O IEEE Q O 488 2 1987 0000 000 00000 000 0 00006 000 000 1 488 2 1987 00000 000 0000 00 000 0 00000000 0 0000000000000000000000000000000000000000000 0 0000000000000 1 oOo oo oOo gt amp 4 amp lt aP Summary OR 1 n 1 52 0000000000000 0000000000000 0 00000000000000000000000000000000000000 0 00000000000000000000000000000000000000 00000000 000000000 DOD EET HEEL Oe eee OE HE HE BE E 0 00000000000000000000000000 000000000 00000000000 00 0006000 0000000000 0 00000000000000000000000000000000000000 980 00000000000000000000000 0
6. 00000 0 000 100000 1000 1000000000 00000000 L3 Oo T L3 00000000 Ooo L3 00000000 L3 OO 8341 0000000000000 00000 5 620 00000 0000000000 Command TRG TRGO OO 000000 TRG GET 00000 00000 0 lt 00000000 00000000 Ec oo 0 OU 000000000 Co lUUUDUDUDUDUDUUDUUUUUUuuu Query TST 011000000 TST UUD DDD 00000000 00000000 Lr L3 Lr Er Er Oo CO ELE E OO 51 FJ Ex E oan oan L3 rr Lj ELI OO 0 000000000000000 Command WAI WAI J 0000 0 00 00000000 WAI
7. 3128 lt data gt 000 30000000000 128000000 0280000000 lt databyte gt 10000000000 10000000000000000000000 632490000 6490000000 000000 000000 GBD OOO 290 000 02 0 000000 000000 61630 000 6620 521000 6510 0 5 14 83410 000000000000 00000 5 4 1 1 488 2 1987 0 0000000 100000000000000000000000000000000 1000 OOO OOO DISPlay WINDow TRAce X SCALe CENTer DISPlay WINDow TRAce X SCALe SPAN MEASurel FETCh SCALar LENGth COHerency PEAK RANGe STARt MEASurel FETCh SCALar LENGth COHerency PEAK RANGe STOP CALCulate3 BANDwidth XDB CALCulate3 BANDwidth YDB SENSe POWer RLEVel DISPlay WINDow TRACe Y SCALe RLEVel DISPlay WINDow MARKer3 POWer DISPlay WINDow MARKer4 POWer DISPlay WINDow MARKer3 POWer DISPlay WINDow MARKer4 POWer O00 420000000 00 1860 MA DD OD DO UB D E 83410 000000000000 00000 550 00000000 55 000000000
8. 5 39 DISPlay WINDow TRACE 5 39 DISPlay WINDow TRACe SUPErimpose eee n n e enn enn enne 5 39 MEASure FETCh SCALar LENGth COHerency ALPHa 5 39 MEASure FETCh SCALar LENGth COHerency BETA 5 39 MEASurel FETCh SCALar LENGth COHerency PEAK RANGe 5 39 MEASurel FETCh SCALar LENGth COHerency PEAK RANGe STARTI 5 39 MEASurel FETCh SCALar LENGth COHerency PEAK RANGe STOP 5 39 MEASurel FETCh SCALar LENGth COHerency POINt 5 39 CURSOR 0 0 DISPlay WINDow MARKer ACTIve 5 40 DISPlay WINDow MARKer AOFF 5 40 DISPlay WINDow MARKer DATA a 5 40 DISPlay WINDow MARKer MA Ximum LEFT eee ens 5 40 DISPlay WINDow MARKer MA Ximum RIGHE eee en enne 5 40 DISPlay WINDow MARKer MA Ximum SEcond eese 5 40 DISPlay WINDow MARKer nenne ener 5 40 DISPlay WINDow MARKerl STATe
9. 5 37 CALCulate2 SMOothing APERture 5 37 CALCulate2 SMOothing THReshold 2 5 37 CALCulate2 SMOothing STATE 2 1 2 2 1 eere erre eterne tine trennen nte eR nir 5 37 DISPlay WINDow TRACe FULL POINts ettet ener 5 37 DISPlay WINDow TRACe POINts 5 37 DISPlay WINDow TRACe X DATA 5 37 DISPlay WINDow TRACe X FULL DATA 5 37 DISPlay WINDow TRACe X SCALe ACTIve enne 5 37 DISPlay WINDow TRACe X SCALe CENTer eene enne 5 37 DISPlay WINDow TRACe X SCALe CENTer MARKer 5 37 DISPlay WINDow TRACe X SCALe CENTer PEAK 5 37 DISPlay WINDow TRACe X SCALe LEFT 5 37 DISPlay WINDow TRACe X SCALe RIGH enne 5 37 5 2 8341 0000000000000 00000 5 1GPIBQOOO00000000 DISPlay WINDow TRACe X SCALe SPAN 5 37 DISPlay WINDow TRACe X SCALe SPAN MARKer eere 5 37 DISPlay W
10. M 5 31 PURSE 5 32 5 32 SRE 5 33 aee eto ee e n maio 5 34 Uc mE 5 35 EU E S 5 35 E 5 35 5 3 83410 000000000000 00000 5 2 52 488 1 1987 488 2 1987 O O O O O GPIB General Purpose Interface Bus 0000000000000000000000000000000 lt 6 00000000000000000000000000000000000 T n 5 2 1 GPIB l L3 l L3 L3 L3 L3 L3 GPIB General Purpose Interface Bus 00000 000 0 00 GPIB IEEE 0 488 1 1987 00000000000 GPB 1000000 100000 1 000000 L3 L3 Om C3 100000 000000 100000 L3 rb Lr OOo ID GPIB 0000 L3 L3 L3 r3 Ez ClO L3 r3
11. 0000 Oo Oo Oo Oo OO Oo EJ EJ Oo 5 35 83410000000000 10000000 5 6 3 MEASURE 5 6 3 000000 MEASURE 000 5 10 MEASURED D D INITiate IMMediate x 000000 ABORt x 0000 ON OFF INITiate CONTinuous ONIOFF ONIOFF 000000 LD LED 5 6 4 SENSe CORRection DEVice RANGE SENSe RANGe 5 11 NARRowIBROad RANGE J OOO Ol1I2IBZSHORTIMIDDLEIIMIDDLE2ILONG NARRIBRO 0111213 5 MIDDLEIIMIDDLE2I LONG 000 SENSe RANGe AUTO ONIOFF ONIOFF 000000000 SENSe RANGe PULSe BROAD 00000 100000 SENSe MODE 0l1 CWIPULSE lt int gt 5 6 5 SETUP 000 DISPlay 8341 0000000000000 00000 5 6 5 SETUP 0 0 5 12 SETUP WINDow TRACe X SCALe CENTer DISPlay WINDow TRACe X SCALe SPAN DISPlay PEAK WINDow TRACe X SCALe CENTer DISPlay MARKer WINDow TRACe X SCALe CENTer DISPlay WINDow TRACe X SCALe SPAN M ARKer SENSe SWEe
12. A O 3 3 oO Oo l 8 Cl 5 ca 8 Ble D O O O x Co Co LE LIE Lr Lr 0 0 000000000000000000000 0 0600 0 000000000000000000 0000 06000 0 000000000000000 0 000000 0 00000000000000 5 8 00 5 25 83410 000000000000 00000 5 620 00000 DDT 2 00000000 DDT lt block gt lt block gt lt block gt 0 6 0000000000000 OU 00000000000 Command Query OU UlUUUDDUUUDUUUDUUDUDUDUUUDUUUUUUDUU 0 0000 0000 lt block gt 000000 000060060 000000 2550000000 DDTY 0000000000000 4190000000 TRGQ OU 6 0000000000000000 0 00000000000000000000
13. Oo on ogn on og C3 pr Oo og on o o o o o Ej OO Ec Oooo gi cc ou OOO OO OOo Om Co E Cog rc Oo C3 1 Oo la 0 L3 p 0 Ooo Ooo Ooo Ooo Og mn L1 Ez Oo EJ 2 E L3 l rel tri 2 0000000000000 00000000 TakeControl TCT 0000000000000 0000 0000 0 0 0 n n 000 0 0 000000000000000 0 000000000000000 1000 6280 0000000000 0000000000000 0000000000 000000 LJ EJ p3p3 prac pr ooo p3p3 ooo 5 4 83410 00 0000000000 00000 5 2 2 GPIBQ 0000000 5 2 2 1 00000000 2000000000000 0 00 0000000000000000000000 GPIB3 7 7
14. pP ET o a og ric EE nooo og oo00o00 O g 0800000 m G og 9 oo ES ei EX EIE ELS Ej e Op aa r nF oooooo o oooo era 5 11 83410 000000000000 00000 5 4 1 1 488 2 1987 0 0000000 5 12 000000 00000000000000 0000000 0000000000000000000 8 000000000 000000000 00000000 0000000 0 000000000000000 root A B C rT 1 EF GH EIJ KI L MN P Q 0 0000000000000000000000 1 A E B E 200000000 000000000 0000000 BEY 1000000000000 2 A E lt END gt B E lt ro EET DO D UO D TH D A E T BED 10000000000000 3 A E F G H 0000000000000000 5 6 00000 A E A H 4000000000000000 4 C 1 K N M lt 000000000000000 KNO
15. 0 00000000000000000000000000000000000000000 0 0000000000000000000000000000000000000 5 3 3 1 C3 g2 C3 a m rJ E oo C3 oo C3 C3 Se C3 oo C3 oo oO HM HEN E E IE Ez C3 C3 oo SS C3 C3 oo oO C3 Oooo C3 C3 ee I3 oO Ooo r3 r3 r3 r3 Ooo r3 r3 r3 o o a a r3 r3 LJ F3 LJ Oo LJ rA Ooo a C3 oO oO C3 oO C3 Ooo Ooo Oooo C3 C3 C3 C3 Oooo C3 C3 Ooo Ooo o ag C3 C3 IE ES IE Lj C3 Oyo e Ooo e Oooo C3 e Ooo Ooo E oO Ooo n Ooo v PE r3 r3 020p O 020p O aas ong noo 0ga Oa O0 yono COp ag ooo goo PUFF og Om m c 00 20 0gp 99 m C3 C3 00000 0 CLS 000 5
16. OOo b 10000 OO 8341 0000000000000 00000 5 620 00000 0000000000000000 Command Query 1 000 00000000000000000 Operation Complete bit 10000000 00000000000 000 000000000000000000 0 0 0 0 0 TOO0 OPCQ 00 0 Operation Complete bit 000000000000 10000000000000 0000000000000000000000000 0000000000000000 0 0 RST 1 0000000 00000000000 Command PMC PMC 000 0 00000000000000000000000 DDT DMC GMC LMC EMC 00000000 0000000000 Command RCL lt int gt POFF in 00000
17. 5 5 1000000 100000000 1000000000 100000000 169000 000000 100000000 He Ne A 0000000000 1000000 00000000 100000000 HeNe power Temperature Over run Motor fault 00000 10000000000000000000000000000000000000000 10000000000000000000 5 5000000 6 gt m 55 00000000000000000 5 20 8341 0000000000000 00000 55000000000
18. 5 42 MEASURE 00 TABOBRELo internam e uL 5 36 HINT Tiate er ice e e ER REPRE ENTERA ERG 5 36 NITiate IMMediate 5 36 SENSe CORRecHo DEVICE enu ec bei t 5 36 RANGE U ISENSe MODE encierra elder eir etii eeu mice asa ag ER 5 36 SENSe RANG6 asasassdsassqsqasqasassaspisqasidasayaqyssqaycasasasskudaqksasqasasqaskaqaqasqasiasasssassisqkusssssayacsas 5 36 5 nn HG REIHE n SI AeA 5 36 SENSe RANGe PULSe arroes 5 36 SAVE LOAD FILE LOAD 5 41 FILE STORG rro E LAE ed dn Ad neha ads hides 5 41 SCALE LH U LU DISPlayEWINDow TRAGS nitet toe tte etit eret terre Saad 5 38 DISPlay WINDow TRACe ALL SCALe AUTO eene 5 38 DISPlay WINDow TRACe GRAPhics GRID STATe eere 5 38 DISPlay WINDow TRACe Y SCALe PDIVision 2 5 38 DISPlay WINDow TRACe Y SCALe RLEVel enne 5 38 UNIT POWE 5 38 SETUP 1 LH CATL Culatel CAY COU NE ttes cose cause 5 37 CAT CulateECAV Erager TYPE tendente tede C ERE RR HR n 5 37 CALCulate1 CAVErage S TATe
19. 0 00000000000000 0000000000000000000000000 00000000000 22 000000090000 0000000 419000000 000000 8 lt 6 0000000000 000 0 TRGO 00000000000 02570000000 000 DDT 4212INIT CONT ON 0 0 OU TRG gt INIT CONT D E H D E LU 5 26 8341 0000000000000 00000 5 620 00000 DMC 3 00000 DMC lt str gt lt block gt lt str gt lt block gt DMC lt 0 0000000000000000000 lt gt 000 OU 00000000000 Command OU 00000 lt blocke 10000000000000000 00000000000000 III UU 0 000000000000000000 EMC 0 0 00 0 000000000000000000 2 lt 0 000 00000000 000000000000000 00000000000000000 0 0000000000000000000000000 100000000000000000 10 90 900 0600 0 1000 200000000000000000000 00000000000 90000
20. 00000000 00000 00000000 00000000 5 A E ESR 16 000 0000000000000000 1600000000000 A E ESR 16 F G H 00000000000000000000003000 FO 1000 00000000000000 0000000 AF0 GO AGO HI A HU LIU U D 0 00000000000000000 d E 1 A E B 000000000 000000000 0 0000000000800000000000000 0000000000000 83410 000000000000 00000 5 4 1 1 488 2 1987 0 0000000 2 C K M L P CCK MQOOUUU00U0 080 0000000 000000060000000000000000 00000000000 5 4 1 2 0000000000 TEEF488 2 1987 0 00 000 00 00 00 00 0 00 0 0 0 0 0 000 00 0 0 0 0 0000 0000 1 00000 0 0 00000 300000000000000000000000000000 6500 100 NRI LU 1 H
21. CJ lt 1 L3 l El CJ E l l El CJ L3 L3 L3 L3 8 Coherence 000 ovB EH E D HL D Y 9 specrum x00 000000 10 5 43 83410 000000000000 00000 5 6 12 GPIB LAN 0 0 5 6 121 GPIB GPIB I Dim A8341 As Integer OSAud As Integer Dim GpConfig As Integer boardID As Integer Dim BinType As Integer Private Sub Meas8341 Dim strBuf As String Dim P As Integer Dim BitLength As String Dim SetCenter As Double SetSpan As Double Dim PeakWavelength As Double PeakPower As Double Dim SpeCent As Double SpeBW As Double Dim CohAlphaMag As Double CohAlphaLen As Double CohBetaMag As Double CohBetaLen As Double Dim SpeRedX As Double CohRedX As Double Dim WfmSpeY As Double WfmCohY As Double Dim NspectRed As Integer NcohRed As Integer GPIB IF 000 A8341 8 GpConfig False Call Init GPIB GPIB Device configuration No Byte Swap Call ibconfig OSAud IbcReadAdjust 0 RESET Call ibwrt OSAud RST 0000000000 Call ibwrt OSAud DISP TRAC SPEC 0000000000000000000000000000000000 BinType 1 0264bit i 32bit BitLength 32 Call ibwrt OSAud FORM DATA REAL BitLength BORD SWAP LEVEL 10dBm Call ibwrt OSAud DISP TRAC Y RLEV 10 3mm 7mm Call ibwrt
22. enne eere enne enne 5 40 DISPlay WINDow MARKer1 WAVelength 2 0 22 enne 5 40 DISPlay WINDow MARKer2 STAT 5 40 DISPlay WINDow MARKer2 WA Velength nus 5 40 DISPlay WINDow MARKer3 POWer 5 40 DISPlay WINDow MARKer3 STATe esee en enne en 5 40 DISPlay WINDow MARKer4 POWer en en n en enne nennen 5 40 5 1 83410 000000000000 00000 5 1GPIBQOOO000000d00 DISPlay WINDow MARKer4 STATe 5 40 GPIB L LJ LI U FORMatASCUL Y unter REESE HERI CERE ERI 5 42 TFORMat BORD RR 5 42 ecrire re c PE 5 42 STATus DEVice ENABle 5 42 STAT us OPERation ENABle noe eter EU se ees di AeA 5 42 STATus OPERation EVENt a 5 42 STATuSPRES8L eicere cet ect ee pe eb o ERE am apash 5 42 STATus QUEStionable ENABle 5 42 STATus QUEStionable EV ENt 5 42 5 4 00 6714 0 DERE 5 42 ISYSTenm ERROt ii denen pipa ur Ao 5 42 STATUS DEVICE
23. 9999 00000000000 000000000000000000000000 POFFO RECLPOFFY 000 0000 00000000000000 5 31 83410 000000000000 00000 5 620 00000 13 RST 0000000 RST RST 000 0 00 00000000 OU 00000000000 Command OU 2 3 0000000000 EMC 0 a Ei L S Seo amp Poo x Ooo Ooo A L8 D lt 3 000000 4 000000000 5 DMCOOUUOUUUUU 6 000000000 SYSTem PRESet IP SAV 14 OOUOUUUU0N SAV lt int gt 000000 9999 0 0000000000000000000000000 OU lt int gt 0600 0 0000000000 lt 000000000000 0 0600 0600 0 0000000000000000000000000 OU OU 00000000000 Command OU 5 32 8341 0000000000000 00000
24. SPECtrumlCOHerence real real SPECtrum or real gt lt real gt lt real gt 000000 290000 000 00000000000 0000000 000000000 0 0 0 0 0 MEASurelFETCh SCALar PEAK SEcond 000 L3 r3 r3 0000 10240000000000 0 00 00000000 0000000 gt lt real gt 000 5 37 8341 000 ugaggagggg 00000 5 6 6 SCALE 5 6 6 000 SCALE 1 5 13 SCALE DISPlay WINDow TRACe SPECtrum COHerence SPECICOH DISPlay WINDow TRACe ALL SCALe AUTO x DISPlay WINDow TRACe Y SCALe RLEVel lt real gt lt real gt DISPlay WINDow TRACe Y SCALe PDIVision 1015121110 5 1015121110 5 UNIT POWer LINearlLOGarithmic LINILOG 5 38 Te DISPlay WINDow TRACe GRAPhics GRID S TA ONIOFF ONIOFF 8341 0000000000000 00000 5 6 7 0000000000 APPLICATION 0 0 0 5 14 APPLICATION 0 DISPlay WINDow TRACe SUPErimpose 5 6 7 APPLICATION 0 0 0 ONIOFF 0000000000 ON OFF CALCulate2 LEVel TYPE OWerINORMalize 00000 ON OFF CALCulate2 DOMInant STATe NIOFF 20000 ON OFF DISPlay WINDow DUAL STATe ONIOFF OFF 20000 00000 DISPlay WIND
25. 5 1 10000000000000000000000000000000000 100000000000000000000 000 1000000000000000000000000000 100000000000000 0 00000000000000 0 0000000000000000 0000006000 0000006000 0000006000000 0000000000 00000000000000000000 10000000000000000000000000000000188 0 0 488 1 1987 0 488 2 1989700 00000000 5 3 2 100000000000000000000000000000000000000000 100000 5 6 8341 0000000000000 00000 S3 20000000000000000000 IFC 5 3 2 1 10000000000000000 10000000000000000000000000 0 00000000000000000000000 000000 00000000
26. pH a goc 21 200 ooo o0 oO oo pog g no ooo noo C3 Ep ET m p02 oO EE r3 E 3 Qa aa Oo ooo F3 2o00 gp r3 F3 oa Ac o2 g g no O00 ono o2 oO oOo o0 ooo 5 noo oo ii ooo oOo o0 ooo m 00 oo oS E no pa rc on sg E Er O m oa rrr oO o0 E amp E IE Se E E EH ESI SaaS rp of 5 Cc O o0 oooo o oo o0 S E Cc gad 000m C3 nooo oo to EY GG H 2o00 p 5 2700 2 O 2o00 0000 p O 8 ci CJ OO aaa p g 2 00 8 20 00 c Ed no 20000 pn ag 5 LL OOOO g mp o EJ OO L3 Lr nO oO oo oo eooo C3 5 10 8341 0000000000000 00000 5 40 00000 54 000000 IEEE488 2 1987 0000000 5 4 1 IEEE4882 1987 0000000000000 00 00 0 000 0000 0 0 DU 0 000000000000000000 uuum 0 00060060 5 4 1 1 gt 0000000000 gt gt 000000000000 4
27. Dim strS As String strBuf As String Dim dblBUFFER As Double sglBUFFER As Single 000000000000000000 Call ibrd32 OSAud intBuf 1 If Chr intBuf Then Call ibrd32 OSAud intBuf 1 strs For i 1 To Val Chr intBuf Call ibrd32 OSAud intBuf 1 strS strS Chr intBuf Next i End If 000000 NByte Val strS 0000000000000000 Select Case BinType Case 0 0000000 NByte 8 Erase dblBUFFER ReDim dblBUFFER O n 1 Data 0 To n 1 Call ibrd32 OSAud dblBUFFER 0 NByte Case 1 32510000000 n NByte 4 Erase sglBUFFER 5 46 time out 83410 000000000000 00000 5 6 12 GPIB LAN 0 0 D ReDim sglBUFFER O To n 1 Data 0 To n 1 Call ibrd32 OSAud sglBUFFER 0 NByte End Select 0000000 00000 strBuf 2 Call ibrd OSAud strBuf P InStr strBuf Chr 10 0000000000000000 Select Case BinType Case 0 For i 0 Ton 1 Data i dbl BUFFER i Next i Case 1 For 0 1 Data i sglBUFFER i Next i End Select End Sub 5 47 83410 000000000000 00000 5 6 12 GPIB LAN 5 6 12 2 LANG LAN Dim BinType As Integer MAIN Private Sub Meas8341 TCP Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim strBuf As String P As Integer BitLength As String SetCenter As Double SpeCent As Double CohAlphaMag As Double SpeRedX As Double WfmSpeY As Double NspectRed As Integer
28. amp vbCrLf 0000000000 Call BinaryDataRead IP NspectRed SpeRedX GrhDtByteLen 0000000000000 L GrhDtByteLen GetBinDataLen tcpClient SendData DISP TRAC Y DATA SPEC amp vbCrLf 0000000000 Bina Call ryDataRead_IP NspectRed WfmSpeY GrhDtByteLen 000 GrhDtB tcpClient SendData DISP TRAC X DATA COH amp vbCrLf i 0000000000 11 yDataRead IP NcohRed CohRedX GrhDtByteLen 0000000000000 t eLen GetBinDataLen P B t 000000000000000 GrhDtByteLen GetBinDataLen tcpClient SendData DISP TRAC Y DATA COH amp vbCrLf 0000000000 Call BinaryDataRead IP NcohRed WfmCohY GrhDtByteLen 5 49 83410 000000000000 00000 5 6 12 GPIB LAN 00000 Call CloseTCP End Sub 00000000000000000 Private Sub ConnectTCP tcpClient RemoteHost 8341 IP Address 0 0 0 0 0 tcpClient Protocol sckTCPProtocol protocol TCP 1 D 1 B tcpClient RemotePort 5025 8341 Remote port No 5025 1 000000 tcpClient LocalPort 0 00000000 0 0000000 tcpClient Connect 8341 Remote port 0000000 End Sub 00000000000 Private Sub CloseTCP tcpClient Close End Sub 0000000000000 Private Sub ReadData_TCP readbuff As String Do While tcpClient BytesReceived 0 DoEvents Loop tcpClient GetData readbuff End Sub
29. 0 0000000000000000000000 000000 REN 5 3 2 2 10000000000000000000000000 100000000000000000000000000000 1000000000 60 0000000000000000000 0 0000000000000000000000000000000000000 00000 0000000 0 000000 1 00000000000 0000000000000005 3 28000000000000 40000000000 006000 0 SPE 5 3 2 3 0 00000000000000000000000000000000000000 0 00000000000000000000000000000000000000000 0 000000000000000000000000 SPD 0000000000001 0 0000000000000000 0000000000000 689 00000000000000000000000000 0000 bit6 RQS bit KTRUE 0000000000000 RQS bitQ FAESE D O D l 0000006000000 659 000000000000000000 0000000000000000 GET 5 3 2 4 10000000000000000000000000000 5 7 83410 000000000000 00000 S320000000000000000000 5 3 2 5 00000000 DCL 100 0000
30. RESET tcpClient SendData RST DISP TRAC SPEC 10 64 SetSpan As Double GrhDtByteLen As Integer PeakWavelength As Double SpeBW As Double PeakPower As Double CohAlphaLen As Double CohBetaMag As Double CohRedX As Double WfmCohY As Double NcohRed As Integer amp vbCrLf amp vbCrLf amp vbCrLf 000000000000000000000 i 32bit 00000000000000 nd tcpClient SendData OPC strBuf Space 10 Call ReadData TCP strBuf P InStr strBuf Chr 10 0000000000 tcpClient SendData 0000000000000 BinType 1 BitLength 32 tcpClient SendData FO REF LEVEL iodBm RM DATA REAL BitLength BORD SWAP amp vbCrLf tcpClient SendData DISP TRAC Y RLEV 10 6 vbCrLf 0000000000000 000000 3mmQQ 7mm tcpClient SendData MEAS LENG COH PEAK RANG 0 003 0 007 amp vbCrLf SetCenter 660 SetSpan 50 tcpClient SendData DISP TRAC X CENT amp Format SetCenter amp E 9 amp vbCrLf tcpClient SendData DISP TRAC X SPAN 6 Format SetSpan amp E 9 amp vbCrLf 000000 tcpClient SendData CALC3 BAND ON amp vbCrLf tcpClient SendData CALC3 BAND TYPE 0 amp vbCrLf 000000000 0000000000 tcpClient SendData CLS amp vbCrLf tcpClient SendData INIT CONT OFF IMM amp vbCrLf 0000000000000000 dmn tcpClient SendData OPC amp vbCrLf strBuf Space 10 Call ReadData_TCP
31. 9 83410 000000000000 00000 S330 00000000000 IEEE488 2 1987 0000000 5 3 3 2 0000 r3 r3 r3 r3 noo oO C3 ooo 5 F3 Oo Boo a oe C3 C3 02 0 C3 C3 C3 C3 H C3 ooo C3 C3 EXE E E ooo Ss C3 C3 C3 o0 oO 02 0 C3 C3 oo C3 ooo C3 C3 oo HEIN Ed ooo C3 C3 nooo o0 EJ pg OO Ei Be zx Hoo C3 C3 no ooo ooo C3 ooo ES r3 r3 ono rmm o0 i _ Oo C3 C3 no ooo 159 C3 OOO E ES oO o0 rrr noo 2 t C3 ooo noo a o mm o0 rrr o0 GA EE Sas Ser cQ 5 SE C3 00 pH C3 C3 2o00 ooo noo C3 5 Lir eS o g ooo ge E C3 Soo o g ooo ono
32. LI LU 000000 uNR2I UL ULL bh mE E 000000 uNRSI UL ULL e poa 06000 2 00000 0 00000000000000000000 5 13 83410 000000000000 00000 5 4 1 IEEE488 2 1987 0000000 3 000000 000000000200000000000000 Jee E J for gt ASCH 75 0 00000000000000 0 0000000000000 0 00000000000000 0000000000000 0 00000000000000 gt 0010000000000 4 2 0000000000 gt 9 pers gt EOI 0 gt 0100000000000 0 000000000000 000 1
33. OSAud MEAS LENG COH PEAK RANG 0 003 0 007 0000000000 SetCenter 660 SetSpan 50 Ca ibwrt OSAud DISP TRAC X CENT amp Format amp E 9 Ca ibwrt OSAud DISP TRAC X SPAN amp Format amp E 9 000000 Call ibwrt OSAud CALC3 BAND Call ibwrt OSAud CALC3 BAND TYPE 0 000000000 amp 0000000000 Call ibwrt OSAud CLS Call ibwrt OSAud INIT CONT OFF IMM 5 44 8341 0000000000000 00000 5 6 12 GPIB LAN 0 0 0 0000000000000000 is 000 strBuf Space 5 Call ibwrt OSAud OPC Call ibrd OSAud strBuf P InStr strBuf Chr 10 00000000000000 000000000 Call ibwrt OSAud MEAS PEAK strBuf Space 50 Call ibrd OSAud strBuf 000000000 InStr strBuf 1 Int Val Left strBuf P 1 1000000000000 0 5 1000 PeakPower Int Val Mid strBuf 1 1000 0 5 1000 000000000000000 0000000000000 Call ibwrt OSAud CALC3 BAND DATA strBuf Space 50 Call ibrd OSAud strBuf P InStr strBuf SpeCent Int Val Left strBuf P 1 1000000000000 0 5 1000 SpeBW Int Val Mid strBuf P 1 1000000000000 0 5 1000 000000 gut Call ibwrt OSAud MEAS LENG COH ALPH strBuf Space 50 Call ibrd OSAud strBuf 000000000 InStr strBuf CohAlphaLen Int Val Left
34. real gt CALCulate3 BANDwidth K lt real gt lt real gt CALCulate3 BANDwidth KR lt real gt lt real gt CALCulate3 BANDwidth DATA x lt real gt lt real gt lt int gt 00000000 00000000 00000 0000000 0000 00000 0000000000 CALCulate3 POINts lt int gt CALCulate3 DATA FORMAT CALCulate2 TPOWer DATA real 5 39 83410 000000000000 00000 5 6 8 CURSOR O00 5 6 8 CURSOR 1 0 0 5 15 CURSOR L3 XID unu ON OFF DISPlay WINDow MARKer1 STATe ONIOFF ONIOFF 00 DISPlay WINDow MARKer1 WAVelength lt real gt lt real gt x20000 ON OFF DISPlay WINDow MARKer2 STATe ONIOFF ONIOFF 00 DISPlay WINDow MARKer2 WAVelength lt real gt lt real gt 0000 DISPlay WINDow MARKer3 STATe ONIOFF ONIOFF 000 DISPlay WINDow MARKer3 PO Wer lt real gt lt real gt y2O000 ON OFF DISPlay WINDow MARKer4 STATe ONIOFF ONIOFF 000 DISPlay WINDow MARKer4 POWer lt real gt lt real gt 00000000 DISPlay WINDow MARKer ACTIve UPperlLOWer UPILOW 00000000 DISPlay WINDow MARKer AOFF x 00000000 DISPlay WINDow MARKer MODE NORMaIIDELTa NORMIDELT 000000000 1 0 000 0000000000 DISPlay WINDow MARKer DATA lt real gt lt real gt lt real gt lt real gt lt real gt lt real
35. strBuf P InStr strBuf Chr 10 5 48 CohBetaLen As Double 8341 0000000000000 00000 5 6 12 GPIB LAN 0 0 0 00000000000000 000000000 tcpClient SendData MEAS PEAK amp vbCrLf strBuf Space 50 Call ReadData_TCP strBuf 000000000 InStr strBuf PeakWavelength Int Val Left strBuf P 1 1000000000000 0 5 1000 PeakPower Int Val Mid strBuf 1 1000 0 5 1000 0000000000 00 000 OOO00g00000000 tcpClient SendData CALC3 BAND DATA amp vbCrLf strBuf Space 50 Call ReadData_TCP strBuf InStr strBuf SpeCent Int Val Left strBuf P 1 1000000000000 0 5 1000 SpeBW Int Val Mid strBuf P 1 1000000000000 0 5 1000 000000 ag 000 tcpClient SendData MEAS LENG COH ALPH amp vbCrLf strBuf Space 50 Call ReadData_TCP strBuf InStr strBuf CohAlphaLen Int Val Left strBuf P 1 1000000 0 5 1000 CohAlphaMag Int Val Mid strBuf P 1 10004 0 5 1000 00000 0000 tcpClient SendData MEAS LENG COH BETA amp vbCrLf strBuf Space 50 Call ReadData strBuf InStr strBuf CohBetaLen Int Val Left strBuf P 1 1000000 0 5 1000 CohBetaMag Int Val Mid strBuf P 1 10004 0 5 1000 00000000 GrhDtByteLen GetBinDataLen tcpClient SendData DISP TRAC X DATA SPEC
36. 0 100 Msso 10000000000 50 00000000000 5 8 0 0000 0 0000000000000000 507000 5 00000000 1000000000000000000 000000000 0000000000000000000000000000 00000000000 0000000 5 ESB ESBUDDDDDDDDDDDDDUDDUDUDUDDDDD 4 MAV 10000000000 1000000000000000 10000000000000 10 00000 3 QUES QUESO 00000000000000000000000000 DD 2 DEV 2 000000000000000000000000 100 Uo 5 21 83410 000000000000 00000 55000000000 v Power on Command Error 100 10 Execution Error 10000000000000 10000000000 100 Execution Error Query Error 1 1 Error Query Error Device Dependent Command Error 0 0 T 100 Request Control OU Operation Complete 5 22 8341 000000
37. 00 Query GMC lt name gt 1 utu name lt block gt lt name gt D UD lt name gt 0 000 6 000000 000000000 eya DMC LMC 0 0 0 0 000 0 OOo Lr DL rrr O onu 00000000 00000000 Query 0 IDN E OO lt manufacturer gt lt model gt lt serial number gt lt firmware level gt lt manufacturer gt ADC Corp model serial number 00000 firmware level OU OO 0000000000000 000000 400000 00000 oaan O Oo Oo OC OOo COCO COCO O oan Oo 0000000000000 00000000 Query 0 LMC L3 utu macro label2 macro label gt lt macrolabel gt 0000000 00 0000000000000000000000000 000000 GMC E 5 30 OPC 00000000 L3 OOo Lr Oo oo oO 10000
38. 0000 0000 0000 Ooo 0 0 0 0 0 0 0 Ooo Ooo Ooo 0 ooo oO 0 E E L3 EI 000000 OPC OPC T wo Ooo l 000 100 000 000000 0000000000000000 OU 5 3 2 6 0 00000000000000 SDC lt 0000000000000000 560000000000000000000 00 6000 5 3 2 7 0000000000 GTL 000000000000000000000000000006000 L3 OO Oo Oo Oo n 5 3 2 8 0000000000000 LLO 0 00000000000000000000000000000000000000000 0000000000000000000000000000000000000 0 0 0 0000000000000000000000 300000000 00000000000 00000000000000000000000000000000 00000000 5 8 8341 0000000000000 00000 5 3 3000000000000 0000060000000 0 000000000000000000 62 800000000000000000000 0 00000000000000000000000000000000000000000 5 3 3
39. 0000000 00000 5600000000000 56 00000000000 0 000 Oo 0000 OU OU oOo 0 00000000000000000000000000000000000000 0000 B n 000000 200000000000000000000000 DISP TRAC SPEC DISP WIND TRAC SPEC 0 0000000000000000000000000000000 000000 0000000000000000000000 MEASURE 000 00000000000000000000 RANGE 0 00 00000000000000000 SETUP 10000000000000000000 APPLICATION D 100000000000000000 SCALE D D D 1 00000000000000000 CURSOR O O 0 0000000000000 SYSTEM J l 0 0000000000000 5 23 83410 000000000000 00000 5 6 10 00 0000000000000 5 6 1
40. 000000000 FOR Mat BORDer SWAPpedINORMal SWAPINORM ASCII FORMatASCii Y DATA 4 0 60 lt int gt STATus OPERation ENABle int 0 65535 int STATus QUEStionable ENABle lt int gt 0 STATus DEVice ENABle lt int gt 0 STATus OPERation EVENt lt int gt 0 65535 STATus QUEStionable EVENt lt int gt 0 65535 STATus DEVice EVENt lt int gt 0 65536 STATus PRESet SYSTem ERRor lt int gt lt str gt D 0000000000 5 42 SYSTem ERRor ALL 0 320000 4000000000 lt int gt lt str gt 5 6 12 83410 000000000000 00000 5 6 12 GPIB LAN 0 0 D GPIB LAN 00 Visual Basic6 00 LU D 00000000000000000 000000000000000 0000 0 00 000000000000000000000 coh OOO 8000000 spectrum DD x00 000000 N L3 l L3 L3 L3 E L3 L3 L3 L3 L3 lt Lr L3 E E L3 L3 E L3 L3 L3 CJ LJ Co Co El L3 00000000 L3 lt r3 L3 L3 L3 L3 E L3 L3 L3 L3
41. 0000000000 0 000000000000000000000 3000 000000000 10000000000000 MEAS SCAL LENG COH RANG STAR 0 002 STOP 0 010 241 MEAS SCAL LENG COH RANG STAR 1 STOP 2 PMC GMC LMC EMC QO OOOO0000 DMC LIMIT LIMIT 0 002 0 010 gt 5 27 83410 000000000000 00000 5 620 00000 5 28 00000000 Command Query EMC lt int gt lt int gt 011 OO Lr Oooo FT EZ OH OH 000 200000 000 000000 0 0 0 0 D Lr Oop OU 0000 OU 1000 000000000000 DMC GMC LMC p n 00 0000 0 o0 Er OU OU Gay EI EJ n n n n n n ESE HU 0 000000000060060 00000000 Command Query ESE int lt int gt Oo oO O 0000000 0000000000000 00000000 000000 0000000000 00000 10000 0000000000 0000000000 1 0 0000 omplete bitO Devic
42. 0000000000000 0000 0 0000000000000000000000000000000 1000000000000000000000000000 10000000000000000000000000000 0 000000000000000000000000 100000000000000 10000000000000000000000000000000000000000 2 1000000000000000000000000 10000000000000000000000000000000000000000 1000 3 100000000000000000000000000000 5 3 100000 100000000 000000000 100000000 Averaging Measuring 100000000000000000000000000000000000000 4 0 00 000000000000000 54 10 Do 0 0000000000000000 10000 0000 Power 150 4 200 5 19 83410 0 00000000000 00000 55000000000 100000000000000 10000000000000000000000000000000000 5 10000000000000000000
43. 0000000000000000 0 000000000000000000000 b 5 16 8344 0000000000000 00000 5 5 0 0000 50 0000000 e e e 0 0 0 e e 100000000000000000 53000000 100000000000000 5 40 00000 RGVH K ASLO Yay 1 REVE K LYRA BAT Afb LYRA 2TATsaTJM AT 8A LLAS TIAM AC AT RACLZAS 15 3 0000000000000 83410 000000000000 00000 55000000000 5 18 Command error leasurin Execution Device dependent Request control Operation complete 00000000000000 0 54 0000000000000 8341 0000000000000 00000 55000000000 ESE STAT OPER ENAB STAT DEV ENAB 0 0000000
44. 5 620 00000 SRE 00000000 Command Query SRE lt int gt lt int gt OO Lr OH O OH OH 000000 1000000 5000000 0000000000000000 MSS 00 ET EE 660000 9000000 0 0000000000000000000 0 T T T T T B OPR bit2 JESB bits 0 0 0 0 00000000 00000 27425424 128 32 16 176 00000 17600000000 5 33 83410 000000000000 00000 5 620 00000 5 34 16 STB E m 100000000000000 1000000 Query OOo oO O OO OO oO MSS 10000000 10000 STB 0 000 sTB 100 600 50 bit7
45. 8341 0000000000000 00000 5 000000000000 5 51 SGPIBIIU UU UU D DEL U UU C UI U GPIB 000 APPLICATION 7 0 CALCulate2 DOM Hnant S TATe eterne tot 5 39 1G AE Culate2 LE VeL 6 Ug 5 39 CALCulate2 UU u 5 39 CALCulate3 BANDwidth DATA 5 39 CALCulate3 BANDWidth K sorrendre uy 5 39 CALCulate3 BANDWidth 5 39 CALCulate3 BANDwidth TYPE 5 39 CALCulate3 BANDwidth XDB Eon EE 5 39 CALCHlate3 BANDwidth YDB r EREE alana 5 39 CALCulate3 BANDwidth STATe 5 39 CAL Culate3 DATAT UU ARS 5 39 SCAL Culate3 POINTS EEE 5 39 DISPlay WINDow DUAL STATe 5 39 DISPlay WINDow LIST ALL 5 39 DISPlay WINDow LIST CURRent 5 39 DISPlay WINDow LIST TY PE 5 39 DISPlay WINDow LIST STAT
46. INDow TRACe Y DATA enne nennen en 5 37 DISPlay WINDow TRACe Y FULL DATA enne 5 37 ISENSe POWerRLEVel 35 generet E ipte 5 37 SENSe POWer RLEVel AUTO 222 2 02 2 22 000000000000000000000000000000000000000 5 37 ISENSe S WEep POIMS EE 5 37 MEASurelFETCh SCALar PEAK 0002020000 1 2 006 0000000000000000000000 5 37 MEASurelFETCh SCALar PEAK SEcond 202000 2 2000000000000000000000000 5 37 SYSTEM 7 OO DISPlay WINDow TEXT DATA sennen a a aaa ania aeaa i 5 41 PSO Wem E ERES 5 41 SY STen HALT L a ku E PEOR 5 41 SYSTem OPTion ccccccceesccccesssssececesessseececesssaeccecsessuececcecesuesecesesensseeeeceaeeeececesusseccecesnsaeeeeees 5 41 ISYSTeWEPRES8U eren HERES a E E seen EEE 5 41 5 a asas E EAE E E OE EE EEEE 5 41 00000 CIS 5 25 5 26 DMC 55 5 27 5 28 TESE a u ua E E ia ass 5 28 5 29 avec 5 30 5 30 5 30 5 31 5 31 RC ys
47. Private Sub BinaryDataRead_IP datanum As Integer databuff As Double datalimit As Integer Dim cnt As Integer kk As Integer Dim ii As Integer jj As Integer Dim bytedata As Byte Dim bytbuf As Byte DoEvents Do While tcpClient BytesReceived lt datalimit DoEvents Loop cnt tcpClient BytesReceived tcpClient GetData bytedata vbByte tcpClient GetData bytedata vbByte ii CInt Chr bytedata For jj 0 11 1 tcpClient GetData bytedata vbByte read data of binary data length Next jj kk 0 Select Case BinType Case 0 64bit format ReDim databuff cnt 2 ii 8 For jj 1 To cnt 2 ii 8 tcpClient GetData databuff jj vbDouble kk kk 1 Next 5 50 Case 1 32bit format ReDim databuff cnt 2 ii 4 For jj 1 cnt 2 ii 4 tcpClient GetData sngBuf vbSingle databuff jj CDbl sngBuf kk kk 1 Next End Select If tcpClient BytesReceived gt 0 Then strBuf Space tcpClient BytesReceived 1 tcpClient GetData strBuf End If datanum kk End Sub 00000000000 Private Function GetBinDataLen As Integer Dim strBuf As String Dim DataLen As Integer GetBinDataLen 0 tcpClient SendData DISP TRAC POIN amp vbCrLf strBuf Space 20 Call ReadData_TCP strBuf DataLen CInt strBuf Select Case BinType Case 0 64bit format GetBinDataLen DataLen 8 Case 1 32bit format GetBinDataLen DataLen 4 End Select End Functio
48. e Dependent Error bit3 0000000 23 20 8 1290 00 0 0 8 9 00000000 8341 0000000000000 00000 5 6 21 00000 ESR 00 00000 00 00 000 0 00 00 000 0 0 0 0 0000 Query 000 ESR 0000 NRI Hl D D 00 10000000000000000000000000 100000 100000000 10000000000000 100000000000000000 100 615 100000000 10000000000000000000000000 58 00000 00000000000000 Power Command Error 10 Execution Error 1000 1000 Device Dependent Error 1 Query Error Request Control Operation Complete ogo a aa 7 5 29 83410 000000000000 00000 5 620 00000 7 GMC 00000000000 00000
49. gt 1 2nd 00 DISPlay WINDow MARKer MAXimum SEcond x DISPlay WINDow MARKer MA Ximum LEFT x DISPlay WINDow MARKer MAXimum RIGHt x ec 000000000000000000000000000 100000000 10000000005 200000000 2000000000 0000000 200000000 00000000 100000000 1000000000 10 2000000000 0 2000000 0000 1000000000 200000000 5 40 5 6 9 SYSTEM O00 SYSTem PRESet 5 16 SYSTEM 834100 1000000 000 5 6 9 SYSTEM DISPlay WINDow TEXT DATA str str SYSTem DATE lt int gt lt int gt lt int gt 00 00 lt int gt lt int gt lt int gt 00 00 SYSTem TIME int int lt int gt lt int gt 00000000 SYSTem HALT x 0000 5 6 10 SYSTem OPTion 1 0 FILE STORe 5 17 SAVE LOAD lt int gt or lt str gt 00000 10000 FILE LOAD lt int gt or lt str gt 5 41 83410 000000000000 00000 5 6 11 GPIB 00000 5 6 11 0000000000000 00000000 GPIB DD D DO U 5 18 GPIB 1 D E U U FORMat DATA 000000 000 ASCiiIREAL 32164 ASCii 00000 REAL Q 0000000 1 0000 000 ASCIREAL 32IREAL 64 00
50. n 0000 Private Sub Form Load Call ConnectTCP End Sub 83410 000000000000 00000 5 6 12 GPIB LAN 0 0 D 000000 000000 5 51
51. ow TRACe SPECtrum COHerence SPECICOH 0000 DISPlay WINDow LIST STATe ONIOFF ONIOFF 0000 DISPlay WINDow LIST CURRent int gt int gt 0000 0 DISPlay WINDow LIST ALL ONIOFF ONIOFF 0000 DISPlay WINDow LIST TYPE SPECtrum COHerence SPECICOH 0000 2nd MEASurel FETCh SCALar LENGth COHeren cy PEAK RANGe STARt lt real gt lt real gt 2nd MEASurel FETCh SCALar LENGth COHeren cy PEAK RANGe STOP lt real gt lt real gt MEASurel FETCh SCALar LENGth COHeren cy PEAK RANGe lt real gt lt real gt 000000000 D lt real gt lt real gt 000000000 D MEASurel FETCh SCALar LENGth COHeren cy POINt lt int gt lt int gt MEASure FETCh SCALar LENGth COHerency ALPHa lt real gt lt real gt 0 000 MEASure FETCh SCALar LENGth COHerency BETA lt real gt lt real gt 0 0 000 000 CALCulate3 BANDwidth S TATe ONIOFF ONIOFF CALCulate3 BANDwidth TY PE O 112I3 Pk XdBlEnvel OpelRMSIPeak RMS 011213 opelRMSIPeak RMS CALCulate3 BANDwidth XDB real real XdBIJI DD 0 CALCulate3 BANDwidth YDB lt real gt lt
52. p POINts NORMAaIIHIGH NORMIHIGH 000000000 DISPlay WINDow TRACe X SCALe LEFT lt real gt lt real gt 000000000 DISPlay WINDow TRACe X SCALe RIGH lt real gt lt real gt DISPlay WINDow TRACe X SCALe ACTIve SPECtrumICOHerence SPECICOH SENSe POWer RLEVel real real 00000000 SENSe POWer RLEVel AUTO ONIOFF ONIOFF IN OFF CALCulatel1 CAVErage STATe ONIOFF ONIOFF CALCulatel CAVErage COUNt int int CALCulate1 CAVErage TYPE SNIPOWer SNIPOW 0 CALCulate2 SMOothing STATe ONIOFF ONIOFF CALCulate2 SMOothing APERture 51719111113 51719111113 00000000 CALCulate2 SMOothing THReshold lt real gt lt real gt 1 000000 DISPlay WINDow TRACe POINts SPECtrumICOHerence int XD nand DISPlay WINDow TRACe X DATA SPECtrumlCOHerence FORMAT DISPlay WINDow TRACe Y DATA SPECtrumlCOHerence FORMAT 00000000 DISPlay WINDow TRACe FULL POINts SPECtrumlCOHerence int 00000000 DISPlay WINDow TRACe X FULL DATA SPECtrum COHerence FORMAT YOOOUOUdOd DISPlay WINDow TRACe Y FULL DATA SPECtrumlCOHerence FORMAT 00000000000 MEASurelFETCh SCALar PEAK
53. strBuf P 1 1000000 0 5 1000 CohAlphaMag Int Val Mid strBuf P 1 1000 0 5 1000 00000 0000 Call ibwrt OSAud MEAS LENG COH BETA strBuf Space 50 Call ibrd OSAud strBuf 000000000 P InStr strBuf CohBetaLen Int Val Left strBuf P 1 1000000 0 5 1000 CohBetaMag Int Val Mid strBuf P 1 1000 0 5 1000 00000000 Call ibwrt OSAud DISP TRAC X DATA SPEC 0000000000 Call Read41 Binary NspectRed SpeRedX K ibwrt OSAud DISP TRAC Y DATA SPEC 0000000000 Call Read41 Binary NspectRed WfmSpeyY 0000000000000000 ibwrt OSAud DISP TRAC X DATA 0000000000 Call Read41 Binary NcohRed CohRedxX 00000000000000 5 45 83410 000000000000 00000 5 6 12 GPIB LAN 0 0 D Call ibwrt OSAud DISP TRAC Y DATA COH 0000000000 Call Read41 Binary NcohRed WfmCohY 00000 End GPIB End Sub GPIB IF D Public Sub Init_GPIB boardID 0 If GpConfig False Then Call ibdev boardID A8341 0 T3s 1 0 OSAud Call ibtmo OSAud T3s End If End Sub GPIB IF Public Sub End_GPIB Call ibsic OSAud Call ibonl OSAud 0 End Sub 0000000000 Private Sub Read41 Binary n As Integer Data As Double 834i Binary format 0 000000000000000 Dim i As Integer intBuf As Integer P As Integer NByte As Integer
Download Pdf Manuals
Related Search
8341 8341 paldau 83416 saaldorf-surheim 83410 laufen maps 83413 bayern - fridolfing 83410 bayern - laufen 83417-tx4-a01