🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #1323

�����ǵĵ��Է���

#1323
From: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
179 lines
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���,Ҳ���Բ���һ������,�Խ��ȴ��еķ��ա�ϣ����ĵ���
�������ܹ��ڴ����������ݵĻ��Ͽ������Լ������ֳ���

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]
Technical Details
Message-ID: <3O9QQO$tjF@bbs.nju.edu.cn>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show 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