ИЗМЕРЕНИЯ
июнь
■НИ
GoToXY ( 5,10) ;
write (' Амплитуда :
i;
write(amp);
w riteln ('
дБ' ) ;
write In ;
w riteln ('Для ЕЕОда частоты нажмите
клавишу «F» и введите значение' );
writeln ('Для плавной регулировки
частоты используйте клавиши «+» и «-»' );
w riteln(' Для увеличения/уменьшения
амплитуды используйте клавиши «2»/«Х»' );
write (' Для Еьшода из программы
нажмите клавишу «пробел»' );
end;
procedure ustancv;
const znl : longint=50000;
zn2 : longint-20;
begin
i f
freq< 25
then freq:=25
i f
freq>25
then oct
"0 ;
i f
f req> 4 8
then oct = 1;
i f
freq> 97
then cct
=2 ;
i f
freq>195 then oct
= n •
i f
freq> 390 then oct = 4 ;
i f
freq>~80 then oct “ 5;
i f freq>1560 then oct:=6;
i f freq>3121 then
ocz:-7;
i f freq>6243 then freq:=6243;
para :=Round(freq shl(zn2-oct)/znl);
ustan;
end;
procedure hertz;
label hertzl;
begin
P := 0;
freq:=0;
GoToXY (5,18);
w rite (' Новая частота: ') ;
repeat
h:= readkey;
i f h=#13 then goto hertzl;
p:=p+l;
val(h,hz,hz);
freq:=(freq*10)+hz;
GoToXY(21,18);
w rite (fre q );
u n til p>5;
h ertzl: GoToXY(21,18);
w rite ln (fre q );
ustanov;
Delay(300);
end;
procedure plus;
begin
i f freq<6241 then
begin
freq:=freq+1;
ustanov;
end;
end;
procedure minus;
begin
i f freq>26 then
begin
freq:=freq-1;
ustanov;
end;
end;
procedure ampplus;
begin
i f amp>0 then
begin
amp:=amp-l;
port[ 904] : = $ 4 3;
delay(5) ;
port[ 905] :=amp;
delay(5);
end;
end;
procedure ampminus;
begin
i f amp<63 then
begin
amp:=amp+l;
port] 904] : = $43;
delay(5);
port] 905] :=amp;
delay(5);
end;
end;
procedure frequen;
begin
ClrScr;
validparam;
case readkey of
' F' ,' f'
hertz;
' f'
p 1 u s ;
'
minus;
'
V
,' z'
ampplus;
' X' ,'
yj
ampminus
end;
: begin
SBinit
exit ;
end;
frequen;
end;
begin
freq:=0;
amp:=0;
Sound;
S Binit;
frequen;
end.
•f-'i
пкд.
• 11
w nw -:;,*
Светодиоды - белого, красного, зеленого, желтого
свечения и мигающие
ч;-;
’v, П Y Y V 'Y K 'ty g -’ f'p
--л
Г, ^ ^^.1*
4
“----- “"4
5
H.P.EIectronic. Polska Warszawa 02-673
ul. Konstruktorska 4
Tel. (48 22) 3390160
Fax (48 22) 6481332________________
6/2002
предыдущая страница 39 Радиолюбитель 2002-06 читать онлайн следующая страница 41 Радиолюбитель 2002-06 читать онлайн Домой Выключить/включить текст