Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 19.01.2019, 20:34   #1
kirich
Новичок
 
Регистрация: 19.01.2019
Сообщений: 4
Репутация: 10
Сообщение Мелодия в Pascal.ABC.Net

Написал мелодию по нотам. Если воспроизводить по шагам, то играет все ноты, если запустить на выполнение программу целиком, то половина нот не воспроизводится, в чем проблема?
Код:
program zvyk;

begin
  System.Console.Beep(520,125); {до}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(698,125); {фа}
  System.Console.Beep(520,125); {до}
  System.Console.Beep(520,125); {до}
  System.Console.Beep(520,125); {до}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(987,125); {си}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(520,375); {до с точкой}
  system.Console.Beep(520,125); {до}
  system.Console.Beep(587,125); {рэ}
  system.Console.Beep(587,125); {рэ}
  System.Console.Beep(987,125); {си}
  System.Console.Beep(987,125); {си}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(698,125); {фа}
  System.Console.Beep(698,125); {фа}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(784,125); {соль}
  System.Console.Beep(880,125); {ля}
  System.Console.Beep(698,375); {фа с точкой}
  
end.
kirich вне форума   Ответить с цитированием
Старый 19.01.2019, 20:58   #2
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,624
Репутация: 1049
По умолчанию

Не успевает. Может delay надо
__________________
Mailto: media.project@ukr.net
Aleksandr H. вне форума   Ответить с цитированием
Старый 19.01.2019, 21:10   #3
kirich
Новичок
 
Регистрация: 19.01.2019
Сообщений: 4
Репутация: 10
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Не успевает. Может delay надо
delay подразумевает время звучания, так оно уже прописано в коде.
kirich вне форума   Ответить с цитированием
Старый 19.01.2019, 21:13   #4
kirich
Новичок
 
Регистрация: 19.01.2019
Сообщений: 4
Репутация: 10
По умолчанию

Цитата:
Сообщение от kirich Посмотреть сообщение
delay подразумевает время звучания, так оно уже прописано в коде.
но в любом случае куда вставить delay, чтобы код заработал как нужно, т.е. зазвучал?
kirich вне форума   Ответить с цитированием
Старый 21.01.2019, 14:23   #5
Алексей_2012
t45t
Профессионал
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Адрес: пгт. Балакирево
Сообщений: 1,741
Репутация: 279

icq: 649899888
По умолчанию

попробуй sleep(300) после каждого beep
__________________
from dark to light)
Алексей_2012 вне форума   Ответить с цитированием
Старый 21.01.2019, 14:31   #6
kirich
Новичок
 
Регистрация: 19.01.2019
Сообщений: 4
Репутация: 10
По умолчанию

Цитата:
Сообщение от Алексей_2012 Посмотреть сообщение
попробуй sleep(300) после каждого beep
Да, то что нужно, работает, спасибо.
kirich вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC.NET Staff123 Помощь студентам 0 21.12.2018 15:50
Pascal ABC.NET gogomon93 Помощь студентам 4 01.12.2013 17:56
Pascal ABC Net sarkisova_elena Паскаль 2 07.02.2012 00:40
Pascal ABC.NET BuTaJI Помощь студентам 1 26.04.2011 20:10
Pascal ABC .NET no4_sniper Паскаль 0 17.10.2009 00:21


15:15.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru