![Agilent Technologies 8156A Operating And Programming Manual Download Page 138](http://html.mh-extra.com/html/agilent-technologies/8156a/8156a_operating-and-programming-manual_2868603138.webp)
137
Programming Examples
Example 3 - Measuring and Including the Insertion Loss
Listing
10
!-----------------------------------------
20
!
30
! Programming Example 3
40
!
50
! Measuring the Insertion Loss and using it as a Cal factor
60
!
70
!-----------------------------------------
80
!
90
! Definitions and Initializations
100
!
110
Att=728
120
Mm=722
130
!
140
OUTPUT Mm;"*rst;*cls"
150
OUTPUT Att;"*rst;*cls"
160
!
170
!
Setup the instruments, with the output of the source connected
180
! to the input of the sensor and wait for the ENTER key to
190
! be pressed before continuing
200
!
210
CLEAR SCREEN
220
PRINT TABXY(4,17);""
230
I
NPUT "Connect the Source to the Sensor and then press ENTER",Inp$
240
!
250
! Set the sensor wavelength to that of the source
260
!
270
OUTPUT Mm;"sour2:pow:wave?"
280
ENTER Mm;Wvl
290
OUTPUT Mm;"sens1:pow:wave ";Wvl
300
!
310
! Activate the source
320
!
330
OUTPUT Mm;"sour2:pow:stat on"
340
!
350
!
Set the instrument to measure in dB, and take the current power
360
! as the reference.
370
!
380
OUTPUT Mm;"sens1:pow:ref:stat on"
390
WAIT 2
Let everything settle before making a reading
400
OUTPUT Mm;"sens1:pow:ref:disp"
410
!
420
! Switch off the source and prompt for the next hardware se
tup
430
!
440
OUTPUT Mm;"sour2:pow:stat off"
450
PRINT TABXY(4,17);""
460
INPUT "Connect the Attenuator into the setup and press ENTE
R to continue:,Inp$
470
!
480
! Set the wavelength on the attenuator
490
!
500
OUTPUT Att;"inp:wave ";Wvl
510
!
520
! Switch on the source, enable the attenuator
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com