Najprościej jak się da: Do Set portb.0 Waitms 750 Reset portb.0 Wait 2 Set portb.0 Waitms 750 Reset portb.0 Wait 2 Set portb.0 Waitms 750 Reset portb.0 Wait 2 Set portb.0 Waitms 750 Reset portb.0 Wait 2 Set portb.0 Waitms 750 Reset portb.0 Wait 1800 Loop Tylko, że to dokładne co do sekundy nie jest... Poślizg mniej więcej ~1 minuta +/-
No to przecież program powyżej obsługuje dokładną regulację. W pętli głównej przed LOOP dopisz np WAITMS 100. Wczoraj o tym zapomniałem. Więc procesor zbyt szybko zwiększa/zmniejsza szybkość i wychodzi ci to tak, jakby silnik miał tylko 2 prędkości. Użycie waitms jest prymitywne ale nie wiem co twój program ma jeszcze robić więc idę na łatwiznę i nie...
Jest to kawałek kodu w bascomie dla atmega8, może coś pomoże: **Podprogram konfiguracji** Sub Konfig Cls Pwm1a = 200 'to od podświetlenia lcd Lcd "USTAWIENIA" Locate 2 , 1 Lcd " PROGRAMU" Wait 2 Cls Lcd "Przycisk START" Do Getrc5(address , Command) Command = Command And &B01111111 If Adress <> 255 Then...
Tak ale on sie nie sypie z powodu drgań styków tylko sprawdzania przez procesor dwóch IFów:). Czyli : zaznaczyłem (***) Wtedy gdy kręci pętle . Na pewno da sie to jakoś (zapriorytetowac) aby najpierw sprawdzał pierwszego IFa. Tylko nie wiem jak. Bo to ma wygladać tak że jak kliknę raz to dioda miga 3 razy, a jeżeli będe nadal trzymał przycisk to ma...
_-kod-_ w bascomie avr $sim $regfile = "ATtiny13.dat" $crystal = 4000000 Dim Licz As Iram Byte Config Portb.4 = Input Config Portb.3 = Input Config Portb.1 = Output Set Portb.4 Set Portb.3 Do If Pinb.4 = 0 Then Waitms 25 If Pinb.4 = 0 Then Incr Licz End If End If If Licz = 30 Then Do Set Portb.1 nop Waitms 20 Loop Until Pinb.3 = 0 Licz = 0...
Może coś źle wpisałeś... Dim a as bit powiino być na początku programu poza blokiem do : loop : end Cały kod powinien wygladać tak: ' Demo-Z wykorzystaniem wyś led orz pd6 Config Portb = 255 'wszystkie końcówki jako wyjścia Portb = &B01111111 'umożliwia zaświecenie kropek Config Portd = &B1111100 'dwa najmłodsze bity - wejścia Portd = &B1111111 'stan...
Jak użyć timera (tzn. jak wyciągnąć z niego np zmienną dodawaną, lub resetowaną co określony czas?) Boję się jeszcze TIMERów :) Nie ma się czego bać. Oto prosty programik, który na pewno pomoże. 796182 Jednak dziwię się dlaczego nie używasz sprzętowego PWM. Attiny 2313 posiada ich cztery. Na każdym z timerów po dwa. [syntax=vbnet]Dim R As Integer Dim...
Po ciężkich zmaganiach z metodą losową dla kolorów postanowiłem porzucić ten pomysł i zastosować przewidywalny sposób który będzie się powtarzał co jakiś czas. Może i nie jest to rozwiązanie pierwsza klasa, ale działa. Nie stosowałem jednak korekcji gamma, bo przy rozdzielczości PWM 8 bitów i zastosowaniu płynnego rozjaśniania było widać przeskoki (mruganie)...
Witam ponownie ! Kiedyś gdzieś czytałem że projekt z Bascoma 8051 można przenieść do Bascoma AVR i wjakiś sposób automatyczny przerobić listing pod AVR (ATtiny2313) Pozdrawiam. Stefan Ps. Jeśli będziesz miał problem a nie "pali się" to popróbuję ten listing przerobić na ATtiny2313. Już udało mi się przerobić na AVR (ATtiny2313) 'przerobiłem, kompiluje...
Witam Chciałem zbudowac układ który liczył by 0-9 i wyświetlane to było na siedmiosegmentowym wyświetlaczu... .......... prosze o pomoc i o jakies proste wytłumaczenie moich błędów. myslalem jeszcze o robieniu tego za pomoca rozkazu INC i dodawania tylko nie wiem jak zawartośc rejestru wystawic na wyjscia z gory dziekuje za pomoc pozdrawiam Tu masz...
Witam, niestety ale chyba coś jest nie tak? Na wstępie należałoby wyjaśnić że nie ma czegoś takiego jak "automatyczne przeładowanie timera" (reload/load timer1 powiedzmy). Termin ten jest związany z procedurą konfiguracji timerów występującą tylko w trybie "Normal", gdzie każdorazowo początkowa wartość timera musi być wpisana przez processor. Taka...
Komenda shiftlcd left tego nie zrealizuje Niby dlaczego? Problem będzie tylko, gdybyś chciał wykorzystać inne linie do czegoś innego. Tu masz przykładowy program, korzystający z pamięci EEPROM: $eeprom Data "Baaardzo d{003}uuugi napis.!Jest zapisany w pami{002}ci EEPROM. W ATTiny 2313 mo{007}e mie{001} do...
Witam forumowiczów, Swego czasu mojej znajomej zainstalowano bramę przesuwną z napędem. Na pytanie o opcję częściowego otwierania, czyli tzw. opcję furtki powiedzieli, że się nie da. . . . . Hłe, hłe nie da :) Pomyslałem, przeanalizowałem i zrobiłem. Działa bezbłędnie. Teraz znowu powtórka z rozrywki. Szwagier postanowił zmienić stary, wysłużony i niestety...
Z wyłączeniem /8 sobie poradzę, ale nawet gdyby miał pracować z częstotliwością 1MHz, to co najwyżej zmienię waitms w kodzie. Nie ma sensu przyspieszać i zwiększać zużycie energii. Ziarnko do ziarnka ... i jedną elektrownie moglibyśmy wyłączyć :)
http://obrazki.elektroda.pl/9303655200_1... Witam, Tu: http://www.elektroda.pl/rtvforum/topic33... znajduje się opis powielacza czasu automatu schodowego. Obiecałem tam, że na bazie tamtego układu opracuję „inteligentny” automat schodowy, i oto jest :). Jego „inteligentność” jest zawarta w założeniach...
Eksperymenty związane z EKG Od dawna uważałem za interesujące rozważania o własnych systemach EKG. Szczególnie interesują mnie rozwiązania niedrogie i łatwe w konfiguracji. W tym artykule przedstawiono kilka sposobów wykorzystania tej techniki. Ale najpierw coś podstawowego: Ze względu na bezpośredni kontakt elektrod EKG z ciałem, wszystkie elementy...
http://obrazki.elektroda.pl/6151182100_1... Witam wszystkich, zapewne większość forumowiczów ceni sobie prywatność, a może nawet ma młodsze rodzeństwo które niczym siostra Dextera sieje spustoszenie w jego wynalazkach i za nic ma wszelkie zakazy grzebania w nie swoich rzeczach. Tak właśnie zrodził się pomysł stworzenia prostego zabezpieczenia...
A jak na timerze w bascomie co ś takiego przerobić?? na attiny 2313 set portb.4 waitms 2.2 set portb.5 waitms 3.3 reset portb.4 waitms 2.2 reset portb.5 waitms 3.3
No tak, tylko że w tym twoim attiny13 nic się nie zmieści, żadna deklaracja zmiennej. Dodano po 1 Masz tu: $regfile = "attiny25.dat" $crystal = 1200000 Config Portb = &B001000 Portb = &B110111 Dim X As Integer X = 0 Do Debounce Pinb.0 , 0 , Czas1 , Sub Debounce Pinb.1 , 0 , Czas2 , Sub Debounce Pinb.2 , 0 , Czas3 , Sub Loop End Czas1:...
Z tego co wiem transmisja radiowa w przez moduły RFM01 i RFM02 odbywa się poprzez magistrale SPI. Takie może retoryczne pytanie, jeśli w Attiny2313 pod piny z SPI mam podpięty LCD, to będę miał zakłócenia? Zmienić lokalizacje LCD? Próbuje radiowo połączyć attiny2313 MASTER i atmega16 SLAVE. Na początku chcę połączyć przewodami żeby sprawdzić jak działa...
Spróbój ustawić kierunki portów TxD i RxD w attiny na odpowienio wejściowy i wyjściowy-może to to. Po 2 spróbój dać większe opóźnienie po: [syntax=basic4gl]Print "MOD001" ; I1 ; "," ; I2 ; Chr(13); Waitms 1 [/syntax] Nie 1ms a może 10ms...nie liczyłem czasu wysyłania danych, ale może w ciągu 1ms dane nie zdążą przejść?
A działa ci samo PWM bez przycisków? [syntax=basic4gl] do For I = 0 To 255 Pwm0b = I Waitms 2 Next I loop[/syntax]
Ok dziekuje , a co za bledy kolega sie dopatrzyl ? prosze o wskazanie bo jestem poczatkujacym w bascom i z tymi waitms nie wiedzialem jak inaczej zrobic
Jako że zajmuję się modelarstwem rc chciałem wyposażyć mój model w światła, ale żeby nie było tak łatwo sięgam również do mojego drugiego hobby jakim jest elektronika. Więc kupiłem attiny 2313 i próbuje zrobić migacz do modelu mam nadzieje że znajdę tutaj pomoc. Będę w tym temacie opisywał moje boje i problemy pierwszym z nich jest to, że chciałbym...
Witam Wszystkich Pisze kod do zegarka binarnego (zaczynam) jestem na etapie sekund. Licznik działa ale nie włącza poszczególnych diod led. Sterowanie diod jest za pomocą multipleksowania. Skupiłem się na razie tylko na wyświetlaniu sekund jak to ruszy to reszta pójdzie łatwo. Procesor attiny 2313 kwarc 20MHz Bascom. [syntax=basic4gl] $regfile = "attiny2313.dat"...
Sterownik powstał w celu zdalnego załączania oświetlenia w pokoju. Sercem układu jest mikrokontroler ATtiny 2313, który za pośrednictwem odbiornika podczerwieni TSOP odbiera informacje, który kanał ma załączyć/wyłączyć. Sterownik reaguje na komendy wysyłane z każdego pilota do odbiornika TV w standardzie RC5. Przyciski załączające poszczególne kanały:...
Witam Napisałem swój pierwszy program wiec proszę o wyrozumiałość … Attiny cyklicznie będzie odmierzał zadany czas i po upływie tego czasu załączał przekaźnik na 1 sek Będzie również zliczał ile razy przekaźnik został załączony i wyświetlał na wyświetlaczu : Zadany czas , ilość załączeń wyświetlacza , ile czasu już upłynęło od ostatniego załączenia....
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...
Jest osiem kanałow diód, średnio na kanał wychodzi po około 500mA. Zapomniałem dopisać że sterowanie katodami nie jest bezpośrednio z ATtiny tylko poprzez Tranzystor BUZ11 $regfile = "ATtiny2313.dat" $crystal = 8000000 'kwarc 'Config Pind.2 = Input 'jezeli uzywasz przerwan to nie ustawiasz pinu jako wejscie 'caly portb jako wyjscie Config Portb = Output...
Witam Co jest złego w tym programie? [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 8000000 Config Portd.6 = Output Config Portb.0 = Output Config Portb.3 = Output Enable Interrupts Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Up Config Rc5 = Pind.2 Dim Komenda As Byte , Adres As Byte Dioda Alias Portd.6 Przek Alias...
Nie działa nawet wariant z helpa, ten sam prog na MEGA8 śmiga bez problemów a w AtTiny ani śladu sygnału na którymkolwiek porcie. Ktoś może wie dlaczego? $regfile = "attiny2313.dat" $crystal = 8000000 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...
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...
oto listing: Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Pwm1a = 251 Do If Pind.0 = 1 Then Pwm1a = 251 If Pind.0 = 0 And Pwm1a > 0 Then Decr Pwm1a Cls Lcd "pwm1a=" ; Pwm1a Waitms 21 Loop : End pod 90s2313 działa pod attiny juz nie
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...
Wersja programu ze strony autora była na Atmega 8 po zmianie kodu na Attiny 2313 wyświetla błąd. Error : 22 Line : 21 Out of SRAM space , in File : D:\Elektonika\Rejestrator DTH 11\code Attiny 2313.bas Error : 46 Line : 51 Assignment error [SENSOR_DATA: 0 "": 108] , in File : D:\Elektonika\Rejestrator DTH 11\code Attiny 2313.bas Error : 229 Line : 51...
Chce napisac program który bedzie odbieral sygnał z pilota pracującego w standardzie RC5. W ksiazce M.wiązania znalazłem taki kod $regfile = "ATtiny2313.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.6 , E = Portb.4 , Rs = Portb.5 Config Lcd = 16 * 2 Config Rc5 = Pind.0 ,timer=0 Dim...
Zwieram do masy PIND.0 i kolejno w odstępie 300ms na każdym z pinów portu B pojawia się napięcie później w zależności jak jest ustawiony potencjometr jest liczony czas zwłoki, następnie kolejno się wyłącza. Chciałem dodać ADC do liczenia tego czasu 300ms [syntax=basic4gl] For X = 0 To 7 Portb.x = 0 Waitms 300 Next X[/syntax]
Witam serdecznie Zbudowałem układ na attiny 13 mało profesjonalny z dwoma przyciskami i dwoma przekaźnikami i zamieszczam fragment kodu. Wszystko byłoby ok tylko drażni mnie obsługa przycisków. Dodam że jestem na etapie początkującym w bascom [syntax=basic4gl] Do If Pind.0 = 0 Then Waitms 150 If Pind.0 = 0 Then Do Loop Until Pind.0 = 0 Portb.0 = 1 For...
Witam! Programując ten kontroler mam poważny problem. Funkcje czasowe (waitms) nie działają tak jak trzeba. Program w stylu: do dioda = 1 waitms 500 dioda = 0 waitms 500 loop powoduje miganie diody w bardzo nie regularnych odstępach czasu - widać to "gołym okiem". Na dodatek trudno nazwać te odstępy "pół sekundy". Sytuacja jest podobna przy różnych...
Witam. Wykonałem sterownik zaworu na silniku krokowym którym steruje µC attina2313. W celu zamknięcia lub otwarcia zaworu do sterownika wysyłana jest liczba 60 (zamknij) i 55 (otwórz). Te liczby wysyłam z drugiej attiny 2313 przez polecenie: Sto = 55 Print Sto ; Chr(13); I niby wszystko działa za każdym razem lecz jest jeden problem. Za...
Programowałem dwoma programatorami ISP pierwszy to samoróbka bez żadnego bufora przy lpt a drugi to stk200, na obydwu jest taki sam efekt. Gdybym miał jakis programator szeregowy to też bym spróbował na nim. Na wszystkich portach mikro kontrolera jest tak samo. Program do programowania to bascom AVR, dwie wersje przetestowane. Próbowałem też wgrywać...
Witam serdecznie, Napisałem już kilka programów i jakoś nie było większych problemów. Teraz chciałem podjąć walkę z 1wire, więc zmontowałem sobie na płytce stykowej układ i zacząłem eksperymenty. Niestety nic z tego nie wychodziło, ale w trakcie walki zauważyłem, że jakoś nie tak działa funkcja 'Wait'. Napisałem więc najprostrzy z możliwych programów...
Witam! bardzo serdecznie. Zwracam się do Państwa z następującym pytaniem. Otóż mam dość poważny problem z mikrokontrolerem ATtiny2313. Udało mi się skonstruować barierę podczerwieni w oparciu o diodę nadawczą podczerwieni oraz układ odbiorczy podczerwieni TFMS5360 lub TSOP1736 (odpowiednik). W układzie wykorzystano ten pierwszy. Potrzebuję zamontować...
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...
Od pewnego czasu męczę się z transmisją danych przez rs232 z mikrokontrolera do PC i z powrotem. Układ programowany jest w Bascom. Problem polega na tym że dane są przesyłane lecz błędne czyli nie takie które zostały wysłane. np. po zastosowaniu Print "abc" w emulatorze wyświetli mi buźki i inne znaczki. Baud ustawiałem już na najniższe prędkości, rezonatory...
Witam, Dostałem dzis plytke 3500 i mialem nadzieje, ze jeszcze dzisiaj sie nia pobawie a tu zonk :/ Przy probie wgrania pierwszego programu z ksiazki mikrokontrolery dla poczatkujacych: $regfile = "attiny2313.dat" $crystal = 1000000 Config Portb = Output Config Portd = Output Portd = 2 Do If Portd = 64 Then Portd = 1 Portd = 2 * Portd Waitms 250 Loop...
Witam Postanowilem zrobic przelacznik modelarski na procesorze ATTiny . Program ma rozpoznawac czas impulsu i od tego uzalezniac stan wyjscia . Czasy impusow 1- 1,5 stan 0 1,5-2 stan 1 .problem mam z napisaniem procedury ktora zozpoznawala by szerokosc impulsu na razie cos takiego napisalem : $regfile = "at12def.dat" $crystal = 1200000 Config Pinb.3...
Na podstawie tematu [url=http://www.elektroda.pl/rtvforum/to... chciałem opracować termostat do bojlera. Wprowadziłem stosowne zmiany do kodu ale za nic nie mogę zmieścić tego w pamięci attiny. Założenia do zmian to: -wykorzystanie trzech przycisków do funkcji; 1.przejście do wyświetlania nastawy temp., powrót do wyświetlania temp (pinb.4)...
Jaśniej nie potrafie. dim F as bit F = 0 Do If Pinb.0 = 1 Then Toggle F Else if F=1 then Waitms 100 Toggle Portb.2 End If end if loop
Witam, chcę wykonać termometr wg schematu: http://obrazki.elektroda.pl/1882005600_1... wsad do attiny 2313 to: [syntax=text] $regfile = "ATtiny2313.dat" $crystal = 1000000 Config 1wire = Portd.5 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5 Config Lcd = 16 * 1a Dim Dsid1(8)...
ds18b20 waitms waitms pętle waitms timer0
opada siłownik regulacja krańcówki rolety zablokować stacyjka renault
rysunek techniczny wd70j5a10aw samsung
Wybór żarówki: barwa zimna czy ciepła? Wymiana płyty głównej Satel CA-10 na inny model