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...
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...
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
Ł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...
Ł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]'*************************...
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
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...
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...
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 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...
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...
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...
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
wspomagać passat modem spalone otwiera szyba elektryczny
sygnalizacja świetlna sygnalizacja świetlna
Traktorek kosiarka Husqvarna, MTD, John Deere gaśnie po opuszczeniu kosiska – czujniki, PTO, usterki Volvo XC60 D5 kolektor ssący pocenie na zgrzewie 3cm, 230000km, objawy i naprawa