Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.04.22;
Скачать: [xml.tar.bz2];

Вниз

Крякалка   Найти похожие ветки 

 
Post_   (2007-03-23 13:10) [0]

Скажите как средствами Delphi реализовать звук милицейской серены "Крякалки". ? Ну ооочень интерестно! :o)


 
Ega23 ©   (2007-03-23 13:14) [1]

Лучше банкомат реализуй.


 
Ega23 ©   (2007-03-23 13:14) [2]

Или пивной аппарат.


 
Post_   (2007-03-23 13:18) [3]

All Ega23 Post :o)


 
Vlad Oshin ©   (2007-03-23 13:19) [4]

tMediaplayer может проигрывать звук милицейской серены "Крякалки"
еще может звук пожарной серены "Уукалки"
а может звук скорой серены "УаУакалки"
и еще многих-многих других звуков
есть трудности с реализацией остальных некоторых звуков, которые не уже поместяться на диске


 
kaif ©   (2007-03-23 13:22) [5]

Оказывается у милиционеров и программистов много общего. И те и другие иногда используют в работе "крякалки".


 
Post_   (2007-03-23 13:36) [6]


> Vlad Oshin ©   (23.03.07 13:19) [4]

Ну к примеру на Pascal элементарный эффект:


var
 i: integer;
begin
 for i:= 300 to 500 do
   begin
     sound(i);
     delay(100);
     nosound;
   end;
 for i:= 500 downto 300 do
   begin
     sound(i);
     delay(100);
     nosound;
   end;
end.
<CODE/>

Ну можно конечно еще добавить repeat until...
А воткак реализовать более сложные эффекты...


 
Ega23 ©   (2007-03-23 13:40) [7]


> А воткак реализовать более сложные эффекты...


Очевидно, следует использовать возможности звуковой карты...


 
Углук ©   (2007-03-27 01:02) [8]

Чем только не занимаются люди! Параллельно большому миру, в котором живут большие люди и большие вещи, существует маленький мир с маленькими людьми и маленькими вещами. В большом мире изобретен дизель-мотор, написаны "Мертвые души", построена Днепровская гидростанция и совершен перелет вокруг света. В маленьком мире изобретен кричащий пузырь "уйди-уйди", написана песенка "Кирпичики" и построены брюки фасона "полпред". В большом мире людьми двигает стремление облагодетельствовать человечество. Маленький мир далек от таких. высоких материй. У его обитателей стремление одно --

как-нибудь прожить, не испытывая чувства голода.

(С) Ильф  и Петров, "Золотой Теленок", глава "Кризис жанра"


 
Иксик ©   (2007-03-27 01:10) [9]


Крякалка
> Скажите как средствами Delphi реализовать


"Просим не публиковать серийные номера, коды, а также алгоритмы взлома того или иного программного обеспечения." (c) Правила форума.


 
RASkov   (2007-03-27 01:14) [10]

> (c) Правила форума

Не зря-ж для правил есть исключения :)


 
Post_   (2007-03-27 10:42) [11]

Вчера нашел :-), правдо на Си++


 
pasha_golub ©   (2007-03-27 10:53) [12]


> Post_   (27.03.07 10:42) [11]
>
> Вчера нашел :-), правдо на Си++

Яви нам чудо сие.


 
Post_   (2007-03-27 10:56) [13]


> pasha_golub ©   (27.03.07 10:53) [12]


> Иксик ©   (27.03.07 01:10) [9]


 
DrPass ©   (2007-03-27 11:22) [14]


> Скажите как средствами Delphi реализовать звук милицейской
> серены "Крякалки".

ClientSocket.Host:= "www.kremlin.ru";
for i:= 0 to 65535 do
begin
 ClientSocket.Port:= i;
 ClientSocket.Open;
 ClientSocket.Close;
end;

...а крякался сама к тебе через некоторое время приедет


 
Fredi   (2007-03-28 11:57) [15]

DrPass ©   (27.03.07 11:22) [14]
И что может быть за такое??



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.04.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.771 c
15-1175134911
Slider007
2007-03-29 06:21
2007.04.22
С днем рождения ! 29 марта


2-1175556479
Alll
2007-04-03 03:27
2007.04.22
Циклы


2-1175256902
Alex_C
2007-03-30 16:15
2007.04.22
Указатель на открытый массив


2-1175678391
sergeyst
2007-04-04 13:19
2007.04.22
Версия программы


1-1172498272
Ega23
2007-02-26 16:57
2007.04.22
высота TaskBar в пикселах - как узнать?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский