Spróbuj tak: ściągnij help by zbeegin. W nawigatorze odczytaj instrukcje config-config serwos- czytanie ze zrozumieniem. Potem zamiast "Config Porta.7 = Output" napisz: Config pina.7=output.
Spróbuj wpisać na początku "Config Porta = Output" i sprawdź czy AVCC (pin30) ma zasilanie. I czy na nóżce 31 jest masa.
Config Porta = Output nie ma wpływu na późniejsze działanie instrukcji Set Porta.2 Set Pina.3 po prostu.
Witam ! Może brakuje konfiguracji portu ? Config PortA = Output Wesołych Świąt życzy Stefan
Temat powinien polecieć do kosza ale... :D Na początek musisz wiedzieć że do odczytu danych z końcówek portu służy rejestr PINx czyli w twoim przypadku PINA. Po za tym musisz uruchomić wew. rezystory podciągające (pull-up) czyli piszesz np. PORTA = 255. Na koniec powinno to wyglądać tak : PORTB = PINA . Po więcej informacji sięgaj do helpa tam wszytsko...
Hej! Może ten programik do czegoś Ci się przyda. Oczywiście ustawienia portów LCD i I2C dostosuj do swojego układziku. Config Sda = Porta.6 Config Scl = Porta.7 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Portb.4 , E = Porta.1 , Rs = Porta.0 Dim Adres As Byte Cursor Off Cls Lcd "Start" Wait 2 For Adres...
układ raczej dobry ale niestety z programem jest chyba problem... :) zastanów się co może być źle gdy bascom AVR nie widzi problemu (bo go oficjalnie nie ma) a układ nie działa... naprowadzę troszkę (ustawienia portów/pinów) :) pozdrawiam i życzę sukcesu :) $regfile = "attiny26.dat" $crystal = 1000000 Config Porta = &B00000011 Porta = &B11000011...
W Bascomie wyglada to tak: Config PORTA = Input PORTA = 255 '(lub &hFF lub &b11111111) Spowoduje to ze port A bedzie portem wejsciowym z podciagnietymi wejsciami do + zasilania. Jezeli w drugiej linijce znajdzie sie zero to wtedy port bedzie w stanie "trzecim" czyli tzw. "plywajacym" czyli nie bedzie podciagniety do niczego. Asembler: ldi r16,0x00 out...
Wyłapałem że wcześniej deklarowałeś $regfile = "m16def.dat" zamiast $regfile = "m16adef.dat" (mimo że procesory różnią się jedynie poborem prądu i rezystancją podciągania pinu RESET to warto było sprawdzić ten trop), jeśli dioda LED podłączona jest poprawnie do PORTA.0 to niestety nic więcej (poza samym komputerem) nie przychodzi mi do głowy... Ostatni...
Działa bez problemu : Config Porta = Input Config Portb = Output Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6 Config Lcd = 20 * 4 Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 Deflcdchar 1 , 31 , 17 , 17 , 17 , 17 , 17 , 17 , 31 Do Locate 4 , 3 If Pina.0 = 0 Then Lcd Chr(0);...
Można dopisać takie funkcje żeby niepotrzebnie nie ustawiał wartości portów jeśli te się nie zmieniły, ale to chyba gra nie warta świeczki :D Pominąłem PORTD bo widzę tam jakąś transmisje RS w configu. [syntax=vbnet]$regfile = "m128def.dat" $hwstack = 80 $swstack = 80 $framesize = 160 $crystal = 8000000 $baud = 19200 Config Porta = Output Config Portb...
Jednoczesny odczyt zawsze był możliwy, np tak: IF pind.1=1 and pinb.1=1 then reset portc.0 zajmuje 26 cykli? Dziadostwo. Gdybyś się BARDZO śpieszył to możesz zrobić tak: [syntax=asm] $asm sbis pind, 1 rjmp wyjdz sbis pinb, 1 rjmp wyjdz cbi portc, 0 wyjdz: $end asm [/syntax] Szybciej już się chyba nie da.
Tak jak w tłumaczeniu języków nie da się lub nie trzeba/nie powinno trłumaczyć dosłownie tak i programowaniu dosłone tłumaczenie najczęściej nie jest optymalne. Dlatego proponuję [syntax=c] //$regfile = "m32def.dat" ' procesor //$crystal = 8000000 'kwarc //powyższe ustawić w IDE uint8_t I; //Dim I As Byte ' zmienna I DDRA = 0xFF;//Config Porta = Output...
Mniej wiecej tak to mozna zrobic ;) Listing do AVR-a pozmieniaj nazwy portów '################# wyswietlanie temperatury ######################### Multiplex: Dim Mux As Byte Dim 100stopni As Integer Dim 10stopni As Integer Dim 1stopni As Integer Dim Dstopni As Integer Config Porta = &B11111111 Config Portc = &B11111111 T2 = Abs(t1) Porta = &B11111111...
Nie będziesz czytał z tych rejestrów wiec wystarczy wysłać dane do rejestru poleceniem Shiftout zamiast tworzyć SPI. Opis podłaczenia w kodzie. [syntax=basic4gl]'----------------------... $regfile = "m32def.dat" $crystal = 4000000 '---------------------------------------...
ale z tego co się już dowiedziałem nie będzie działać na mojej płytce Nie prawda, będzie działał po zmianie kilku linijek kodu. [syntax=basic4gl]$regfile = "8515def.dat" $crystal = 10000000 [/syntax] To zmień na swojego procka i częstotliwość oscylatora, jaki Masz. Na przykład [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 8000000 [/syntax] Tą...
No, to to już mógłbyś wygooglać. Dekoder BCD na 1 z 10. WE-0000,0001 itd. aż do1001 WY -na jednym z 10 stan niski. Zasilanie i nic więcej. Dodano po 30 Dlaczego Config Porta = 255 za każdym razem? Raz jako wyjście i już. Dodano po 21 po: Porta = &B11111111 wystarczy chyba waitms 1 Ale symulujesz układ w którym nie znasz częstotliwości przemiatania tzn....
W liniach [syntax=basic4gl] Config Pina.0 = Input Config Pina.1 = Input Config Pina.4 = Input Config Pina.5 = Input Config Pinb.3 = Output [/syntax] zrób tak: [syntax=basic4gl] Config Porta.0 = Input Config Porta.1 = Input Config Porta.4 = Input Config Porta.5 = Input Config Portb.3 = Output [/syntax] Do wyprowadzenia Aref ATmegi dołącz kondensator...
A czy tutaj wzorując się na twoim przykładzie dobrze jest? config porta=input config porta=255 if porta=&b00111100 then porta=&b11000000 end if
Witam, Mam mały problem: podłączyłem do atmegi dwa przyciski, diodę i wyświetlacz. Po uruchomieniu atmegi program wariuje-mruga diodą i pisze na ekranie kiedy chce. Oto program: [syntax=basic4gl] Config Porta.5 = Output Config Porta.1 = Output Config Porta.2 = Output Config Porta.3 = Output Config Porta.4 = Output Config Porta.6 = Output Config Portb.4...
Witam. Niestety jak na razie w wolnych chwilach próbuję zaprogramować Attiny/ Atmega... Napisałem program do generowania sygnału z uzyciem polecenia Sound . Niestety nie mogę wykorzystać tego samego przycisku do załączania i wyłączania dżwięku. Po za tym chciałbym dołożyc drugie polecenie generowania dżwięku/ podpiętego pod kolejne wejście (PINA.1)...
Program który zamieszczam ma działać w następujący sposób po załączeniu na stałe S0 ( S0 wyłączy się po czasie sterowny z Budzika ) , S1 ma wyłączyć Radio , i nie włączyć ponownie. Program teraz działą tak że S0 załączy a S1 nie wyłącza Radio. [syntax=vbnet]$regfile = "attiny24.dat" $crystal = 4000000 'Ustawienia portow Config Pinb.0 = Input : Portb.0...
oo widze ze ten program krazy po necie robiłem go dla kogos z elki ponizej masz listing taki jak zrobilem kompiluje sie bez błedów i symulacja dziala Dim Port As Byte Dim A As Byte Dim B As Byte Dim C As Byte Dim 10i1 As Byte Dim 100x As Byte Config Porta = &B11111111 'port konfigurowany jako wyjscie Config Portc = &B11111111 'port konfigurowany jako...
A co to jest?: Config Porta.3 = Output Reset Porta.3 i dalej Config Porta.3 = Input Set Porta.3 To nie będzie działać prawidłowo.
Witam. Zamiast Config Portb = Input Wstaw Config Pinb.6=Input To w zasadzie jest bez znaczenia wystarczy otworzyć skompilowanego hex'a np: w AvrStudio i zobaczysz coś takiego: +00000011: E080 LDI R24,0x00 Load immediate +00000012: BB87 OUT 0x17,R24 Out to I/O location +00000013: EF8F SER R24 Set Register +00000014: BB8A OUT 0x1A,R24...
Chyba raczej tak: config porta=input config portb=output do If PINa.0=0 then reset PORTb.0 else set PORTb.0 end if loop end lub inaczej: Declare Sub Nacisnieto_przycisk config porta=input config portb=output Do Debounce Pina.0 , 0 , Nacisnieto_przycisk , Sub Loop End Sub Nacisnieto_przycisk Portb.0 = Not Portb.0 End Sub
Oczywiście , że wpisując : Config 1wire = Porta.1 zablokujesz odczyt z Porta.0 Musisz przed odczytem z Porta0 , wpisać w programie Config 1wire = Porta.0 a następnie gdy będziesz odczytywał z Porta.1 wpisujesz linie Config 1wire = Porta.1 Czyli , najpierw konfiguracja z której linii potem odczyt.
po kolei... po pierwsze jak już ktoś też wspominał wyrzuć te rezystory 47R na liniach D0-D4 oraz RS i EN po drugie odłącz to podświetlanie od tego pinu WYS (zrób przez tranzystor - też ktoś już podpowiedział tranzystor zwykły npn) po trzecie ja na twoim miejcu tak bym konfigurował porty: Config PORTA = &B01111000 zamiast Ddra = &B01111000 albo jeszcze...
Przepraszam.Faktycznie chodzi o napięcie (rośnie i maleje) . Do swojego programu dodałem debounce - może to coś da. [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 12000000 Config Lcdpin = Pin , Rs = Porta.6 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 Config Lcd = 16 * 2 Config Porta = Output Config Porta.0 = Input...
Witam. Napisałeś: Config Porta = &B11111111 to jest kierunek transmisij dopisz Porta = &B11111111
$crystal = 1000000 'Deklaracja częstotliwości kwarcu $regfile "m16def.dat" 'deklaracja modelu procesora Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down 'Konfiguracja Timera Ddrb = &B11111111 'Odblokowanie globalnego wyjścia OC1 Dim Szybkosc As Byte ' okres swiecenia diody byte-255ms...
To moj kod. Napewno cos robie zle tego jestem pewien. Prosilbym o sugestie. $regfile = "m16def.dat" $crystal = 1000000 $baud = 4800 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Osccal = 173 Config Porta.0 = Output Config Porta.1 = Output Config Porta.2 = Output Config Porta.3 = Output Config...
Szkolny błąd :wink: Nie można dzielić 1-go polecenia na kilka linii. Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portd.7 , Db7 = Porta.7 ...... If A= 10 Then ... Tak można :wink: Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 Db6 = Portd.7 Config Lcdpin = Pin , Db7 = Porta.7 , E = Portc.3 , Rs = Portc.2 Piotrek
Spróbuj Config Porta = &B10111111 Porta = &B10111111 Czyli Pin 34 procka jako wejście niepodciągnięte " pływające"
Dlaczego przy ustawieniu w programie czegoś takiego: (program na ATMEGA16) Config Porta = Output Porta = &A01110111 Przy próbie kompilacji wywala w tym miejscu error :?:
Config Porta = &B00000001 Na wyjście masz ustawione tylko A0.
Config Porta = Output - niepotrzebnie wpisujesz konfiguracę portu a, skoro masz podpięty wyświetlacz pod ten port.
Wykonałem prosty układ do sterowania silnikiem krokowym cztero przewodowym. Wykorzystałem mosfety z wylutu P2804BDG i P5504EDG. Silnik kręci się ładnie i nie szarpie przy czasie opóźnienia 3ms między krokami. Ale coś nie ma wiele siły. Zasilanie 5V 0.4A http://obrazki.elektroda.pl/9482410200_1... http://obrazki.elektroda.pl/6920080300_1...
[syntax=basic4gl]$regfile = "attiny26.dat" $crystal = 1000000 Tccr1a = 11111111 Tccr1b = 82 Ocr1b = 0 Ocr1c = 255 Config Porta = &00000111 Config Portb = Output Set Porta.4 Set Porta.1 Reset Porta.2 Reset Porta.0 Do If Pinb.4 = 1 Then Pwm1b = 200 End If Loop End [/syntax]
$regfile = "m16def.dat" Dim Stan_portu As Byte Config Porta = &B11111111 Porta = &B11111111 Stan_portu = Porta Stan_portu = 128 Porta = Stan_portu
Kod najprostszego programu na którym testuję i ustawienia fusebitów http://obrazki.elektroda.pl/9318663700_1... : [syntax=basic4gl]$regfile = "m16def.dat" $crystal = 2000000 Config Porta.4 = Output Config Porta.5 = Output Config Portd.0 = Output Led1 Alias Porta.4 Led2 Alias Porta.5 Led3 Alias Portd.0 Do Set Led1 Set Led2 Set Led3 Wait...
Na początku podłącz tylko jeden czujnik Odczytaj wartość temperatury, później numer seryjny. Jeszcze jedna uwaga, jak deklarujesz port jak wejście to nie tak Config Porta.1 = Input tylko tak Config Pina.1 = Input
Ja stosuję po 10K. Jeżeli linie są dobrze podłączone (nie zamienione) i adresowanie fizyczne zgadza się z programowym to musi działać Wymagane są delaracje w kodzie typu Config Sda = Porta.1 Config Scl = Porta.2 Jeżeli te warunki są spełnione to problem obsługi połączenia Pozdrawaiam
tyle to wiem, ale czy ustawiles je jako output wpisz na poczatku programu: config portA = output i teraz probij zmieniac stan na porcie A
nie zmodyfikowany kod wygłąda tak ' ========================================... ' PIERWSZY PROGRAM ' 13 LAT ' poprzednik ' POD TYTUŁEM ' MIGAJĄCA DIODA ' ========================================... Do Config Portb = Output Config Porta = Input ' Config Pinb.0 = 0 Wait 2 Reset Pinb.0 = 1 Loop End 'end program
schemat połączeń http://malagolka.wrzuta.pl/obraz/powieks... Dodano po 4 Dodano po 7 na schemacie jest atmega 16 u mnie pracuje atmega664 Dodano po 2 ten fragment to Config Porta = Output Porta = &B11111111 Dodano po 6 przy ustawieniu Config Porta = Output Porta = &B11111110 powinno być led1=0 a led2=1 ,a tak nie jest lub Config Porta = Output...
Witam! Mam taki program: $regfile = "at26def.dat" $crystal = 1000000 Config Porta = &B11111111; Config Portb = &B00000000; Porta = &B11111111; Portb = &B00000000; Config Adc = Single , Prescaler = Auto , Reference = Internal Start Adc Dim W As Word Do W = Getadc(8) Porta = W Loop End Na porcie diody migają jak szalone, jedynie starsze...
Jaca, bardzo chciałbym zrobić jak napisałeś ale niewiem czy dobrze rozumiem.Czy może być taki program do generowania: [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 8000000 Config Porta = Output Porta = &B11111111 Do Toggle Porta.0 Loop End[/syntax] i gdzie podpiąć masę?
...Jezeli chce naprzyklad ustawic dowolne stany na wyjsciach to $crystal = 4000000 $regfile = "8515def.dat" Config Porta = Output Config Portb = Output Do Set Porta.2 Reset Porta.1 Reset Portb.3 Set Portb.1 loop end tak napisany program nie działa Skompilowałem Twój program następnie zaprogramowałem nim 8515 . Sprawdziłem stany na końcówkach sondą...
Witam! Dziś walczę z komunikacją rs232. Posiadam dwie Atmegi jedna 32, druga 16 - odbiornik. W nadajniku nadaję string 001100.110011.001100.110011.001100.11001... przez Do Print "001100" Waitms 500 Print "110011" Waitms 500 loop Odbieram to: a) przez komputer - transmisja idealna 001100.110011.001100.110011.001100.11001...
Niestety nic to nie daje :/ $regfile = "m16def.dat" $crystal = 8000000 Config Porta.1 = Output Porta.1 = 1 Wait 2 Porta.1 = 0 To jest mój program (BASCOM) lecz kod jest napewno OK
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...
a może zimny lut gdzieś przy aref lub avcc ? którą masz wersje bascoma ? spróbuj jeszcze usunąć te linie : Config Porta = Input 'konfiguracja portów Porta = &B00000000 ja w maga88 tego nie wpisałem tylko odrazu config adc....... i działa
Jeżeli chodzi o kod dla ostatniego rozwiązania: Do Config Porta = Output Porta = 0 Waitms 1 Config Porta = Input Waitus 5 If Pina.0 = 0 Then Sound Portc.7 , 150 , 520 End If Loop Tutaj jeszcze będę mógł zoptymalizować kod pod względem czasu odświeżania wszystkich przycisków. Jeżeli natomiast mówisz o moim pierwszym rozwiązaniu z wykorzystaniem funkcji...
Właściwie to bez tego nie mam jak zacząć. W dalszej części programu jest tylko wyrzucenie na LCD zmierzonej wartości. Dotychczas korzystałem z wejść na zasadzie Config Porta = Input korzystając z przełączników. Chodzi mi tylko o mechanizm pomiaru napięcia i przypisania do zmiennej. Coś co w arduino wygląda tak: Wartosc = analogRead(A5); Ewentualnie...
Kolego może zacznij od czegoś prostszego bo nieskomplikowane zadanie a tu wydaje się być inaczej. Programowanie to nie tylko znajomość mikrokontorlerów, języków ale przede wszystkim umiejętność samodzielnego rozwiązywania problemów i wiążąca się z tym pomysłowość. Żeby przetestować ten kod wziąłem drugą Atmegę8 i kazałem jej nadawać impuls co 500ms...
daj coś takiego. musi działać. config porta=output do porta=0 wait 1 porta=255 wait 1 loop end jeśli nie działa to albo porty uwalone albo źle mierzysz i wydaje ci się że nie działa a działa
Witam, Ma migać dioda na porcie. Podłączona anodą do +5V a katodą do portu przez opornik 200R . Celem było zaświecenie diody przy wysterowaniu portu zerem. Okazało się że na porcie A.5 to działa, a na porcie C.5 nie działa. Kod bascom: ----------- [...] Config Porta = Output Config Portc = Output A: Portc = &B11111111 Porta = &B11111111 Waitms 100 Portc...
$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
Po co się męczyć to tylko kilka linijek w bascomie: Kod archaiczny dla słabeuszy: $regfile = "m128def.dat" $crystal = 8000000 Config Spi = Soft , Din = Pinf.2 , Dout = Portf.0 , Ss = None , Clock = Portf.6 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2 Config Pinf.6...
krótko : piszesz config porta.xx a nie config pina.xx i będzie działać
Witam, mam pewien problem. Bowiem musze zroić układ taki aby sterował przerobionym serwem modelarskim w nastepujacej sekwencji: lewo waitms prawo waitms lewo ...... Zrobiłem coś takiego na atmedze. Bowiem napisałem programik $regfile = "m16def.dat" 'informuje kompilator o pliku 'dyrektyw mikrokontrolera $crystal = 8000000 'informuje kompilator...
ok. nie maproblemow z zaprogramowaniem. config porta = output to znaczy, ze sa wejsciami? nastepna linia porta= &B00000000 oznacza wejscia ? bo w/g mnie to powinny byc jako wyjscia. jesli sie myle to prosze o podanie informacji jak je ustawic. pozdrawiamMarek p.s. potrzebuje by smigal na wewnetrznym oscylatorze.
Witam. Dalczego napiecia na pinach są rózne dla programu w C i Bascoma: - dla c H -> 3.68V #include <avr\io.h> int main(void) { //konfig portu PORTA=0xAA; DDRA=0xFF; while(1); return 0; } - dla Bascoma H -> 5V $regfile "m8535.dat" $crystal = 8000000 config porta = output porta = &b10101010 end Uklad to atmega8535, opisywane piny pozostaja...
Ok.Zaraz podłączę układ i sprawdze działanie.Dzięki. Dodano po 1 Wrzuciłem program(jednak wykasowałem: Reference = Auto--> Unknown CONFIG parametr [AUTO]). Na LCD chińszczyzna :(.W listingu powino być także ustawienie PortuA jako wejście???-->Config Porta = Input???
Hej! W Bascomie do odczytu portów z PCF8574 służy polecenie I2CReceive. W helpie wszystko jest ładnie opisane. Może ten programik ci się na coś przyda (oczywiście nazwy pinów dopasuj do swojego układziku): Config Sda = Porta.6 Config Scl = Porta.7 Dim A As Byte Dim B As String * 2 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3...
Witam i proszę o wyrozumiałość ,to moje pierwsze, totalnie pierwsze podejście .Mam problem chce zbudować przełącznik kilku pozycyjny i utknąłem ktoś podpowie jak to rozwinąć $regfile = "m16def.dat" Config Porta = Output Porta = &B11111111 Config Portc = Input Portc = &B11111111 Do If Pinc.0 = 0 Then Porta.7 = 0 If Pinc.1 = 0 Then Porta.6 =...
Coś w tym stylu chyba jest prawidłowo? Port C.4 ustawiłem na sztywno jako logiczne zero bo to pin CS FX506 [syntax=vbnet]Config Portc.4 = Output 'CS Fx506 Reset Portc.4 'CS Fx506=0 Config Porta.7 = Output 'Clk Fx506 Config Porta.6 = Output 'Data FX506 Dim Var1 As Byte Dim Var2 As Byte Dim Var3 As Byte Dim Var4 As Byte Dim Var5 As Byte Dim Var6 As Byte...
config portc = input portc = &B00000010 config porta = output do Debounce Pinc.1 , 0 , mignijA1, Sub Debounce Pinc.1 , 1 , mignijA2 , Sub loop end mignijA1: porta.1 = 1 waitms 1000 porta.1 = 0 return mignijA2: porta.2 = 1 waitms 1000 porta.2 = 0 return
Dzięki wszystkim :D Ruszyło choć mam inny problem - wszystko się zaczęło gdy chciałem uruchomić wyświetlacz graficzny DMF5005NY–LY. Ponieważ nie ruszył, zacząłem od migającej diody - czy procek sprawny. Teraz wiem, że procki ok - trzeba powalczyć z wyświetlaczem - ale to inny temat. DZIĘKUJĘ :D Config Porta = Output Do Set Porta.1 Wait 1 Reset...
Jak w temacie zastanawia mnie napięcie na pinach procesora Atmega16. Po zaprogramowaniu następującym kodem: '$regfile = "m16def.dat" '$crystal = 4000000 Config Porta = &B11111111 Porta = &B11111111 Config Portb = &B11111111 Portb = &B11111111 Config Portc = &B11111111 Portc = &B11111111 Config Portd = &B11111111 Portd = &B11111111 Do Porta...
Czy mozna cos takiego w Bascom (lub jakis inny kompilator) zastosować ? dla atmega8 if cos tam then config pina.1 = Input set pina.1 if pina.1 = 1 then cos tam if cos tam then config porta.1 = Output porta.1 = 0 chodzi o sterowanie generatora DTMF MT8880 przez atmega8
Program w Bascom Atiny 24 Dwa serwo poruszające kamerą. Po włączeniu zasilania pozycja środek. Przyciski. S1_lewo obraca Serwo 1 w lewo S1_praw obraca Serwo 1 w prawo S2_lewo obraca Serwo 2 w lewo S2_praw obraca Serwo 2 w prawo Nie ustawia pozycji środkowej , i nie zmienia pozycji. A to mój kod [/code][syntax=vbnet] 'STEROWANIE SERWOMECHANIZMAMI KAMERY"...
Ta nakładka wymagała jakiegoś libusb ale namieszało mi tak w kompie że zablokowało prawie wszystkie sterowniki (masakra) czy może mi ktoś powiedzieć jak to zrobić jakich sterowników użyć? A czy mugłby mi powiedzieć jak zrobić program zliczający bo taki mi niedziała: 'Program Probny $regfile = "m16def.dat" $crystal = 1000000 Config Portd = Input Portd...
Witam. Chcę napisać program do obsługi enkodera, problem polega na tym że podczas widzenia się diody nadawczej z odbiorczą program zlicza spora ilość impulsów a chcę aby do zmiennej dodawało tylko +1. Proszę o pomoc. Enkoder podłączony jest bezpośrednio do atmegi i działa, błąd jest w programie. Pozdrawiam http://obrazki.elektroda.pl/2316951800_1...
Witam! Czy można w Baskomie (atmege32) ustawić w jakiś sposób dwie oddzielnie działające linie I2C. Muszę zrobić coś w rodzaju karty z dużą ilością portów I/O i musi to być wykonane na scalakach PCF8574. a niestety możliwości ich sprzętowego adresowania nie pozwalają na zastosowanie wielu takowych scalaczków na jednej linii. Chciał bym podczas działania...
Wchodzisz na stronę https://www.mcselec.com/ i po lewej przycisk Updates. Logujesz się i ściągasz cały plik instalacyjny. Była jakaś przerwa w tych aktualizacjach, ale teraz nowe wersje już da się później aktualizować z poziomu programu. Post wyżej wrzuciłem wersję juz skompilowaną pod 2086. To dlatego że coś tam było w międzyczasie poprawiane w konfiguracji...
Witam. Zrobiłem taką małą płytkę pod sterownik domowy z dwoma prockami: at32(mini) i at128 i mam mały problem właśnie z tym drugim. 1.Po pierwsze at128 nie chce wykonywać nawet prostych pętli: http://obrazki.elektroda.pl/9199033600_1... Proszę o pomoc w znalezieniu błędów w schemacie lub programie.
Musisz po wykryciu wciśnięcia przycisku czekać w pustej pętli na jego puszczenie. ...uprzedzając pytanie "jak" wrzucam moją propozycję kodu, przejrzyj, przemyśl, dorzuć do swojego programu. [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 8000000 Config Lcd = 16 * 4 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7...
Zrobiłem zewnętrzny generator na procku 8515, jego kod wygląda tak: $crystal = 8000000 $regfile = "8515def.dat" Config Porta = Output Porta = &B00000000 Wait 2 Do Waitus 20 Set Porta.0 Waitus 20 Reset Porta.0 Waitus 20 Loop odlutowałem kwarc i kondki od wejscia xtal1 i 2 atmegi, sygnał z generatora podałem na Xtal1 i nic :/ - to samo co było - programator...
Witam, Ostatnim czasem zacząłem zajmować się programowaniem w bascomie. Złożyłem do tego celu projekt AVT2709 B, tester układów scalonych. Pobrałem wsad, zaprogramowałem AT89C55WD i wszystko ładnie działa. Chciałem rozpisać program o kolejne procedury, wzorując się na wielu podręcznikach i okrojonym pliku wsadowym, który pobrałem. Program napisałem...
Cześć Mam pewien problem do rozwiązania potrzebuje zrobić licznik który będzie mi zliczał do 10000 co 1 sek zrobiłem sobie liczniki T0 i T1 zliczają do 255 bo mają 8bit ale T2 ma 16bit nie mogę tego przeskoczyć[syntax=basic4gl] $regfile = "m32def.dat" $crystal = 16000000 Config Porta = &B11111111 : Porta = &B11111111 Config Portb = &B00000000 : Portb...
Jest tu kilka błedów. Ale główny błąd polega na tym że nie masz end ifa. I nie wiadomo jaka ma być logika tego programu . Spróbuj tak w celach edukacyjnych: [syntax=basic4gl]$regfile = "m8def.dat" 'rodzaj mikroprocesora $crystal = 1000000 'taktowanie Config Porta = Input 'porta jako wejscie Porta = &B00000000 'wszystkie koncowki porta stan spoczynkowy...
Witam. Obecnie tworzę projekt na atmega128 i testowałem go na kwarcu 4MHz i wszystko działa poprawnie. Jako że chciałem zwiększyć prędkość działania programu zamieniłem kwarc na 16MHz, wszystkie ustawienia dotyczące kwarcu w bascom AVR zmieniłem i natrafiłem na ciekawy problem. Poszukując przyczyny nie działania programu skasowałem wszystko oprócz konfiguracji...
Próbuję zmusić ATmegę32 (na płytce testowej) do "zamrygania" diodą LED na porta.0. Niestety - dioda się nie zaświeca. Config Porta = Output Porta = 0 Do Toggle Porta.0 Waitms 125 Loop Dioda ma świecić wtedy kiedy na pinie 0 portu 1 mam 0 logiczne. Programator (USBasp) sprawny, korzystam z pakietu Bascom-AVR demo 1.11.9.8.1 Mam do tego układu tylko jeden...
Procesor zakminił! :D No nie wierzę :) Dioda wesoło się świeci :) Nie wiem dlaczego nie mruga... Ale to już coś. Błąd w kodzie: Dodano po 47 Mam oba procki. W zestawie była 16, a ja w akcie desperacji dokupiłem jeszcze 32.
Jak ma działać Wewnętrzny kwarc to 8 $crystal = 1000000 Config Porta.0 = Input : Set Porta.0 f Guzik1 = 1 Then Gosub Informacje If Guzik2 = 1 Then Gosub Wizytowka If Guzik3 = 1 Then Gosub Led If Guzik4 = 1 Then Gosub Reboot daj Guzikx = 0 then i zwieraj do masy Jest jeszcze parę błędów A te waitmsy zgroza
Witam. Postanowiłem wreszcie zrobić sobie zegarek do pokoju. Wybór pał na PCF8583 bo już kiedyś z niego korzystałem i wspominam bardzo pozytywnie - nie było żadnych problemów z odpaleniem i komunikacją tylko że to były czasy AT89C2051 i bascoma 8051. Teraz mam w układzie atmege8515 i są spore "jaja" co jakiś czas (godzina czasem pół czasem dwie) dostaje...
O przepraszam wklepałem nie to co trzeba :) Jak pisałem, pierwszy bit działa ok ale na pozostałych jest ciągle stan wysoki $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 Config Porta = Output Config Portc = Input...
mam taki problem nie wiem jak robić aby ten fragment kodu po między gwiazdkami był wykonywany cyklicznie aż do wykrycia zmiany na pinb.5 Config Portb = Input Portb = &B11111111 Config Porta = Output Porta = &B00000000 Do If Pinb.4 = 0 Then Porta = 1 *********** Set Porta.3 Reset Porta.4 Waitms 250 Set Porta.4 Reset Porta.3 Waitms 250 *********** End...
Hej Generalnie nie chce być symetryczny (push-pull) jako wyjście. W celu sprawdzenia napisałem coś takiego banalnego: $regfile = "8535def.dat" $crystal = 8000000 Config Porta = Output Do Porta = &B11111111 Wait 2 Porta = &B00000000 Wait 2 Loop End Jak podłączę diody w konfiguracji WA - jest OK, działa (zapalanie stanem niskim), jak chcę zapalać...
Kod napisałem w bascomie, anodę diody przez rezystor 300R podłączyłem do wyprowadzenia PA2 a katodę do GND. Fuse bity ustawiłem na 1Mhz (takie jakie były od nowości). Jeżeli chodzi o ten pierwszy kod w C z moimi poprawkami, czy zgadza się wszystko ze schematem ? [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 1000000 Config Porta.2 = Output Do...
jezeli program wyglada tak: $regfile = "m8535.dat" $crystal = 8000000 Config Portb = Output Config Porta = Input Do Sonysend &HA81 Wait 1 Loop wylacza i wlacza urzadzenie (jezli zmienie adress na &H966 zmieniaja sie funkcje ) natomiat jezli w programie jest wiecej niz jeden rozkaz sonysend podczas kompilacji wyskakuja mi bledy (at)janek1815 niebardzo...
Sprawdziłem przed chwilą na mojej ATMEGA32 kod: [syntax=basic4gl]$regfile = "m32def.dat" ' specify the used micro $crystal = 11059200 ' used crystal frequency $baud = 115200 ' use baud rate Dim W As Integer Config Adc = Single , Prescaler = Auto , Reference = Avcc Config Porta = Input Porta = 0 Start Adc Do W = Getadc(0) Waitms 200 Print W Loop End[/syntax]...
Teraz napisałem trochę prostszy program do bezpośredniego wysyłania string'ów. At128- [syntax=basic4gl]'---PROCESOR-----------... $regfile = "m128def.dat" $crystal = 16000000 $hwstack = 128 $swstack = 64 $framesize = 64 $baud = 9600 '---WYŚWIETLACZ-------------------------...
Na porcie C w Mega16/Mega32 od pinu PC2 do PC5 jest interfejs JTAG który domyślnie w nowym procesorze jest włączony i nie pozwala machać pinami. Czy sprawdzałeś ten program na pinach PC0-PC1 lub PC6-PC7? Z drugiej strony to chyba lepiej do testów napisać coś takiego' Cały port powinien mrugać w kółko ;) [syntax=vbnet]Dim Test As Byte Config PORTA =...
Witam potrzebuję porady jak napisać prosty program do włącznika bistabilnego .Schemat jest banalny na portach B i D są podłączone przyciski ,zaś na portach A i C są podłączone układy ULN2003 ,z układów ULN wychodzi napięcie na przekaźniki. Próbuję coś robić ale schematy z kursów (Bascom) co są wrzucone do internetu są na jednej diodzie i jednym przycisku,jak...
Witam Potrzebując poznać dane klawiszy z pilota napotkałem wiele problemów związanych np. z brakiem timera 16 bit w małych mikrokontrolerach 8-DIP (Attiny85), śmieci, lub braku transmisji z komendy GETCR5 (A255,K255). Na szybko zbudowałem układ na Attiny24A (ma timer 16bit), TSOP31236 i LCD po I2C (PCF8574). Wyjście z TSOP31236 koniecznie trzeba podać...
$regfile = "m16def.dat" $crystal = 1000000 Config Porta = Output $baud = 1200 Config Pinb.0 = Input Dim N As Byte Dim I As Byte Dim Temp As Byte Dim Znak As String * 2 N = 1 Do Debounce Pinb.0 , Stan , Generuj , Sub Temp = Inkey() If Temp <> 0 Then Znak = Chr(temp) If Znak = "+" Then Incr N If Znak = "-" Then Decr N Loop Generuj: For I = 1 To...
Witam Odnawiam temat i załączam najnowszą wersję programu Kilka potrzebnych informacji dla odpalenia programu Kwarc 16MHz LCD 4x20 $regfile = "m128def.dat" $crystal = 16000000 Config Porta = &B11111101 : Porta = &B11111111 Config Portb = &B10001111 : Portb = &B11111111 Config Portc = &B11111111 : Portc = &B11111111 Config Portd...
blaupunkt porta sterować porta porta vector
wyłącznik przedlicznikowy gazowanie reduktor ściemniacz zegar
philips 21pt5458 elektrodę jonizacyjną
Ciśnienie wtrysku Peugeot Partner 1.9 DW8B: 130-150 barów Skoda Fabia 1.2 2003 - Czy miała klimatyzację?