Article View: cn.bbs.comp.program
Article #1323�����ǵĵ��Է���
From: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
Date: Sat, 18 Apr 1998 00:00
179 lines
11091 bytes
11091 bytes
���һ������ѧ�ⶨ���ƵĽ��,����������Ե���Ϣ���
�����۾�,��������Զ��,��ֻ�к���һ���������˵�����й١���
�˿ɼ�,����������ķ�չ���źε���Ҫ�����á��ر��ǽ���,��ý
�弼����չѸ��,�ܹ�����������ͼ��Ķ�ý�����Ҳ��ʼ�����˼�
ͥ���ܹ�ӵ��һ̨��ý�������ÿ���������ߵ���Ը,����,Ŀǰ,
һ��ĵ�λ�������������õ��Զ�û�����ý�ѹ������ȴ���ͼ
��������Ӳ���豸�������еĵ��Զ���һ��С����,������������
�������������������ѧϰ�����,ͨ��һ���ļ���������ʹ������
������������,��ô,�϶���ȡ�����벻��������Ч��
������Ƶ�ʵĶ�Ӧ��ϵ
����֪��:���ֻ���������12���������,��������֮�������
��,������C��#C��D��#D��E��F��#F��G��#G��A��#A��B����12������
���һ������,�˶����������Ƶ�ʿ���7 �������������ɡ���n
��ʾ�����,��һ����,n=1,2,...12;ֱ����������,n=78,79...84��
������Ƶ��f(��λΪ����)�������n֮�������¹�ϵ:
f=61.73541��1.0594631n
����,n��[1,84],f��[65,7902]��
��n=25��27��29��30��32��34��36��37ʱ����������ʽ�������
����������Ƶ��,���1��ʾ�����õĸ����Զ���ʹ�������������
����,��������: ��1 ������Ƶ��
TURBO PROLOG����
TURBO PROLOG�����ṩ��������ν��:beep��sound������,beep
ֻ�ܲ���ĸ���,s oundν�ʵĹ��ܱ�beepν�ʹ��ܸ�ǿ����
�ø�ν�ʿ��Բ������������Χ�ڵ����������soundν�ʵ��Ϊ:
sound(Duration,Frequency)��
����,����Duration���ٷ�֮һ���ʾ��ʱ������,������ʱ��
,����Frequency�Ƿ��������Ƶ��,��λΪ����,����������ȡֵ��Ϊ
�����ڳ�����,������ɸ���ͬ�������ں�Ƶ�ʵ�soundν��,���
���õ��Ե�����������������ɡ�
����,����beep��soundν�ʿ��Ա�д����һ����ʾ����
/* ����:sound.pro */
/* ��;:������������ */
predicates
two_beep
make_sound
goal
two_beep,
make_sound.
clauses
two_beep:-
beep,
beep.
make_sound:-
/* ��������Ϊ1���B�� */
sound(100,494),
/* �������Ϊ1���G�� */
sound(100,392)��
QUICK BASIC����
QUICK BASIC�����ṩ����������䡣beep���ֻ��ʹ��������
��������,��sou nd����ܷ���ָ��Ƶ�ʺ�ʱ�䳤�ȵ�������s
ound�����Ϊ:SOUND frequency,duratio n������,����frequen
cy�ĵ�λΪ����,��仯��ΧΪ37-32767;����duration��ʾ������Χ
Ϊ0-65535��ʱ�ӵ�λ(1/18.2��)��
����,�����Dz���ʱ�䳤��ԼΪ1��,Ƶ��Ϊ262���ȵ�����,����
�������������������BASIC���Գ���:
sound 262,18
beep
TURBO PASCAL����
TURBO PASCAL�����ṩ�����̡����sound���Ϊ:sound(fr
equency),����freque ncy��ʾ���ֵ�Ƶ��,��λ�Ǻ��ȡ����delay
���Ϊ:delay(duration),����duration���Ժ���Ϊ��λ��ʾ����
ʱʱ�䡣���nosound�����ر���������һ��������������:
program music;
uses Crt;
begin
Sound(200);
Delay(200);
NoSound;
end.
�����Ǹ����ҵ��й��ġ��е�һ�θ���,��������: ���� ����
���й��ġ�
�����Ƕ�Ӧ��TURBO PASCAL���Գ�������,������Ƶ�ʿ��Բ�
��ǰ���1,����Ϊ����������Ƶ��,����δ�г�����Ƶ�ʿ���������
��ʽ������������6��Ƶ�ʾ��ǽ�n=22���빫ʽ����õ�fֵΪ22
0��
{�ҵ��й���}
{˵��:��������һ�����Ϊ������}
program example;
uses crt;
procedure make-sound(frequency:integer;duration:real);
degin
sound(frequency);
delay(trunc(1000*duration))
end;
{ִ�в���}
begin
{��һ������ΪƵ��,��λ:����;�ڶ�������Ϊ���ij���,��λ:��
}
make_sound(220,6);make_sound(330,2);make_sound(294,2)
;
make_sound(330,2);make_sound(262,2);make_sound(246,2)
;
make_sound(220,12);
make_sound(330,2);make_sound(440,4);make_sound(392,2)
; make_sound(330,2)
make_sound(294,2);make_sound(262,2);make_sound(294,2)
;
make_sound(330,12);make_sound(330,2);make_sound(392,2
);
make_sound(440,6);make_sound(494,2);make_sound(440,2)
;
make_sound(392,2);make_sound(330,2);make_sound(294,2)
;
make_sound(262,2);make_sound(262,4);make_sound(294,2)
;make_sound(330,8)
make_sound(294,6);make_sound(330,2);make_sound(246,2)
;
make_sound(220,2);make_sound(195,4);
make_sound(440,12);
nosound
end.
{�������}
TURBO C����
TURBO C�����ṩ�����������sound(frequency),����freque
ncy��λΪ���ȡ�dela y(duration),����duration��λΪ���롣���
��ر�������,��������nosound����,���Ϊ:nosound(),�ú���û
�в���������һ������Ƶ��Ϊ512����,����ʱ��Ϊ1���ӵ�������
���ӡ�
main()
{
sound(512);
delay(1000);
nosound();
}
FoxPro��ݿ�����
FoxPro�����ṩ�����������SET BELL ON|OFF��SET BELL TO
������,SET BELL ON| OFF���������������ֶ�ĩβ��������
�˲��Ϸ������ʱ,��������������Ƿ��졣ȱʡ״̬ΪON��SET BEL
L TO [<frequency>,<duration>]�IJ���ֱ�ΪƵ�ʺͳ���ʱ�䡣Ƶ
�ʵĵ�λΪ����,��ÿһ����λ����ʱ���൱��0.549�롣Ƶ�ʵķ�Χ
��1-10000,����ʱ��ķ�Χ��1-19,ȱʡΪ512�����ҳ���ʱ��Ϊ2��
��λ,��0.549��2=1.098�롣
ֵ��ע�����ֻ�е�SET BELL����ΪONʱ,SET BELL TO����ָ��
��Ƶ�ʺͳ���ʱ��ֵ�������á�
�ڳ������ʱ,�����������������,����,���ÿ���ʱ,��������
�����,������ʾ,��Ȼ�ܹ����ӳ����Ȥζ��,���û�����,�������
��Ҳ�����Ƶġ�
�������
������Լ��л������Ժ����Ե�һЩ��Ҫ�ŵ�,��������
������ʮ�����á����ڴ��¼�������������������˵,���ջ����
�Գ���������ɽ�ʹ������߲�ij�����ƾ��硣
ʹ��DOS��BIOS�ṩ�Ĺ��ܷḻ�ĵ�����ں��ӳ���,�����ó���
��ɸ��ӵIJ�����
�����������DEBUG��д����Ϊsound.com���ļ��IJ������衣��
������ʹ��������������sound.com�ļ��ǿ�ִ���ļ�,�ڳ�����
��ʱ,���Խ���Ƕ���Լ��ij�����,�������Ѳ�����ע��ȡ�
c:\>debug
-n beep.com
-a
195F:0100 mov d1,07
195F:0102 mov ah,02
195F:0104 int 21
195F:0106 int 20
195F:0108
-r cx
CX 0000
:8
-w
Writing 00008 bytes
-q
������
��֮,�����������ij��Ϻܶ�,����:����Ҫ�������Ѳ�����ע��,
���Է���������ʾ������Ϸ�����г�������һЩ����Ч��,�������
Ϸ��Ȥζ�ԡ������װ���ͨ����Ҫ�ϳ���һ��ʱ��,�û�����ò�
�ͷ��ͷ���,�������������ܹ��������װ����в岥һ��������
��������,�����ɻ������û������������֮��ľ��롣��ʹ��һ��
�ij���,Ҳ���Բ���һ������,�Խ��ȴ��еķ��ա�ϣ����ĵ���
�������ܹ��ڴ����������ݵĻ��Ͽ������Լ������ֳ���
--
[m[1;37m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m
Technical Details
Message-ID:
<3O9QQO$tjF@bbs.nju.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,5031be2e31323143,start X-Google-Attributes: gidfc86e,public From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ) Subject: �����ǵĵ��Է��� Date: 1998/04/18 Message-ID: <3O9QQO$tjF@bbs.nju.edu.cn> X-Deja-AN: 345300036 X-Filename: Programming/M.892870392.A Organization: nju_bbs Newsgroups: cn.bbs.comp.program