Witam ! Dodaj te trzy linijki do programu, jako trzecią, czwartą i piątą linię. [syntax=basic4gl] $hwstack = 8 $swstack = 8 $framesize = 8 [/syntax]
Witam ! Dziękuję szun działa bardzo dobrze. Jeszcze mam pytanie czy da się przerobić tak aby wrzucić to na procek attiny13? bo akurat taki mam a szkoda atmega8 na taki czasowy układ Do swojego programu ( ATtiny13 ) dodaj te linie: $hwstack = 32 $swstack = 0 $framesize = 12 Pozdrawiam. Stefan
W itam. Kiedyś próbowałem zrobić odbiornik RC5 na ATtiny13V lecz próba skończyła się fiaskiem, ponieważ w BASCOM'ie nie da się na ATtiny13 przypisać zmiennych typu Byte. A jednak, przeglądałem internet w poszukiwaniu nowych pomysłów na urządzenia i natrafiłem na program gdzie gość programuje ATTiny13 z 5 zmiennymi Byte , 1 Integer(!) , i 4 typu Bit...
Zadeklaruj ile i gdzie chcesz przydzielić pamięci. Przykładowo $hwstack = 32 $swstack = 18 $framesize = 8 Połączenie ATTiny13 z bascomem to fatalne rozwiązanie, ale przy odrobinie samozaparcia da się coś zrobić. Z tymi ustawieniami udało mi się użyć 6 zmiennych, przy czym program w symulatorze i tak szedł w krzaki. Jak będziesz pisał to musisz unikać...
A coś takiego trzeba dodać.... [syntax=basic4gl] $hwstack = 8 $swstack = 8 $framesize = 8[/syntax]
Zajętość flash`a z 46% na 38% :P Tak bym się nie bawił, ale w Tiny13 to ma znaczenie bo można coś jeszcze upchnąć ahahaha :D [syntax=vbnet]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack=20 $swstack = 8 $framesize = 16 'Declare Sub Zmiana Config Pinb.2 = Input Set Portb.2 Config Portb. 4 = Output Config Servos = 1 , Servo1 = Portb.4 , Reload =...
Diody migają po dwa razy, kolejne dwa razy zawsze po naciśnięciu przycisku, tak w kółko. Jak nie naciskam to nic się nie dzieje. Zdaje się że taki zamiar był tego programu... Niemniej jednak spróbuj ten code: [syntax=basic4gl][/syntax ... $regfile = "attiny13.dat" $crystal = 9600000 Config Portb = &B011000 Portb = &B000010 $hwstack...
Dla pełności tematu. Jak skorzystać z PCINT? Szukałem w manualu i jakieś przykłady w sieci ale nie znalazłem nic czytelnego. Oto przykład dla Attiny13 (jest on w manualu): [code][syntax=basic4gl] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 32 $swstack = 24 $framesize = 8 'config pinb.0 = input Config Portb.2 = Output Pcmsk = &B00000001...
Jeślii masz wolny pin to możesz sobie na nim otworzyć port COM. Taki programik wciągający cztery bajty po serialu zajmuje w Bascom 288 B a to pewnie dlatego że jeszcze musiał się zająć stosem i tablica przerwań co Ty juz pewnie tez masz zrobione więc to by odpadło. Zapisujesz to sobie do Eeproma przy starcie i gotowe. [syntax=vbnet]$regfile = "attiny13A.dat"...
Simple how it`s look but should work ;) Set Freq manually but 1,2MHz is a oryginal value [syntax=basic4gl]$regfile = "attiny13.dat" $hwstack = 24 $swstack = 8 $framesize = 24 $crystal = 1200000 '$lib "mcsbyteint.lbx" ' <-option Config Portb = &B00100011 : Portb = &B11000000 Config Adc = Single , Prescaler = 8 , Reference = Avcc Start Adc...
powoduje miganie diody w bardzo nie regularnych odstępach czasu - widać to "gołym okiem". Na dodatek trudno nazwać te odstępy "pół sekundy". ... Na początku mam jeszcze: $hwstack = 32 $swstack = 8 $framesize = 16 Bez tego nie idzie zadeklarować żadnej zmiennej - "out of SRAM". Dyrektywa CRYSTAL tylko informuje kompilator o częstotliwości generatora....
Mnej więcej tak by wyglądał program: [syntax=basic4gl] $regfile = "ATtiny13.DAT" $crystal = 1200000 Config Pinb.0 = Output Portb.0 = 0 Led Alias Portb.0 $hwstack = 8 $swstack = 8 $framesize = 8 Do Led = 1 : Wait 1 : Led = 0 : Wait 1 Led = 1 : Wait 1 : Led = 0 : Wait 1 Led = 1 : Wait 1 : Led = 0 : Wait 1 Led = 1 : Wait 3 : Led = 0 : Wait 1 Led = 1 :...
Zajrzałem do skompilowanego pliku i widzę że kompilator w ogóle nie używa tu R2 i R3 więc mi je zostawił ;) Od pewnego czasu w Bascom do rejestrów można się odwoływać prosto z kodu. Ciekawe którą wersję Bascom masz. Pewnie znowu schody... U mnie program się kompiluje na 96% [syntax=vbnet] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 16 $swstack...
Witam ! Dodaj te trzy linie (jako 3, 4 i 5 ) a będzie się dobrze kompilował: $hwstack = 8 $swstack = 8 $framesize = 8 Pozdrawiam. Stefan
Nie widziałem wcześniej, że już na to wpadłaś. Twój się kalibrował tylko w jedną stronę a ten powinien w obydwie (ale nie testowałem) ;) [syntax=vbnet]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 2 $swstack = 0 $framesize = 22 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim Mem_adc As Word , New_adc As Word Dim Krok As Byte...
$regfile = "attiny13.dat" $crystal = 12000000 $hwstack = 8 $swstack = 8 $framesize = 8 Głupek ze mnie zapomniałem, że fuse bity się zmienia. Ustawiłem na 1,2MHz. Dalej coś nie teges. 04 marca podajesz ,że poprawiłeś na 9,6MHz. $crystal = 96000000 = 96MHz $crystal = 12000000 = 12MHz . A nie 1,2MHz .:cry:
$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 8 $swstack = 8 $framesize = 8 Dim I As Byte Config Pinb.0 = Output Config Timer0 = Pwm , Prescale = 64 , Compare A Pwm = Clear Down Do I = 128 Pwm0a = I Loop End W fusebitach włączony jest wewnętrzny oscylator 9,6 Mhz. W czasie pracy dioda błyska, miernik mój pokazuje 0,03 kHz
Musisz w kodzie dodać takie zaklęcie :D $hwstack = 8 $swstack = 8 $framesize = 8 PS Ten uC ma, 64 bajty SRAM.
Poszło :) Flash used 38% Pierwszy problem rozwiązany. Drugi to, że przy metodzie z filmiku nie wskazuje mi uC. 1) możliwe, że ta metoda działa tylko z ich programatorem 2) czasem zdarzy się, że jak ręcznie w mkAVRCalculator wskażę uC i nacisnę sprawdź podłączony AVR to go nie wykryje dopiero kolejne 1 lub 2 kliknięcia spowoduje wykrycie uC Dodano po...
Łap gotowy Hex lub Bin (do wyboru). Machnąłem to w Bascom bo to dosłownie minuta i dłużej chyba uruchamia się AtmelStudio7. Kod jest prosty jak świński ogon więc możesz go sobie przetłumaczyć, ale szybciej zmienisz go wersją Demo Bascoma. Wszystko opisane. Osobiście pomyślałbym o tym, że po wykryciu zamkniętych drzwi można od razu przejść do pilnowania...ale...
OK później zaprogramuje ale wyszło to tak: $regfile = "attiny13.dat" Config Portb.4 = Output $hwstack = 32 $swstack = 16 $framesize = 8 Dim A As Byte Config Timer0 = Timer , Prescaler = 64 On Timer0 Przerwanie Enable Interrupts Enable Timer0 Start Timer0 Do Loop end Przerwanie: Timer0 = 106 Toggle Portb.4 Return
Prąd, prąd, prąd... A nikt się przerośniętego programu nie czepia ;) Ja jestem słaby w optymalizacji, kto da mniej?! :D [syntax=vbnet]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 16 $swstack = 8 $framesize = 8 Config Pinb.4 = Output Reset Portb.4 Config Pinb.0 = Output Reset Portb.0 Przekaznik Alias Portb.4 Led Alias Portb.0 Dim Sekundy As...
Łap. Napisałem w przerwie między... Zajmuje połowę mniej niż Twój a działa :D [syntax=vbnet]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 8 $swstack = 8 $framesize = 8 Config Portb = &B01110 : Portb = &B10001 Sw Alias Pinb.0 D1 Alias Portb.1 : Set D1 D2 Alias Portb.2 D3 Alias Portb.3 Config Timer0 = Timer , Prescale = 1024 , Clear...
Skasuj te słowa "Iram" - w wersji 2075 ten numer nie przejdzie w ten sposób. Pod deklaracją procesora powinieneś też określić wielkości stosów i ramki. Na przykład: [syntax=vbnet] $regfile = "attiny13.dat" 'typ proca $crystal = 1200000 $hwstack = 8 $swstack = 8 $framesize = 24[/syntax] Musisz też wiedzieć że nowy Tiny13 jest taktowany predkością 1,2MHz...
Gdy usiłowałem stworzyć jakąkolwiek zmienną w tym programie to program krzyczał że brakuje już pamięci SRAM ...niemożliwe, stosuję małe Attiny w prostych projektach i nie mam tego problemu. W przykładowym programie do doświetlacza zakrętów ;-) mam na początku taką deklarację: $hwstack = 32 $swstack = 8 $framesize = 8 i mogę bez problemu zadeklarować...
Zastosuj przerwanie od Timer'a. ps. Nie ma czegoś takiego jak ATTiny16. Chodzi Ci o 15 czy 26 ? Tak na szybko (sprawdź): $regfile = "attiny13.dat" $crystal = 1000000 'częstotliwość taktowania $hwstack = 20 $swstack = 10 $framesize = 10 Const Div_t0 = 125 '1 ms Config Timer0 = Timer , Prescale = 8 On Timer0 Int_t0 Enable Timer0 Enable Interrupts...
To fragment kodu (konfiguracja PWM), który działa u mnie w sterowniku na 100% [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 1200000 $hwstack = 32 $swstack = 8 $framesize = 16 Config Portb.0 = Output Config Timer0 = Pwm , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1 Dim X As Byte '--- Do Pwm0a = X 'parametr 0-255 Loop...
Mam inny kod, który działa i zajmuje tylko ~40%, ale już łeb mi pęka dzisiaj żeby kombinować... [syntax=vbnet] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 16 $swstack = 8 $framesize = 16 Declare Sub Lewo Declare Sub Prawo Config Pinb.4 = Input Set Pinb.4 Config Portb.3 = Output Dim A As Word Dim Krok As Byte Dim Lock As Bit Do If Lock =...
W twoim kodzie żeby 2 i 3 warunek został w ogóle sprawdzony musi być cały czas wciśnięty przycisk, zrób porządna obsługę przycisku a dopiero reszte. Być może po tej modyfikacji kod zadziała według twoich założeń: [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 1000000 $hwstack = 16 $swstack = 16 $framesize = 16 Config Pinb.1 = Input Config Portb.2...
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. Muszę rozbudować jedno z moich urządzeń zbudowane na ATtiny13, mam do dyspozycji tylko pin 5 i muszę wygenerować tam przebieg prostokątny kilkanaście-kilkadziesiąt kHz z możliwością regulacji PWM (na etapie uruchamiania, docelowo ma być stałe). Mam źródło swego programu (0,25kB, niestety nie mogę pokazać), i chcę dopisać to wyjście (sprzętowy...
Witam Do ATtiny13 wgrałem taki kod $regfile = "ATtiny13.dat" $crystal = 1200000 $hwstack = 32 $swstack = 18 $framesize = 8 Config Pinb.4 = Output Portb.4 = 0 Led Alias Portb.4 Do Set Led Waitms 40 Reset Led Waitms 40 Loop End Podłączyłem diodę LED i wszystko działa :) Teraz mam pytanie czy zostawić 40 ms. czy może zwiększyć lub zmniejszyć...
Pierwsze co zrobiłem, to zrealizowałem Twój pierwszy pomysł, i to najprostrzej możliwej postaci (aż wstyd!). Wżuciłem Attiny13, i program tak prosty że aż śmieszny - Działa :D Zostawiłem to na razie tak jak jest, i jeśli będzie się dobrze sprawować, nie będe już poprawiał. Dzięki! [syntax=Bascom] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack...
Powinieneś sobie sam "ręcznie" ustawić takie parametry jak: $hwstack = 32 $swstack = 8 $framesize = 16 bo to od nich m.inn zależy ile Bascom będzie zjadał pamięci RAM na Stos, ramkę itp
Ł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]'*************************...
Wstaw to i powinno się udać. Nie chce mi sie tego tłumaczyć setny raz więc chyba poświecę temu zagadnieniu raz jedną stronę na swojej witrynie i będę tylko linkował :D [syntax=vbnet]$Regfile="attiny13a.dat" $crystal=9600000 $hwstack = 4 $swstack = 2 $framesize = 20[/syntax]
Idę w jakimś kierunku czy zacząć od nowa ? $regfile = "attiny13.dat" $crystal = 10000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Timer0 = Counter , Edge = Rising Dim A As Byte Enable Timer0 While Pinb.0 = 0 : Wend Timer0 = 0 Start Timer1 While Pinb.0 = 1 : Wend Timer0 = A Stop Timer1 If A < 100 Then Set...
Cześć. https://obrazki.elektroda.pl/1280991700_... Kuzyn poprosił mnie o zbudowanie tego ustrojstwa, bo posiada jedno wolne wejście we wzmacniaczu, a do podłączenia jeszcze trzy źródła dźwięku. Projekt powstał w dwa dni. Czterokanałowy selektor wejść do wzmacniacza. Nic szczególnego... Płytka - termotransfer. Program - BASCOM. https://obrazki.elektroda.pl/9048297700_...
Oki $tiny rozwialo sprawe ze zmiennymi. Rozwiało :?: , zapewne Twoją czuprynę :D Po pierwsze , coś kręcisz , bo nawet takie cuś nie da się skompilować dla ATMega8515 :!: $regfile = "m8515.DAT" Config Timer0 = Pwm , Pwm = 8 , Compareb Pwm = Clear Down , Comparea Pwm = Disconnect , Prescale = 64 A nie da się również na wiele innych proców ,...
oryginalnie wygląda to tak: [syntax=vbnet] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 16 $swstack = 8 $framesize = 16 Config Timer0 = Timer , Prescale = 1 Enable Timer0 On Timer0 Pwm Enable Interrupts Start Timer0 Declare Sub Miganie Config Pinb.3 = Input Set Pinb.3 Config Portb.4 = Output Przycisk Alias Pinb.3 Config Portb.0 = Output Config...
Dobrze rozumiem, wiem ze trochę to namieszało, ale cóż zdarza się niestety nie pierwszy i pewnie nie ostatni raz. To jak już wiadomo o co chodzi, to trzeba program napisać, tak jak już pisałem uczę się i na razie tylko próbuje napisać kod udzielnie do każdej funkcji. Jak na razie udało mi się rozjaśniać powoli diodę i nie mogę zrobić tak by gasła także...
Witam wszystkich! mam zamiar zrealizować przetwornice http://www.elportal.pl/pdf/k04/37_05b.pd... na attiny13 tzn. końcówka mocy ma pozostać ale sterowanie na mikrokontrolerze. Według obliczeń wyszło, że generator na bramkach w tym układzie z kitu AVT ma ok 2,5kHz sprzężenie zwrotne nie wchodzi w grę. Napisałem taki kod w bascomie: [syntax=basic4gl]$regfile...
Witam Potrzebuje program na mikrokontroler Attiny 13 który po wciśnięciu przycisku załączy przekaźnik na 7 godzin. Nie potrafie go sam napisać a jest mi bardzo potrzebny. Pozdrawiam Sprawdź ten program, nie sprawdzałem nie mam Attiny13. [syntax=basic4gl]'Timer 7godzin $regfile = "attiny13.dat" $crystal = 128000 'ustawić w Fuse Bitach 'wyłączyć bit...
Faktycznie, zapomniałem o tym. Teraz działa: $regfile = "attiny13.dat" $crystal = 1200000 Config Portb = &B001000 Portb = &B110111 $hwstack 16 $swstack 8 $framesize 8 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: Portb.3 = 1 Do Incr X If X...
Napisałem kolejny program testowy i nie działa czyli nie zmienia stanu na porcie Pinb.2 . Na dwóch procesorach identycznie nie rozumiem dlaczego . Może coś należy ustawić w fusebitach ? 'attiny test $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 32 $swstack = 8 $framesize = 8 Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.2...
Witam. Komunikat o bledzie jest o takiej tresci: Error : 22 Line : 173 Out of SRAM space A przy okazji to zadklarowalem w ATTINY13 Rf_nsel Alias Portb.3 jako wyjscie czy moge tak zrobic jak to jest PB3/PCINT3/CLKI/ADC3 ? Czy to bedzie mi dzialalo poprawnie? Nigdy nie pisalem programow w BASCOM-ie i nie wiem o co chodzi kiedy zmienilem na ATTINY13 bo...
Program ma być wykonany jednorazowo po włączeniu zasilania, da sie prościej? [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 1200000 $hwstack = 16 $swstack = 8 $framesize = 8 Config Pinb.1 = Output 'ST2 Config Pinb.2 = Output 'ST1 Config Pinb.3 = Output 'LED ST1 Config Pinb.4 = Output 'LED ST2 Portb.1 = 0 Portb.2 = 1 Portb.3 = 0 Portb.4 = 1 Config...
Witam! Schemat na szybko tak wygląda: https://obrazki.elektroda.pl/7068240200_... Na R2 dajesz sygnał z układu "wykrywania nośnej", to musi być +5 V do +12 V. Stykami przekaźnika 2, 6 układ rozłączy zasilanie "Pyrlandii" po wykryciu nośnej powyżej jednej minuty na kilka sekund. Czasy można zmieniać w programie. Zawsze zachęcam osoby...
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...
Czarna magia, mój kod sie nie chciał kompilować bo za mało pamięci, a twój sie kompiluje i działa w symulatorze (sprawdzałem ;p) czyli gotowy kod wygląda tak :) $regfile = "attiny13.dat" $crystal = 1200000 $hwstack = 16 $swstack = 16 $framesize = 16 Config Rc5 = Pinb.2 Config Portb.1 = Output Config Portb.0 = Output Portb.0 = 0 Dim Adres As...
hwstack swstack framesize swstack hwstack framesize framesize swstack hwstack
spawarka schema wkrętarki baterie rexroth sterować
naczepy wielton at9100 potencjometr głośności
IRFP260 vs IRFP260N – różnice parametrów, zamienność, przewagi nowszej wersji MOSFET Schemat elektryczny agregatu Honda EX500 – opis blokowy, kolory przewodów, typowe usterki