Собственно вот появилась мысль как-то использовать не задействованный LPT-порт
Подключил пару светодиодов, но суть не в том..
Вот пытаюсь программно управлять его выходами
использую inpout32.dll
| Код |
' код модуля
Option Strict Off
Option Explicit On
Module InpOut32_Declarations
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)
End Module
|
| Код |
' код формы
Option Strict Off
Option Explicit On
Imports System.Threading
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' таким способом заставил мигать светодиоды
Thread.Sleep(100)
Out(&H378, 0)
Thread.Sleep(100)
Out(&H378, 0)
Thread.Sleep(100)
Out(&H378, 6)
Thread.Sleep(100)
Out(&H378, 14)
Thread.Sleep(100)
Out(&H378, 30)
Thread.Sleep(100)
Out(&H378, 26)
Thread.Sleep(100)
Out(&H378, 22)
Thread.Sleep(100)
Out(&H378, 14)
Thread.Sleep(100)
Out(&H378, 30)
Thread.Sleep(100)
End Sub
End Class
|
Это все работает отлично.
Вот теперь хотелось бы как-то анализировать что на выходе звуковой карты и передавать как-то это на порт... То есть, чтоб светики мигали в такт музыке...
Гугл не помог(((
Может кто сталкивался?
И реально ли это на VB реализовать?
|