![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() В 95-м году на Турбо Паскале 7.0 я написал прогу-тренажер для обучения приему на слух Азбуки Морзе. Но прога была для DOS и сейчас не работает под Виндами XP и Visto'й.
Сейчас решил перелопатить прогу под Винду в Delphi. С интерфейсом разобрался, с вводом текста вроде тоже. Но вот убейте, не пойму как заставить Delphi "звуки издавать" через звукашку ( и/или через системный динамик). Какой компонент или что там отвечает за вывод звука? Мне нужно чтобы можно было вводить тон (частоту) и длительность и чтобы прога начала звучать соответственно... Что то вроде стандартных ТурбоПаскалевских ------------------------------ PROCEDURE Err; const st = 70; ton = 2000; begin sound(ton); delay(st); nosound; delay(st); end; ---------------------------- И вообще насколько код ТрубаПаскалю соответствует коду Delphi Pascal ??? (Для инфы у меня Delphi 4, но могу поставить 6-й). Спасибо за помощь и советы! |
#2
|
||||
|
||||
![]() Код:
И потом, например, при VCL: Код:
PS. Не забудь функции(и процедуры) объявить |
#3
|
||||
|
||||
![]() Проверял, всё работает. И очень даже хорошо
![]() |
#4
|
|||
|
|||
![]() Кстати, можно проще:
Код:
PS. А вообще есть множество готовых программ на ввв.морсе-коде.нет |
#5
|
|||
|
|||
![]() А у меня почему то ничего не получается...
![]() ![]() Может содскажете где моя тупая башка лажует? Код:
Последний раз редактировалось Admin, 18.06.2008 в 20:08. |
#6
|
|||
|
|||
![]() Где выдается ошибка?
Попробуй Delphi 7 поставить. |
#7
|
|||
|
|||
![]() Цитата:
У меня есть только 6-ка (Borland Delphi 6, а не 2006). 7-ку в обозримых окресностях найти не удастся. Ошибку сейчас не выдает. Выводит форму чистую. Без кнопок и без чего либо. Ничего не звучит, не поет. Сейчас попробую 6-ку поставить. |
#8
|
|||
|
|||
![]() Попробуй просто
Код:
|
#9
|
|||
|
|||
![]() Цитата:
Уф, уф, уф. Все таки нужно свою делать. ![]() |