Воспроизвести звук

@pikusfikus · Регистрация: 14.11.2009

Студворк — интернет-сервис помощи студентам

Возможно добавить свой звук в паскаль,и если да то как?Заранее спасибо за ответ.

@WolfCF · 13.02.2010, 04:23

можно. модуль CRT подключай и используй процедуры delay(), sound(), nosound().
пример есть в книжке,которая в Справочный материалах. И на форуме есть пара задач,если интересно будет найдешь.

@pikusfikus · 13.02.2010, 12:26 **[ТС]**

да Вы неправильно вопрос поняли.....об этом я знаю...вот я например хочу добавить собственный звук ,например звук стрельбы ,можно так?

@Puporev · 13.02.2010, 12:28

pikusfikus, Все звуки можно только имитировать подбирая частоту и продолжительность звучания системного динамика(sound,delay,nosound), использовать аудио-файлы нельзя.

@pikusfikus · 13.02.2010, 12:37 **[ТС]**

о спасибо...такого ответа я и ждал

@Unrealler · 13.02.2010, 12:41

В Pascal ABC есть модуль Sounds. Вот описание:
Модуль Sounds содержит процедуры и функции для работы со звуком:

n:=LoadSound(fname) – загружает звук из файла с именем fname в оперативную память и возвращает описатель звука в целую переменную n (звуковой файл должен иметь формат .wav);

PlaySound(n) – начинает проигрывание звука с описателем n;

StopSound(n) – останавливает проигрывание звука с описателем n;

RewindSound(n) – "перематывает" звук с описателем n на начало;

DestroySound(n) – удаляет звук с описателем n из оперативной памяти, описатель звука при этом становится недействительным;

SoundIsPlaying(n) – возвращает True если звук с описателем n проигрывается и False в противном случае;

SoundLength(n) – возвращает длительность звука с описателем n в миллисекундах.

Модуль Sounds содержит также класс Sound, имеющий следующий интефейс:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
type
  Sound=class
  public
    constructor Create(fname: string);
    destructor Destroy;
    procedure Load(fname: string);
    procedure Play;
    procedure Stop;
    procedure Rewind;
    property IsPlaying: boolean;
    function Length: integer;
  end;

Конструкторы и деструкторы

constructor Create(fname: string);

Создает объект класса Sound и загружает в него звук из файла fname (звуковой файл должен иметь формат .wav). Звук с именем fname ищется вначале в текущем каталоге, а затем в подкаталоге Media\Sounds\ каталога программы PascalABC.exe.

destructor Destroy;

Разрушает объект и содержащийся в нем звук.

Свойства

property IsPlaying: boolean;

Проигрывается ли звук. Присваивание IsPlaying=False эквивалентно вызову Stop, а присваивание IsPlaying=True - вызову Play.

Методы

procedure Load(fname: string);

Загружает звук из файла с именем fname. Звук с именем fname ищется вначале в текущем каталоге, а затем в подкаталоге Media\Sounds\ каталога программы PascalABC.exe. Звук, до этого содержащийся в объекте, разрушается.

procedure Play;

Начинает проигрывание звука.

procedure Stop;

Останавливаетает проигрывание звука.

procedure Rewind;

"Перематывает" звук на начало.

function Length: integer;

Возвращает длительность звука в миллисекундах.

Звуки удобнее рассматривать как объекты класса Sound, в котором собраны все основные действия со звуками. Такой подход является более удобным и современным, чем подход с описателями звуков. Единственный его недостаток - необходимость вводить основные понятия, связанные с классами. Подход с описателями позволяет работать со звуками сразу после рассмотрения темы "Процедуры и функции" или даже раньше, если подпрограммы рассматривать просто как команды.

Пример работы со звуком с использованием описателей

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses Sounds;
 
var n: integer;
 
begin 
  n:=LoadSound('b.wav'); 
  PlaySound(n); 
  Sleep(SoundTime(n)); 
  DestroySound(n);
end. 
 
Пример работы со звуком с использованием класса Sound
 
uses Sounds;
 
var s: Sound;
 
begin 
  s:=Sound.Create('b.wav'); 
  s.Play;
  Sleep(s.Length); 
  s.Destroy;
end.

@pikusfikus · 13.02.2010, 12:43 **[ТС]**

спасибо,но жаль что в турбо нет

@Puporev · 13.02.2010, 13:16

Unrealler, Лучше уж тогда в Делфи.

01.11.2011, 18:11

У меня нет модуля Sounds в PaskalABC.NET. Не подскажете где скачать, или пришлите, пожалуйста, на е-майл stepan-klevleev@yandex.ru

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507

	Воспроизвести звук 12.02.2010, 22:55. Показов 46865. Ответов 8 Метки нет (Все метки) Возможно добавить свой звук в паскаль,и если да то как?Заранее спасибо за ответ. 0

@WolfCF 3317 / 1379 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	13.02.2010, 04:23
	можно. модуль CRT подключай и используй процедуры delay(), sound(), nosound(). пример есть в книжке,которая в Справочный материалах. И на форуме есть пара задач,если интересно будет найдешь. 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	13.02.2010, 12:26 [ТС]
	да Вы неправильно вопрос поняли.....об этом я знаю...вот я например хочу добавить собственный звук ,например звук стрельбы ,можно так? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.02.2010, 12:28
	pikusfikus, Все звуки можно только имитировать подбирая частоту и продолжительность звучания системного динамика(sound,delay,nosound), использовать аудио-файлы нельзя. 2

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	13.02.2010, 12:37 [ТС]
	о спасибо...такого ответа я и ждал 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	13.02.2010, 12:43 [ТС]
	спасибо,но жаль что в турбо нет 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.02.2010, 13:16
	Unrealler, Лучше уж тогда в Делфи. 0

Porcupine
	01.11.2011, 18:11
	У меня нет модуля Sounds в PaskalABC.NET. Не подскажете где скачать, или пришлите, пожалуйста, на е-майл stepan-klevleev@yandex.ru

Воспроизвести звук

Решение