| Вопрос: Winamp & лампочки на клаве | Добавлено: 25.01.07 18:22 |
Автор вопроса:  Stars
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  Stars Вопросов: 41 Ответов: 239 |
Профиль | | #16 | Добавлено: 26.01.07 14:28 |
| User Unknown СПАСИБО!!! Удовлетворил! | ||
|
Номер ответа: 17 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #17 | Добавлено: 26.01.07 15:57 |
|
Прикольно получилось
Public LampVal As Integer
Private Const KEYEVENTF_EXTENDEDKEY = &H1 Private Const KEYEVENTF_KEYUP = &H2 Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Sub Lamp(NumLamp, Stat) Dim bytKeys(255) As Byte GetKeyboardState bytKeys(0) If NumLamp = 1 Then Key = &H90 If NumLamp = 2 Then Key = &H14 If NumLamp = 3 Then Key = &H91 If bytKeys(Key) <> Stat Then keybd_event Key, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0 keybd_event Key, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0 End If End Sub Private Sub Timer1_Timer() If LampVal < 3 Then LampVal = LampVal + 1 Else LampVal = 1 If LampVal = 1 Then Lamp 1, 1 Lamp 2, 0 Lamp 3, 0 ElseIf LampVal = 2 Then Lamp 1, 0 Lamp 2, 1 Lamp 3, 0 ElseIf LampVal = 3 Then Lamp 1, 0 Lamp 2, 0 Lamp 3, 1 End If End Sub |
||
|
Номер ответа: 18 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #18 | Добавлено: 26.01.07 20:16 |
| Вон ща примерчик нашёл как сделать спектральный анализ звука попробую как время будет сделать чтобы лампочки под музон колбасились (Если кому пример интересен то я его скинул в примеры типа Spectrum Analyzer.rar) как админы его добавят можете глянуть тема | ||
|
Номер ответа: 19 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #19 | Добавлено: 26.01.07 20:18 |
| Да походу не доглядел он там уже есть походу и не один | ||
|
Номер ответа: 20 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #20 | Добавлено: 28.01.07 16:45 |
| Люди, а ведь и этот пример жудко глючит набор текста. Есть решение траблы на асме(в примерах) но под XPой оно делает кряк приложения. | ||