gwbleep.pas

来自「让喇叭发声的控件」· PAS 代码 · 共 34 行

Unit GWBleep; { Bleeper / BleepInt / GWBleep Version 5.5 }

{ Copyright 1999, 2001 Andy Preston - Apollo Developments, Swindon U.K. http://www.apollod.omnia.co.uk/aa/

  HACKERS OF THE WORLD UNITE!    HACKERS OF THE WORLD UNITE!    HACKERS OF THE WORLD UNITE!    HACKERS OF THE WORLD UNITE!

  Play tunes on the PC speaker using syntax like GWBasic's Play statement, using the bleeper unit, see bleepint.htm for details

  This unit is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public
  License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

  This unit is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public License for more details.

  You should have received a copy of the GNU Library General Public License along with this unit; if not, write to the
  Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
}

Interface

Procedure PlayBleep (Str : String);

Implementation

Uses
  SysUtils, Bleeper;

Type
  TOctave = 1..7;
  TNoteLength = 1..64;
  TNote = (NoteC, NoteCs, NoteD, NoteDs, NoteE, NoteF, NoteFs, NoteG, NoteGs, NoteA, NoteAs, NoteB, NoteBad);
  TPlayable = NoteC..NoteB;

  { Approximate frequencies based on table in 'Electronic Music And Musique Concret