VPF::Управление LPT - портом - Форум программистов

Andruxa28

Дата 7.2.2011, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 11.1.2011

Репутация: нет
Всего: нет

Собственно вот появилась мысль как-то использовать не задействованный 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

Это все работает отлично.
Вот теперь хотелось бы как-то анализировать что на выходе звуковой карты и передавать как-то это на порт... То есть, чтоб светики мигали в такт музыке...
Гугл не помог(((
Может кто сталкивался?
smile

И реально ли это на VB реализовать?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »