Pobierz plik z załącznika. Rozpakuj go i wklej do głównego folderu programu. Na samym początku programu wpisz: $regfile = "Attiny13.dat" I nic więcej nie musisz robić.
Witam. Można tak: $regfile = "attiny13.dat" $crystal = 1200000 Config Portb.3 = Output Config Pinb.4 = Input set pinb.4 reset portb.3 do if pinb.4=0 then do Set PORTB.3 Wait 1 Reset PORTB.3 Wait 1 Loop end if Loop W pętli odczytujesz stan przycisku i jak będzie niski zacznie migać.
Aktualnie program wygląda następująco: Bo taki masz program.... To co zamierzasz osignąc, musiałbyś zmienic na: Config Portb.2 = Output 'triac Triac Alias Portb.2 Poza tym jeden 'return' na końcu subrytyny "Pin_change_isr: . e marcus
Witam ! Spróbuj ten program wgrać do Tinki13 z fusami fabrycznymi, powinno być ok. $regfile = "ATtiny13.DAT" $crystal = 1200000 '9600000 / 8 = 1200000 Config Pinb.0 = Output Portb.0 = 0 Led Alias Portb.0 Do Led = 0 Waitms 500 Led = 1 Waitms 500 Loop End Pozdrawiam. Stefan amator GG6293398 http://obrazki.elektroda.net/58_12350502...
Napisałem taki program i sprawdziłem go z ATTiny13 (nie mam ATTiny25): $regfile = "ATtiny13.DAT" $crystal = 1000000 Config Pinb.0 = Input Portb.0 = 1 Przycisk Alias Pinb.0 Config Pinb.1 = Output Portb.1 = 1 Led Alias Portb.1 Do If Przycisk = 0 Then Waitms 100 Bitwait Przycisk , set Gosub Praca End If Loop End Praca: Led = 0 Wait 1 Led...
Zmiana stanów led po przytrzymaniu przycisku ma jedną zaletę, otóż jeśli chcę szybko przejść do stanu gdzie świecą się oba ledy. W niczym mi to nie przeszkadza. Jeśli tak, to nie ma problemu. Możesz jeszcze zebrać opóźnienia w jednym miejscu: [syntax=basic4gl] $regfile = "attiny13.dat" $crystal = 1000000 Config Portb = &B111100 Portb = &B000010 Dim...
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...
_-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...
Kod programu: '$tiny $regfile = "attiny13.dat" 'plik z definicjami procesora attiny13 $crystal = 1000000 'częstotliwość taktowania procka 1Mhz Config Portb.0 = Input 'Wejście REM Config Portb.4 = Output 'Przekaźnik GŁOŚNIK Config Portb.3 = Output 'Przekaźnik REM Set Portb.0 Reset Portb.3 Reset Portb.4 Dim Znacznik As Iram Byte Znacznik = 1...
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 :...
No masz moją wersje rozwiązania tego problemu. W symulatorze działa. Na uP nie testowałem. [syntax=basic4gl][/syntax] $regfile = "attiny13.dat" $crystal = 1000000 Dim Fp1 As Bit Dim Fp2 As Bit Config Pinb.3 = Input Config Pinb.4 = Input Config Pinb.1 = Output Config Pinb.2 = Output Set Portb.3 'podciagniecie do +5V Set Portb.4 Do If Pinb.3 = 0 And Fp1...
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...
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...
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...
Też mi pomoc :) Piszę właśnie programik na attiny13 więc proszę : $regfile = "ATTINY13.DAT" $crystal = 9600000 Config Adc = Single , Prescaler = Auto , Reference = Avcc Config Pinb.0 = Output Config Timer0 = Pwm , Prescale = 8 , Compare A Pwm = Clear Down Dim A As Byte Do Incr A Pwm0a = A Waitms 10 Loop End
Określenie "program" jest zbyt na wyrost ;-) Proszę bardzo : [syntax=Bascom] $regfile = "ATtiny13.dat" $crystal = 4800000 Config Pinb.2 = Output 'przekaznik Przekaznik Alias Portb.2 Wait 60 Set Przekaznik Waitms 500 Reset Przekaznik Do Loop End [/syntax]
Ja w programie z pierwszego postu zmieniłem tylko linijke $crystal na 1200000 i u mnie dioda miga co 1s. $regfile = "attiny13.dat" $crystal = 1200000 Config Pinb.3 = Output Do Set Portb.3 Wait 1 Reset Portb.3 Wait 1 Loop End
Ja to zrobiłem na Attiny13, temperatura jest określona na stałe, taka byłą specyfika mojego projektu laminatora (do folii UV). Kod był zaczerpnięty z sieci, lekko go zmodyfikowałem. Pamiętam, że teoria nie pokrywała się z praktyką i musiałem wpisać temperaturę z przesunięciem o kilka stopni. [syntax=vbnet]' Uk³ad z sam¹ diod¹ dzia³ao...
$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:
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...
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
Wklepałem coś takiego: $regfile = "attiny13.dat" $crystal = 1200000 Config Portb.0 = Output Config Portb.4 = Input do PortB.0 = PortB.4 Loop End Wcześniej to samo tylko z adres i comand Nadal martwy... Dodano po 1 Dlaczego pin a nie port? Dodano po 4 Niestety zmiana na pin nic nie dała, dalej martwy...
$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
witam czy był by ktoś tak dobry i powiedział mi dlaczego kiedy zadeklaruję choć jedną zmienną byte wyskakuje mi błąd 22 out of sram space nie dzieje się tak gdy deklaruję zmienną jako bit czyżby coś "zjadało" mi te 64 bajty sram-u ???? $regfile = "ATtiny13.dat" $crystal = 9600000 Config Portb = Output Dim X As Byte Dim Y As Byte Dim Z As Bit...
Gdyby ktoś był zainteresowany. Sprawdzony i działa. [syntax=basic4gl]$crystal = 8000000 $regfile "attiny13.dat" Config Portb.4 = Output Portb.0 = 0 Config Rc5 = Pinb.0 Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(address , Command) Command = Command And &B01111111 If Address = 0 And Command = 13 Then Toggle Portb.4 Waitms 100 End...
Poniżej kod programu migania diody Led podłączonej do pinu nr5 ATTiny13 przez rezystor około 1k do +5V. Fuse bity ustawione fabrycznie. Port zmienia stan co około jedną sekundę. $regfile = "attiny13.dat" $crystal = 1200000 Config Pinb.0 = Output Portb.0 = 0 Led Alias Portb.0 Do Toggle Led Wait 1 Loop End Powodzenia życzę. Stefan
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...
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...
witam mam mały problem napisałem taki program ma byc on na attiny13 :) $regfile = "attiny13.dat" Config Portb.2 = Output Config Int0 = Falling Enable Interrupts Enable Int0 On Int0 Czekaj Set Portb.2 Do Loop End Czekaj: Reset Portb.2 Waitms 5 Set Portb.2 Return Kiedy na wejscie podamy 0 to na wyjsciu ma sie pojawić 0 przez 5ms i po tych 5ms stan wyjscia...
A spróbuj w ten sposób ja tak mam i działa: $regfile = "attiny13.dat" $crystal = 9600000 Ddrb = &B00000111 Reset Portb.1 Set Portb.2 Do Reset Portb.0 Waitms 500 Set Portb.0 Waitms 200 Loop End Nigdy nie lubiłem korzystać z procedury config wole samemu ustawiać rejestry procesora. A rejestr Ddrb jest odpowiedzialny za konfiguracje pinów portu B. A z...
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...
$regfile = "attiny13.dat" $crystal = 8000000 Ddrb.3 = 1 Config Pinb.0 = Output Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1 Dim I As Byte Do For I = 1 To 255 Pwm0b = I Waitms 50 Next I For I = 255 To 1 Step -1 Pwm0b = I Waitms 50 Next I Loop End Pomoże mi ktoś z tym czasem?:(
Taki napisałem program, przetestowany. Jak dla mnie to działa dobrze. Może jakieś poprawki, sugestie? [syntax=basic4gl] $regfile = "attiny13.dat" $crystal = 1000000 Config Portb.2 = Input Portb.2 = 1 Config Portb.1 = Output Portb.1 = 0 Do If Pinb.2 = 0 Then Waitms 100 Toggle Portb.1 Waitms 500 End If Loop End[/code] [/syntax] Chciałbym zrobić płytkę...
Na początek dodam prosty program z wykorzystaniem zmiennej typu "byte" $regfile = "attiny13.dat" $crystal = 8000000 Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.5 = Input Reset Portb.5 Dim A As Byte Declare Sub Led Do If Pinb.5 = 1 Then Gosub Led Else Portb.1 = 1 End If Loop End Led: For A = 0 To 10 Portb.0 = 1 Waitms 100...
Robiłem tak (attiny13): POTRB.4 podciągnięty 10k rezystorem do GND, od tego kabel do microswitcha, od niego do VCC PORTB.3 - dioda led - VCC (dla testu) program: $regfile "attiny13.dat" $crystal = 4800000 Config Portb.3 = Output Config Portb.4 = Input Led Alias Portb.3 S1 Alias Portb.4 Do Debounce S1 , 0 , Pr1 , Sub Loop End Pr1: Toggle...
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 =...
Zrozumiałem swój błąd Mea culpa maxima więc teraz program wygląda tak: $regfile = "attiny13.dat" $crystal = 4800000 Config Pinb.0 = Output Portb.0 = 1 Wait Portb.0 = 0 End i nawet zapala i gasi diodę na B.0 ale... rusza po ok 2 min, i wait 3 nie ma nic wspólnego z 3 sek. - jest ich ok 40 - fusebity ustawione na 4,8MHz i nie wiem dlaczego -...
Do Saabotaz Dziękuje za podanie przykładu. Ale chodzi mi o coś mnie skąplikowanego. Posiłkując się siecią napisałem coś takiego: ' mryganie led + switch $regfile = "attiny13.dat" $crystal = 9600000 Config Pinb.0 = Output Config Pinb.3 = Input Do Debounce Pinb.3 , 0 , Tryb1 , Sub Loop Tryb1: Wait 1 Toggle Portb.0 Wait 2 Return End Tryb2: Wait 2 Toggle...
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...
Witam! wszystkich. Napisałem program węża świetlnego w Bascomie i przy kompilacji pokazuje mi error : Assignment error $regfile = "attiny13.dat" $crystal = 9600000 Cofing Pinb = Output Portb = $b010101 Do Rotate Portb , Left Waitms 300 Loop End Proszę pamiętać o używaniu znaczników code . - arnoldziq Przeniesiono z Programowanie Ogólne. -...
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ć...
Fakt, niespodziewane resety mogą się zdarzyć :) Ale są sposoby by zapobiec, choćby odpowiednio filtrując zasilanie, np. filtrem CLC. Tu przykąłdowy listing, przekaźniki włączają sie i pozostają włączone. $regfile = "attiny13.dat" $crystal = 1000000 Config Portb = Output Portb.4 = 0 Portb.3 = 0 Portb.2 = 0 Portb.1 = 0 Do Set Portb.1 Wait 5...
Ł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...
Próbuję odpalić programik na Attiny13, ale nie mogę dojść do ładu z ADC. Może ktoś mógłby podpowiedzieć? $regfile = "attiny13.dat" Config Adc = Single , Prescaler = Auto , Reference = Internal Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.0 = Output Dim Wart_ac As Iram Byte 'zmienna na wartość odczytaną z przetwornika Dim V As...
Witam Zablokowałem już kiedyś przez przypadek atmegę8 więc więc wole się zapytać zanim coś zaprogramuję. Można powiedzieć, że jest to moje drugie starcie z mikroprocesorem. Zakupiłem ATtiny13-20PU i jako pierwsze postanowiłem wykonać mrugająca diodę i mam program: $regfile = "attiny13.dat" $crystal = 1200000 Config Pinb.3 = Output Do Set Portb.3...
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...
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...
Uczę się programować,i mam problem z attiny 13. Napisałem prosty program: $regfile = "attiny13.dat" $crystal = 9600000 Config Portb = &B111100 Portb = &B100000 Do If Pinb.0 = 1 Then Portb.3 = 1 Elseif Pinb.1 = 1 Then Portb.3 = 0 End If Loop End Pod Port b.3 podłączyłem diodę, lecz ona cały czas świeci. Gdy wcisnę przycisk podpięty pod port...
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...
Zainstalowałem Proteus do testowania, gdzie w nim działa tak jak powinno, a jak wgram do uC i zmontuję na płytce stykowej nie działa dioda zamiast migać świeci. Nie mam pojęcia gdzie jest problem ale wychodzi na to, że w czasie wgrywania. Tak wygląda schemat w Proteus http://obrazki.elektroda.pl/3139351300_1... A tak wygląda kod jaki...
Witam, nie mogę sobie proradzić z obsługą timer0 w przerwaniu. Zamiast wł/wył port po początkowym opóźnieniu co 0,5s ustawia się w stan wysoki i tak sobie świeci w nieskończoność. Co jest nie tak? Kod poniżej: $prog &HFF , &H73 , &HFF , &H00 $regfile = "ATtiny13.DAT" $crystal = 128000 Wyj Alias Pinb.1 'wyjście Config Wyj = Output 'ustawienie...
Prędkość 1MHz ustawiam w programie: $regfile = "ATtiny13.DAT" $crystal = 1000000 '... Dzięki za schemat, przejrzałem oczywiście. Więc na schemacie mam zewrzeć zworkę JP3 , czyli pin 25(PC2) do masy. U mnie w programatorze wszystko jest poskładane na płytce SMD dodatkowo z soldermaską. Więc po ścieżkach nie dojdę do prawidłowego połaczenia....
Witam! Chce stworzyć sterownik obrotów silnika. Działa to na zasadzie że ADC odczytuje wartość z potencjometru i przypisuje ją PWM. Wszystko ładnie, ale nie rozumiem dlaczego gdy już wszystko podłącze to na multimetrze pokazują mi się wyniki rozbiegające się z rzeczywistością. Chodzi o to że po delikatnym przekręceniu wartość czasami zmieni sie o 1V...
A jakbyś napawdę sporo zmiennych miał to można wpisać jeszcze inne wartości: (to fragment działającego programu) [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 10 $swstack = 10 $framesize = 28 '----------- Dim Zasilanie As Word Dim Aku1 As Word Dim Aku2 As Word Dim Pwm1 As Byte Dim Pwm2 As Byte Dim Lpwm As Byte Dim Xw As Word...
Witajcie Mam idiotycznie prosty program, mianowicie [syntax=basic4gl] 'przerzutnik T' $regfile = "attiny13.dat" $crystal = 1000000 Config Portb.3 = Input Config Portb.4 = Output Portb.3 = 0 Portb.4 = 0 Do If Portb.3 = 1 Then Toggle Portb.4 End If Loop End [/syntax] Powinien działać, testy pokarzą... Mój problem polega na tym, że dodając funkcję "toggle"...
[syntax=vbnet] $regfile = "attiny13.dat" $crystal = 8000000 ' 'ustawienie PB2 jako wejscie ADC1 i PB0 jako wyjscie PWM Config Pinb.0 = Output Config Pinb.2 = Input Config Pinb.5 = Input Portb.5 = 0 Config Adc = Single , Prescaler = Auto , Reference = Internal 'konfiguracja przetwoenika ADC Vref=1.1V Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm...
Witam Wlasnie pierwszy raz zainstalowalem bascoma avr (v. 1.11.9.1 demo) i jesli zadeklaruje na poczatku programu procesor : attiny13 to nie moge uzyc nawet 1 zmiennej tzn np program "ktory nic nie robi": $regfile = "attiny13.dat" 'najpierw określamy typ proca $crystal = 1000000 'z jakim taktowaniem będzie pracował Config Portb = Output 'pprt...
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_...
Chyba sam nie dam rady - spore braki ... $regfile = "attiny13.dat" $crystal = 4800000 Config Pinb.1 = Input Config Pinb.2 = Output Config Debounce = 30 Pk Alias Portb.2 Dim Przycisk As Byte At &H62 Dim Czas As Byte At &H63 Pk = 1 Do Waitms 25 Debounce Pinb.1 , 0 , Licz , Sub Przycisk = 3 , Gosub , On_off If Portb.1 , 0 , Then Incr Czas If...
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! 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...
Tak ale impulsy mają być sygnalizowane i widoczne na diodzie LED , a w ten sposób chyba nie zobaczę . Może by to zrobić przez PULSEOUT tylko między nimi musi być WAIT ? Dodano po 3 Zrobiłem coś takiego ale proszę o sprawdzenie i poprawki , Nie wiem też jak zrobic podprogram Generator aby zrobił 3 razy taki impuls jak w programie Odmierz . Ma to sens...
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...
Witam, Próbuję skompilować dla attiny13 taki kod: $regfile = "attiny13.dat" Config Portb = Output Dim Pwmr As Byte Dim Pwmg As Byte Dim Pwmb As Byte Dim Licznik As Byte Pwmr = 255 Pwmg = 255 Pwmb = 255 Portb.0 = 0 Portb.1 = 0 Portb.2 = 0 Do For Licznik = 1 To 255 If Licznik <= Pwmr Then Portb.1 = 1 Else Portb.1 = 0 End If If Licznik <=...
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 ,...
Ja zrobiłbym to tak: [syntax=basic4gl] 'Wskaźnik temperatury $regfile = "attiny13.dat" $crystal = 1200000 '$sim Config Portb.0 = Output Config Portb.1 = Output Config Portb.2 = Output 'pin pomiaru adc z LM35 'Config Portb.4 = Input Dim Temp As Word Config Adc = Single , Prescaler = Auto , Reference = Internal Start Adc Do Set Portb.0 : Set Portb.1 :...
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...
Witam, chciałem zbudować lampę sygnalizacyjną do roweru, która mogła by służyć równocześnie jako latarka z kilkoma efektami świetlnymi, diody podłaczyłem przez rezystory 200 om do portów B 0,2,3,4,5 port B1 chcę wykorzystać do obsługi przerwań zewnętrznych do zmiany efektów. Pierwszy problem jaki napotkałem to to że dioda podpięta do portu B5 cały czas...
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...
Witam wszystkich. Jeśli to nie ten dział to proszę o przeniesienie. Spędziłem juz kilka godzin nad banalną sprawą i nic mi nie wychodzi. Chodzi o wygenerowanie przez Attiny 13 impulsu 3 sek. na porcie po przyciśnięciu przycisku ( podanie stanu niskiego na port). Nie jest dla mnie ważne na który port go podam, ani na którym wystawiony będzie impuls 3...
Mam taki niezrozumiały dla mnie problem . Nie działa mi konfiguracja output na PINB.1 . Mogę ustawić na pinie komendą set lub reset 1 lub 0 ale ale program testowy nie działa . Sprawdzone na dwóch procesorach. 'attiny 13 test $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 32 $swstack = 12 $framesize = 8 Config Pinb.0 = Output Config...
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 Gdy zmienię po prostu procka to wywala error 22 line 38 Out of SRAM space [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 9600000 'Config Pinb.0 = Input 'Config Pind.1 = Output...
Mogę ustawić, ale jak? Próbowałem z dzielnikiem 1K termistor i 10K rezystor, napięcie wewnętrzne 1,1V. Nie działa. Ciągle podaje wartość 1023. W Attiny13 nie doszukałem się pinu AVCC. Datasheet tutaj Dodano po 11 Wklejam kod testowego programu: [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 1000000 Config Portb = &B111011 Config Adc = Single...
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...
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. Chciałbym użyć bitu nr 5 w attiny (próbowałem 13 i 45 kilka egzemplarzy). To nóżka 1 scalaka , na której jest również sygnał reset. Skonfigurowałem ten bit na output i prostym programem zmieniam stany wysoki, niski ...... - tak jest to w bascomie: $regfile = "attiny13.dat" $crystal = 9600000 Config Portb.4 = Output Config portb.5 = output reset...
Witam Ostatnio usiadłem trochę do Bascoma i coś naskrobałem, oto wynik mej pracy: $regfile = "attiny13.dat" $crystal = 9600000 Config Timer0 = Timer , Prescale = 8 Enable Timer0 : On Timer0 Prztimer0 Enable Interrupts dioda Alias Portb.3 Config Rc5 = Portb.4 Dim dioda As Byte Dim Licznik As Byte Do Dim .... Getrc5.... Command = Command ..... If Command...
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...
Jestem zielony jeżeli chodzi o programowanie mikrokontrolerów, próbuję zrobić przełącznik, jednym przyciskiem przełączanie trzech wejść. Napisałem program w bascomie ale nie działa, proszę o pomoc w poprawieniu błędów. $regfile = "attiny13.dat" $crystal = 9600000 Config Portb.0 = Output Config Portb.1 = Output Config Portb.2 = Output Config Portb.3...
$regfile = "ATtiny13.DAT" $crystal = 4800000 Config Watchdog = 4096 Ired Alias Portb.0 Config Ired = Output start watchdog Reset Ired Waitms 255 Set Ired Waitms 255 Powerdown I wszystko działa :-) Mikrokontroler ATtiny13 ma jeszcze coś takiego jak fuse bit CKDIV8 co znaczy, że zegar wewnętrzny dzielony jest przez 8. Pytanie tylko z jakiego...
1. Attiny ma fuzy ustawione na L7A HFF czyli bez podzialu na 8 2. Po podłączeniu Attiny spada do 4.8V 3. Przy włączonym triaku i załączonym elektrozaworze spada do 4.4V 4. Nie zgadza się deklarowany czas jest 10 sekund a faktyczny wynosi 22 sekundy 5. LM78L05 ma tylko 100mA może to za mało? z data shitów wychodzi ze powinno wystarczyć, grzeje się trochę...
No niestety dalej nic. Zawiesza się tu: If Wejscie = 1 Then 'pin dalej w stanie wysokim? (brak odpowiedzi) Blad = 1 Return End If Napisałem też program z wykorzystaniem funkcji 1wire BASCOMa. Tam tak jakby odczytał jeden bajt o wartości &H40 i tyle. Dodano po 1 W desperacji napisałem taki program do sprawdzenia czy czujnik cokolwiek robi: [syntax=vbnet]...
Przykładowy program. Nie robi nic ciekawego tylko wybudza procesor z power-down przez int0 i miga diodami. $regfile = "attiny13.dat" $crystal = 9600000 Config Portb = &B011000 Portb = &B000010 $hwstack = 24 $swstack = 8 $framesize = 24 Dim X As Bit Dim Y As Byte Config Int0 = Low Level Enable Interrupts On Int0 Go Nosave Set X Do If X = 1...
Znalazłem kilka innych kodów źródłowych na elektrodzie i każdy jest inny jeśli chodzi o samo rozpoznawanie czujnika przez procesor i odczytywanie temperatury. Jak mogę sprawdzić czy poprawnie to piszę a czy nie? Może to głupie pytanie, ale gdzie mogę znaleźć podstawy, bo mam książkę P. Górecki - Mikrokontrolery dla początkujących i tam nie ma podstaw....
Sprawdź miernikiem napięcie podawane z LM35 na ADC. Przepisałem ten kod tak by był przejrzystszy. Przy okazji zaoszczędziłem 8% pamięci. To nieistotne. Istotne natomiast jest to, że teraz widać, że układ wyłączy się jeśli odczyt na ADC będzie w zakresie 250-300. Powyżej lub poniżej tego zakresu krążek będzie świecił. [syntax=vbnet]'Program "elektronicznej...
No więc wymyśliłem coś takiego: $regfile = "attiny13.dat" $crystal = 1000000 Config Pinb.3 = Output Config Pinb.4 = Output Dim A As Byte Dim B As Byte Config Timer0 = Counter , Edge = Rising Do Timer0 = 0 Start Timer0 wait 1 Stop Timer0 Timer0 = A If A > 3 Then For B = 1 To 20 Pulseout Portb , 3 , 250000 Waitms 250 Pulseout Portb , 4 ,...
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...
No to od czasu gdy tu jeszcze bogdan_p nie napisał. To trochę doczytałem i powstał taki kod '***** konfiguracja portów ***** $regfile = "attiny13.dat" Config Pinb.7 = Input Config Pinb.3 = Input Config Pinb.2 = Input Config Pinb.5 = Output Config Pinb.6 = Output Do If Pinb.7 = 1 Then Pinb.5 = 1 If Pinb.7 = 1 And Pinb.3 = 1 Then Pinb.5 = 1...
Dziwny problem mi się pojawił z RND przy okazji prostej procedurki, która miała generować losowe tony (strach na kuny): [syntax=basic4gl] $regfile = "attiny13.dat" $crystal = 9600000 Config Portb.3 = Output Config Portb.4 = Output Speaker Alias Portb.3 _speaker Alias Portb.4 Dim Ton As Byte Dim A As Word Dim B As Word Do Ton = Rnd(50) Ton = Ton + 25...
Po latach trochę dziwnie się czyta te opisy. Teraz już chyba lepiej władam angielskim ahahahahaha :D [syntax=vbscript]$regfile = "ATtiny13.dat" $crystal = 1200000 $hwstack = 4 $swstack = 2 $framesize = 24 '***************************************... '* WIRELESS THERMOMETER * '* WITH CIRCULAR BUFFER * '* TRANSMITTER PART Tiny13 * '* bartek.niveasoft(at)gmail.com...
rozwiązałem problem i aż wstyd się przyznać co było główną przyczyną moich niepowodzeń. Mianowicie diodę podłączałem pod portb.1 a timer0 działał na OC0A. Teraz mój kod w uproszczeniu wygląda tak: [syntax=basic4gl]$regfile = "attiny13.dat" $hwstack = 32 $swstack = 18 $framesize = 8 ' tiny13 $crystal = 10000000 Config Pinb.1 = Output Config Pinb.0 =...
Witam ! Przetestuj sobie ten program na ATtiny13, mam nadzieję że przerobisz go na ATmega8. 'RC5 2007.10.24 'ATtiny13 'Wlacznik/wylacznik oswietlenia 'lub Wlacznik/wylacznik, 2 LEDy naprzemian 'dowolnym klawiszem pilota RC5 'BASCOM AVR 1.11.8.1 $regfile = "attiny13.dat" '$crystal = 9600000 'generator wewnŕrzny 9,6mhz 14ck + 64ms $crystal =...
witam zaciekawił mnie temat regulacji fazowej więc na płytce stykowej zmontowałem prosty układ gdzie attiny13 ma za pomocą transoptora pc814 podłączonego do sieci ma wykrywać zero i odpowiednio sterować triakiem bt136 przez optotriak moc3042, napisałem taki prosty program: $regfile = "attiny13.dat" $crystal = 9600000 Config Portb.1 = Input...
Witam, dopiero wczoraj ogarnąłem przerwanie PCINT0 a już dziś potrzebuję PCINT4. Poniżej zamieszczam program testowy na którym pracuję. Przerwanie PCINT0 działa bez problemu niestety PCINT4 już w ogóle. Wpisanie w konfiguracji PCINT4 kończy się błędem "unkown interrput source" więc doczytałem, że wektor przerwania jest jeden i jest nim PCINT0 tylko...
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...
Hej, Chciałbym sobie zbudować mini woltomierz i amperomierz na ATtiny (do dyspozycji mam ATtiny 13, 25 i 45) i dane wysłać do Raspberry pi-najlepiej byłoby co minutę wysłać dane. Pomiary chciałbym robić dla kilku ogniw 18650 połączonych równolegle. Myślę, że zakres pomiarów 0-5V i 0-3A będzie bardzo wystarczający. Nie bardzo wiem jak to wszystko zrobić,...
Panowie, pomóżcie, bo już mi ręce opadają. Procek Attiny13 taktowany wewnętrznym oscylatorem 9,6Mhz. Do PB.2 dołączony układ TSOP1136 (próbowałem również z TFMS5360), połączenia zgodnie z notą katalogową (zasilanie przez 150R podparte elektrolitem 22uF, wyjście podciągnięte do zasilania przez opornik 10K) Na wyjściu PB.3 mam LEDa. I do tego taki programik:...
O wielkie dzięki. A jeszcze takie małe pytanko przerwanie zachodzi dopiero wtedy gdy pind.3 dostanie sygnał w tym wypadku ten nasz odbiornik czy dobrze to rozumiem ?? Napisałem taki program ale kurde jest straszny mały zasieg max do 3cm co w nim mozna byłoby zmienic ?? $regfile = "attiny13.dat" $crystal = 9600000 Config Pinb.4 = Output Portb.4...
Nie bardzo wiem o co chodzi. Wyświetlenie tego kodu nic mi nie da. Z programowania jestem noga, a właściwie to mój pierwszy zaprogramowany procek. Nie miałem tego tiny więc użyłem tiny13 i skleciłem taki kod wzorując się na szanownych forumowiczach. $regfile = "attiny13.dat" $crystal = 1200000 $hwstack = 16 Config Rc5 = Pinb.1 Config Pinb.0...
bascom regfile regfile attiny2313 regfile atmega
termostat płyty grzewczej renault scenic sterownik zmywarka bosch schemat
wolny rozruch szlifierki wolny rozruch szlifierki
Quad Kawasaki KVF 750 odpala tylko z dzarpaka - przyczyny i rozwiązania Tryb letni i zimowy w pilarce Makita DCS 33 - jak działa?