🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: cn.bbs.comp.program
1 messages
1 total messages Started by ���ܵ�Сʨ Sat, 18 Apr 1998 00:00
�����ǵĵ��Է���
#1323
Author: ���ܵ�Сʨ
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]
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads