Управление на компютъра със стандартно дистанционн

1.0 Устройството

Устойството е същото, което е представено на сайта на WinLIRC - Снимка на оригиналното устройство оттам, но вместо паралелен интерфейс (DB25) използва сериен (RS232).

Тук може да видите и опростената схема нарисувана набързо от мен

Лошото е, че забравих да напиша какъв е диода: 1N914

Ето как изглежда направеният от мен приемник накрая.

Описание на пиновете на RS232 женски куплунг:

DTR: 4

RTS: 7

GND: 5

txD: 3

DCD: 1

Още една схема на подобно устройство, но по-трудна е разгледана тук

За тези, който живеят в Пловдив: Всички елементо могат да се закупят в Регионалния Център по Електроника - ВИКИВАТ (до моста на "Герджика"), обаче на щанда за куплунзи и конектори има едни лелички дето незнаят нито какво е RS232, нито сериен интерфейс, та аз си загубих половин час докато ме разберат какво искам

2.0 Софтуера

Има много програмки с който може да управлявате компютъра от дистанционно. Проблема тук е, че не всички поддържат такива home-made devices, ето няколко, с който ще си осигурите безпроблемна работа. Тук ще покажа също и някои настройки. Ще разберете и как може програмите ви да бъдат контролирани от дистанционно.

2.1 Програми

Girder

Представялва изключително мощно приложение, може да се контролира абсолютно всичко с него посредством допълнителни плъгини, които осигуряват и съвместимостта на програмата с различни устройства.

За да проработи нешето устройство с нея, изтеглете http://smilianov.net/res/private/genericdevice.zip , разархивирайте го в папката "plugins" на програмата. После отидете на: File > Settings > Plugins > Igor SFH-56 Device и го маркирайте, натиснете Apply, после Settings. Ето какви настройки трябва да се направят:

COM Port: порта където сте го закачили

Input Signal: DCD

WinLIRC

Сама по себе си тази програма е напълно безполезна. С нея неможе да контролирате нищо.

Целта тук е, тя да действа като сървър - прихваща сигналите и ги предоставя на програмити, който ги изискват. Точно с нея е изграден примерният проект.

Настройките тук са:

Port: порта където сте го закачили

Speed: 38400

Sense: Autodetect

DCD Device

animax (enable DTR)

Transmitter settings: DTR

После натискате Learn и щракате по бутоните, после им давате имена.

2.2 Примерен проект на VB6

Във формата слагате една контрола Winsock.

После paste-вате това:

Private Sub Form_Load()

   

    Dim strLocalIP As String

   

    strLocalIP = Winsock1.LocalIP

    Winsock1.Protocol = sckTCPProtocol

    Winsock1.RemoteHost = strLocalIP

    Winsock1.RemotePort = 8765

    Winsock1.Connect


End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)


    Dim strData As String

    Dim strRemoteHex, strRemoteName, strRemoteKey As String

    Dim intRemoteIdx, intSeperatorOne, intSeperatorTwo As Integer

    

    Winsock1.GetData strData, vbString

    

    strRemoteHex = Left(strData, 16)

    intRemoteIdx = Val(Mid$(strData, 18, 2))

    

    intSeperatorOne = InStr(21, strData, " ", vbBinaryCompare)

    strRemoteKey = Mid$(strData, 21, intSeperatorOne - 21) 'Code of the Key from Remote Control

    

    intSeperatorTwo = InStr(intSeperatorOne, strData, Chr(10), vbBinaryCompare)

    strRemoteName = Mid$(strData, intSeperatorOne + 1, (intSeperatorTwo - intSeperatorOne) - 1) 'Name of the Key - defined in WinLircServer

    

    msgbox "Data: " & strData & "Key:" & strRemoteKey & " Control:" & strRemoteName

    

End Sub

Версия на статията: 1.00

Използвани са материали от: Списание "Млад Конструктор" 1/2001; Сайта на WinLIRC