VPF::музыка в паскале - Форум программистов

armageddon

Дата 17.4.2006, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

скиньте пожалуйста ссылки как на музыкальные произвеления набранные на Паскале при помощи модуля crt и процедур sound/delay

PEMiKC

Дата 17.4.2006, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.4.2006

Репутация: нет
Всего: нет

Код


uses GraphABC, Sounds, Events;

var snd1: integer;

procedure MouseDown(x,y,mb: integer);
begin
  Circle(x,y,10);
  Circle(x,y,5);
  if mb=1 then
  begin
    RewindSound(snd1);
    PlaySound(snd1)
  end
  else StopSound(snd1);
end;

begin
  snd1:=LoadSound('название.wav');
  OnMouseDown:=MouseDown;
end.

Вот.

По нажатию мвши издает звук. 'название.wav'. Ну и ещё рисует круг по нажатию...

Pakshin A. S.

Дата 17.4.2006, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Цитата(armageddon @ 17.4.2006, 18:35

)

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

По-моему нетрудно их написать самостоятельно:
1) Берем ноты... лучше гитарные... Выбираем в них мелодию.
2) Берем табличку - соответсвие нот частотам. Вот и готовы числа для Sound()
3) А вот с паузами придется покалдовать, так как Delay завиит от быстроты компьютера... Но поэксперементировав немного можно обиться нужного...

armageddon

Дата 17.4.2006, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

to remiks:
спасибо, конечно, но прочти мой вопрос!!!(crt, sound, delay..)
to pakshin:
я это и так знаю, мне больше интересна эта таблица, а лучше готовые музыкальные треки..

PEMiKC

Дата 18.4.2006, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.4.2006

Репутация: нет
Всего: нет

Цитата

to remiks:
спасибо, конечно, но прочти мой вопрос!!!(crt, sound, delay..)

Могу дать тебе ехе-шник: клаву можно использовать в роли пианино так скажем. При нажимании на разные кнопки клавы - внутренний динамик выдает разные звуки.
ЗЫ Пищит не по-детски... smile

Ozzя

Дата 18.4.2006, 08:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 19.7.2004

Репутация: нет
Всего: 1

http://pascal.sources.ru/sound/pcspro2.htm

Crot

Дата 19.4.2006, 04:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 31.1.2004

Репутация: нет
Всего: 3

Код


  uses
    crt;

  procedure sound_test;
    const
      mus:array [1..24,1..2] of byte= {номера нот и относительная длительность}
        (( 0,4),( 4,2),( 7,2),(12,1),(12,1),(12,1),
         (12,1),(12,1),(12,1),(12,1),(12,1),(14,1),
         (14,1),(14,1),(14,1),(14,1),(14,1),(14,1),
         (14,1),(16,4),(14,4),(12,2),( 7,2),(12,4));
      first=200; {начальная частота}
      time=2000;   {единичное время}
    var
      i:byte;
  begin
    for i:=1 to 24 do
      begin
       {частота соседних нот отличается в корень 12-той степени из 2}
        sound (round(first*exp(mus[i,1]*ln(2)/12)));
        delay (round(0.9*time*mus[i,2]));
        nosound;
        delay (round(0.1*time*mus[i,2]));
        if (keypressed and (readkey=#27)) {прекращаем по нажатию Ecs}
          then break
      end;
  end;

begin
  sound_test;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »