Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 2
Регистрация: 03.11.2017
Сообщений: 10
06.11.2017, 19:12  [ТС] 1
Лучший ответ Сообщение было отмечено Hexapain как решение

Решение

Author24 — интернет-сервис помощи студентам
Звук проигрывается только один раз. Как сделать так, чтобы, например, конкретно для этого случая, он проигрался 5 раз.
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses graphABC;
var a:integer;
var t:=System.Media.SoundPlayer.Create('key.wav');
begin
a:=0;
repeat
a:=a+1;
write(a,' ');
t.Play();
until(a>4);
end.
0
Aimez-vous les baguettes?
193 / 26 / 27
Регистрация: 25.10.2017
Сообщений: 165
07.11.2017, 10:26 2
Попробуй sleep на длительность звука поставить после t.Play(); , мне помогло в похожей ситуации
0
0 / 0 / 2
Регистрация: 03.11.2017
Сообщений: 10
07.11.2017, 11:59  [ТС] 3
Вау, реально помогло. Спасибо большое!
0
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru