Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2019, 19:34   #1
kirich
Новичок
Джуниор
 
Регистрация: 19.01.2019
Сообщений: 4
Сообщение Мелодия в 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, 19:58   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

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

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

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

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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