Układ będzie generował zawsze na OC1A. $regfile = "attiny2313.dat" $crystal = 8000000 Config Pinb.3 = output Dim Togbit As Byte , Command As Byte , Address As Byte Command = 12 'kod włącz/wyłącz Togbit = 0 'wyzeruj toggle bit Address = 0 Do Rc5send Togbit , Address , Command Waitms 250 Loop End Spróbuj tego ^ Dodano po 3 Możesz spróbować zamienić...
Witam. A może tak prościej? 'Odbieranie kodu RC5 $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portd.0 , E = Portc.4 , Rs = Portc.5 Config Rc5 = portd.2 Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(Address , Command) Command...
Ja używam takiego kodu - odbiornika. Config LCD dostosuj do swoich potrzeb. Działa na każdym pilocie RC5. Instrukcję Lowerline wyrzuć. [syntax=basic4gl] 'Atmega8 Wyświetlanie z pamięcią i napisem Odczyt RC-5 $regfile = "m8def.dat" $crystal = 8000000 Dim Adress As Byte , Command As Byte , Togglebit As Bit Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4...
Dobry wieczór. Zgodnie z obietnicą jestem. Myślałem nad problemem pilota i doszłem do następujących wniosków: 1.Trzeba najpierw napisać jakiś prosty program, aby w ogóle sprawdzić czy on działa. Oto on. Przepisałem z książki, to najprostsza wersja, jaką się da zrobić. 'Program wyświetlający sygnały nadawane w standardzie RC5 'Na LCD będą wyświetlane...
Witam napisałem takie cos jest to pilot obsługujący 12 przycisków działający w rc5 . Czy poprawnie go napisałem nie mam jak sprawdzić bo nie mam jeszcze atmega czekam na nia z chin jedyne źródło atmelka w UK :) $regfile = "m8def.dat" $crystal = 8000000 Config Portb.1 = Input : Set Portb.1 Config Portb.2 = Input : Set Portb.2 Config...
a co myślicie o tym : $regfile = "m8def.dat" $crystal = 1000000 Config Pinc.1 = Input Config Pinc.2 = Input Config Pinc.3 = Input Config Pinc.4 = Input Config Pinb.1 = Output Dim Togbit As Byte , Command As Byte , Address As Byte Przod Alias Pinc.1 Tyl Alias Pinc.2 Lewo Alias Pinc.3 Prawo Alias Pinc.4 Set Portc.1 Set Portc.2 Set Portc.3 Set...
Nie sprawdzałem twojego kodu ale robiłem taki pilot na mega8: $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Output Config Pind.3 = Input Config Pind.4 = Input Config Pind.2 = Input Config Pind.1 = Input Config Pind.0 = Input Config Pinc.1 = Input Set Portd.3 Set Portd.4 Set Portd.2 Set Portd.1 Set Portd.0 Set Portc.1 S1 Alias Pind.3...
Witam, pisze właśnie program do attiny13. Ma on wysyłać po naciśnięciu przycisku odpowiedni sygnał Rc5. Napisałem coś takiego, ale nie działa (bascom wyświetla error): $regfile = "attiny13.dat" $crystal = 8000000 Config Portb.0 = Input Config Portb.1 = Input Config Portb.2 = Input Config Portb.3 = Input Config Portb.4 = Output Dim Togbit As...
ok. mam dzięki. http://www.elektroda.pl/rtvforum/topic81... Zaraz podłączę girdera i sprawdzę czy coś nadaje. -------------- witam. podłączyłem,kombinowałem i... zauważyłem pewną prawidłowość przy podłączeniu diody tak jak w helpie (tak jak w pierwszym poście) i przy tym samym programie co w helpie (również pierwszy post), przy podłączeniu do...
Witam, złożyłem mały pilot ir z attiny2313. Niestety pilot nie wysyła sygnału ;/ Co może być tego przyczyna? http://obrazki.elektroda.net/25_11952092... $regfile = "attiny2313.dat" $crystal = 1000000 Config Portd.2 = Input Config Portd.3 = Input Config Portd.4 = Input Config Portd.5 = Input Config Portb.3 = Output Dim Togbit As Byte...
no to jak kolega się wzoruje na helpach sprzed n lat to się nie dziwię. Polski help polecam jedynie jako orientacyjny jak ktoś nie zna angielskiego, albo zna słabo. A takto tylko angielskie helpy dołączone do najnowszych bascomów. nie wiem jak się to wszystko zachowuje, bo nie testowałem takiej transmisji rozszerzonej. spróbuj zmienić w nadajniku na...
Rc5: ( przykladowy podprogram ) Command = 12 Togebit = 0 Addres = 0 Do Rc5send Togebit , address , command Waitms 250 Loop Until S1 = 1 Return Proszę stosować znaczniki
Witam, czy byłby ktoś w stanie napisać program do attiny12? Miał by on wysyłać komendy w rc5 po naciśnięciu przycisku. np: S1 = komenda 2 adres 2 S2 = komenda 3 adres 3 S1 = komenda 4 adres 4 S2 = komenda 5 adres 5 Czytałem, że bascom podobno sobie z tym nie poradzi więc może ktoś napisałby w asm? EDIT: 27 Paź 2007 Mam już attiny13, napisałem program...
Ok działa. Wstawiłem też opóźnienie bo za szybko to włanczanie i wyłanczanie działało. Czy da się to zrobić dla każdego portu, co dla pierwszego? Próbowałem powielić to samo dla drugiego portu, ale program jakby nie widział tego, co dopisałem działa bez zmian tylko pierwszy port jest włanczany i wyłanczany. Dodano po 17 Ok dałem rade !! Program odpowiedzialny...
Pierwsze co to bym ci polecal to zrobic na przerwaniu, masz pelno instrukcji na elektrodzie i w necie jak to zrobic. Tu masz kod jak zapomoca przycisku zapisac klawisz z pilota 'konfiguracja procka $crystal = 1000000 $regfile "attiny2313.dat" 'konfiguracje przyciskow (przyklad) Config Pinb.1 = Input Set Portb.1 Przycisk Alias Pinb.1...
W Rc5 nadają piloty philips'a. masz tutaj kod: Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(address , Command) Command = Command And &B01111111 Cls Lcd "Adres: " ; Address Lowerline Lcd "Komenda: " ; Command Waitms 100 Loop End dodaj sobie jeszcze config rc5, lcd itd
Dim New As Bit Dim Command As Byte , Subaddress As Byte , Volume As Byte Reset P1.0 Reset P1.1 Reset P1.2 Reset P1.3 Reset P1.4 Reset P1.5 Reset P1.6 Reset P1.7 Reset Tcon.0 Volume = 50 'triggered by rising edge On Int0 Receiverc5 Enable Int0 Enable Interrupts Do If New = 1 Then 'received new code Disable Int0 If Command = 20 Then Set P1.0 Waitms 200...
Witam ! Czy ten program działa poprawnie ? Jeśli źle działa, wprowadź opuźnienie do każdej pętli If....End if If Command = 1 Then Toggle Porta.0 waitms 500 End If Pozdrawiam. Stefan amator GG6293398
Ja mam coś takiego: $regfile = "attiny2313.dat" 'rodzaj procesora Config Lcd = 16 * 2 $crystal = 1000000 Config Portd = &B1111110 Config Rc5 = Pind.0 Enable Interrupts On Int0 Cursor Off Dim Address As Byte , Command As Byte Cls Do Getrc5(address , Command) Waitms 50 Command = Command And &B0111111 If Address < 60 Then Locate...
odnośnie kodu - nie wiem czy dobrze rozumiem - czy ty chcesz w tym samym procku nadawać i jednocześnie odbierać kod RC5 - tak jak to widać w listingu który załączyłeś????? Command = 12 'kod włącz/wyłącz Togbit = 0 'wyzeruj toggle bit Address = 0 Do Cls Waitms 500 Rc5send Togbit , Address, Command Waitms 100 Getrc5(address , Command) Command...
Zobacz jak ja to zrobiłem na Mega8 http://obrazki.elektroda.pl/8838731900_1... Program jaki zastosowałem korzysta z przerwania INT0 które po naciśnięciu klawisza wyprowadza procesor ze "śpiączki" , wysyła dane na IR i usypia go ponownie.Dla mnie takie rozwiązanie jest lepsze niż chwilowe zasilanie procesora poprzez diody. Poniżej wklejam...
Do zniwelowania drgań styków wystarczy polecenie waitms 25 w instrukcji warunkowej? Użyłem go w pilocie rc5, i tak samo zmieniłem kod zegarka. Teraz czas na pilota rc5 :D Wymyśliłem coś takiego: $regfile = "attiny2313.dat" $crystal = 1000000 Dim Mikro1 As Byte Dim Mikro2 As Byte Dim Mikro3 As Byte Dim Mikro4 As Byte Dim Wlacz As Byte Dim Togbit...
pierwsze co zrobilem: zmierzylem adresy i komendy poszczegolnych guzikow pilota (zabralem go od telewizora) tu jest schemat (attiny2313 lub at90s2313, czujniki ir - tsop1736, wyswietlacz lcd alfanumeryczny dzialajacy w standardzie hd44780) zalanczam tez kod http://obrazki.elektroda.net/88_11732132... kod oczywiscie w basomie $crystal = 8000000...
Witaj napisałem programik i działa poprawnie na 100% Jeśli będziesz miał problem napisz. $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config Rc5 = Pind.2 'do tej lini podłącz odbiornik podczerwieni Dim Adress As Byte , Command...
Mam pilota URC22B-3 UNIVERSAL REMOTE CONTROLLER. Czy mogę za jego pomocą sterować odbiornikiem, rc5? Jeśli tak to trzeba go jakoś konfigurować (adres)? ma ktoś może pod ręką jakiś krótki program wykorzystujący odbiornik SFH506? Podłączyłem go do pinu B.0 i chciałem coś na nim wyświetlić ale dupa. Poniżej zamieszczam program który próbowałem wprogramować...
Bogdanbb2 mam pytanie odnośnie odbiornika z wyświetlaczem.Czy jest możliwość zastosowania LCD 1x16 ??i czy to wiązało by się tylko ze zmiana linijki gdzie deklarujesz wyświetlacz??Jestem noga z programowania wiec był bym wdzięczny za przeróbke kodu.Pozdrawiam Jest możliwość zastosowania takiego wyświetlacza. Jedyna zmiana jaka musi nastąpić to usunięcie...
Witam. Pind.3 nie jest przerwaniem INT0. Wgraj ten program, działa na 100%. Konfig LCD dostosuj do swoich potrzeb. '[syntax=basic4gl]RC5 z LCD 16*1 $regfile = "Attiny2313.dat" $crystal = 1000000 Config Lcd = 16 * 1a Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2 Config Rc5 = Portd.5 Dim...
To w takim razie tak może być? [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 8000000 Config Portb.4 = Output Config Rc5 = Portb.0 $hwstack = 20 $swstack = 10 $framesize = 40 Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(address , Command) Command = Command And &B01111111 Waitms 1 If Address = 0 And Command = 13 Then ' Toggle...
Witam, mała aktualizacja program wyżej wysyła sms-a, ale mam problem z odbiorem według poniższego kodu, prawdopodobnie gubi znaki ... jak to można rozwiązać [syntax=vbnet] 'informacja że nadszedł nowy sms o numerze 23 +CMTI: "SM",23 'polecenie o odebraniu sms o numerze 23 at+cmgr=23 'odebrany sms +CMGR: "REC READ","+48","","17/03/25,17:04:26+04" STATUS...
Jako że nikt ci nie odpisał to: 1) prędkość na fusebitach i w programie ZAWSZE muszą być takie same 2) nie zadeklarowałes pinu rc5 jako input 3) wykonujesz dziwnego ifa zamiast wyświetlić cokolwiek z odebranych danych 4) weź pilot który na pewno nadaje RC5, np jakiś philipsa Powinno to być np tak: [syntax=basic4gl] $crystal = 1000000 $regfile "attiny2313.dat"...
Dobra działa ale co sie dzieje jak nacisne przzycisk pilota to pokazuje command 1 naciskam drugi raz i wyświetla 129, 2 i 130, 3 i 131 tak na przemian raz naciskam ten sam klawisz 1,129,1,129 itd???????? :cry: $regfile = "8515def.dat" $lib "mcsbyte.lbx" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4...
Witam. mam taki oto program i dioda nadawcza swieci 3sekundy i mrugnie i potem znowu swieci. $regfile = "attiny2313.dat" $crystal = 4000000 Dim Togbit As Byte , Command As Byte , Address As Byte Command = 15 Togbit = 0 Address = 0 Rc5send Togbit , Address , Command End Mam równiesz drógi mikrokontroler z wyświetlaczaem z takim programem, i Adres wyswietla...
Niestety nie. If Ir_flag = 1 Then Command = Command And &B01111111 Call Lcdinit Str_address = Str(address) Str_address = Format(str_address , "" ) Str_command = Str(command) Str_command = Format(str_command , "" ) Lcdclear Lcdgoxy 1 , 1 Lcdstr Str_address , 1 , 0 Lcdgoxy 1 , 2 Lcdstr Str_command...
Witam, Mam mały problem z uzyskaniem danych z ramek odebranych po RS , chcę zrobić to za pomocą string ... ale zachowaniem struktury ramek, które wyglądają tak ramka 1: [syntax=vbnet] +CMTI: "SM",23 [/syntax] ramka 2 [syntax=vbnet] +CMGR: "REC READ", "+48123456789 ", " ", "17/03/25,17:04:26+04" STATUS [/syntax] napisałem mały program do wysyłania to...
Witam zacząłem właśnie zabawę z Bascomem , nie wiem jak zrobić aby odebranie poprawnego kodu było sygnalizowane krótkim piknięciem , piszczy mi ciągle . $regfile = "attiny2313.dat" $crystal = 8000000 Config Portd.4 = Output Config Portd.5 = Output Portd.4 = 0 Portd.5 = 0 Wy Alias Portd.4 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.4...
Witam Co do programu i schematu to nizej zamieszczam schemat i kod programu $regfile = "attiny2313.dat" $crystal = 1000000 Config Lcd = 16 * 2 Cursor Off Config Rc5 = Pind.5 Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(address , Command) Command = Command And &B01111111 Cls Lcd "adres :" ; Address...
Moze ktos moze udostepnic mi soft w ktorym bedzie obsluga samego wlacz wylacz , to moze juz bym sobie dal rade..... pomalu bym obczail o co w tym wszystkim chodzi , Zmalazłem jeszcze mój kod do sterownika oświetlenia, który mam w pokoju, jest to część odpowiedzialna za włączanie i wyłączania poszczególnych kanałów, sterowanych oczywiście z portów procka....
zrobilem ten czytnik kodu rc5 za pomoca czujnika tsop1736 i lcd alfanumerycznego: $crystal = 8000000 Config Lcd = 24 * 2 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.6 , Rs = Portb.7 Config Pind.5 = Output Config Rc5 = Pind.6 Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(address...
Witam! Mam pytanko, co dokładnie oznacza linia kodu zaznaczona BOLDEM (pogrubiona), po co ona jest i co się stanie jak jej nie będzie i ostatnia rzecz. Jeżeli np: 1. nacisnę przycisk "1" na pilocie i uC sczyta to jako command 255 i Adress 2 to jezeli napisze IF command=255 and adress=2 then pb1=1 to czy wystawi Hi stan na tym pinie? dzięki i pozdrawiam...
Witam, Narysowłem schemat jak chciał "adamek300vip" Schemat: http://obrazki.elektroda.net/8_123331279... Wsad do ATmegi: $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config Rc5 = Pind.2 Dim Address As Byte...
Czesc ! Dzieki za podpowiedz. W koncu udalo mi sie cos stworzyc .Wyglada to mniej wiecej tak: Wy1 Alias P1.2 Wy2 Alias P1.3 Dim Command As Byte , Subaddress As Byte Config Lcd = 20 * 2 Reset Tcon.0 Wy1 = 0 Wy2 = 0 On Int0 Receiverc5 Enable Int0 Enable Interrupts Cls Lcd "Waiting for RC5 " Wait 1 Cursor Off Do Wy1 = 0 Wy2 = 0 Waitms 100 Loop Receiverc5:...
po Rc5send Togbit , Address , Command 'wysyłanie rc5 daj waitms 250, w warunkach równe 0 a nie jeden włącz pull-up-y i przyciski pomiędzy pinem a masą
Z tego co mi się wydaje, to to jest poprawna wersja kodu: $crystal = 10000000 $baud = 9600 Dim Command As Byte , Adress As Byte Dim Tempcommand As Byte , Setcommand As Byte Dim Registered_adress As Byte Dim Togglebit As Bit Config Rc5 = Pind.2 Config Port.2 = Input Config Portb = Output Declare Sub Get_rc5 Declare Sub Sendcommand Declare Sub Address_registration...
Tak poprawiony kod działa jak należy: [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal = 1000000 Dim Togbit As Byte , Command As Byte , Address As Byte Config Portd.3 = Input Config Portd.4 = Input Config Portd.5 = Input Portd.3 = 1 Portd.4 = 1 Portd.5 = 1 Do If Pind.3 = 0 Then Command = 1 'kod włącz/wyłącz Togbit = 0 'wyzeruj toggle bit Address...
maly.borkowo Myślę, że to rozwiąże Twój problem ;) If Address = 0 And Command = 87 Then Incr Wejscie Set Porta.2 Waitms 500 Reset Porta.2 Command = 0 End If
Witam. Próbuję zrobić z µC - atmega8 - i diody odbierającej sygnały w podczerwieni, urządzenie co będzie wyświetlało na wyświetlaczu LCD otrzymany adres po przyciśnięciu przycisku na pilocie i komendę. Mój problem tkwi w tym, że urządzenie co odbiera sygnał w podczerwieni moim zdaniem nie przesyła żadnych danych do µC. Posiadam takie coś :...
Hmm, sprawdź takie kody (sprawdzane na tych prockach co są wpisane, zmień po prostu $crystal i $regfile, podłącz się do tych pinów co są napisane w programach lub je zmień. Nadajnik: $regfile = "2313def.dat" $crystal = 11059200 Const Reserved = 7 Const Bank = 6 Const Togglebit = 5 Dim Address As Byte , Command As Byte , Modebit As Byte Address...
Witam! Mam mały problem z odczytem rc5 na atmega88pa. Program bez problemu działa na atmega8 ale już na atmega88pa nie działa. Kontroler jest nowy. Do odczytu używam tych samych odbiorników rc5 TSOP34836. Wyjście odbiornika podpięte bezpośrednio do portd.2, między GND a Vs jest kondensator 100u i Vs jest podpięte do +5V z rezystorem 220ohm. Proszę o...
Witam, projektuje wlasnie sobie wylacznik swiatla na pilota. Oto programik: $regfile = "attiny13.dat" $crystal = 4000000 Config Portb.4 = Output Config Rc5 = Portb.1 Dim Address As Byte , Command As Byte Do Getrc5(address , Command) Command = Command And &B01111111 Waitms 100 If Address = 0 And Command = 1 Then Portb.4 = 1 End If If...
Witam Procesor DS89C420 Odbiornik podczerwieni TSOP1736 Podpinam odbiornik pod port P3.2 Diody przez tranzystory pod P1.1 i P1.2 Wgrywam program przedstawiony niżej i nic się nie dzieje. Ma to działać na przyciski podgłaszania pilota na RC5 (ja mam od elemisa) Gdzie popełniam błąd??? Pomocy!!! $crystal = 11059200 Config Rc5 = P3.2 Led1 Alias P1.1 Led2...
Witam, Na wstępie chciałbym powiedzieć, że zanim zdecydowałem się napisać ten post, używałem szukajki na tym forum i wujka google ale bez pozytywnych rezultatów (przeczytałem bardzo wiele tematów i skopiowałem wiele kodów). Przejrzałem także plik Help w Bascom. Problem polega na tym, że funkcja getrc5 zwraca zawsze wartości adresu = 255 oraz komendy...
czy moze to byc problem z tym ze mam demo Bascoma???? załaczam kod do prostego programowania jednego klawisza z pilota RC5, pominalem tutaj regulacje grupowa, zeby nie kompilkowac. __________________________ Wait 1 Dim Kod As Bit Dim E As Integer Dim Command As Byte Dim Address As Byte Dim Adr1 As Byte Dim Com1 As Byte D1 Alias P3.5 D2 Alias P1.2 D3...
Witam Prosze sam kiedyś potrzebowałem taki odbiornik więc napisałem taki prosty programik. '---------->Shevu<---------- 'Odbiornik RC5 by Shevu $crystal = 800000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = Portd.4 , E = Portd.3 , Rs = Portb.4 Config Rc5 = Pind.2 Config Portc = Output Dim Adress...
Witam, pewnie zaraz mnie tu zbluzgacie za błahy temat, ale co mi tam. Na swoją obronę powiem tylko tyle, że przeszukałem elektrodę wzdłuż i wszerz i nie znalazłem rozwiązania, przetestowałem wszystkie możliwości i nic:/ Chodzi mi o pomoc w napisaniu prostego programu który będzie odbierał kory Rc5 za pomocą odbiornika TSOP 1736, jak pisałem wcześniej...
Witam.Z natury jestem człowiekiem leniwym więc postanowiłam zrobić sobie wyłącznik oświetlenia rc5.Wybór padł na attiny13 (bo mam pod ręką) i tsop1736.Całość ma być sterowana z pilota uniwersalnego za pomocą rc5.Napisałem kod i pojawił cię problem przy sprawdzeniu programu: błąd: "error:22 line:23 out of sram space " program: [syntax=basic4gl]$regfile...
Z poniższego proponuję pozbyć się Cls: If Strona = 2 Then If Downigora = 1 Then Cls Pod_2_strona End If End If A dalej zrobić zmiany w takim stylu: Sub Pod_2_strona: Dim i As Byte If Address = 0 And Command = 1 Then Waitms 100 Toggle Portb.1 End If If Address = 0 And Command = 2 Then Waitms 100 Toggle Portb.2 End If Locate 1 , 1 Lcd "Back MENU...
$crystal = 4000000 'deklaracja częstotliwości pracy kwarcu $regfile "attiny2313.dat" 'model procesora dla którego jest ten program Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32 ' definicja znaki stopnia Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Pd.6 , Db5 = Pd.3 , Db6 = Pd.4 , Db7 = Pd.5 , E = Pd.1 , Rs = Pd.0 Cursor Off Cls...
napisalem cos takiego: Config Rc5 = Pind.2 Config Portb = Output Dim Address As Byte Dim Command As Byte Address = 0 Command = 0 Enable Interrupts Enable Int0 Do Waitms 20 Getrc5(address , Command) If Address > 1 Then Cls Lcd Address ; ":" ; Command Cursor Noblink End If Loop End na wyswietlaczu mam: 255:255 przy nacisnieciu na pilot cyferki mrugaja,...
mój błąd,miał być PORTB.1 [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 8000000 Config Pinb.1 = Input Config Pinb.4 = Output Config Rc5 = Portb.0 $hwstack = 20 $swstack = 10 $framesize = 40 Dim Address As Byte , Command As Byte Enable Interrupts Do 'pętla nieskończona If Pinb.1 = 1 Then 'jeżeli przycisk 1 wciśnięty Toggle PORTB.4 'zmień stan...
no dobra ale jak to wpisać If Address = 3 And Command = 1 Then ??? pomocy bo nigdy nie widziałem jak wygląda kod w bascom-ie i czy girder ma jakieś powiązanie z tymi kodami . Tak na szybko wrzucam kawałek programu sterującego oświetleniem w pokoju. Pilotem RC5 mozna włączać i wyłączać 5 lamp. $regfile = "m8def.DAT" $crystal = 8000000 Config...
Fudebity dla megi, czy dla Tiny? Czy ta procedura zawiera komendy? /*pod spodem fragment kodu piórnika wersji Kriss'a kod pilota wysyła odpowiednio kody RC5 10, 20, 30, 40 dla pewności załączam oba kody w bascomie */ Sub Ustaw_czas Cls Lowerline Lcd " Ustaw godzine " Do Getrc5(address , Command) Command = Command And &B01111111 Select...
Ten program jest taki, że nie wiadomo od czego zacząć poprawiać. Najlepiej byłoby go napisać od nowa :D Niemniej poprawiłem to co ewidentnie musiało być poprawione. Tak na marginesie to nie wiem co za magik wymyślił te ponowne włączanie przerwań w obsłudze przerwania po to tylko by odebrać kod RC5 w przerwaniu. Ludzie to małpują i kłopoty gotowe. Sprawdź...
$regfile = "m168def.dat" ' specify the used micro $crystal = 12000000 ' used crystal frequency Dim Togbit As Byte , Command As Byte , Address As Byte Command = 1 'kod włącz/wyłącz Togbit = 0 'wyzeruj toggle bit Address = 0 Do Waitms 500 Rc5send Togbit , Address , Command Loop Na tym też TV nie reaguje :/
Jak pisałem - program banalny, ale zamieszczam: $regfile = "m8def.dat" $crystal = 4000000 Dim Togbit As Byte , Command As Byte , Address As Byte Command = 6 Togbit = 0 Address = 25 Do Waitms 500 Rc5send Togbit , Address , Command Loop End Co do układu - kwarc z kondensatorkami, standardowo, wyjście sygnału z 15 łapy mikrokontrolera (PB1) dalej...
Witam.Od dwóch dni bawię się rc5 i nie mogę zestroić odpowiedniej komendy z pilotem. Odbiornik jest zbudowany na attiny13.Postanowiłem zrobić pilot na attiny45(bo mam w domu). Pilot powinien nadawać komendę 2 adres 0 napisałem program na attiny2313 ale przerobiłem go na attiny45 i wyskakują błędy przy sprawdzeniu oto kod: [syntax=basic4gl]$regfile =...
Rozumiem a czy któs z WAS mógłby zerknąć i powiedzieć mi co mam tutaj zmienić. Dim Adress As Byte , Command As Byte Dim Odebrano As Bit , Flaga As Bit Dim X As Byte Config Pind.2 = Input : Portd.2 = 1 Config Timer1 = Timer , Prescale = 8 'co 2usek przy 4MHz Stop Timer1 On Timer1 Przer Config Int0 = Low Level On Int0 Rc Enable Int0 Enable Timer1...
Poprawiłem ten kod według wskazówek i działa z instrukcją case w podprogramie oraz z taką samą instrukcją w pętli głównej. Kod programu z Instrukcją case w podprogramie [syntax=basic4gl]'Projekt sterownika na podczerwień '12 kanałów binarnych sterowanie załącz/wyłącz 'oraz 2 kanały sterowane sygnałem PWM do regulowania 'układ posiada system chłodzenia...
Coś jest jednak nie tak z tym LCD. Inicjacja przebiega normalnie, ale nie reaguje na wprowadzane dane. Za każdym razem wyświetla się takie coś jak na zdjęciu, ale z różnymi odcieniami. Nie ma znaczenia czy spróbuje go wyczyścić czy nie. http://obrazki.elektroda.net/34_12413447... Funkcje inicjujące wyglądają tak: // Wysłanie danych do LCD....
Witam! Znalazłem w helpie bascoma programik, który jak mi się zdaje, generuje nośną i kod rc5. $regfile = "m8def.dat" $crystal = 4000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Dim Togbit As Byte , Command As Byte , Address As Byte Command = 12 Togbit = 0 Address = 0 Do Waitms 500 Rc5send Togbit , Address , Command Loop End...
Dziękuję za odpowiedź :) Linijka Enable Interrupts pomogła i przerwanie menu działa prawidłowo. W poprzednim kodzie zamieniłem miejscami wyrażenia w nawiasie w instrukcji Getrc5. Po przemyśleniach kod wygląda tak: $regfile = "m32def.dat" $crystal = 16000000 Enable Interrupts Enable Int0 On Int0 Menu Dim Sekunda As Byte , Minuta As Byte , Godzina...
Witam jestem poczatkujacy w mikrokontrolerach ale moze zastanowisz sie nad IR zobacz mamy przyklad (RC5) Dim Togbit As Byte , Command As Byte , Address As Byte Command = 12 'kod włącz/wyłącz Togbit = 0 'wyzeruj toggle bit Address = 0 Do Waitms 500 Rc5send Togbit , Address , Command Loop End hmm wystarczy kilka sw i po wszystkim. Sw bedzie zmienialo...
Witam mam bardzo długi kod , a będzie jeszcze dłuższy $crystal = 8000000 Config Portb.0 = Output Config Portb.1 = Output Config Portb.2 = Output Config Portb.3 = Output Config Portd.7 = Output Config Portd.6 = Output Config Portd.5 = Output Config Portd.4 = Output Config Rc5 = Pind.2 Led Alias Portb.1 Bsk Alias Portb.0 Modee Alias Portb.3 Snap Alias...
Cały dzień zmagam się z problemem uruchomienia pwm na attiny13 i sterowanie nim poprzez RC5. Wcześniej już prosiłem o porady na temat pwm i udało mi się w końcu osiągnąć cel. Mianowicie uruchomiłem pwm na attiny13 i udało mi się ściemniać i rozjaśniać diodę na płycie testowej sterując dwoma przyciskami. Teraz czas na sterowanie przez RC5 i zaprzęgnięcie...
Witam. Mam pewien problem chciałbym włączać i wyłączać z pilota i na klawiszu tą samą funkcje. Wszystko fajnie tylko chciałbym uniknąć powtarzanie się kilku linijek kodu. Próbowałem i nie wymyśliłem. $regfile = "m8def.dat" 'Dyrektyway dla kompilatora. $crystal = 8000000 Config Rc5 = Pind.3 Enable Interrupts Cursor Off Noblink Config Portb.0...
to jest mój kodzik wiecie może co jest nie tak ? $regfile = "m8def.dat" $crystal = 8000000 Config Rc5 = Pind.2 Config Portc.0 = 1 'tu jest ta dioda lecz nawet nie mignie:( Portc.0 = 0 Enable Interrupts Dim Address As Byte , Command As Byte Do Getrc5(address , Command) If Address = 0 Then Command = Command And &B01111111 Portc.0 = 1 Waitms 500 Portc.0...
czy układ z getrc5 powinien reagować na piloty inne np sony chodzi mi o to czy powinien pokazywać jakieś śmieci nie mam jeszcze pilota rc5 może ktoś podeśle działejący kod pod 8515 zibi11(at)xl.wp.pl $regfile = "8515def.dat" Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6 Config Lcd =...
Witaj WOBI, dzięki za zainteresowanie. Nie mogę sobie poradzić ztym co mi podesłałeś. Muszę odczytywać Address oraz Command i wysyłać przez RS. Zbudowałem układ testowy. Taktowanie zewnętrzne, wszystko podpięte wg. noty odbiornika TSOP31236. I ciągle Address: 255, a Command: 127. Zrobiłem nawet prosty kod do odczytu, lecz nadal ten sam efekt. Czy mógł...
Witam mam za zadanie sterować jasnością 3 diod przez pilot RC5i na wyświetlaczu ma się wyświetlać stan. Na timerze 1 steruje pwm1a i pwm1b i jest w porządku zmienia się jasność. Problem ze sterowaniem 3 diodą (TIMER2), ona nie reaguje gdy wysyłam kod 6 lub 9, mrugnie jednorazowo tylko wtedy gdy wysyłam dowolną komendę do tmfs5360. Jasność tej 3 diody...
Apropo tej "niestabilności" to już sobie z tym poradziłem :P Został problem zawieszania się GETRC5. Nie chcę wstawiać i męczyć się nad ASM bo cholernie mi się z tym śpieszy. Jeśli istniał by jakiś sposób "naprawienia" tego problemu to bym był w 7. niebie. ----------------------------------------... $crystal = 8000000...
Witam :) Układ zmontowany na bateryjce z biosu (3V) pod 15 nóżkę attiny2313 podpiąłem "-" z diody IR, + diody idzie bezpośrednio do bateryjki (bez żadnego opornika). Między masę attiny (10 noga) a "-" baterii wmontowałem włącznik. Noga 20 attiny prowadzi bezpośrednio do + baterii. Patrząc pod obiektywem aparatu cyfrowego dioda IR na początku świeci...
Czyli tak, kodowanie manchester to nic innego jak RC5. Kiedyś robiłem, nie będzie problemu z odbiornikiem (chyba). W helpie bascoma znalazłem przykładowy program nadawania: [syntax=basic4gl] $regfile = "2313def.dat" $crystal = 4000000 config Portc.1 = input Dim Togbit As Byte , Command As Byte , Address As Byte Command = 12 'kod włącz/wyłącz Togbit...
Kompilator (BASCOM 8051 ver. 2.0.11 - DEMO) wykrzacza się na poleceniu GETRC5 (gdziekolwiek by nie było w programie zawsze jest błąd na końcu). Co ciekawsze kiedyś się to kompilowało. Sprawdzałem na różnych systemach i ciągle jest to samo. Dotyczy to również przykładów zawartych w kompilatorze. Może potrzebana jest jakaś dodatkowa biblioteka albo coś...
Znalazłem swój program w którym jest: Do Disable Int0 Enable Interrupts Getrc5(address , Command) Command = Command And &B01111111 Call Lcdinit Str_address = Str(address) Str_address = Format(str_address , "" ) Str_command = Str(command) Str_command = Format(str_command , "" ) Lcdclear Lcdgoxy...
Witam koleżeństwo . Potrzebuję pomocy przy sterowaniu silnikiem (potencjometr ALPS) przy pomocy podczerwieni (RC5). Z racji że już od kilku lat sie nie zajmowałem mikrokontrolerami to mam lekki problem. W zestawie attiny 2313 , sterownik silnika L293 i standardowy odbiornik podczerwieni. Zastosowałem standardowy sposób odbioru kodu i mam problem . Po...
Zastosowałem się do rad Kolegi Saabotaz i Piotrva. Kod wygląda tak: Cls powoduje, że procesor w ogóle nie pracuje - tzn nie reaguje na RC5 ani na zwieranie wejść ? Wolałbym nie używać Cls , bo jego brak oszczędza 13% miejsca pamięci programu
Witam. Temat był już poruszany, ale "umarł" nim padła jakaś konkretna odpowiedź. [url=http://www.elektroda.pl/rtvforum/to... Próbuję odebrać kod z pilota RC5. [syntax=basic4gl] $regfile = "attiny2313a.dat" $crystal = 4000000 Cursor Off $lib "mcsbyte.lbx" Config Rc5 = Pind.3 , Wait = 4000 Enable Timer1 Enable Interrupts Dim Address As...
Ok dzięki za podpowiedź, zmieniłem program i tamto miejsce gra - przeszło bez błędu, natomiast zawiesił się teraz na końcu programu przy komendzie END SUB... co teraz zrobić? Sub Switch Select Case Licznik Case 1 : Relay1 = Not Relay1 Case 2 : Relay2 = Not Relay2 Case 3 : Relay3 = Not Relay3 Case 4 : Relay4 = Not Relay4 Case 5 : Relay5 = Not Relay5...
przeanalizuj sobie dobrze ten kdzik poniżej bo on jest dobrze napisany - naprawdę ;) ja wprawdzie kiedyś przy okazju swojej wytrawiarki też zrobiłem sterowanie w Bascomie 2 odbiorników przy 75 krokach ale dałoby radę więcej kroków i jeszcze kilka odbiorników. Z tym, że już nie pamiętam dokładnie zagadnienia więc trudno mi się teraz znowu w to wgryzać....
Cześć, jeśli nie dotarło do Ciebie to co jest w Helpie to chyba nikt już nie da rady lepiej wyjaśnić. Help zawiera schemat podłączenie i gotowy program do w grania. Wykonaj układ zgodnie ze schematem wgraj przykład i baw się dobrze. Powodzenia $regfile = "2313def.dat" $crystal = 4000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize...
Pierwsze do czego się przyczepie to masakryczny pierwszy kod. Tak się tego nie robi... $regfile = "m32def.dat" ' mega32 $crystal = 16000000 Config Pind.5 = Output 'dioda pod pin 5 portu D Config Pind.6 = Input ' tsop pod pind.6 Set Portd.6 Config Rc5 = Pind.6 Dim Address As Byte , Command As Byte , Togglebit As Bit ' zmienne Enable Interrupts...
Nie napisałeś , że ten pilot nie pracuje w kodzie RC5 , ale też nie napisałeś , że w tym kodzie pracuje :wink: Inna wersja Twojego programu: $regfile = "m32def.dat" $crystal = 8000000 '11059200 Dim Adress As Byte , Command As Byte , X As Byte , Tmpcode As Word Dim Odebrano As Bit , Flaga As Byte Config Pind.2 = Input : Portd.2 = 1 Config...
Witam ! Napisałem program na Atmegę8 do zdalnego sterowania kodem rc5. Na początku wszystko jest ok mikrokontroler uczy się dwóch kodów , pierwszy kod to włącz drugi wyłącz kiedy przechodzi do trybu pracy pierwszy kod załącza diodę drugi ją wyłącza i następuje zawieszenie .Proszę o podpowiedź gdzie tkwi bład . Z góry dziękuję . Załączam listing z programem:...
Witam. Nadmieniam, że czytałem już kilka wątków i stosowałem metody rozwiązania problemu, jednak nie pomogło mi to;/ Do rzeczy - buduję samochodzik zabawkę, sterowany pilotem w kodzie RC5. NIestety bezskutecznie. Odbiornik podczerwieni - tsop1736, zasilanie podpięte przez szeregowy rezystor 220omów i kondensator 100u. W pierwotnej wersji, wyjście odbiornika...
SJA traktujesz jako zewnętrzną pamięć RAM, tak tez go podłaczasz do procesora i przesyłasz dane. Podaje przykładową procedurę inicjalizacji w Bascomie dla 8051 na 100kbit/s, CAN 2.0A, akceptuje wszystkie ID : [syntax=asm]Head_sja: Reset P2.7 'Reset sprzetowy Waitms 10 Set P2.7 Waitms 5 Reset P2.4 'ChipSelect Adres_sj = 0 'control Danaa_sj = &H1B Gosub...
A poniżej obiecany działający kod: [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 16000000 Config Portd = Output Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.2 = Output Config Pinc.1 = Input Config Timer2 = Timer , Prescale = 256 Declare Sub Pobr_znaku(cyfra As Byte) On Timer2 Mult_wysw Dim A As Byte Dim B As Byte Dim C As Byte Dim...
Cały mój program wygląda tak: [syntax=vbnet][/syntax] $regfile = "m48pdef.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config Lcd = 16 * 2 Set portb.6 Set Portb.7 Set portd.5 Config PIND.0 = Input Config PIND.1 = Input Config PIND.3 = Input Config PIND.4 = Input...
Witam. Borykam się z problemem odbioru sygnału w podczerwieni. na razie prosty program obsługi kodu RC5. Schemat układu zamieszczam poniżej, układ zgodny z książką: "Programowanie mikrokontrolerów AVR w języku BASCOM". Program też zgodny z listingami z książki. http://img259.imageshack.us/img259/7086/... (Odnośnie schematu, jest dołączony...
Łap. W Tiny13 ma 460 bajtów i nie zajmuje nawet połowy. Zostawiłem Tobie tam jeszcze kilka bajtów RAM a podstawowe funkcje kodujące i repeat masz więc możesz się pokusić o więcej przycisków, albo nawet klawiaturę na ADC ;) To jest takie najkrótsze demo z jedną komendą ON/OFF dla telewizora. [syntax=vbnet]'*************************...
OK, problem rozwiązałem, problem polegał na tym, że pilot ma przyciski "CD", "FM", "MW" i "AUX". Naciskając przypadkowo przycisk "FM" zmieniłem nadawane adresy i komendy, żeby wszystko wróciło do normy musiałem nacisnąć przycisk "CD". Jak widać więcej osób zgodziło się, że nie zrozumiało postu, więc przepraszam za nieścisły język. Program do testowania:...
Witam, mam problem ze znalezieniem błędu w programie. Program ma pracować w 2 trybach: nauki pilota oraz normalnym. W trybie normalnym po przyciśnięciu przycisku pilota (wcześniej nauczonego) powinien zostać załączony/wyłączony przekaźnik. Problem polega na tym, że w trybie normalnym przekaźnik reaguje na każdy przycisk pilota, a nie na ten, który jest...
waitms timer0 attiny waitms atmega8 waitms
kabel czwórkowy poleca pralka alternator regulator toyota
ultimate speed prostownik ultimate speed prostownik
Lokalizacja iskrownika i impulsatora w Piaggio X8 125 2006 Iveco: Kod błędu EBC 40B10 05 119 - przyczyny i rozwiązania