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...
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...
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...
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
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...
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....
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ź...
Proszę. Kod masz taki, delikatnie pisząc, rozwlekły :D Trochę poskracałem zmieniane fragmenty. Sprawa jest nieskomplikowana. Kiedy naciskasz przycisk wyboru wyjść to czeka aż puścisz przycisk bo inaczej to od razu by z tej procedury wyszedł. Czeka więc aż puścisz i potem powtórne wciśnięcie spowoduje że zmienna Exit_this dostanie wartość 1 a to jest...
Ł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]'*************************...
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ć....
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...
nadajnik: [syntax=basic4gl]$regfile = "M8def.dat" $crystal = 16000000 $baud = 19200 $hwstack = 40 $swstack = 20 $framesize = 40 '=== Declare sub routines Declare Sub R_register(byval Command As Byte , Byval C_bytes As Byte) Declare Sub W_register(byval C_bytes As Byte) '=== Constante === 'Define nRF24L01 interrupt flag's Const Idle_int = &H00 'Idle,...
a jesli powiem ze tak tez próbowałem tylko ze odczyt z kodów z rc5 trwa z przerwą 600ms która musi byc pomiedzy odczytem a konwersją temperatury z ds1820 :( Jakoś nie widzę problemu. Przecież Int0 ma wyższy priorytet niż DS. Jerśli istnieją jakieś konflikty to należy zablokować przerwanie Int0 na czas inicjacji DS'a i odczytu temperatury. W trakcie...
Podejrzewam że problem jest z odbiorem danych z pilota. BASCOM i GETRC5 nie za bardzo sobie z tym radzi. No i czy masz na pewno pilota RC5? Dodano po 1 Zobacz to: [syntax=basic4gl] $regfile "m8def.dat" 'konfiguracja mikroprocesora $crystal = 4000000 'konfiguracja kwarcu Config Portb = &B11111111 Portb = &B11111111 Config Portc = &B1111101...
Prześledź to: (co zbyteczne, wyrzuć. Mega 8 daje radę) '-----------LCD for Nokia 3310 and Mega AVR-------------------------------------... ' 'Based on Louis Frigon program in C: "Nokia LCD Library" at www.microsyl.com 'and 'Darek Dobrowolski program in Bascom: "Wysterowanie wyświetlacza LCD LPH7779(Nokia 3310) przez ATmega128L...
http://obrazki.elektroda.net/14_12519047... Witam! To mój pierwszy DIY i chciałbym się nim pochwalić. Ostatnio z racji nagłej potrzeby sterowania światłem na odległość wykonałem taki prosty układzik w oparciu o ATTINY2313 (bo taki był pod ręką) jest to zdalnie sterowany wyłącznik. Do sterowania wykorzystano pilota od tunera "telewizji na kartę"...
A jak jest ustawione w programie dla ATmegi? Ustawione jest 38400 bps. Tak jest na początku kodu żródłowego. [syntax=bash]'FUSES uc:m8, hfuse:C9, lfuse:FF, External Crystal Oscillator 3-16MHz '*********** uC Configuration ***************** '***************************************... $regfile = "m8def.dat" $crystal = 16000000 $hwstack = 48 $swstack...
http://obrazki.elektroda.pl/9151953900_1... Założenia projektu: - obsługa wszystkich funkcji dostępnych z klawiszy sterujących magnetofonu, - wyświetlenie nazwy aktualnie wykonywanej funkcji na wyświetlaczu LCD, - wykorzystanie fabrycznego pilota zdalnego sterowania, - zasilanie układu z zasilacza magnetofonu, - możliwość podłączenia...
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...
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...
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...
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, 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...
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...
https://obrazki.elektroda.pl/8443317300_... Dzień dobry, Tym razem chciałbym się pochwalić moją dwudniowym projektem jakim jest mały dwu-kanałowy pilocik RC5. Mój tak naprawdę jest tylko w drobnej części, bo sam program napisał "bart-projects" ( https://obrazki.elektroda.pl/5129813300_... https://obrazki.elektroda.pl/9231548100_...
https://obrazki.elektroda.pl/8522574900_... Chciałbym Wam dzisiaj udostępnić krótki opis nadajnika IR w standardzie NEC wraz z odbiornikiem. Cały zestaw składa się z pilota, odbiornika TSOP, diody IR oraz 3 przewodów. Zestaw ten można zakupić już poniżej 1$ wraz z przesyłką. Wymiary pilota to ok. 85x40x6,5mm, wymiary odbiornika 20x15x13mm....
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...
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...
Rc5: ( przykladowy podprogram ) Command = 12 Togebit = 0 Addres = 0 Do Rc5send Togebit , address , command Waitms 250 Loop Until S1 = 1 Return Proszę stosować znaczniki
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...
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...
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...
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...
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...
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...
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...
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ć...
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...
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...
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...
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. 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...
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 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...
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...
ds18b20 waitms waitms pętle waitms timer0
volvo silnika lexia xsara komputerowy system pomiarowy
samochody elektronika beninca heady
Dekoder Opticum H255 zablokowany na BOOT - jak odblokować? Zastosowania tabletu MODECOM 9702: Internet, multimedia, GPS