Управление бытовыми приборами через COM (USB)

[grafD]

Насколько реально и что для этого надо, чтобы включить или выключить какой-нибудь бытовой прибор, типа таммм чайник или еще что-нибудь ???

[MEMBER]

Для этого нужна программа, выставляющая определённую комбинацию битов в порту COM или LPT, дешифратор (http://www.tstu.ru/exclusiv/crems/russi ... mic/3.html)
двоично-десятичный, исполняющая цепь (усилитель тока, реле),
прямые руки и светлая голова.

[grafD]

Фух, нифига себе http://www.tstu.ru/exclusiv/crems/russi ... mic/3.html, а можно чего-нибудь попроще придумать? Какую-нибудь платку спаять из 2 резисторов. Поколдавать там на неё, заклинание какое-нибудь сказать?!

[MEMBER]

А что-ж, можно и проще. Тогда в ком или лпт втыкается развязка, лучше оптронная и всё. Выставил бит - на ножке появилось напряжение.

[MEMBER]

А что-ж, можно и проще. Тогда в ком или лпт втыкается развязка, лучше оптронная и всё. Выставил бит - на ножке появилось напряжение.

[Mirus]

А как сделать чтоб в СОМе на ножке появилось напряжение?
На ЛПТ знаю, а вот как в СОМ?

[MEMBER]

http://www.vbrussian.com/VBFAQ/VBFAQ.html#E1

[Mirus]

А на какой порт слать и на каких ножках появиться напряжение?

[MEMBER]

Посмотрите адрес порта в диспетчере устройств.
Соотношение ножка\бит мне неизвестно. Экспериментальная проверка вам поможет. Ну и до кучи:
http://esavitsky.narod.ru/article/article2.htm

[Dimon_G]

Скачай Inpout32.dll и выполняй код В текстовом окне пиши цыфры от 0 до 255 В 98 работает

Option Explicit
'объявление библиотеки для работы с адресами порта
Private Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Private Sub Command1_Click()
Out &H378, Val(Text1.Text)
End Sub

[Alex_new_2030]

А нечто подобное с USB ктонить проделывал?
Как USB порт работает?