Inserito il 19 marzo 2011 alle 04:03:39 da elparadise.

Ricevitore IR per PC

Ricevitore IR per PC

Se avete messo a punto il vostro mediacenter utilizzando una scheda pc non potete non dotarlo di un ricevitore per telecomando ad infrarossi! Ciò vi permetterà di comandare col telecomando la vostra creazione da salotto rendendola più amichevole ed ergonomica, cosicchè non dovrete gigngillarvi tra mouse e tastiere per vedere i vostri video preferiti. Grazie all'uso di un paio di programmi di libero uso (winlirc e autohotkey) più questa semplice interfaccia sulla posta sulla porta seriale raggiungere l'obiettivo sarà piuttosto semplice. Lo schema fa uso di un rivelatore IR integrato. Ne esistono diversi tipi e nello schema vengono segnalate le piedinature dei modelli più comuni. Il primo in contenitore TSOP1738 ed il secondo in TSOP1838. Tra i primi troviamo:

TFMS53xx

Tra i secondi:

SFH5110
PL-IRM0101-3
IRM-2238
PNA4602M

In genere va bene qualsiasi ricevitore a 3 pin per IR, l'importante è sapere la piedinatura. Potete estrarlo per esempio da un vecchio videoregistratore, un lettore dvd, un tv, insomma da qualsiasi cosa che funzioni con un telecomando IR. Lo schema del ricevitore è molto semplice, il condensatore C1 non è particolarmente critico e può spaziare da valori tra .33uf ed i 10uf, secondo quello che avete a disposizione, visto il basso assorbimento del modulo ricevitore IR.

Questi sono i settaggi di winlirc. Ovviamente se il vostro ricevitore si trova sulla com2 o su un'altra com dovrete cambiare di conseguenza il relativo settaggio. Successivamente userete l'opzione 'Learn' per insegnare al vostro ricevitore i vari tasti del telecomando che andrete ad usare per il vostro scopo. Nella casella 'Config', tramite il tasto 'Browse...' inserirete la posizione ed il nome del file di settaggio che andrete a costruire. Seguite poi le semplici istruzioni che winlirc vi mostrerà dopo la pressione del tasto 'Learn'. Una volta che avrete istruito winlirc passate ad istruire AutoHotKey.

Aprite il menù 'File'->'Edit script' che vi farà apparire un file più o meno vuoto di notepad. Cancellatene TUTTO il contenuto ed incollate il testo seguente, dopodichè salvate. Attenzione che all'interno di tale file dovrete indicare il path di winlirc e le definizioni dei tasti che seguiranno la nomenclatura che avrete usato in winlirc, durante la programmazione dei tasti. Per ulteriori indicazioni vi rimando al sito di autohotkey. Da ora in poi, quando lancerete AutoHotKey automaticamente verrà caricato winlirc in memoria ed il sistema potrà ricevere dal telecomando i vostri comandi che verranno trasformati in tasti sul PC.

; Here are the steps to use this script: ; 1) Configure WinLIRC to recognize your remote control and its buttons. ; WinLIRC is at http://winlirc.sourceforge.net ; 2) Edit the WinLIRC path, address, and port in the CONFIG section below. ; 3) Launch this script. It will start the WinLIRC server if needed. ; 4) Press some buttons on your remote control. A small window will ; appear showing the name of each button as you press it. ; 5) Configure your buttons to send keystrokes and mouse clicks to ; windows such as Winamp, Media Player, etc. See the examples below. ; This script requires AutoHotkey 1.0.38.04 or later. ; HISTORY OF CHANGES ; March 2, 2007: ; - Improved reliability via "Critical" in ReceiveData(). ; October 5, 2005: ; - Eliminated Winsock warning dialog "10054" upon system shutdown/logoff. ; - Added option "DelayBetweenButtonRepeats" to throttle the repeat speed. ; ------------------------------------------------- ; CONFIGURATION SECTION: Set your preferences here. ; ------------------------------------------------- ; Some remote controls repeat the signal rapidly while you're holding down ; a button. This makes it difficult to get the remote to send only a single ; signal. The following setting solves this by ignoring repeated signals ; until the specified time has passed. 200 is often a good setting. Set it ; to 0 to disable this feature. DelayBetweenButtonRepeats = 200 ; Specify the path to WinLIRC, such as C:\WinLIRC\winlirc.exe WinLIRC_Path = C:\Program Files\XBMC\llirc\winlirc.exe ; Specify WinLIRC's address and port. The most common are 127.0.0.1 (localhost) and 8765. WinLIRC_Address = 127.0.0.1 WinLIRC_Port = 8765 ; Do not change the following two lines. Skip them and continue below. Gosub WinLIRC_Init return ; -------------------------------------------- ; ASSIGN ACTIONS TO THE BUTTONS ON YOUR REMOTE ; -------------------------------------------- ; Configure your remote control's buttons below. Use WinLIRC's names ; for the buttons, which can be seen in your WinLIRC config file ; (.cf file) -- or you can press any button on your remote and the ; script will briefly display the button's name in a small window. ; ; Below are some examples. Feel free to revise or delete them to suit ; your preferences. Up: send {up} return Down: send {down} return left: SendInput {left} return right: SendPlay {right} return enter: send {return} return play: send {return} sleep 200 send {tab} return Pause: send {space} return Dvdmenu: send {escape} return LastCh: send {Backspace} return Setup: send {appskey} return red: WinActivate XBMC return stop: send {space} sleep 200 send {tab} return Vol+: send {NumpadAdd} return vol-: send - return Previous: send < return Next: send > return Rewind: send r Return Fforward: send f return Esc: send {esc} return ; The examples above give a feel for how to accomplish common tasks. ; To learn the basics of AutoHotkey, check out the Quick-start Tutorial ; at http://www.autohotkey.com/docs/Tutorial.htm ; ---------------------------- ; END OF CONFIGURATION SECTION ; ---------------------------- ; Do not make changes below this point unless you want to change the core ; functionality of the script. WinLIRC_Init: OnExit, ExitSub ; For connection cleanup purposes. ; Launch WinLIRC if it isn't already running: Process, Exist, winlirc.exe if not ErrorLevel ; No PID for WinLIRC was found. { IfNotExist, %WinLIRC_Path% { MsgBox The file "%WinLIRC_Path%" does not exist. Please edit this script to specify its location. ExitApp } Run %WinLIRC_Path% Sleep 200 ; Give WinLIRC a little time to initialize (probably never needed, just for peace of mind). } ; Connect to WinLIRC (or any type of server for that matter): socket := ConnectToAddress(WinLIRC_Address, WinLIRC_Port) if socket = -1 ; Connection failed (it already displayed the reason). ExitApp ; Find this script's main window: Process, Exist ; This sets ErrorLevel to this script's PID (it's done this way to support compiled scripts). DetectHiddenWindows On ScriptMainWindowId := WinExist("ahk_class AutoHotkey ahk_pid " . ErrorLevel) DetectHiddenWindows Off ; When the OS notifies the script that there is incoming data waiting to be received, ; the following causes a function to be launched to read the data: NotificationMsg = 0x5555 ; An arbitrary message number, but should be greater than 0x1000. OnMessage(NotificationMsg, "ReceiveData") ; Set up the connection to notify this script via message whenever new data has arrived. ; This avoids the need to poll the connection and thus cuts down on resource usage. FD_READ = 1 ; Received when data is available to be read. FD_CLOSE = 32 ; Received when connection has been closed. if DllCall("Ws2_32\WSAAsyncSelect", "UInt", socket, "UInt", ScriptMainWindowId, "UInt", NotificationMsg, "Int", FD_READ|FD_CLOSE) { MsgBox % "WSAAsyncSelect() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") ExitApp } return ConnectToAddress(IPAddress, Port) ; This can connect to most types of TCP servers, not just WinLIRC. ; Returns -1 (INVALID_SOCKET) upon failure or the socket ID upon success. { VarSetCapacity(wsaData, 32) ; The struct is only about 14 in size, so 32 is conservative. result := DllCall("Ws2_32\WSAStartup", "UShort", 0x0002, "UInt", &wsaData) ; Request Winsock 2.0 (0x0002) ; Since WSAStartup() will likely be the first Winsock function called by this script, ; check ErrorLevel to see if the OS has Winsock 2.0 available: if ErrorLevel { MsgBox WSAStartup() could not be called due to error %ErrorLevel%. Winsock 2.0 or higher is required. return -1 } if result ; Non-zero, which means it failed (most Winsock functions return 0 upon success). { MsgBox % "WSAStartup() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") return -1 } AF_INET = 2 SOCK_STREAM = 1 IPPROTO_TCP = 6 socket := DllCall("Ws2_32\socket", "Int", AF_INET, "Int", SOCK_STREAM, "Int", IPPROTO_TCP) if socket = -1 { MsgBox % "socket() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") return -1 } ; Prepare for connection: SizeOfSocketAddress = 16 VarSetCapacity(SocketAddress, SizeOfSocketAddress) InsertInteger(2, SocketAddress, 0, AF_INET) ; sin_family InsertInteger(DllCall("Ws2_32\htons", "UShort", Port), SocketAddress, 2, 2) ; sin_port InsertInteger(DllCall("Ws2_32\inet_addr", "Str", IPAddress), SocketAddress, 4, 4) ; sin_addr.s_addr ; Attempt connection: if DllCall("Ws2_32\connect", "UInt", socket, "UInt", &SocketAddress, "Int", SizeOfSocketAddress) { MsgBox % "connect() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") . ". Is WinLIRC running?" return -1 } return socket ; Indicate success by returning a valid socket ID rather than -1. } ReceiveData(wParam, lParam) ; By means of OnMessage(), this function has been set up to be called automatically whenever new data ; arrives on the connection. It reads the data from WinLIRC and takes appropriate action depending ; on the contents. { Critical ; Prevents another of the same message from being discarded due to thread-already-running. socket := wParam ReceivedDataSize = 4096 ; Large in case a lot of data gets buffered due to delay in processing previous data. VarSetCapacity(ReceivedData, ReceivedDataSize, 0) ; 0 for last param terminates string for use with recv(). ReceivedDataLength := DllCall("Ws2_32\recv", "UInt", socket, "Str", ReceivedData, "Int", ReceivedDataSize, "Int", 0) if ReceivedDataLength = 0 ; The connection was gracefully closed, probably due to exiting WinLIRC. ExitApp ; The OnExit routine will call WSACleanup() for us. if ReceivedDataLength = -1 { WinsockError := DllCall("Ws2_32\WSAGetLastError") if WinsockError = 10035 ; WSAEWOULDBLOCK, which means "no more data to be read". return 1 if WinsockError <> 10054 ; WSAECONNRESET, which happens when WinLIRC closes via system shutdown/logoff. ; Since it's an unexpected error, report it. Also exit to avoid infinite loop. MsgBox % "recv() indicated Winsock error " . WinsockError ExitApp ; The OnExit routine will call WSACleanup() for us. } ; Otherwise, process the data received. Testing shows that it's possible to get more than one line ; at a time (even for explicitly-sent IR signals), which the following method handles properly. ; Data received from WinLIRC looks like the following example (see the WinLIRC docs for details): ; 0000000000eab154 00 NameOfButton NameOfRemote Loop, parse, ReceivedData, `n, `r { if A_LoopField in ,BEGIN,SIGHUP,END ; Ignore blank lines and WinLIRC's start-up messages. continue ButtonName = ; Init to blank in case there are less than 3 fields found below. Loop, parse, A_LoopField, %A_Space% ; Extract the button name, which is the third field. if A_Index = 3 ButtonName := A_LoopField global DelayBetweenButtonRepeats ; Declare globals to make them available to this function. static PrevButtonName, PrevButtonTime, RepeatCount ; These variables remember their values between calls. if (ButtonName != PrevButtonName || A_TickCount - PrevButtonTime > DelayBetweenButtonRepeats) { if IsLabel(ButtonName) ; There is a subroutine associated with this button. Gosub %ButtonName% ; Launch the subroutine. else ; Since there is no associated subroutine, briefly display which button was pressed. { if (ButtonName == PrevButtonName) RepeatCount += 1 else RepeatCount = 1 SplashTextOn, 150, 20, Button from WinLIRC, %ButtonName% (%RepeatCount%) SetTimer, SplashOff, 3000 ; This allows more signals to be processed while displaying the window. } PrevButtonName := ButtonName PrevButtonTime := A_TickCount } } return 1 ; Tell the program that no further processing of this message is needed. } SplashOff: SplashTextOff SetTimer, SplashOff, Off return InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4) ; The caller must ensure that pDest has sufficient capacity. To preserve any existing contents in pDest, ; only pSize number of bytes starting at pOffset are altered in it. { Loop %pSize% ; Copy each byte in the integer into the structure as raw binary data. DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1, "UChar", pInteger >> 8*(A_Index-1) & 0xFF) } ExitSub: ; This subroutine is called automatically when the script exits for any reason. ; MSDN: "Any sockets open when WSACleanup is called are reset and automatically ; deallocated as if closesocket was called." DllCall("Ws2_32\WSACleanup") ExitApp

Tutto l'occorrente per realizzare il ricevitore: * Presa seriale femmina senza guscio * Ricevitore IR * 78L05 * Resistenza 4k7 * Condensatore elettrolitico * Diodo 8€ spese comprese. Scrivete a ordini@elparadise.com