Za IR upravljanje paralelnim portom koristit ćemo poznatu shemu interfejsa koji se priključuje na serijski port PC računara a koja je prikazana na donjoj slici.
Program za kontrolu svih 8 pinova na Data portu napisan je u Visual Basic-u i njegovim pozivom dobiti ćemo sljedeću sliku.
Pritiskom na neki od programiranih tipkala na daljinskom upravljaču mijenjamo stanje odgovarajuće led diode od D0 – D7. Prije nego upotrebimo daljinski neophodno je da preuzmemo odgovarajuće IR kodove za pojedine diode a što se dobije pritiskom na Setup. Ekran za prijem IR kodova dan je na donjoj slici.
Pritiskom mišom na neku od dioda tipkala Preuzmi kod kod biti će dostupan. Pritiskom na njega program čeka da pritisnete odgovarajuću tipku na daljinskom kojim će te upravljati sa diodom D0. Nakon prijema IR koda ta dioda dobiti će plavu boju što znači da smo njen kod preuzeli. Postupak ponavljamo i za ostale led diode. Pritiskom na tipku Povratak vraćamo se u program kontrole. Jednom preuzeti kodovi biti će stalno zapamćeni u datotetci diode.dat. Pozivom Setup-a svi prethodni kodovi biti će automatski brisani pa ako ste eventualno ušli u njega tada treba da sve kodove ponovo preuzmete.
Ovim programom možete kontrolirati trokanalni interfejs ili neki njemu sličan koji koristi Data port. Glavni dio koda programa je onaj koji preuzima IR signal i on je sljedeći.
' ' _____________________________________________________ . Private Sub MSComm1_OnComm() Shape1(8).BackColor = RGB(0, 255, 0) While (MSComm1.InBufferCount > 0) Text5.Text = Text5.Text + MSComm1.Input Wend kod_txt = Text5.Text Postavi_diodu Shape1(8).BackColor = RGB(240, 122, 122) End Sub _____________________________________________________ Private Sub Postavi_diodu() For i = 0 To 7 If Diode_kod(i) <> kod_txt Then GoTo 10 End If If Stanje_dioda(i) = 0 Then Call SetPortBit(LPTadresa, i) Stanje_dioda(i) = 1 Shape1(i).BackColor = RGB(255, 0, 0) Else Call ClrPortBit(LPTadresa, i) Stanje_dioda(i) = 0 Shape1(i).BackColor = RGB(255, 255, 255) End If DoEvents 10: Next i End Sub . |
Čitanje IR signala vršimo u podprogramu MSComm1_OnComm(). Nakon preuzimanja signala pozivamo podprogram Postavi_diodu() u kojem ispitujemo da li je primljeni IR kod neki od kodova led dioda. Ako jes onda taj bit komadom SetPortBit(LPTadresa, i) postavljamo na 1, odnosno ako je bio na 1 vraćamo ga na nulu komandom ClrPortBit(LPTadresa, i). Također promijenimo i boju dane diode za koju je primljen signal.
zdravo prijatelju, moje ime je isabel kedem, liječnica sam i imam 48 godina. Molimo vas da pročitate moje istinito životno svjedočanstvo, imam pozitivnu namjeru da će ove informacije pomoći nekome tko čita ovaj članak, da u roku od dva dana obnovi razoreni brak i obnovi izgubljenu ljubavnu vezu. Nakon godina veze s ethanom, on je prekinuo sa mnom, učinila sam sve što sam mogla da ga vratim da me voli, ali sve što sam učinila bilo je uzalud, toliko sam ga željela zbog ljubavi koju gajim prema njemu , upitala sam ga s Obećala sam sve što sam imala, ali on je odbio. Objasnila sam problem svojoj kolegici na poslu i ona mi je predložila da se radije obratim ljubavnom čarobnjaku koji bi mi mogao pomoći da mu uzvratim ljubav, ali ja sam tip osobe koja nikada nije mislila da dio ljubavnih čarolija postoji ili djeluje, nisam imala Izbor nego da ga isprobam, poslala sam e-mail kanalu spellcaster i on mi je rekao da nema problema da će sve biti u redu prije tri dana, da će se moj bivši vratiti prije tri dana, bacio je ljubavnu čaroliju u zrak i iznenađujuće, drugi dan je bilo oko 3:00 ujutro. Bivši ljubavnik me nazvao na mobitel, bila sam toliko iznenađena da sam odgovorila na telefonski poziv i sve što je rekao je da mu je toliko žao zbog svega što se dogodilo da želi da mu se vratim jer me toliko voli. Bila sam tako sretna i tako smo počeli živjeti sretno zajedno. na ovaj način ga možete kontaktirati ako vam je potrebna bilo kakva pomoć možete ga kontaktirati sa ovom e-mail adresom:drapata4@gmail.com ili ga kontaktirati na whatsapp / viber sa ovim brojem: (+447307347648)..
OdgovoriIzbriši