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ć.
1. zmień sobie $regfile na $regfile="attiny2313.dat" bo ja testowałem na 90s2313 i masz zły regfile teraz 2. wywal to waitms 10 po bitwait - niepotrzebne... 3. jaki masz oscylator to sobie sprawdź we feusebitach (możesz mieć wybrany 8 lub 4 MHz) 4. nie włączasz podciągania przycisku!! zamiast Przycisk = 1 (czyli Pind.6 = 1) daj Portd.6=1 bo za podciąganie...
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...
kurde zauwazylem blad :/ Config Pinb.0 = Input 'fototranzystor lewy Config Pinb.1 = Input 'fototranzystor srodkowy Config Pinb.2 = Input 'fototranzystor prawy set pinb.0 set pinb.1 set pinb.2 i kod jest napisany dla attiny2313 mozesz tez wgrac go w kazdy inny procek tylko zmien regfile i piny moga sie nie zgadzac. Radze jeszcze dodac $regfile="attiny2313def.dat".....
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".
No to tylko pozostało zweryfikować prędkość zegara, zmień w kodzie od kuniarza regfile na t23313def.dat kryształka na 1000000 albo 12000000, i spróbuj...
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...
Chyba się nie zrozumieliśmy. W regfile określasz typ procka. BIN to plik już skompilowany - ty musisz ponownie kod źródłowy w Bascomie skompilować.
$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
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...
$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
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.
Drogi kolego temat założyłem aby ktoś mi napisał prosty przykład jak zrobić żółty kolor a nie aby się kłócić więc proszę nie pisać głupot a mi pomóc. No więc trzeba było napisać w temacie nie PROBLEM a NAPISZCIE ZA MNIE PROGRAM. A teraz program: 1. Konfigurujemy Bascoma, czyli dyrektywy kompilatora: regfile i crystal 2. Konfigurujemy odpowiedni...
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...
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...
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ć...
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.
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...
$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 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...
$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:...
Prawdopodobnie kompilujesz program przy ustawieniu niewłaściwego uP doclowego. Użyj na początku programu $regfile.
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...
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...
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...
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 ,...
Już na wstępie masz złą deklarację procesora $regfile. Na początku pisałeś o ATtiny2313, więc $regfile = "ATtiny2313.DAT"
$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...
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...
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 =...
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...
Witam ! Konfiguracja $regfile = "2313def.dat" przeznaczona jest dla AT90S2313, dla ATTiny2313 jest konfiguracja $regfile = "ATtiny2313.dat" Pozdrawiam. Stefan
A gdzie masz ustawione deklaracje ? $regfile = "attiny2313.dat" $crystal = xxxxxxxxxx
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...
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)...
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?
Zrobiłeś coś takiego? $regfile = "attiny2313.dat"
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.
:arrow: kamil007: Mam nadzieje, ze poprawiles rowniez ta linie kodu: $regfile = Tiny2313def.dat na: $regfile="2313def.dat" :D
Czy to na pewno cały program? Jeśli tak to na początek dodaj: $regfile = "attiny2313.dat" $crystal = xxxxxxx
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"
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.
regfile atmega regfile attiny13 bascom regfile
saeco schemat serwisowy wiercenie otwór płytka rozmiar partycji systemowej
2sd588 2sb618 zamiennik regulator napięcia równolegle
Pomylenie zasilania z powrotem w instalacji c.o. Mitsubishi Outlander Sport 2019 – klimatyzacja przestaje chłodzić po kilku minutach, gaz nabity