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...
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...
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...
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...
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.
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 '---------------------------------------...
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...
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....
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...
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...
$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...
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...
krótko : piszesz config porta.xx a nie config pina.xx i będzie działać
Oczywiście, że warto go odratować. Źródła w Basicu w wersji V4 są na Elektrodzie. Po lekkim uporządkowaniu wrzucam poniżej. [syntax=vbnet]$regfile = "m8535.dat" $crystal = 8000000 Config Clock = Soft , Gosub = Sectic Config Sda = Portd.1 Config Scl = Portd.0 Config Timer1 = Timer , Prescale = 64 Config Timer0 = Timer , Prescale = 64 On Timer1 Dcf_start...
Przeorganizowałem twój kod z pierwszego postu bo w tym z dzieleniem i modulo to może działać ślamazarnie. Jeśli ci pasuje oczywiście. Licznik obsługuj w przerwaniu timera. A zmieniaj tylko wartość zmiennej za pomocą przycisków. To musisz sobie dopisać. Gdyby obliczenia w przerwaniu były za długie, przenieść je do głównej pętli, ale tutaj zawsze będzie...
Do autora - przyjrzyj się [syntax=vbnet]Config Portd.5 = Output : Dc_wlacz Alias Portd.5 Config Portd.1 = Input : S12_wolniej Alias Portd.1 Config Portd.2 = Input : S11_szybc Alias Portd.2 Config Pina.0 = Output : Kier_lewo Alias Pina.0 Config Pina.1 = Output : Kier_prawo Alias Pina.1 Config Pina.4 = Input : S10_start Alias Pina.4 Config Pina.5 = Input...
Mam nadzieję że to nie pójdzie do kosza: $crystal = 4000000 '4MHz $regfile = "attiny2313.dat" Config 1wire = Portd.5 Config Timer0 = Timer , Prescale = 64 On Timer0 Przerwanie0 Enable Interrupts Enable Timer0 Start Timer0 Porta = 0 Portb = 0 Portd = 0 Config Porta = 0 Config Portb = 0 Config Portd = 0 '**************************** 'Zmienne...
Kurde, masz zle skonfigurowany wyświetlacz !!! To samo co w poprzednim moim poście zrób z tym przykładem, następnie zdjęcie i wiadomo co dalej. [syntax=vbnet]$regfile = "m644pdef.dat" $crystal = 16000000 $framesize = 80 $hwstack = 50 $swstack = 50 Config Graphlcd = 128 * 64 , Dataport = Porta , Controlport = Portb , Ce = 2 , Cd = 5 , Wr = 3 , Rd = 4...
Z dwoma bajtami uC i Dallas w 5ms wyrobią się spokojnie. Problemem jest brak synchronizacji pomiędzy przerwaniami generowanymi przez Timer a funkcją Waitms. Ponieważ przerwanie występuje teraz co 5ms to można w nim ustawić flagę że własnie się zakończyło. Wtedy w pętli głównej możesz sobie spokojnie liczyć te flagi. 50x 5ms = 250ms co bardzo tu pasuje....
W weekend odbyła się mała walka, z której połowicznie wyszedłem zwycięsko. O ile temperaturka już jest mierzona to gorzej z napięciem prostokątnym z sondy. Zamiast stosować dzielnik, przerobiłem sondę tak, że otrzymuję od niej napięcie zmienne z zakresu 0-5V. Sygnał prostokątny, częstotliwość 10kHz. Niestety nie udaje mi się tego pomierzyć AVRowym ADCkiem....
http://obrazki.elektroda.pl/7114210100_1... Witam wszystkich serdecznie ! Z racji tego, że zbliżają się święta postanowiłem podzielić się z wami projektem elektronicznego drzewka szczęścia. Urządzenie powstało prawie rok temu i było prezentem urodzinowym dla mojej dziewczyny którą serdecznie pozdrawiam !!! :D Założenia do projektu:...
Witam Uruchomiłem LCD ILI9486 na AT128 w trybie równoległym 8 bit . wszystko działa bez problemów . Postanowiłem przenieść konfigurację na Atmege 1284 i tu zaczyna się problem. AT1284 nie ma portów G , niby nie problem ale.. w pliku ILI948x_declarations8.inc w orginalnej postaci jest: Config Portc = Output Data_disp_low Alias Portc 'DB0 --> DB7 Rs_disp...
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...
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.
Tutaj jest kod: Dodałem znaczniki syntax. Proszę ich używać, ponieważ wtedy składnia jest kolorowana, a posty są krótsze.
[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]
Witam. Napisałeś: Config Porta = &B11111111 to jest kierunek transmisij dopisz Porta = &B11111111
dopisz set porta i będzie działać tylko zrób to na początku programu po config porta.2= input configp porta.7=output set porta
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...
Spróbuj Config Porta = &B10111111 Porta = &B10111111 Czyli Pin 34 procka jako wejście niepodciągnięte " pływające"
Nie wiem na które pcb patrzysz , to ostatnie do pełnej wersji z pomiarem prądu i napięcia ,patrzę i widzę że jest OK . pin40 i pin39 są podpięte do dzielnika kondensator żeby nie pływał pomiar zbytnio. nie widzę tego o czym piszesz . Wieczorem sprawdzę jeszcze raz i podam zaktualizowane . Ok jest wieczór więc zamieściłem na 2 str. schemat i pcb w eagle...
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 - niepotrzebnie wpisujesz konfiguracę portu a, skoro masz podpięty wyświetlacz pod ten port.
$regfile = "m16def.dat" Dim Stan_portu As Byte Config Porta = &B11111111 Porta = &B11111111 Stan_portu = Porta Stan_portu = 128 Porta = Stan_portu
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...
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
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ą...
tyle to wiem, ale czy ustawiles je jako output wpisz na poczatku programu: config portA = output i teraz probij zmieniac stan na porcie A
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...
Witam. Mam problem z zegarem na wyświetlaczach 7-segmentowych. Minuty po 09 wyświetla 16 zamiast 10, sekundy tak samo. Zawsze tak się dzieje, więc musi to być błąd w programie, ale ja już się poddałem, co może być nie tak. Config PortA = Output PortA = &HFF Config Portd = Output Portd = &Hff Config Portb = Output config portc.0 = output config...
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...
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...
blaupunkt porta zawias porta sterować porta
automatyczny regulator modem simlock orange wymiana kondensatorów zasilacz
szarpanie silnika niskich obrotach ds18b20 asembler
Oprogramowanie wędzarni Kinco PLC: Sterowanie i Integracja Historia nasady kominowej strażak – patenty, Colt Cowl, rozwój konstrukcji
