форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Perl цвет звук"
Сообщение от A Clockwork Orange on 01-Июн-04, 11:29  (MSK)
Как сделать в Perl пронзительный продолжительный гудок из динамика! Я делал \a но это только короткий писк. Как сделать в Perl вывод на КОНСОЛЬ в цвете. Мне удалось вывести в цвете в файл, удалось вывести мигающую строку на консоль, а как в цвете
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Perl цвет звук"
Сообщение от DogEater (ok) on 01-Июн-04, 12:55  (MSK)
>Как сделать в Perl пронзительный продолжительный гудок из динамика! >Я делал \a но это только короткий писк. >Как сделать в Perl вывод на КОНСОЛЬ в цвете. Мне удалось вывести >в цвете в файл, удалось вывести мигающую строку на консоль, а >как в цвете в линуксах можно менять длительность/тон на консоли через искейпы так же и цвет я себе написал скрипт играющий мобильные мелодии для сименса а в БСД на консоли при загрузке есть цветные сообщения? Если есть - посмотри rc скрипты, там должны быть нужные последовательности зы. ты всё цискин лог мучаешь? :-)
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Perl цвет звук"
	Сообщение от A Clockwork Orange on 01-Июн-04, 14:21  (MSK)
	При загрузке нет цветных сообщений, только жирный белый. Да мучаю. Вот только хочется красного да погромче и пронзительнее, самое интересное что \a , что \а\а\а\а\а\а  один черт один слабенький писк, тольк курсор сдвигает, а с шаблоном так и не получилось, поставил туда реальную фразу что не есть красиво.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Perl цвет звук"
	Сообщение от DogEater (ok) on 01-Июн-04, 14:45  (MSK)
	>При загрузке нет цветных сообщений, только жирный белый. >Да мучаю. Вот только хочется красного да погромче и пронзительнее, самое интересное >что \a , что \а\а\а\а\а\а  один черт один слабенький писк, >тольк курсор сдвигает, а с шаблоном так и не получилось, поставил >туда реальную фразу что не есть красиво. прпробуй так: use Time::HiRes qw{usleep}; $dur = длительность в микросекундах $note = частота(нота) в герцах $mult = множитель(для октавы)     $sound=$note*$mult;     my $note="\33[10;" . $sound. "]\33[11;" . $dur . "]\a";     print ($note);     usleep ($dur*1500);
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "Perl цвет звук"
	Сообщение от A Clockwork Orange on 01-Июн-04, 15:02  (MSK)
	Молчит, не звука
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.