Napisz: [syntax=vbnet]$regfile = "attiny2313.dat" $crystal = 8000000 $hwstack = 24 $swstack = 16 $framesize = 32[/syntax] Miłego dnia ;)
Jak dopisałem na początku: $regfile = "attiny2313.dat" to zaczęło się kompilować.
Zmień to: $regfile = "2313def.dat" na to: $regfile = "attiny2313.dat" i obserwuj rezultat :)
Wystarczy kilka linii: $crystal = 4000000 $regfile = "attiny2313.dat" $baud = 9600 Do Print "test" Waitms 500 Loop End Pozdrawiam...
Pisane "prawie z pamięci": $regfile = "attiny2313.dat" '$crystal = 16000000 Ddrb = &B11111111 Tccr1a = &B01000000 Tccr1b = &B00001010 Tccr1c = &B10000000 Ocr1ah = &H01 Ocr1al = &HFF Sprawdź czy generuje prostokąt, jeśli nie odznacz linie "TCCR1C".
$regfile = "attiny2313.DAT" lub zaznaczenie uC w opcjach kompilatora. Dodatkowo być może przyjdzie się zmagać z "fusami" bo Tiny 2313 ma preskaler ustawiony do podziału zegara przez 8. Przy częstotliwości generatora kwarcowego np. 16MHz chodzi z częstotliwością 2MHz. Jeżeli to nie przeszkadza to wystarczy w Bascomie wskazać zegar 2000000Hz i po kłopocie.
$regfile = "attiny2313.dat" $crystal = 1000000 Config Portb = &B00000001 Do Set Portb.0 Wait 1 Reset Portb.0 Wait 1 Loop Jeżeli nie przestawiałeś Fusebitów to dioda będzie zapalana i gaszona na jedną sekundę. Pozdrawiam
$regfile "attiny2313.dat" $crystal = 1000000 Config Portb.4 = Output Dim I As Byte Config Timer0 = Timer , Prescale = 1024 On Timer0 Przerwanie 'Start Timer0' nie potrzebne Enable Timer0' zezwolenie na przerwanie timera Enable Interrupts Do Loop Przerwanie: Incr I If I > 10 Then Toggle Portb.4 I = 0 End If Return
Jaką częstotliwość zegara masz podaną w ustawieniach Bascoma, tak samo jaki uK masz podany? Zawsze lepiej użyć dyrektyw REGFILE i CRYSTAL. Czy poprawnie masz ustawione źródło sygnału zegarowego w bitach konfiguracyjnych? Poprawiony kod: $regfile = "attiny2313.dat" $crystal = 1000000 Config pind.6 = output Config pind.4 = output portd.4 = 0...
Teoretycznie , ten kod powinien włączać/zatrzymywać odtwarzanie na czas 5s , czyli 5s gra , 5s pauza i tak w kółko ;) $regfile = "attiny2313.dat" $crystal = 8000000 Const Header_lenght3mode2 = &H020355FF Const B_play_pause = &H0100 $baud = 19200 Do Printbin Header_lenght3mode2 Printbin B_play_pause Printbin &HFA Waitms 20 Printbin Header_lenght3mode2...
Musisz zaznaczyć cały tekst który chcesz pokazać jako kod, a następnie zaznaczyć napis Code $regfile = "attiny2313.dat" $crystal = 8000000 'kwarc 1MHz $prog &HFC , &HE4 , &H9F , &H00 ' generated. Take care that the chip supports all fuse bytes. Config Timer1 = Timer , Prescale = 64 'timer1 jako licznik 15536 Config Int0 = Rising 'detetor zera...
w tym programie wystarczy zmienić tylko typ mikrokontrolera $regfile = "attiny2313.dat" różnica w stosunku do 90s2313 to kilka dodatkowych funkcji sprzętowych i programowych oraz wewnętrzny generator RC A mógłbym zaprogramować mu jakąś kombinacje ruchów ? nie ma żadnego problemu , wystarczy odwołać się do podprogramów ruchu plus funkcja wait...
$regfile = "ATtiny2313.dat" nie pamiętam czy taki jest nagłówek dla tego procka w bascomie a nie np tiny2313.dat albo tn2313.dat sprawdź to sobie sam ..... przecież to już nie problem mając bascoma a potem kompilacja i masz HEX'a - no przecież już o tym pisałem aha tylko jeszcze jedno - trzeba przestawić panie kochany fusebity w procku ATtiny2313 np...
Witam ! Proszę, tu masz działający ( sprawdzony program): $regfile = "attiny2313.DAT" $crystal = 9600000 Config Portb.0 = Output Config Portb.1 = Input Portb.1 = 1 Set Portb.0 S2 Alias Pinb.1 Do Debounce S2 , 0 , Impuls Loop End Impuls: Reset Portb.0 Wait 3 Set Portb.0 Return Zmień tylko pierwszą linię bo sprawdzałem na ATTiny2313.
$regfile = "attiny2313.dat" $crystal = 4000000 Config Portb = Input Portb.0 = 1 Config Portd = Output Portd = &B11111111 Dim Temp As Byte Temp = 1 Do Temp = Temp * 2 If Temp > 80 Then Temp = 1 Portd = Temp Toggle Portd If Pinb.0 = 0 Then Bitwait Pinb.0 , Set End If Waitms 500 Loop End Dodałem znaczniki
Zmień schemat: Przyciski podłącz do masy, elektrolit zamień na ceramik 100nF a diodę podłącz przez rezystor do zasilania a katoda do uc. Program: $regfile = "attiny2313.dat" $crystal = 1000000 ddrb =&B11111100 PORTB = &B00000011 ddrd =&B11111111 PORTD = &B00000000 do if pinb.0 =0 then waitms 100 portd.0 = 0 end if if pinb.1 =0 then waitms...
Poprawiłem trochę składnię $crystal = 1000000 $regfile "attiny2313.dat" Dim Bylo As Integer If Portd.6 = 1 And Bylo = 0 Then Bylo = Portd.6 Wait 5 Set Portd.7 Else If Portd.6 = 0 And Bylo = 1 Then Bylo = Portd.6 Wait 5 Reset Portd.7 End If End If Zalecam jednak poczytać help od Bascoma, za nim zaczniesz pisać programy. Pzdr.
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ć...
Zobacz to: $regfile = "attiny2313.dat" 'najpierw określamy typ proca $crystal = 1000000 'definiujemy z jakim taktowaniem będzie pracował config portb=input 'port b jako wejścia portb=&B11111111 'wszędzie stan spoczynkowy-1 config portd=output 'pprt d jako wyjścia portd=&B0000000 'wszędzie stan spoczynkowy-0 Do 'pętla nieskończona Debounce...
Witam Sprawdź czy napewno pin 5 (R/W) wyświtlacza jest zwarty do masy, bo bez tego LCD nic nie przyjmie do siebie? Zamieszczam skompilowany kod testowy: $regfile = "attiny2313.dat" $crystal = 4000000 Config Portb = &B11111111 : Portb = &B11111111 Config Portd = &B11111111 : Portd = &B11111111 Config Lcdpin = Pin , Db4 = Portb.4 , Db5...
Witam ! Problem 1: $regfile = "attiny2313.dat" Config Lcdpin = Pin , Db7 = Pb.2 , Db6 = Pb.3 , Db5 = Pb.4 , Db4 = Pb.5 , E = Pb.6 , Rs = Pb.7 Config Lcd = 16 * 2 $crystal = 10000000 Cursor Off Cls Config Pinb.1 = Input Portb.1 = 1 Went Alias Pinb.1 Do If Went = 0 Then Locate 1 , 1 Lcd "Wentylator Wl. " Else Locate 1 , 1 Lcd "Wentylator...
Nie mogę się doszukać w helpie jak skonfigurować i używać PWM dla Tiny2313 w Bascom AVR a wyszukiwarka na forum nie działa, ktoś może mi pomóc? Ponieważ nie za bardzo ufam Bascomowi przy konfiguracji automatycznej( Config Timerx) , to wolę poustawiać rejestry ręcznie , korzystając z dokumentacji :D $regfile = "attiny2313.dat" $crystal = 1000000...
Witam ! Oto program napisany w Bascom AVR na ATtiny2313. Myślę zę sobie poradzisz ze zmianą na Megę8. Odczytuje on Adres i Rozkaz kodu Rc5 i wyświetla na wyświetlaczu LCD. $regfile = "attiny2313.dat" $crystal = 10000000 Config Lcdpin = Pin , Db7 = Pb.2 , Db6 = Pb.3 , Db5 = Pb.4 , Db4 = Pb.5 , E = Pb.6 , Rs = Pb.7 'Config Lcd = 16 * 1a Config...
To taki programik do sprawdzania pod jakim adresem jest coś na I2C: $crystal = 11059200. $regfile = "aTtiny2313.dat" Config Lcd = 16 * 1a Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.3 , Rs = Portb.2 Config Scl = Portd.5 Config Sda = Portd.6 Dim Adres As Byte Cls Lcd "start" Wait...
program zrobiłbym inaczej to moja propozycja : $crystal = 8000000 $regfile = "attiny2313.dat" Config Portd.4 = Output 'jak 0 do gory Config Portd.5 = Output 'jak 0 na dol Config Pinb.0 = Input 'czunjik gorny Config Pind.6 = Input 'czujnik dolny Config Pinb.7 = Input Portd.4 = 1 Portd.5 = 1 Declare Sub Gora Declare Sub Dol Do If Pinb.7 = 0...
Już na wstępie masz złą deklarację procesora $regfile. Na początku pisałeś o ATtiny2313, więc $regfile = "ATtiny2313.DAT"
Mniej więcej tak: $regfile "Attiny2313.dat" $crystal = 4000000 Config Pind.3 = Output Config Pind.0 = Input Config Pind.1 = Input Config Pinb.3 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 8 Dim I As Byte S1 Alias Pind.0 S2 Alias Pind.1 Set Pind.1 Set Pind.0 Pwm1a = 0 Do If I...
$regfile = "attiny2313.dat" $crystal = 4000000 Config Pind.2 = Input Config Portd.0 = Output Config Portd.1 = Output Config Portd.3 = Output Set Portd.2 Przycisk Alias Pind.2 Dim Sekwencja As Byte Declare Sub Pierwsza Declare Sub Druga Declare Sub Trzecia Enable Interrupts Enable Int0 On Int0 Przycisk_przerwanie Do Loop End Przycisk_przerwanie:...
Witam ! Konfiguracja $regfile = "2313def.dat" przeznaczona jest dla AT90S2313, dla ATTiny2313 jest konfiguracja $regfile = "ATtiny2313.dat" Pozdrawiam. Stefan
Tam nic nie trzeba zmieniać. Wystarczyło podłączyć do identycznych linii LCD i DS18B20 i zmienić $regfile = "Attiny2313.dat" na $regfile = "mega8.dat"
Prawdopodobnie kompilujesz program przy ustawieniu niewłaściwego uP doclowego. Użyj na początku programu $regfile.
witam czy jest mozliwosc przeniesienia programu na atmege8? jesli tak to tylko trzeba zmienic $regfile = "attiny2313.dat" na $regfile = "m8def.DAT" ? i wszystko łącznie z portami będzie tak samo dzialac?
A gdzie masz ustawione deklaracje ? $regfile = "attiny2313.dat" $crystal = xxxxxxxxxx
Dzinx Zaraz się zabieram za Twojego help'a ;) Już - stestowane : Dodano po 31 $regfile = "attiny2313.dat" $crystal = 8000000 Config Portb = Output 'Portb = 0 Config Portd = Input Portd = 0 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8 Start Timer1 Config Timer0 = Pwm , Prescale = 8 ,...
paavo91 Podkreślam że działanie musi być natychmiastowe i nie zależne czy przycisk wcisnę na moment czy wcisnę i przytrzymam. .............. ,......jak to rozwiązać. Zastosuj konstrukcję 'DEBOUNCE' w połączeniu z "Toggle Switch" jak dla przyładu przełączania/załączana świateł głównych: [code][syntax=basic4gl] $regfile = "attiny2313.dat" $crystal =...
Zrobiłeś coś takiego? $regfile = "attiny2313.dat"
Zdaje się, że bot czyta tylko to, co jest po wywołaniu go. (at)ElektrodaBot, przetłumacz poniższy kod z BASCOM AVR na Arduino Uno: [syntax=vbnet]$regfile = "attiny2313.dat" $crystal = 8000000 Dim A As Byte a=0 Config Pind.6 = Output led Alias Portd.6 led= 0 Config Pind.0 = Input Portd.0 = 1 Sw Alias Pind.0 do if a >1 then a=0 if sw=0 then bitwait sw,...
Jeśli zmienisz $regfile = "$regfile = "2313def.dat"" na regfile = "ATtiny2313.DAT to będzie ci wszystko działać. Twoje attiny i AT90 są w twoim przypadku zamienne.
zamiast $regfile "attiny2313.dat" dajesz $regfile "mega8.dat" i już masz dla ATmega8. Tylko musisz dodać jeszcze w programie konfigurację dla LCD. To znaczy jakie porty uP sa podłączone do jakich linii w LCD.
Czy to na pewno cały program? Jeśli tak to na początek dodaj: $regfile = "attiny2313.dat" $crystal = xxxxxxx
$regfile = "attiny2313.dat" $crystal = 1000000 Config portb=input portb=&B11111111 Config portd=output portd=&B0000000 Startt Alias Pinb.0 Stopp Alias Pinb.1 czujnik alias pinb.2 awaria alias pinb.3 otw alias pind.3 Zamknij Alias Pind.4 do If Stopp = 0 Then If Startt = 1 Or Awaria = 1 Then Zamknij = 0 Otw = 1 End If Else ' gdy stop=1 If Czujnik...
Jedyne co mi do głowy przychodzi jeszcze to dyrektywa $regfile = "attiny2313.dat" na poczatku programu :D
Nie wiem skąd takie bzdury przeczytałeś - te procesory nie mają bitu kompatybilności, ale z punktu widzenia rejestrów Attiny2313 to prawie to samo co poczciwy 90s2313. Programy w Bascom powinny działać po zmianie $regfile na taki odpowiedni dla procesora Attiny2313: $regfile = "attiny2313.dat"
Proponuję zacząć od zmiany definicji uC. Zamiast : $regfile = "attiny2313.dat" Proszę użyć: $regfile "m8def.dat"
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...
$regfile = "ATtiny2313.DAT" zmień na $regfile = "m8def.dat" Tu jest schemat: Dat Alias Portb.7 Ena Alias Portb.6 Clk Alias Portb.5
a jakie powinny być ustawienia w Options->Compiler->Chip/I2C,SPI,1W... i czemu wyświetla się komunikat,że "selected and target chip do not match 90s2313 <> attiny2313" pomimo,że w programie mam " $regfile="attiny2313.dat" ?"
Poczytaj tematy i uzyj szukaj. Attiny2313 nie posiada adc wiec potencjometrem nie dasz rady tego sterowac. Domyslam sie ze robisz do w bascomie. Tu masz kawalek kodu jak konfigurowac timery zebys mial 4 pwm. '******* procek ******* $regfile = "attiny2313.dat" $crystal = 8000000 $hwstack = 30 $swstack = 30 $framesize = 30 '****** dioda R/G...
Najpierw zamień bo wybrałeś nie ten uC [syntax=vbnet]$regfile = "2313def.dat" 'AT90S2313 na $regfile = "attiny2313.dat" 'Attiny2313[/syntax] Potem sprawdź patrząc przez kamerę jakiegoś telefonu czy dioda coś nadaje.
Ja tam się nie znam bo to jakiś dziwaczny język ale skoro masz: $regfile = "attiny2313.dat" to to jest wyraźna sugestia że to nie na atmega8, więc tą linijkę trzaby aby zmienić.
Ściągnąłeś program na AT90S2313 a kompilujesz go na ATTiny2313. I kompilator to wyraźnie mówi na pierwszym obrazku. Ustaw: $regfile = "attiny2313.dat" na początku programu. No i program napisany na AT90S2313 niekoniecznie będzie działał na ATTiny2313.
Witam. Sprawdź w ten sposób: $crystal = 1000000 'deklaracja częstotliwosci pracy kwarcu $regfile "attiny2313.dat" 'model procesora dla którego jest ten program Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32 ' definicja znaku stopnia Config 1wire = Portd.5 ' konfiguracja portu PD.5 jako wejscia magistrali 1-wire Dim Odczyt(2)...
Można, ale trzeba dokonać drobnych modyfikacji w programie, między innymi zamienić $regfile = "attiny2313.dat" na $regfile = "m8.dat"
:arrow: Balu jak zwykle masz racje! Powinno byc: $regfile = "ATtiny2313.DAT" No ale coz ja zaczynalem od ATMega8, a pozniej 16+ ;)
Jeśli FUSE masz ustawione prawidłowo ,to program musi działać . Nic więcej nie trzeba dopisywać. $regfile = "attiny2313.dat" załatwia sprawę za ciebie. Ustaw w opcjach Attiny 2313 dat jeśli musisz. Nie da się wymyślić prostszego programu.
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...
A więc na życzenie kolegi wstawiam kod pilocika IR który zrobiłem z myślą o sterowaniu nim piórnikiem elektronicznym który mam zamiar wykonać . W moim pilocie w celu oszczędzania baterii która jest "pastylka" taka jak ta na płytach głównych to po wciśnięciu jednego bądź drugiego guzika zostawało podawane plus albo minus zasilania procesora i od razu...
Masz błędny kod. Jak chcesz by program działał jak trzeba to musisz wiedzieć co robi każda linijka. Włączasz przerwanie od przepełnienia timera0, a nie maż funkcji do jego obsługi. Deklarujesz funkcję do obsługi przerwania zewnętrznego, a nie masz funkcji obsługi i nie zezwalasz na to przerwanie. Na moje oko to po uruchomieniu timera procesor się zresetuje...
Program poprawiłem i działa na symulatorze dobrze. Teraz tylko zaprojektować płytkę. Mam też pytanie czy musi być zewnęczny rezonator kwarcowy 8Mhz jak w programie mam ustawione na mikrokontroler [syntax=vbnet]$regfile = "attiny2313.dat" , Wybór Mikrokontrolera $crystal = 1000000[/syntax] Schemat.
Ustawiłem fuse bity na oscylator zewnętrzny 3-8MHz (kwarc 3726800). Program: $regfile = "ATtiny2313.dat" $crystal = 3276800 Config Portb = Output Portb = &B00000001 Do Rotate Portb , Left Wait 1 Loop End I czas jednak nie wyszedł 1s, jest ok. 8s.
Znalazłem coś takiego jak go przerobić aby dobrze działało: [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal = 4000000 Config Portd.5 = Output Ocr0b = &H37 'wartość obliczyć tak:$crystal/(36000*2) Ocr0a = &H37 'j/w Tccr0a = &B00010010 Tccr0b = 1 Do nop Loop end [/syntax]
jeżeli użyje tego polecenia czy wtedy muszę zmieniać też if PIND.6=1 na if PIND.6=0 ? $regfile = "attiny2313.dat" $crystal = 1000000 Config Portd = Input Portd = &B1111111 Config Portb = Output Portb = &B00000000 Do if PIND.6=1 Then toggle PORTB.0 waitms 100 End if Loop end if PIND.6=0 $regfile = "attiny2313.dat" $crystal = 1000000...
Chwilowo straciłem ten kod postaram się go znaleźć ale opierałem się na projektach z internetu. No bez jaj. Na 99% nic nie masz tylko czekasz na gotowca. Ale dobra, zlituję się na święta :D Pomijając całą beznadziejność kodu do multipleksowania wyświetlacza, takie coś powinno działać: $regfile = "ATTiny2313.dat" $crystal = 8000000 Dim Jednosci...
Witam ! w Tych liniach są błędy: $regfile = "attiny2313..dat" $crystal 10000000 config portd input portd 0000000 config portb output portb 00000000 Jak pokażesz schemat to poprawię błąd i przetestuję program. Pozdrawiam. Stefan
Niestety nie. Zmieniłem procka na tiny2313. Tak wygląda u mnie początek: $regfile = "attiny2313.dat" $crystal = 8000000 Teraz się chyba nie pomyliłem, że to 8MHz? Fuse bity również ustawione na 8MHz i nie hula jak powinno.
Wklej to: $regfile "attiny2313.dat" '$crystal = 11059200 $crystal = 1000000 Config Portb = Output Config Portd = Output Portb = 0 Portd = 0 Do Loop : End Wygrzebałem zl11avr z pudła, wgrałem i świeci. ver. ...9.3 Bascoma Na której stronie to ćwiczenie?
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...
Dla tiny oczywiście jest: $regfile="attiny2313.dat" W funkcji czas zastosuj: Timer1 = Timer1+3036 zamiast Timer1 = 3036
Zdefiniuj zmienną Temp jako Word. Jak ci ma wyświetlić 600 jesli zmiena Byte może przyjąc max wartość 255. Właśnie powyżej tej wartości będą ci sie wyświetlać dziwne rzeczy. No to może wytłumaczę jak to zrobić na zmiennej typu Byte według wyżej wspomnianej ideii. $crystal = 4000000 $regfile "attiny2313.dat" Dim Pomiar As Single Dim Temp As...
Znalazłem też takie coś to chyba będzie fajniejsze!!! http://mirley.firlej.org/mini_lampka_rgb... Skompilowałem program i jest,OK. Zauważyłem jednak mały błąd, otóż na schemacie kwarc ma 10MHz , a w programie zdefiniowany jest jako 16MHz ,zgadzacie się ze mną??? (na wszelki wypadek kupie oba :) ) $regfile = "attiny2313.dat" $crystal = 16000000
witam zmieniłem na attiny2313 i nadal nic, co to znaczy compare1a?? Dodano po 4 jak się ustawia typ procesora i czętotliwość, to już nie trzeba piasć $regfile = "attiny2313.dat" $crystal = 4000000? to na ile mam ustawić taktowanie w tym przypadku?? poza tym tu jest kwarc zewnętrzny, to chyba trzema zmienić fusebity.
Spróbuj tego: $regfile "attiny2313.dat" $crystal = 4000000 Config Portd = &B11111100 Portd = &B00000011 Config Lcd = 16 * 2 Config Lcdpin = Pin , E = Portb.1 , Rs = Portb.2 , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 Config Timer0 = Timer , Prescale = 8 Enable Interrupts Enable Timer0 On Timer0 Przerwanie Dim Czas_cyklu...
Jak podłączam zaasilanie to raz komunikacja działa a raz nie, tzn. włączam układ działa, wyłączam i znowu włączam i już jest problem, może to że piny nie wykożystane nie są zaprogramowane powoduje błąd i zawieszanie się programu dodałem migającą diodę i miga cały czas więc program się nie zawiesza. Już mi ręce opadają :( jak wpisze do uC to : [syntax=basic4gl]...
Nie wiem czy dobrze kombinuję: $regfile = "ATtiny2313.DAT" $crystal = 8000000 Config Timer0 = Timer , Prescale = 256 On Timer0 Sekunda Enable Interrupts Enable Timer0 Dim Scnt As Integer Sekunda: Incr Scnt Return Czego tu jeszcze brakuje? Bo w symulatorze nie działa, tzn nie zwiększa zmiennej scnt.
Witam ! Trochę zmieniłem, i działa. $regfile = "attiny2313.dat" $crystal = 1000000 Config Portb = Input Portb = &B11111111 Config Portd = Output Do If Pinb.0 = 1 Then Portd.0 = 1 Else Portd.0 = 0 End If Loop End Pozdrawiam. Stefan
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...
Witam sprawdź ten kod co prawda są inne numery portów i inny procek ale jak zmienisz powinno działać. Problem jest jeden w momencie jak naciskasz przycisk i zmieniasz końcówkę na WYJŚCIE to stan tego pinu Musi być (0) Niski , żeby nie zrobić zwarcia. '$sim $regfile = "attiny2313.dat" $crystal = 11059200 $baud = 9600 enable interrupts 'włącz...
To spróbuj tego. $regfile "attiny2313.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , E = Portb.3 , Rs = Portb.2 , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 Cls Lcd "Dziwna pogoda" Stop Piotrek
http://obrazki.elektroda.pl/4290621400_1... Link do schematu. Przykładowy kod: $regfile"attiny2313.dat" $crystal=4000000 config portb=255 portb=255 config portd=&b1111111 portb=&b1110111 do wait 1 toggle portb.0 loop end
Witam, mam ten sam problem, połączyłem układ tak jak w pierwszym poście. Kod nadajnika: $regfile "attiny2313.dat" $crystal = 4000000 Dim A As Byte A = 0 Config Portd.2 = Output Re_de Alias Portd.2 Set Re_de Do Toggle A Printbin A Wait 1 Loop End Kod odbiornika: $regfile "attiny2313.dat" $crystal = 4000000 Dim A As Byte A = 0 Re_de...
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ę"...
Witam Z tego co widziałem to na początku programu brakuje definicji mikrokontrolera oraz częstotliwości z jaką ma pracować. Powinno wygladać tak: $regfile = "attiny2313.dat" $crystal = .......... Tam gdzie kropki wpisujesz częstotliwość z jaką ma pracować attiny. W nocie katalogowej jest napisane z jakimi częstotliwościami działa. Tego sie dopatrzyłem...
Wgraj ten program ( w celu sprawdzenia procka ): $regfile = "attiny2313.dat" $crystal = 16000000 Config Portd = &B11111011 : Portd = &B11111111 Dioda Alias Portd.6 Do Waitms 500 Set Dioda Waitms 500 Reset Dioda Loop End LED na pinie 11tym powinna migać. za chwilę sprawdzę Twój schemat.
$regfile = "attiny2313.dat" , Wybór Mikrokontrolera $crystal = 1000000 Config Lcdpin = Pin , Db7 = Pb.2 , Db6 = Pb.3 , Db5 = Pb.4 , Db4 = Pb.5 , E = Pb.6 , Rs = Pb.7 Config Lcd = 16 * 2 Masz już (wybrane) wpisane. Przy wgrywaniu do mikrokontrolera usuń dyrektywę $sim
W załączniku masz HEX i BIN. $regfile = "attiny2313.dat" $crystal = 1000000 Config Pinb.5 = Input Config Pinb.0 = Output Led Alias Portb.0 Set Portb.5 Do !sbic pinb,5 !jmp koniec Set Led Waitms 200 Reset Led Waitms 200 Koniec: Loop End
witam ! '2 wyświetlacze LED 7segmentów 'fusebity ustawione fabrycznie $regfile = "attiny2313.dat" $crystal = 1000000 Config Portb = Output 'katody segmentów LED Config Portd = Output Anoda1 Alias Portd.0 Anoda2 Alias Portd.1 Dim Nr_wysw As Byte Dim Cyfra2 As Byte Dim Cyfra1 As Byte Dim Temp_liczba_1 As Word Dim Temp_liczba_2 As Word Config...
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)...
...Jeżeli ktoś ma jakiś pomysł ... Ja mam taki pomysł :D $regfile = "ATtiny2313.dat" $crystal = 4000000 Dim Wa As Byte , Kierunek As Byte Config Portb = Output Config Portd = Input Wa = 99 Portd = &B1111 Do Lus: Kierunek = Pind And &H0F ' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 On Kierunek Gosub Na , Na , Na , Na , Na , Bl , Fl , Ll , Na...
Miałem kiedyś jakąś potrzebę na taki 8-o przyciskowy program dla attiny2313. Zamieszczam go w całości z komentarzami, może Ci się przyda: [syntax=basic4gl]$regfile "attiny2313.dat" $crystal = 1000000 '-- Config Portb = Input Portb = &B11111111 Config Portd = Output Portd = &B00000000 Config Porta.0 = Output Porta.0 = 0 Dim Nr As Byte 'licznik...
$regfile = "attiny2313.dat" Config Portd = Input Portd = &B1111111 Config Portb = Output Portb = &B00000000 Do Debounce Pind.0 , 0 , Dioda , Sub Loop End Dioda: Toggle Portb.0 Wait 2 If Pind.0 = 0 Then Portb.0 = 1 Wait 5 Portb.0 = 0 End If Return łatwiej się już chyba nie da.
No to już dobrze :) Dodaj te linie definiujące stos z wcześniejszego posta. Może to one są winne. Którą masz wersję bascoma ? EDIT: Jak byś chciał go z 12Mhz pędzić to zmień linie: [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 12000000 Config Timer0 = Timer , Prescale = 64 Const Przerwanie = 219 '12MHz/64/37=5068Hz /32 poziomy PWM = ok 158Hz(PWM)...
Ustawiłem tak jak mówiliście, również z bitem C, ale mam teraz problem z uartem. Program jest bardzo prosty: $regfile = "attiny2313.dat" $crystal = 4000000 $baud = 9600 Do Print "1" Wait 1 Print "2" Wait 1 Loop Jak odpalam terminal przychodzą same <0> :cry: Szukać czegoś w fusach jeszcze czy kombinować z programem?...
Witam ! Twój program można wgrać do procesora, mi się to udało bez problemu, programatorem AVR910. Pamięć eeprom też jest zapisana. Zawartość odczytana z eepromu: :020000020000FC :10000000FFFFFFFFFFFFFFFFFFFFFFFFFFF... :10001000FFFFFFFFFFFFFFFFFFFFFFFFFFF... :10002000FFFFFFFFFFFFFFFFFFFFFFFFFFF... :10003000FFFFFFFFFFFFFFFFFFFFFFFFFFF...
Przy was widzę jak mało wiem z elektroniki ale jak to mówią im więcej się uczysz tym widzisz jak mało wiesz. W każdym razie, spróbuje z samym tranzystorem. A i czy można jakoś sprawdzić/wyliczyć jaką częstotliwość ja wykorzystuje ?? Mam takie ustawienia: $crystal = 4000000 $regfile "attiny2313.dat" Config Timer1 = Pwm , Pwm = 8 , Prescale...
Funkcja Getrc5 działa z przerwaniem INT0 lub INT2. Z INT1 nie można jej skonfigurować. Ustaw w programie Timer0 i podłącz odbiornik na Pind.2 (dla ATtiny2313). Wyjaśnij proszę co to znaczy ? Jeśli masz na myśli że w przypadku ATtiny2313 RC5 działa tylko z pinem Portd,2 to się mylisz. Ta konfiguracja: [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal...
$regfile = "attiny2313.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2 Cursor Off Cls Lcd "działa? " ; Lowerline Wait 2 Lcd "Tak" Wait 5 Cls Zobacz to :D A jak nie ruszy to sprawdź połączenia.
Program to Bascom AVR, programator $regfile = "attiny2313.dat" $crystal = 1000000 Config Pind.5 = Input Pind.5 = 1 ' Config Portb.0 = Output Portb.0 = 1 Do If Pind.5 = 0 Then Portb.0 = 0 Else Portb.0 = 1 End If Loop End
Witam ja miałem taki problem z Powerdown że układ nie wyłączał się całkiem mianowicie gdy miał przejść w tryb Powerdown zauważyłem że układ w tym trybie w ciąż pobierał prąd kilka mA i nie dał się wybudzić przerwaniem rozwiązałem ten problem w taki sposób że użyłem biblioteki ($regfile = "ATtiny2313.DAT") ze starszej wersji BACOM-AVR 11.1.8.1. Po skompilowaniu...
Witam, Mam taki kod: $sim $regfile = "attiny2313.dat" $crystal = 1000000 Dim A As Byte Dim Liczba As Byte A = 125 Print Bin(a) 'printuje 01111101 Liczba = Bin(a) Print Liczba 'printuje 48 Dlaczego dostaję Liczbę 48, skoro wg. mnie w dwóch przypadkach powinienem dostać 01111101
Koleś coś Ci się pop...... posłałeś kolesiowi pllik na AtMega 32 a on ma Atiny 2313, To zdanie świadczy jedynie o tym ze jestes w tym temacie laikiem. Chyba kazdy wie ze wystarczy zamiast: $regfile = "M32def.dat" wpisać: $regfile = "Attiny2313.dat" Poza tym ten programik ktory podalem wczesniej byl do testu. Problem tkwi jedynie...
regfile attiny13 bascom regfile regfile atmega
indukcja plyta schemat klimatyzacja volvo instrukcja still
eltax atomic kable modus głośników
Schemat połączenia zasilania paliwa Mercedes Sprinter 311 CDI Opel Frontera 2.5 TDS - Lokalizacja Przekaźnika Świec Żarowych