Section 7 Sample Programs
7-60
44 Form4Ø3.Print "AF Level (C-MESSAGE) = ";
Val(AFLvl$(5)); "V"
45 Form4Ø3.Print "AF Level (6kHz BPF) = ";
Val(AFLvl$(6)); "V"
46 Form4Ø3.Print "AF Level (Filter Off) = ";
Val(AFLvl$(7)); "V"
47
Form4Ø3.Print "AF Distortion = "; Val(AFDstn$); "dB"
48 Form4Ø3.Print "AF Frequency"; Val(AFFreq$); "Hz"
49
5Ø Call ibwrt(Ans%, "ALVL1 Ø.5V") '
Sets AF oscillator level to 0.5 V.
51 Call ibwrt(Ans%, "ASIG1 WHITE") '
Sets AF oscillator as white noise.
52 Call ibwrt(Ans%, "AFLT OFF") '
Sets evaluation filter to Off.
53 Call ibwrt(Ans%, "ADJRNG") '
Optimizes measurement range.
54 '
55 Call ibwrt(Ans%, "SWP") '
Starts measurement.
56 '
57 For i% = Ø To NUM% - 1
58 Call ibwrt(Ans%, "FREQCHAR? " & Str$(i% + 1)) '
Inquiries about results of frequency char-
acteristics measurement.
59 AFFreqCharN$ = ReceiveResp()
6Ø AFFreqChar(i%) = Val(AFFreqCharN$)
61 Next i%
62 '
63 For i% = Ø To NUM% - 1
64 Form4Ø3.Print "AF Freq. Characteristics ("; 5Ø *
(i% + 1); "Hz) = "; AFFreqChar(i%); "dB"
65 Next i%
66 '
67 Call ibwrt(Ans%, "AOUT1 OFF") ' Sets AF oscil-
lator to Off.
68 End Sub
Set the AF measurement screen in line 14.
Set the AF oscillator to 1 kHz tone in lines 15 to 19.
Set the measurement conditions in line 21.
Optimize the range in line 24.
Start the measurement in line 26. The SWP command stops accepting the next com-
mand until the measurement terminates.
To Next Page
Loading...
