Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа со звуком в Turbo Pascal 7.0

Страницы: < 1 2
Александиров © (2008-10-31 11:53:00)
Нашёл в Интернете пример программы работы со звуком:

Program MusicColor;
Uses Crt, Graph; {подключение к программе библиотек Crt и Graph}
Var
GrDriver, GrMode: Integer; {тип и режим работы графического драйвера}
BEGIN
GrDriver := Detect; {автоопределение типа графического драйвера}
InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима}
SetColor(White); {установка белого цвета рамки }
Rectangle(130, 130, 460, 370); {рисование рамки }
Randomize; {инициализация датчика случайных чисел}
Repeat {цикл прерывается нажатием любой клавиши}
Sound(Random(2000)); {изменение высоты звука }
Delay(Random(1000)); {задержка }
SetFillStyle(Random(4), Random(16)); {смена типа штриховки и цвета}
Bar(140, 140, 450, 360); {рисование закрашенного прямоугольника}
until KeyPressed;
NoSound; {отмена звука }
CloseGraph; ReadLn; {закрытие графического режима}
END.

Компилирию - всё нормально, запускаю на выполнение выдаёт ошибку: Error 200: Division by zero

Упрощаю программу:

Program Music;
Uses Crt;
BEGIN
Sound(1000);
Delay(1000);
NoSound;
END.

Всё равно выдаёт туже ошибку. Подскажите почему, что я делаю не так?

Александиров (2008-10-31 12:01:00) [21]
А как можно это исправить? Какой компилятор нужно скачать, чтобы программа работала?

Palladin (2008-10-31 12:00:00) [22]
Где то видел лет 6-8 назад в инете "патч" модуля Crt. Поищи...

Palladin (2008-10-31 11:59:00) [23]
Все так. Только времена уже не те. Компьютеры очень быстрые. :)

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »