VBNet - Форум - Светодиод

Вопрос: Светодиод Добавлено: 28.12.03 22:56

Автор вопроса: Монах

Кто знает как сделать чтобы лампочки на клаве мигали в такт с музыкой в Winamp'е?

Ответить

Ответы Всего ответов: 9

Номер ответа: 1
Автор ответа:

Страшный Сон

Вопросов: 46
Ответов: 848

Профиль | | #1

Добавлено: 28.12.03 23:42

Ну ты меломан... Не думаю, что такое возможно.

Ответить

Номер ответа: 2 Автор ответа: Legik ICQ: 292375033 Вопросов: 3 Ответов: 72	Профиль \| \| #2	Добавлено: 29.12.03 10:51
	Включать и выключать индикаторы на клаве вполне реализуемо, но вот чтобы в так музыке - это уже другой вопрос ... Ответить

Номер ответа: 3
Автор ответа:

Александр

Разработчик Offline Client

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #3

Добавлено: 29.12.03 16:35

А на дисководе пойдет?

Ответить

Номер ответа: 4 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| \| #4	Добавлено: 29.12.03 18:54
	Да хоть на системном блоке. Не, на клаве в общем-то можно, и даже лампочку HDD приспособить... Вот только не знаю, что нужно писать. Ответить

Номер ответа: 5 Автор ответа: Монах Вопросов: 26 Ответов: 35	Профиль \| \| #5	Добавлено: 29.12.03 19:50
	to Александр: Ага, скажи пожалуйста как это сделать(если знаешь)! Ответить

Номер ответа: 6 Автор ответа: Legik ICQ: 292375033 Вопросов: 3 Ответов: 72	Профиль \| \| #6	Добавлено: 30.12.03 08:12
	На счет клавы могу сказать, что это можно сделать с помощью прерываний DOS или BIOS. Может быть есть какие-либо API, но они мне не известны. Ответить

Номер ответа: 7
Автор ответа:

Александр

Разработчик Offline Client

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #7

Добавлено: 30.12.03 14:52

2Монах: www.octal.narod.ru (пример Flop, по-моему)

Но у меня под XP рушится... В 98 идет

Ответить

Номер ответа: 8
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #8

Добавлено: 31.12.03 00:46

Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long ' вместо типа данных Byte мы ставим пользовательский тип данных KeyboardBytes

Private Const VK_NUMLOCK = &H90
Private Const VK_CAPITAL = &H14
Private Const VK_SCROLL = &H91

Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Private kbArray As KeyboardBytes

Private Sub Command1_Click()
kbArray.kbByte(VK_NUMLOCK) = 0
kbArray.kbByte(VK_CAPITAL) = 1
kbArray.kbByte(VK_SCROLL) = 1
SetKeyboardState kbArray
End Sub

Ответить

Номер ответа: 9
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #9

Добавлено: 31.12.03 19:16

Может, кому-нибудь пригодится...


 def seg=0
 q=32
 do
 	select case q
 		case 32:q=64
 		case 64:q=16
 		case 16:q=32
 	end select
 	poke &H417,q
 	a=timer:do:loop until timer-a>0.1
 loop until instat
 poke &H417,32

Turbo Basic

Ответить

Страница: 1 |