Unknown statement Atmega 8 nie ma portu "A". (tylko "B", "C" i "D"). Nie zmieniłeś też $REGFILE na poprawny! Jeżeli chodzi o regfile to zmieniłem, kod na samej górze jest oryginałem, stąd brak zmian w nim Dlaczego przerabiasz kod na takiego dinozaura? Jeśli chcesz zastosować tańszy procesor to spróbuj ATmega88PA, ATmega644P albo inne z końcówką 4PA...
Witam mam problem. Mam program do pomiaru temp 2xDS18B20 podłączone do PB0 (1wire). Po uruchomieniu uK z prawej strony LCD wchodzi pewnien napis potem znika i wyświetla się temp. Na 8535 działa wszystko Ok napis ladnie i płynnie wjeżdża a na 32L wchodzi ale wooolno co 4 sekundy jedna literka a pomiar temperatury w ogóle nie działa. Program jest napisany...
własnie to czytałem wcześniej i nie mogę dać sobie rady.Mam atmege8L podłączoną bezpośrednio pod LCD 3310 (logika 3,3 v). Nic mi się nie wyświetla.dlatego proszę o podesłanie jakiegoś programiku w Bascomie pod atmege8 z opisem jakie porty do czego podpiąć żebym w końcu doszedł co mam źle. Za każdym razem wykorzystuję programy z innego procka a z racji...
Witam Korzystając kodu Tuxgraphics zmodyfikowanego przez Kolegę Mundi1970 , chciałem również postawić prosty serwer pokazujący temperatury z kilku czujników oraz wilgotność i ciśnienie. Po zmianach regfile i pinu CS nie mogę go jednak skompilować. Występują trzy błędy: Error 46 Line: 363 Assignment Error Enc28j60_linkup Erroe 229 Line: 450 End Sub or...
dajesz tak $regfile = "m8def.dat" $crystal = 8000000 lcd "jestem atmega" wait 1 cls lcd "cos tam znowu" wait 1 cls lcd "i tak dalej" ... do 'własciwy pogram loop end
Kurcze tylko mam kolejny problem bo mój program zajmuje już 40kb a będzie dalej rozbudowywany. Więc mnie blokuje znowu wersja demo. Chyba będe musiał zostawić tą atmege i zakupić atmegę64 i przegladnąć program i go jeszcze bardziej zmodyfikować, żeby zmniejszyć rozmiar. Dziwne jest to że mam wersję Bacoma 2.0.7.3 i tam również nie ma. Nie bardzo rozumiem...
Hahahaha :D tak! W IDE sa wpisane takie dla małego projektu i małego procesora. Mając większy projekt i procesor trzeba je albo tam zmienić albo wpisać bezpośrednio w projekcie. Kompilator się nie pyta o nie bo ma wpisane te domyślne, ale one są za małe. Musisz wiedzieć jaki masz mikrokontroler i ile ma RAM`u. Na przykład ATmega 32 ma 2kB RAM`u (dwa...
Witam, Przedewszystkim na początku umieć informację, która wskaże kompilatorowi dla jakiego procesora ma utworzyć kod: $regfile = "m8535.dat" Nie jest to konieczne jeśli wybierzesz ręcznie w ustawieniach Bascoma jaki to procek a vcd_a tak właśnie zrobił
Witam ! Przetestowałem ten kod: $regfile = "m8def.dat" $crystal = 1000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc , E = Portc.4 , Rs = Portc.5 Lcd "witam!" Fourthline Lcd "4" End i wszystko jest OK, program się kompiluje Prawdopodobnie powodem nie kompilowania...
Jtag możesz wyłączyć nawet w kodzie: [syntax=vbnet]$regfile = "m32adef.dat" $crystal = 8000000 $hwstack = 64 $swstack = 32 $framesize = 32 Disable Jtag[/syntax] Do tego wszystkie aliasy przycisków powinny się odnosić do PIN a nie PORT. W niektórych masz PINA i tam jest dobrze ale niektóre masz PORTD i tam zawsze mikrokontroler będzie odczytywał 0.
Te Waity do diody Led żeby patrzeć czy program się zawiesił nie są szczęśliwym rozwiązaniem dla programowego portu :D Zobacz tak. Dioda błyśnie jak coś odbierze i oczywiście wyśle Ci to drugim portem software`owym. [syntax=vbnet]$regfile = "m328pdef.dat" $crystal = 8000000 $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default...
To już załatwia bascom - jest ustawione na Auto. co do sedna, sprawdziłem dziś na swoim układzie kanały 0-7 ADC następującym programem: [syntax=basic4gl] $regfile = "m2560def.dat" $crystal = 16000000 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim Wart_adc1 As Word Dim Wart_adc2 As Word Start Adc 'AVCC bezpośrednio do 5V, AREF w powietrzu,...
Tak też można: $regfile = "m8def.dat" Config Portd.1 = Output:Config Portd.4 = Output Portd.1 = 0:Portd.4 = 1 Do Waitms 100 Toggle Portd.1:Toggle Portd.4: Loop Nie naruszasz wtedy innych końcówek portu D, które możesz wykorzystać do innych bardziej szczytnych celów. (A z końcówkami czasem jest krucho.)
Twoja konfiguracja jest dobra. $regfile = "m8def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db7 = Pb.0 , Db6 = Pd.7 , Db5 = Pd.6 , Db4 = Pd.5 , E = Pb.7 , Rs = Pb.6 cls Do locate 1,1 Lcd " Test " Loop End Wgraj ten program i pokręć potencjometrem od kontrastu.
To chyba powinno wyglądać tak: $regfile = "m8def.dat" Config Portb = Output Portb = &B00000000 Config Portd = Input Portd = &B11111111 Do If Pind.5 = 0 Then Portb.4 = 1 Loop End Oczywiście można i tak, ale mi działa tak jak ja napisałem. I autor tematu musi zbudowac programator STK200/300(pod LTP) lub STK500 pod USB.
Faktycznie, masz chyba jakąś starszą wersję Bascoma i brakuje pliku m644pdef.dat Musisz też pamiętać o ustawieniach opcji Bascoma i zmianie zapisu na początku programu na $regfile = "m644pdef.dat".
Pozwolę sobie umieścić post pod postem żeby wiadomość dotarła do zainteresowanego. Jeszcze lepszym wyjściem dla takiego zegara będzie zastosowanie dedykowanego rezonatorka 32768Hz (32,768KHz) Wartość 32768 to w zapisie binarnym dokładnie piętnaście bitów. Jeśli więc Timer będzie zliczał generowane impulsy to po 32768 uzna że mineła sekunda :D Bascom...
[syntax=vbnet] $regfile = "m16adef.dat" 'mikrokontroler $crystal = 8000000 'częstotliwości oscylatora taktującego mikrokontroler Poziom Alias Pina.7 : Config Poziom = Input : Set Poziom 'wew podciągnięcie do VCC Obudowa Alias Pinc.5 : Config Obudowa = Input : Set Obudowa 'wew podciągnięcie do VCC Led_p Alias Portc.4 : Config Led_p = Output 'po starcie...
Czy ATmega8535 ma tylko mierzsyć napięcie i wysyłać? Jeśli tak to po co taki duży uK do tego? :) Program może wyglądać tak: $regfile = "m8535.dat" $crystal = 16000000 $hwstack = 32 $swstack = 10 $framesize = 40 Dim W As Word Config Watchdog = 2048 Start Watchdog Reset Watchdog Config Adc = Single , Prescaler = Auto , Reference = Internal Start...
Programu napisanego pod ATmege8 nie można bezpośrednio wrzucić na ATtiny i odwrotnie. Pokaż lepiej oba swoje programy, bo link, który podałeś nie działa. Dodano po 2 Trzeba pewnie przynajmniej zmienić dyrektywę $regfile definiującą typ mikrokontrolera.
Na razie nie ma problemów z działaniem przy : $regfile = "m2560def.DAT" 'ATMEGA 2560 $crystal = 4000000 $hwstack = 64 $swstack = 64 $framesize = 64 Ale karta SD chodzi za wolno. Fakt że na soft-spi . Na Hardware zapewne można by poszaleć ale nie potrafię tego opanować niestety <rozkłada ręce>. Na moje oko procesor chodzi na 4MHz więc...
marcinek.p - to gotowiec dla ciebie, nie mam jak go przetestować ale jestem pewien że zadziała jak trzeba. Masz tu przerwanie, miganie led i zliczanie migniec z incr Mozna to wszystko wkleic do przerwania ale dobra zasada nakazuje w przerwaniach umieszczać jak najmniej kodu. [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 1000000 $hwstack = 32 $swstack...
e marcus to jest tak jest cała linia 8-bitowa na której lecą non stop jakieś dane do różnych układów, są też dodatkowe 4 linie sterujące na której lecą tylko impulsy "0" i wtedy właśnie lecą właściwe dane które chcę odczytać AVR'em. W sumie z tych 4-linii sterujących na jednej lecą impulsy "0" 128-raz y które wywołują Czy masz jakiś powód aby tą 8-bitową...
Witam, niestety ale chyba coś jest nie tak? Na wstępie należałoby wyjaśnić że nie ma czegoś takiego jak "automatyczne przeładowanie timera" (reload/load timer1 powiedzmy). Termin ten jest związany z procedurą konfiguracji timerów występującą tylko w trybie "Normal", gdzie każdorazowo początkowa wartość timera musi być wpisana przez processor. Taka...
Grala1 - Nie wiem czy ta wersja spełni oczekiwania : '$prog &HFF , &HE1 , &HD9 , &H00 ' Fusebity fabryczne !!! $sim ' dyrektywa opuszczania zwłoki (usunąć ten wiersz przy wgrywaniu w chip) $regfile = "m8def.dat" ' dyrektywa kompilatora o rodzaju procka ATMega 8 $crystal = 16000000 ' określenie kwarca 16 MHz Config Pinb.1 = Output...
Witam, Jak byś zobaczył do HELPa Bascoma to byś dużo się dowiedział :) $regfile = "m128def.dat" $crystal = 16000000 $baud = 9600 'set the baud rate for the first hardware UART. $baud1 = 9600 'set the baud rate for the second hardware UART. 'when CONFIG COMx is not used, the default N,8,1 will be used Config Pinb.7 = Output Config Com1 = Dummy...
Witam Moja propozycja jest taka sciagnij note katalogowa z atmela tam masz spis rejestrow z adresami tego procka ,utworz swoj plik np. atm168DEF.dat a w nim wpisz te rejestry(na podstawie jakiegos innego procka) . W pliku *.bas na poczatku wstaw $regfile ="atm168DEF.dat" i powinno dzialac Pozdrawiam
Witam, poniżej zamieszczam kod z Bascoma mojego sterownika BMS, w tej chwili kontroluje temperaturę, czas, Rs232, LCD 2x16. Obsługa z klawiatury lub pilota RC5, w obecnej chwili rozwiajm go o dostęp przez internet. zajmuje ok 8kb pamięci więc w A162 będziesz miał jeszcze drugie tyle pamięci. Ja kożystam z A32 Pozdrawiam. PS. daj znać jak zakończysz...
W takim razie nie trzeba żadnych rezystorów. Jeden koniec przycisku podłączasz do wybranego portu mikrokontrolera, a drugi do masy. W programie musisz dać "0" zamiast "1", ale to chyba wiesz sam. Przykładowo przycisk dołączony do PB1 ma zrobić podniesienie wartości I o jeden: $REGFILE="m8def.dat" $CRYSTAL=8000000 Config Pinb.4 = Output Config...
Witam. Nie wiem jak deklarujesz w programie dany mikrokontroler, ja wpisuję w ten sposób i nigdy nie miałem problemu. $regfile " m8def.dat" Każdą Atmegę 8. ATmega 8L może mieć większy zakres zasilania 2.7V - 5.5V.
Nie rozumie twojego postu . W warunkach kempingu nie wezne sieci . Zmodyfikuje aby przelaczalo na zmiane. $regfile = "m8def.dat" 'atmega 8 $crystal = 8000000 '8 mhz 'INNE KONFIGURACJE Config Timer1 = Timer , Prescale = 256 Config Portd = Output On Timer1 Juz '625 Enable Interrupts Enable Timer1 Load Timer1 = 624 ' powinnno byc 625 ale 0 to...
Witam. Po raz pierwszy zaczynam używać Atmegi128. Chciałem odpalić programik testowy który zapali diody. Zapalam cztery diody na PORTC i to działa. Problemem pojawia się kiedy wstawię do programu dowolne polecenie wait waitms waitus. Program tak jakby się wtedy zatrzymuje. Atmega pracuje na zewnętrznym kwarcu 8MHz. [syntax=basic4gl] $regfile = "m128def.Dat"...
W Bascom to parę linijek. Proszę bardzo: [syntax=vbnet] $regfile = "m32def.dat" 'wybor typu procesora $crystal = 8000000 'ustalenie czestotliowsci taktowania Config Pina.1 = Output ' diody Config Pina.2 = Output ' diody Config Pina.3 = Output ' diody Config Pina.4 = Output ' diody Config Pina.5 = Output ' diody Dioda_1 Alias Porta.1 'Wygodne aliasy...
Diodę gaś tak jak ją zapalasz. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 1000000 Config Portb.0 = Input Config Portb.1 = Input Config Portd.5 = Output Przycisk1 Alias Pinb.0 Dioda Alias Portd.5 Przycisk2 Alias Pinb.1 PORTB.0 = 1' to jest podciąganie do Vdd - działaj w tym celu na rejestrze 'PORTX lub PORTX.Y PORTB.1 = 1 Reset Dioda Do If Przycisk1...
Jeśli masz Atmegę 16 to zmień w porgramie $regfile = "m8def.dat" na: $regfile = "m16def.dat" Zakładam, że fuse bity ustwiłeś na taktowanie 8MHz, gdyż tyle masz w kodzie.. Jeśli to nowa ATmega i nie bawiłeś się fusebitami, to zamień w kodzie programu $crystal na $crystal = 1000000 ,gdyż takie taktowanie jest domyślnie ustawione fabrycznie.
Witam Na atmega8 program działa idealnie lecz na atmega 16 nie działa timer2 w ogóle nie zlicza nie mogę go uruchomić.. Czy na atmega16 uruchamia się go innaczej niż na atmega8. [syntax=basic4gl]$regfile = "m16def.DAT" $crystal = 1000000 $baud = 1200 Config Timer2 = Timer , Async = On , Prescale = 128 On Timer2 Zegarek Enable Interrupts Enable Timer2[/syntax]...
Cały mój program wygląda tak: [syntax=vbnet][/syntax] $regfile = "m48pdef.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config Lcd = 16 * 2 Set portb.6 Set Portb.7 Set portd.5 Config PIND.0 = Input Config PIND.1 = Input Config PIND.3 = Input Config PIND.4 = Input...
$Regfile="m128def.dat" $Crystal=8000000 Config porta=Output Porta=&B01010101 Do Rotate Porta,Left Waitms 200 Loop End Procek zapala co drugiego leda ale ruchu brak.Sprawdziłem fuse... mam włączoną 103 jak przełącze na "atmega 128 mode" świecą wszystkie ledy i nic
Chciałeś kod to masz, ale co to zmieni jak na attiny ten program działa a na atmega nie, to jest troche dziwne nie uważasz? $regfile = "attiny2313.dat" $crystal = 4000000 Config Portb.2 = Output Do Toggle Portb.2 Waitms 50 Loop PS: nie zadawajcie pytań czy podłączyłem dobrze bo dobrze podłączyłem. Za wszelkie sugestie dzięki. Aha i druga atmega którą...
Dodaj na początku dim flaga as byte. Resztę masz- podprogramy i główną pętlę. 'PROGRAM DO STEROWANIA SILNIKIEM KROKOWYM $regfile = "m8def.dat" $crystal = 8000000 Config Portb = Output 'czyli uaktywniam porty D Portb = &B01110111 'określam który z portów będzie jako pierwszy aktywny Config Pind.2 = Input Pind.2 = 1 Config Debounce = 30 'czekaj...
Proszę, może to Cię zachęci do przeczytania reszty we własnym zakresie. Program "miga" nośną 38kHz co 1ms ;) http://obrazki.elektroda.pl/5631733100_1... [syntax=vbnet] $regfile = "m8def.dat" $crystal = 8000000 $hwstack = 64 $swstack = 32 $framesize = 32 Config Timer2 = Timer , Prescale = 1 , Compare = Toggle , Clear Timer = 1 Compare2...
Zgodnie z sugestią ZbeeGin napisałem od nowa program pozbywając się większości goto, niestety dalej wychodzi na to że program w pętli głównej działa zbyt długo i nie zdąża z odczytem wartości z tabeli pomiędzy kolejnymi przerwaniami. [syntax=vbnet] $regfile = "m2560def.dat" $crystal = 16000000 '$sim Config Lcdpin = Pin , Rs = Portk.0 , E = Portk.1 ,...
Kochani, kompilator (1.11.8.6) wyrzuca błąd: 22 Line : 120 Out of SRAM space , in File : C:\PROGRAM FILES\MCS ELECTRONICS\BASCOM-AVR\CONFIG_AVR-DOS.Ba... Pozdrawiam i proszę o pomoc. idla Jakiego procesora używasz w $regfile ? Błąd dotyczy małej ilości Ram-u.
Jak to mówią diabeł tkwi w szczegółach... $crystal = 8000000 $regfile = "m16def.dat" Config Portb = Output Config Pina.1 = Input Do If Pina.1 = 1 Then Reset Portb.6 End If If Pina.1 = 0 Then Set Portb.6 End If Loop End
Przerobiłem tak, żeby wysyłał testowo tylko jedną wartość ( losową ) co 8 sekund Dodano po 18 Dołożyłem Clear Serialin0 Com1_str = "" czyli [syntax=vbnet] $regfile = "m328pdef.dat" $crystal = 8000000 $hwstack = 100 ' rozmiar stosu sprzętowego $swstack = 100 ' rozmiar stosu programowego $framesize = 128 $baud = 19200 '************ Uart 0 Config Serialin0...
Pobór prądu mierzę z odpiętym programatorem, obniżam napięcia do 2.2V (mniej nie mogę bo wyłącza się lcd) W programie mam tak : [syntax=basic4gl] $Regfile="m169def.dat" $Crystal=1000000 $hwstack=40 $swstack=16 $framesize=32 config portf=input set portf config porte=input set porte config portb=input set portb config portg=input set portg config portd=input...
"Jak ustawisz minimalną dla 2 stanów to wykresem jest linia prosta" Oczywiście, jak sama nazwa wskazuje PWM to Pulse-width modulation.(modulacja szerokości impulsu) Jeśli zasilisz układ napięciem 24V to przy wypełnieniu PWM=255 będziesz miał 24V. Jeśli ustawisz wypełnienie 50% czyli PWM= 127 to teoretycznie powinieneś otrzymać 12V. Dlatego proponowałem,...
Chce zrobić aby atmega pracowała tak samo jak układ ULN2803 tylko odwrotnie (wszystkie 8Bity) Zrobiłem tak: $regfile = "m16def.dat" $crystal = 8000000 Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Postb.7 Config Lcd = 20 * 2 Ddrc = 00000000 Config Porta = Output Portc = 1 Deflcdchar...
Przeciez powyzej zamiescilem kod programu ktory ma wgrany Atmega $regfile = "m8def.dat" $crystal = 16000000 $baud = 9600 Dim Znak As String * 6 Config Portd.2 = Output Config Serialin = Buffered , Size = 15 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Wait 5 Set...
Podstawowa sprawa - w drugiej linijce kodu masz napisane, że $crystal = 8000000 podczas gdy na schemacie nie masz podłaczonego żadnego kwarca. Jeśli używasz wewnętrznego oscylatora (i oczywiście masz tak ustawione FuseBit'y), to ATmega pracuje na 1MHz i taką wartość powinieneś ustawić w programie, bo nic nie będzie działać, albo będzie, ale "dziwnie"...
regfile attiny13 regfile attiny2313 bascom regfile
schemat sterować brama zmiana ibiza odczyt danych kości pamięci samsung
przekaz danych prasowalnica metrix
Tronsmart Mirtune S100 – ćwierkanie przy podbitym basie na AUX, zniekształcenia dźwięku Zniekształcenia dźwięku w głośnikach Soundcore, Sonos Roam 2, JBL – ostrzeżenie czy defekt kosmetyczny?
