przykład : Config Debounce = 30 Config Portd.1 = Output 'tx do vfd Config Portd.6 = Input 'enkoder Config Portd.7 = Input Set Portd.6 Set Portd.7 Config Portd.0 = Input 'przyciski po koleji : -v , +v , +/-a , wyświetlacz Config Portd.2 = Input Config Portd.3 = Input Config Portd.4 = Input Set Portd.0 Set Portd.2 Set Portd.3 Set Portd.4
e ale tu mamy blad taki : Config Portc.5 = Input Config Portc.4 = Output Config Portb.0 = Output co jest zle! dobrze : Config Pinc.5 = input Config Pinc.4 = output Config Pind.0 = output
...Coś nie tak jest z programem: wykonywana jest cały czas pętla rc51, chociaż nie zwieram nic do masy. Gdybyś zamiast ... Config Portd.2 = Input Config Portd.3 = Input Config Portd.4 = Input Config Portd.5 = Input Config Portb.3 = Output Dim Togbit As Byte , Command As Byte , Adress As Byte S1 Alias Portd.2 S2 Alias Portd.3 S3 Alias Portd.4 S4 Alias...
czegoś nierozumie właściwie to dwuch rzeczy dlaczego dwa razy konfigurowany jest jeden port Ddrb = &B00001111 i Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.3 = Output Config Pinb.4 = Input Config Pinb.5 = Input Config Pinb.6 = Input i z tego co pamiętam to przy output ma być port a nie pin Config Portb.0 = Output...
Witaj. Nie wiem, czy dobrze Cię zrozumiałem - ale czy odpowiednio użyta dyrektywa Config Input = .... nie załatwi Twojego problemu? Pozdrowienia - teedd
Jedna rzecz w tym projekcie nie daje mi spokoju. Wciśnięcie dowolnego przycisku podaje +5V na dane wejście mikrokontrolera. Ze wzgledu na to, że port ustawiony jest jako wyjscie w stanie niskim, powoduje to wewnętrzne zwarcie w obwodzie wejściowym mikrokontrolera do masy w trakcie wciskania przycisku. Spowoduje to prędzej, czy później spalenie obwodów...
[syntax=vbnet]Config Portd.2 = Input[/syntax] zamiast tego, powinno być: [syntax=vbnet]Config Pind.2 = Input[/syntax]
aha. Bo ja mialem taki bajer ze przy jednym obrocie zwiekszal liczbe o 2 (jak dobrze pamietam moze wiecej) a jak w trakcie jednego obrotu bardzo bardzo lekko przekrecilem w druga strone to juz wszystko wariowalo. wlasnie zauwazylem blad A poza tym ludzie nauczcie sie zagladac do helpa!!!!!!!!!!!!!!!!!!!!!!!! '** przyciski ** Config Pina.4 = Input Config...
'Config Portc = Input ' Portc = &B0000000 ' Tow Alias Portc.4 'Q4 Alias Portc.0 ' Q3 Alias Portc.1 ' Q2 Alias Portc.2 'Q1 Alias Portc.3 zrób tak: Config Pinc.4 = Input Tow Alias Pinc.4 Config Pinc.0 = Input Q4 Alias Pinc.0 Config Pinc.1 = Input Q3 Alias Pinc.1 Config Pinc.2 = Input Q2 Alias Pinc.2 Config Pinc.3 = Input Q1 Alias Pinc.3 Eee.. a co to...
Input nie zawiśnie jeśli ustawisz poprawnie "Config Input = Cr", bo standardowo Input "czeka" na CRLF. A odczytać musi, bo przejście do podprogramu nastąpi tylko w przypadku nadejścia znaku entera (13). Więc z góry wiadomo, że Input je odbierze. Bufor jest czyszczony przez ten Input właśnie. Sorry pomyłka - standardowo Input czeka tylko na CR więc jeśli...
Powinno działać tak jak chcesz: Est Alias Pind.4 Dim Zmienna As Byte , Licznik As Byte Cursor Off Config Portd.5 = Input Config Portd.6 = Input Config Portd.7 = Input Config Portb.0 = Input Config Portd.4 = Input Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Portb.0 = 1 Portd.4 = 1 Cls Do Bitwait Est , Set Zmienna.0 = Pinb.0 Zmienna.1 = Pind.7 Zmienna.2 = Pind.6...
Witaj :) Bez problemu możesz je ustawić jak wyjścia lub wejścia. Np. cały port b jako wyjście / wejście Config portb = output / input Albo pojedynczo poszczególne wyprowadzenia Config portb.5 = output Config portb.6 = output Config portb.7 = input itd... Pozdrawiam
Ma się dobrze jeśli ma odbierać dane z bufora. Jeśli Twoje Print Komenda ; Chr(13); zmieniłbyś na Print Komenda To z powodzeniem mógłbyś odbierać w przerwaniu Pozostało by ci tylko ustawić: Config Input = Crlf , Echo = Crlf Config Serialin = Buffered , Size = 80 , Bytematch = 13 a przy odbieraniu: Input Odczyt Noecho
Witam serdecznie szanownych kolegów, chciałem podpytać może któryś z Was się orientuje od której wersji można kompilować swobodnie kod z tym poleceniem. Wersja 1.11.7.3 którą posiadam pozwala na wpisanie i poznaje Config Input ale nie kompiluje. Wiem że jest wersja 2.0.5 i 7 ale powiedzmy że dostępne są tylko triale z ograniczeniem kodu :). Może któraś...
Są dwie metody tworzenia urządzenia. Jezeli to jest tak prosty schemat jak Twój , zaprojektuj płytkę na gotowo z wszystkimi mozliwymi dodatkami a program będziesz zapisywał sukcesywnie w miarę jak będziesz ulepszał kod programu . Taki układ testowy na gotowo. Druga metoda polega na budowie urządzenia testowego na jakiejś płycie testowej na której mozesz...
Rocket_93- za dużo wiedzy jak na pierwszy program. A jeszcze nie wiemy czy już działa. W Bascomie kończy program End. I konfiguracja portów jest tak: Cały port: Config portx=output/input. Ale pojedyncza końcówka: Config pinx.y=output/input A jak się da: Config portx.y=output/input to nie wyrzuca błędu ale potrafi działać "dziwnie". A potem podciąganie...
Witam. 1./ Jeżeli definiujemy piny jako wejście najlepiej używać instrukcji config pinb.0=input ' przycisk pierwszy config pinb.1=input ' przycisk drugi config portd.0=input ' pin sterujący diodą LED 2./ Podłączenie przycisków do plusa zasilanie tak jak w tym kursie jest złe. przyciski powinny być podłączone do masy. Po prostu przycisk po wcisnięciu...
Zasymulowałem Twoje środowisko i wprowadziłem kilka poprawek. Działa zgodnie z założeniami. Debouncingu nie dodawałem, choć przydałby się. [syntax=vbnet]$regfile = "m8def.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.2 , Rs = Portb.1 Config Lcd = 20 * 4 Cls Cursor Off noblink...
... zwracam honor kolego zumek , niestety nie wiedziałem, że w bascomie set portb włącza tylko pull'upa ;) ale z drugiej strony skoro nie ma wyraźnej deklaracji w programie na początku, że port ma być wejściowy to bascom sam tak ustawia niezdefiniowane porty? Standardowo po power-up reset , bity w rejestrach portów(DDRx ,PORTx) są wyzerowane.Dla pewności...
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...
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...
Nie działa bo masz nie włączone podciąganie do plusa. Rejestry PIN nie służą do zapisu w tym procesorze (tylko w niektórych modelach zapis 1-dynki do nich powoduje zmianę stanu odpowiadającego bitu w rejestrze PORT). http://www.atmel.com/Images/doc2503.pdf - strona 64 Musisz dać dla każdego przycisku po instrukcji Config ... Input instrukcję Set Portd.x...
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...
Witam. Mam problem z uruchomieniem Proszę o pomoc co mam dalej robić . Czy problem jest z programem czy z schematem? Problem jest w dalszym ciągu z programem... Widzę że naniosłeś poprawki w programie "hurtem" zamiast analizowac każdą linię konfiguracji pojedynczo(!)... Ta uwaga z poprzedniego postu dotyczyła tylko konfiguracji wejśc Wyjścia , zarówno...
Ja uważam iż jest bład. Config portd=input Portd=&B00000000 ja uważam iż powinno być &B11111111 a wtedy podawanie stanu niskiego będzie miało sens.
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...
Tak prymitywnie to wyślij to sobie ze spacją i potem podziel otrzymany string szukajac spacji [syntax=vbnet] Print V1 ; " " ; A1 Dim MyArray(2) As String * 5 , M As Byte M = Split(CalyOdebranyString , MyArray(1) , " ") 'podziel szukając spacji Locate 1 , 1 : Lcd MyArray(1) Locate 2 , 1 : Lcd MyArray(2)[/syntax] Radzę też napisać u góry w kodzie : [syntax=vbnet]Config...
Generator podepnij do PINB.1 i config PINB.1=input
_-kod-_ w bascomie avr $sim $regfile = "ATtiny13.dat" $crystal = 4000000 Dim Licz As Iram Byte Config Portb.4 = Input Config Portb.3 = Input Config Portb.1 = Output Set Portb.4 Set Portb.3 Do If Pinb.4 = 0 Then Waitms 25 If Pinb.4 = 0 Then Incr Licz End If End If If Licz = 30 Then Do Set Portb.1 nop Waitms 20 Loop Until Pinb.3 = 0 Licz = 0...
Przykład z pliku Help Bascoma: " 'configure PORT D for input mode Config Portd = Input 'reading the PORT, will read the latch, that is the value 'you have written to the PORT. 'This is not the same as reading the logical values on the pins! 'When you want to know the logical state of the attached hardware, 'you MUST use the PIN register. A = Pind U...
[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...
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...
Nie wiem czy będziesz mógł ustawić Timeout bo jest od wersji 2076. Najwyżej zakomentuj. Reszta powinna działać. Poczytaj o "Config Serialin" i "Ischarwaiting" Tak dokładniej to Input czeka na Enter albo na to co ustawimy żeby czekał (Config Input) Jak Enter nie nadchodzi z powodu jakiegoś błędu to przydaje się Timeout. Najczesciej odbieram dane po jednym...
Witam A u kolegi bascom nie wywala błędów? Port składa się z 8 pinów czyli 8bitów albo bajtu.(portd- portd.0;portd.1;.....do portd.7 czyli 8pinów Więc taki zapis portd.4=255 jest błędny bo jednemu bitowi nie możemy nadać wartości 255 możemy albo 0 albo 1.(a prawidłowo portd.4=1 albo0 ) Taki zapis jest poprawny portc=255 co jest równoważne z 11111111...
CONFIG PIND.0 = INPUT ;ustawienie jako wyjście PORTD.0 = 1 ;podciągnięcie do plusa
Kolegom wyżej polecam RTFM! config pinc.4 = input 'wejscia config pinc.5 = input set portc.4 'pull-up set portc.5 Dim Predkosc As Byte If Pinc.4 = 0 then waitms 100 if pinc.4=0 then Predkosc = 60 end if end if If Pinc.5 = 0 then if pinc.5 =0 then Predkosc = 30 end if end if Tak czy siak lepsze rozwiązanie to debounce.
Dla pojedynczego wyprowadzenia Config PINx.y = Input/Output, a dla całego portu Config PORTx = Input/Output lub liczbowo binarnie dziesiętne i heksadecymalnie. Polecam częściej zaglądać do pliku pomocy tym bardziej, że jest też polska wersja. I jeszcze ważna uwaga do programu: Loop umieść zaraz przed End . Pamiętaj to co między Do Loop wykonuje się...
Cóż, podpowiem jeszcze raz: 1. Sprawdź w necie jak odczytać stan przycisku ---- EDIT: w necie też piszą różnorakie bzdury o tym zatem może napiszę jak być powinno: Zwykle przyciski podłączamy tak, aby zwierały pin do masy. Aby odczytać stan danego pinu musimy: 1. skonfigurować go jako wejście instrukcją (np. - istnieje wiele odmian konfiguracji, ale...
sorry nie rozumiem - o co ci chodzi Dokładnie to na każdej linii wysłania i odbioru najlepiej dać znacznik enter czyli dokładnie to ma wyglać tak print "100" CR tzn - tłumaczysz to sobie czy mi? jest to zdanie oznajmujące czy pytające? ;) może być CR ale równie dobrze może być CRLF problem w tym, że jak robisz w Bascomie polecenie PRINT - to ono zawsze...
Spróbuj wgrać ten kod.[syntax=basic4gl] $prog &H00 , &H00 , &H00 , &H00 $regfile = "m32def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , E = Pinb.4 , Rs = Pinc.7 , Db7 = Pinb.3 , Db6 = Pinb.2 , Db5 = Pinb.1 , Db4 = Pinb.0 Config Pinc.2 = Input 'tego chuba nie używasz? Config Pind.1 = Input Przycisk Alias Pinb.7 'tego chuba nie używasz?...
Config pind.2 = input
Ja uczyłem sie z pliku pomocy Bascoma, zarówno AVR jak i 51 Co do twojego roblemu to dla AVR miałeś: config P1.0 = input config P2.0 = output to zamień to na: P1.0=1 Jeśli chodzi o P2.0 to w ogóle nic nie pisz. ponadto, nawet i P1.0=1 nie musisz pisać, procesor sam usttawia porty w stan wysoki po zresetowaniu. Tak jest, gdyż porty AVR i 51 różnią sie...
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...
DDR to nie instrukcja tylko rejestr portów np. DDRB - rejestr określający kierunek portu PortB (wejście czy wyjście). W bascomie konfigurujesz np. Config portb.5=output lub np. config portb=input Po szczegóły odsyłam do dokumentacji procesora i języka Bascom.
napisz config pind.1 = input config pind.0 = input do debounce pind.0,0,klawisz1,sub debounce pind.1,0,klawisz2,sub loop klawisz1: jakas akcja1 /np set pin.c=1/ return klawisz2: jakas akcja2 /np set pin.c=0/ return A zasilanie i mase musisz podpiąć też do tych 2 pinów co pisałeś. Tylko podłącz tak jak jest w programia albo zmień porty Aha mogą...
Witam. 1./ konfiguracja Timera1 musi być w jednej linii jako całość np. Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect Po za tym masz nie pozamykane prawidłowo warunki IF. Poniżej przykład całości: $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.4 = Input Config Pinb.2 = Input Config Pinb.1...
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...
Zobacz czy to Ci działa... jeśli nie to przypatrz się jak zrobiłeś hardware do tego. $regfile = "M8def.dat" $crystal = 8000000 'wstaw swoj kwarc Config Portb.1 = Input Config Portb.2 = Output Portb.1=1 Portb.2=0 Do If Pinb.1 = 0 Then Portb.2 = 1 Wait 10 Portb.2 = 0 End If Loop
Zmieniłem program na ATmega8 ( bo ATmega16 nie posiadam ) [syntax=basic4gl] '$regfile = "m16def.dat" $regfile = "m8def.DAT" $crystal = 8000000 Config Pind.7 = Input Config Pinc.0 = Output Set Portc.0 Set Portd.7 Do If Pind.7 = 0 Then Portc.0 = 0 Else Portc.0 = 1 End If Loop End [/syntax] wgrałem, program działa dobrze. Bascom DEMO 2.0.7.1
Proponuję przy aliasach przycisków wpisać nie port a pin, bo to są wejścia. No i faktycznie aby stany na wejściach nie szalały podciągnąć wejścia do plusa. Moze być np. tak: regfile = "m8def.dat" $crystal = 1000000 Config Portd = Output Portd = &B00000000 Config Pinb.0 = Input Config Pinb.1 = Input Led1 Alias Portd.1 Led2 Alias Portd.2 S1...
Nie co Ci pomogę , poprawiłem deklaracje portów oraz cześć programu ,wystarczy napisac wlasne procedury ;) Config Portb.0 = Output 'Konfiguracja portów Config Portb.1 = Output Config Portb.2 = Output Config Pinb.3 = Input Config Pinb.4 = Input Wzmacniacz Alias Portb.0 Mixery Alias Portb.1 Swiatlo Alias Portb.2 Declare Sub Wlacz Declare Sub Wylacz Sw_on...
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);...
No masz moją wersje rozwiązania tego problemu. W symulatorze działa. Na uP nie testowałem. [syntax=basic4gl][/syntax] $regfile = "attiny13.dat" $crystal = 1000000 Dim Fp1 As Bit Dim Fp2 As Bit Config Pinb.3 = Input Config Pinb.4 = Input Config Pinb.1 = Output Config Pinb.2 = Output Set Portb.3 'podciagniecie do +5V Set Portb.4 Do If Pinb.3 = 0 And Fp1...
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...
seja4321 Napisałem kilka linii kodu ,jest to jedno z możliwych rozwiązań twojego problemu z przyciskiem . program przetestowałem. Moja rada to testuj program na kilku kilkunastu sekundach. powodzenia. Dodano po 46 Nie rozumiem dlaczego seja4321 został skarcony przez LordBlick, przecież pisze w dziale początkujący? Co do kodu, to jest dziwny, Piszesz...
[syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.5 = Input Config Pinb.4 = Input Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 64 Dim I As Byte Centr1 Alias Pinb.5 Centr Alias Pinb.4 Set Portb.4 Set Portb.5 Pwm1a = 0 Do If pwm1a = 0 then 'dodatkowy warunek...
Config Portc = Input Config Pinc.0 = Input Config Pinc.1 = Input Config Pinc.2 = Input Config Pinc.3 = Input Skoro Config Portc = Input to po co Config Pinc.0 = Input Config Pinc.1 = Input Config Pinc.2 = Input Config Pinc.3 = Input Proponuję tak Config Pinc.0 = Input Config Pinc.1 = Input Config Pinc.2 = Input Config Pinc.3 = Input Portc.0 = 1 Portc.1...
Konfiguracja całego portu B jako wyjście lub wejście: Config Portb = Output ' cały port B jako wyjście Config Portb = Input ' cały port B jako wejście Lub to samo na każdym pinie osobno: Config Pinb.0 = Output ' pin PB0 portu B wyjściem Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.3 = Output a komenda: pinb.0 = 1 'wysoki stan logiczny pinu...
Tabelki są zrobione wg schematu - przykładowo jak zwarty jest przycisk czerwony, to jak na A podasz 1-kę (na B-0), to na Y dostaniesz 1-kę (bo A-Y sa zwarte), a na X będzie 0 (bo między A-X jest przerwa) , natomiast jak na B podasz jedynkę, to X i Y będą 0 (bo czerwony nie styka B do żadnego pinu). A mi się wydaje, że będzie stan nieustalony.;) Ja...
Witam. Obecnie zaczynam swoją zabawę z atmegami, dlatego też chciałbym się zapytać czy dobrze rozplanowałem użycie pinów. Mam do zrobienia pilot który ma wysyłać sygnał o określonym przebiegu częstotliwości, za pomocą diody IR. Obecnie chciałbym to wykonać na atmedze 8, gdyż potrzebuję 15 przycisków i jednego kanału nadawczego, tak wiec muszę mieć 16...
$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
Takie "na kolanie" ale powinno działać [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.3 = Input : Set Portb.3 : S1 Alias Pinb.3 Config Pinb.2 = Input : Set Portb.2 : S2 Alias Pinb.2 Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64 Dim I As Byte I =...
1. Po pierwsze nie ma instrukcji do sterowania kursorem 2. Zamień Config Portd.0 = Input Config Portd.1 = Input Config Portd.2 = Input na Config Pind.0 = Input Config Pind.1 = Input Config Pind.2 = Input
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.
Można trochę bajtów zaoszczędzić :) Dodaj bibliotekę obsługującą hardwarowe TWI: [syntax=basic4gl]$lib "I2C_TWI.LBX" ...... I2cinit Config Twi = 100000[/syntax] Odczyt danych z EEPROMU, zamiast: [syntax=basic4gl] Dim Mz1 As Byte Dim Gz1 As Byte Dim Mz2 As Byte Dim Gz2 As Byte Dim Mz3 As Byte Dim Gz3 As Byte Dim Mw1 As Byte Dim Gw1 As Byte Dim Mw2 As...
Pin wykorzystany przez przycisk P1, pewnie nie ma podciągniętego wewnętrznego rezystora. Przykład: [syntax=basic4gl] Config Pind.1 = Input ' PD1 jako wejście Set Portd.1 ' pullup PD1 (nie będzie działać jeżeli będzie napisanie Set Pind.1)[/syntax]
Jak nie wierzysz to wrzuć w symulator i zobacz. Po za tym ja dałem ci przykład a nie gotowiec :!: $sim Dim X As Byte Config Pind.7 = Input Set Portd.7 Config Pind.6 = Input Set Portd.6 Dim Flaga As Bit Flaga = 0 X = 0 Do Debounce Pind.7 , 0 , Up , Sub Debounce Pind.6 , 0 , Dw , Sub Locate 1 , 1 Lcd X Loop Up: If Flaga = 0 Then 'to znaczy że x=0...
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...
$regfile = "m8def.dat" $crystal = 8000000 Config Pind.0 = Output Portd.0 = 0 Config Pind.3 = Input Set Portd.3 Config Int1 = Low Level On Int1 Ir Enable Interrupts Enable Int1 Do Loop End Ir: Disable Int1 Toggle Portd.0 Enable Int1 Return Jeszcze najlepiej jakies opoznienie dodac. Zapraszam do czytania podstaw o odbiornikach i nadajnikach...
Możesz zamieścić ten fragment kodu, który działa z Timerem1? I dlaczego stosujesz tryb Timer4 Compare Match A? Timera1 w 128 używam do PWM-u. [syntax=basic4gl] 'Sprawdza Timer2 $regfile = "m1281def.dat" $hwstack = 500 'odkładają się wszystkie adresy powrotne skoków wewnętrznych, przerwań i tych wywołanych przez GOSUBodkładają się wszystkie adresy powrotne...
Masz gotowca, zaznaczam kompletny brak wsparcia technicznego. Wszelkie prawa zastrzeżone. Udostępniam na licencji GNU GPL. Wartości PWM dobierz sobie we własnym zakresie. '-----------GNU GPL---------------- '----------By Kaytec--------------- '-------www.elektroda.pl----------- '---------------------------------- '------Konfiguracje:---------------....
Fusebit A997 ustawiony na oscylator wewnętrzny 8Mhz , 0100 $regfile = "m8def.dat" ' DYREKTYWY DLA KOMPILATORA $crystal = 8000000 'OSCYLATOR 8MHZ Config Lcd = 16 * 2 'KONFIGURACJA TYPU WYSWIETLACZA Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.6 , E = Portd.1 , Rs = Portd.0 'LCD Config Clock = Soft 'KONFIGURACJA...
Witam Mam taki problem. Jestem początkującym programistą. Próbuję napisać program do atmegi8. Problem jest taki, że gdy próbuję skonfigurować porty PC.0 - PC.5 jako wejścia wyskakuje mi błąd, konfiguracja wygląda tak: Config Pinc.5 = Input Config Pinc.4 = Input Config Pinc.3 = Input Config Pinc.2 = Input Config Pinc.1 = Input Na czym mój błąd polega?
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...
1) To odłącz ten reset 2) Wyłącz JTAG w fusebitach 3) Podczas kompilacji zadeklaruj właściwy procesor, bo że się kompiluje bez błędów to żadna nowina, pytanie tylko - dla jakiego procesora? 1) Będzie ciężko, żeby go odłączyć, ale mierzyłem napięcie i jest ok na chwile 0V a potem 5V jak po resecie 2) JTAG wyłączony 3) Kompilacja dla właściwego procesora...
a to program Dodano po 11 Mam problem z załącznikiem może teraz.:) Dodano po 6 plik się nie dodaje ?? wyślę tak : $regfile = "m8def.dat" $crystal = 11059200 '$baud = 9600 '$baud = 19200 $baud = 38400 Echo On '******** KONFIGURACJA WYŚWIETLACZA LCD ****************************************... Config Lcd = 20 * 4 ' Deklaracja...
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...
Proszę, gotowy przyklad rozwiązania. Napisałem przy kawie i potestowałem w symulatorku czy się nie pomyliłem gdzieś ;) [syntax=basic4gl]$regfile = "m8def.dat" '$sim 'dla symulatora Config Portd.5 = Input : Set Portd.5 : Czuj_1 Alias Pind.5 Config Portd.6 = Input : Set Portd.6 : Czuj_2 Alias Pind.6 Config Portd.7 = Input : Set Portd.7 : Czuj_3 Alias...
Tak na marginesie nie konfiguruje się pinów tylko porty. Więc zamiast: Config Pind.3 = Input 'porty jako wejściowe Config Pind.4 = Input 'porty jako wejściowe Config Pind.5 = Input 'porty jako wejściowe ma być Config Portd.3 = Input 'porty jako wejściowe Config Portd.4 = Input 'porty jako wejściowe Config Portd.5 = Input 'porty jako wejściowe
Witam Zmień wreszcie w aliasach z portx.x , na pinx.x. Piszesz pinx.x kiedy chcesz sprawdzić jego stan (wejście), Kiedy chcesz coś wystawić na nogę, to napisz portx.x. Config Pina.0 = Input Config Pina.1 = Input Config Pina.2 = Input Config Pina.3 = Input Config Pina.4 = Input Config Pina.5 = Input Config Pina.6 = Input Config Portc.7 = Output Costam...
1.Konfiguruje się PORT 2.Podciąganie do plusa włącza się w PORT 3.Przyciski czyta się z PIN Sterować można PORT`em a sprawdza się PIN [syntax=basic4gl] Config PORT.x = Input 'nie podłaczamy driverow - port bedzie wejsciem PORT.x = 1 'sterujemy portem, podłączamy wewnętrzny rezystor Przycisk Alias PIN.x ' PIN PIN PIN PIN! [/syntax]
Tutaj masz przyklad w ktorym po kazdorazowym wcisnieciu przycisku zmienna zwieksza sie o 1: Config Pinb.3 = Input S1 Alias Pinb.3 Set Portb.3 If S1 = 0 Then Waitms 25 If S1 = 0 Then 'np. Incr twoja_zmienna End If End If A tutaj wcisniecie przycisku i jego przytrzymanie powoduje zmniejszanie sie zmiennej o 1 co 200 ms: Config Pinb.3 = Input If S1 = 0...
Config Pind.2 = Input Config Pinb.0 = Output Piny pojedyncze Config PORTD = Input Config PORTB = Output Wszyszkie piny portu jako wejscie albo wyjscie. TAK JEST PRAWIDLOWO !!!!
Config PINx.y = Input/Output to poprawna składnia konfiguracji poszczególnych pinów w bascomie a więc: Config Pinb.1 = Input Config Pinb.0 = Input Config Pinb.2 = Output Config Portd = Output ' cały port jako wyjście Config Portd = Input ' cały port jako wejście ...
Najlepiej zobaczyć co i jak na przykładach. Najpierw obsługa WYJŚĆ. Konfiguracja linii 2 jako wyjście: Config Pinb.2 = Output Ustawianie stanu na wyjściu (linia 2) wysoki / niski: Set Portb.2 Reset Portb.2 Teraz WEJŚCIA. Do każdego z wejść można podłączyć rezystor podciągający lub nie. Konfiguracja linii 3 jako wyjście bez rezystora podciągającego:...
Tak karta SD na sprzetowym SPI a RFM12b na wolne piny wdg deklaracji : Config Rf_sck = Output Config Rf_sdo = Input Config Rf_nirq = Input Config Rf_sdi = Output Config Rf_nsel = Output Ale najpierw spróbuj uśpić RFM12 i wtedy zapisuj na SD może na wspólnej szynie będą chodzić bez zakłóceń Przy nadawaniu i odbieraniu z RFM12B koniecznie należy wyłączyć...
he dzieki za porade Dodano po 6 a to 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 to mam dać w zamian tego Config Pinb.0 = Input 'fototranzystor lewy Config Pinb.1 = Input 'fototranzystor srodkowy Config Pinb.2 = Input 'fototranzystor...
Czemu w żadnym trybie nie podaje mi configu Router>show config ^ % Invalid input detected at '^' marker. Router>enable Router#show config ^ % Invalid input detected at '^' marker. Router#configure terminal Enter configuration commands, one per line. End with CNTL/Z. Router(config)#show config ^ % Invalid input detected at '^' marker. Router(config)#interface...
a po co ci go odfiltrowywać, skoro to chodzi o to, że dane przysyła do ciebie twój telefon i na zakończenie linii wystawia CRLF to zainteresuj się poleceniem Config Input będziesz mógł je sobie ustawić tak aby reagowało na CRLF a nie tylko CR i kłopot z głowy - trza tylko czytać helpa do Bascoma ;) W opisie Config Input znajdziesz wszystko czego ci...
Waitam. Czy ten kod (testowy), jest prawidłowy? Pytam, ponieważ niestety nie ma żadnej rekcji na przyciski. Czyżby były uszkodzone porty atmegi? Oczywiście sprawdzałem na innych portach i jest to samo. Ale wgrywając fragment kodu do obsługi lcd (s-65), to na wyświetlaczu jest ok, czy porty mogą się uszkodzić ale tylko jak są skonfigurowane na wejściowe?...
Chciałem odnowić temat ponieważ mam problem z wykryciem zaniku napięcia. W Bascomie mam skonfigurowane zewnętrzne przerwanie na into 0 tak: Config Int0 = Rising On Int0 Zapis_pamieci Enable Int0 Dla mojego mikro kontrolera Port na którym jest przerwanie tak: 'Config Portd.0 = Input 'Rezerwa (w spoczynku 1) 'Config Portd.1 = Input 'Rezerwa (w spoczynku...
po ciężkiej batalii już wiem jak rozwiązać problem... Podziękowania dla mirka36, który naprowadził mnie na config input :). Po ustawieniu config input=lfcr, echo=lfcr wsio pięknie działa, nie muszę 2 razy klikać butona, mogłem wprowadzić ischarwaiting() i zegar działa w głównym oknie programu. Dziękuję za pomoc, pozdrawiam.
Tu masz kod jakim testowałem płytkę. Napisane to było bardzo "na pałe", aby tylko odpalić i sprawdzić regulację na triaku. NIE MA tu procedur odczytu czasu z RTC i programowania całości. Jak napisałem projekt i płytka leży od chyba stycznia i czeka na "swój czas" - po prostu kolega który mnie prosił o wykonanie tego układu wyjechał za pracą a ja nie...
Zastanawiam się jeszcze nad tym gdzie jest pind.0 a gdzie portd.0 bo zawsze miałem z tym problemy. napewno : Config pind.0 - input set portd.0 natomiast w warunku to nie pamiętam, czy portd.0 czy pind.0 ale raczej portd.0. Jak coś to zapraszam na gadu-gadu, no chyba, że chcesz sobie punktów "ponabijać" - nie mam nic ptrzeciwko :-)
Config Pinb.0 = Input Config Pinb.1 = Output Config Pinb.2 = Input Config Pinb.3 = Input Config Pinb.6 = Input Config Pina.0 = Output Reset Mcucr.6 P1 Alias Pinb.0 P2 Alias Pinb.2 P3 Alias Pinb.3 Zasil Alias Porta.0 Podsw Alias Portb.1 Syg Alias Pinb.6 Set Podsw Reset Zasil Set P1 Set P2 Set P3
// [...] // Config Porta = Input 000046 E080 LDI R24,$00 000047 BB8A OUT DDRA,R24 // Aa = Porta.2 000048 E3AB LDI XL,$3B 000049 E0B0 LDI XH,$00 00004A 918C LD R24,X 00004B FB82 BST R24,2 00004C E6A0 LDI XL,$60 00004D E0B0 LDI XH,$00 00004E 2788 CLR R24 00004F F980 BLD R24,0 000050 938C ST X,R24 // Aa = Pina.3 000051 E3A9 LDI XL,$39 000052 E0B0...
Witam Mam program $regfile = "attiny2313.dat" $crystal = 4000000 config pind.0=input config pind.1=input config pind.2=input config pind.3=input config pind.4=input config pind.5=input Config Pinb.0 = Output Portd.0 = 1 Portd.1 = 1 Portd.2 = 1 Portd.3 = 1 Portd.4 = 1 Portd.5 = 1 Do If Pinb.0 = 0 And Pind.1 = 1 And Pind.2 = 0 And Pind.3 = 1...
Nie,ma liczyć litry tak jak dystrybutor . Dodano po 2 Nie wiem w jaki sposób dodawac litry do zmiennej po przekroczeniu okreslonej liczby impulsów z przepływomierza to co znalazłem to liczone wszystkie w czasie a tu chyba chodzi o przepełnienie licznika Czas tu nie ma znaczenia! Użyj dowolny timer w charakterze licznika (Counter), i tak jak sugerowano...
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...
Instrukcja Pinx.y służy do odczytu stanu portu natomiast Portx.y do ustawienia stanu na porcie. Jeśli sprawdzasz, czy został naciśnięty przycisk to za pomocą instrukcji Pinx.y (wcześniej musisz ustawić Config Pinx.y=Input). Poza tym jeśli chcesz włączać/wyłączać podświetlenie LCD to lepiej zrób to przez jakiś tranzystor, a nie bezpośrednio z portu Atmegi,...
bascom config input oscam config config admin
programowanie magic oscyloskop karty dźwiękowej stacja lutownicza dedra
pralka miele start identyfikacja elementu
Nectra C 2.23 FF C12 Chaffoteaux & Maury – dane techniczne, oznaczenie, części, kody błędów QuestaSim SystemVerilog DPI-C: How to Call and Run C Functions in Testbenches