Myślałem o czymś takim :) Dim Ax(7) As Byte , X As Byte , Pozycja As Byte Dim Suma As Long Config Debounce = 100 ' lub ... jak kto woli ;) Poz Alias P3.7 Zmien Alias P3.5 Star Alias P3.1 Pozycja = 1 Cls Do Locate 1 , 1 Lcd "wprowadz liczbe" ; Pozycja Locate 2 , 1 For X = 1 To 7 Lcd Ax(x); Next X Debounce Poz , 0 , Incrpozycja...
Mając trochę wolnego czasu napisałem parę funkcji do obsługi układu PCF8583. Funkcja która ustawia godzinę i datę zapisuje też dane potrzebne do obliczenia pełnego roku, dzień tygodnia jest obliczany automatycznie na podstawie daty. Funkcje Pcf8583_write i Pcf8583_read można wykorzystać do zapisywania/odczytywania danych z wolnej pamięci ram. Dostępne...
Wprawdzie ... to nie humanitarnie z mojej strony dawać niemalże gotowca ... :D [syntax=basic4gl]$regfile = "m2560def.dat" $crystal = 16000000 $hwstack = 64 $swstack = 64 $framesize = 64 $include "Config_PCF8583.bas" Declare Sub Displaytime() Declare Sub Settime() Declare Sub Cancel() Declare Sub Plus() Declare Sub Minus() Declare Sub Saveandexit() Declare...
Nikt nie pomaga to problem sam rozwiązałem - może trochę dziwnie ale działa. Na końcu kodu wstawiłem dwie procedury: _lcd_on: Cursor On Blink Return _lcd_off: Cursor Off NoBlink Return w kodzie zamiast wstawiać bezpośrednio "Cursor On NoBlink" odwołuję się przez "gosub _lcd_on" i wszystko działa nie mam pojęcia dlaczego, chyba przesiądę się na C :)...
Witam. Dalej to samo. Podłączyłem go przez I2C z biblioteką Lcd_i2c od Samuel1982 gdzie LCD20x4 działa i też nic. Magistralę opóźniłem na 100ms więc czasy odpadają. Co za bestia :) Dodano po 3 Witam. Czy można prosić o jakiś hex do wrzucenia prosto na atmege w celu sprawdzenia komunikacji na inym języku. Pozdrawiam. Dziękuję. [syntax=vbnet] $regfile...
Jest ustawione!!! (zresztą jak daje $crystal , to się automatycznie przestawia na odpowiedni w compilatorze) ,z 220Ω dalej to samo :( Działają tylko programiki pod LCD, np taki chodzi bez zarzutu: $crystal = 11059000 $regfile = "89c2051.dat" Config Lcd = 16 * 1a Do Cls Lcd "Test....." Cursor On Blink Wait 1 Cls Lcd "Lcd...OK"...
Witam, proszę o pomoc: Stworzyłem taki kod: $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Pb.2 , Db5 = Pb.3 , Db6 = Pb.4 , Db7 = Pb.5 , E = Pb.0 , Rs = Pc.0 Cls Config Adc = Single , Prescaler = Auto , Reference = Internal Start Adc Dim W As Word Cursor Blink Do W = Getadc(0) W = Getadc(0)...
$regfile = "m8def.dat" $crystal = 8000000 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 Dim I As Byte Cls Lcd "*BASCOM AVR*" Wait 1 Lowerline Wait 1 Lcd "przesuwaj" Wait 1 For I = 1 To 10 Shiftlcd Right Waitms 500 Next I Locate 2 , 2...
Witam. Mam taki program do obsługi klawiatury: $map $regfile = "m8def.dat" Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5 Config Lcdpin = Pin , E = Pinb.1 , Rs = Pinb.0 Dim Kod As Byte 'Dim Kodd As Word Dim Nbit As Byte Dim Vec As Byte Dim Nkod As Byte Keymask Alias &B00011101 Cls : Cursor Off Lcd "klawiatura"...
przepisałem troche swój programik udaje mi sie wyświetlić jedną zmienną.Chciałbym natomiast o poradę jeżeli odczytam pierwszą zmienną to jak odczytać następnie z tej samej klawiatury.Jeżeli zmienną A1 zapiszę sobie w pamięci eeprom to chciałbym przejść do odczytu zmiennej A2 bez ruszania zmiennej A1.Nie oczekuję gotowego rozwiązania tylko porady jak...
napisalem cos takiego i lipa .... brak reakcji na program .... $regfile = "m16def.dat" $crystal = 4000000 Config Porta = Output Config Portc = Output Porta = &B00000000 Portc = &B00000000 Dim Czas As Integer Dim Licz As Integer Czas = 100 Licz = 0 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs...
Witam Mam pytanie wysyłam przez RS232 daną typu np. 255$0D lub 0$0D itd.... chodzi mi o to by , po odebraniu w BASCOM-ie ten string widzieć w formie zmiennej o wartości 255 , a nie jaki trzy pojedyncze znaki ASCI wysyłam 255$0D odbieram 2 , 5 , 5 , $0D Jak to ułożyć w 255 i zrobić z tego LICZBĘ 255 "znienną" by ją pobrać ? Proszę o Waszą pomoc 'Przykład...
Witam Zakupiłem ostatnio dwa wyświetlacze LCD 2x16 znaków. Po pierwszym podłączeniu do płytki stykowej wszystko było ok, ale plątanina przewodów była taka okropna, że postanowiłem sobie zrobić taki moduł do tego LCD na 4-bitowy tryb (z zastosowaniem goldpinów, obudowy goldpinowej, styków i kabla żyłowego). Zamiast potencjometru 10kΩ użyłem 5kΩ,...
Wydaje mi się, że wszystkie wyświetlacze 16*2 są podobne. Spróbuj wpisać ten program do mikroklocka (w Bascom, program z książki do zl2avr): $regfile = "2313def.dat" '<---nazwa uC $crystal = 8000000 '<---częstotliwość taktowania oscylatora Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 =...
alien_audio dzięki poprawiłem ta linie i jest ok. a może mógłby ktoś zamieścić plik *.hex albo przykładowy kod programu do wyświetlenia nawet pojedynczego znaku? Może problem tkwi w kodzie zamieszczonym w książce... Oto on: $regfile "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6...
Witam. Mam taki problem, zaprogramowałem mikrokontroler atmega8 (kod poniżej) podłączyłem wyświetlacz 2 * 16 zgodnie ze schematem i na wyświetlaczu pusto nic nie ma tylko się podświetla. Nie wiem czy nie jest to spowodowane tym, że pierwsze dwa piny od wyświetlacza podpiąłem normalnie + i - bo nie miałem potencjometru ale przecież to jest regulacje...
Ok, nikt więcej nic nie podpowiedział, więc pomyślałem jeszcze trochę. Wydaje mi się, że sniffowanie transmisji będzie łatwiejsze. Wyświetlacz obsługuje sprzęt audio, więc nie ma tutaj szybkich zmian na wyświetlaczu. Po przeczytaniu datasheetów, doszedłem do wniosku, że w momencie opadania zbocza E wszystkie sygnały muszą być stabilne. Wydaje mi się,...
Cześć. Prosze o pomoc w rozwiązaniu problemu, a mianowicie mam problem przy konfiguracji klawiatury. Nie moge ręcznie wpisać kodu np. 1234, tylko program sam dobiera mi kod ( caly czas podaje jedna liczbe"1", tak jak bym ja cały czas wpisywał) kod wtedy jest ustawiany na 1111, ale jeżeli zmienie wartość na "k=2" w miejscu zaznaczonym w kodzie to program...
Witam wszystkich serdecznie, kontynuując naukę napotkałem na problem, dziś dla mnie nie do rozwiązania. Poniższy kod kompiluje się poprawnie, wyświetla i umożliwia zmianę wszystkiego oprócz dnia tygodnia i roku. Kod analizowałem naprawdę setki razy i nic. Nie widzę błędu. Wstawiałem LCD tuż przed zapisem i tuż po odczycie. Wszystko wskazuje na to, że...
Witam Piszę program w Bascomie na Atmega32 do sterowania ogrzewaniem w warsztacie i mam problem. Jest zegar RTC, zewnętrzny Ram, Timer, Menu i to wszystko działa bez zarzutu - dokładnie tak jak bym chciał. Chciałem dołożyć czujnik temperatury i wykorzystać do tego celu wejście ADC. Problem pojawia się w momencie jak w podmenu "Start_webasto" dodaję...
Nie nawet tego nie dodalem do programu ale widze ze mrugania temperatura nie ma wnioskuje to po braku blink on
Sensowną implementacją przycisku włączającego migający LED w Arduino może być poniższy kod: [syntax=c]const byte LED_PIN = 6; // PD6 const byte BTN_PIN = 0; // PD0 const uint16_t BLINK_TIME_PERIOD = 200; // [ms] const unsigned long DEBOUNCE_TIME = 50; // [ms] bool prevButtonState = false; bool debouncedButtonState = false; unsigned long lastButtonPressTime...
Noo tak, ale ja w pisaniu programów to wiesz.... czy przyda się do tego "komenda" BLINK nie no nie wiem... Dodano po 5 Jezeli mozesz to wytłumacz mi jak mam "zamalowywać te pixele ? oj oj - musisz sporo jeszcze poczytać szczególnie n/t wyświetlaczy alfanumerycznych LCD. To jest właśnie wyświetlacz alfanumeryczny - więc generalnie to zapomnij o zamalowywaniu...
no niestety, nie pomogło... zrobiłem testy: polecenie "cls" czyści ekran z tego co na nim jest, czyli kwaratów... polecenie "cursor on blink" powoduje wyswietlenie migającego kursora wraz z kwadratem polecenie "locate x , y" przesuwa kursor tylko czemu zamiast znaków są kwadraty....
] Gdybym chciał jednak mierzyć załóżmy do 1kHz to wymaga aby zliczać przepełnienia? Dlatego napisałem..."Nie znaczy to jednak..." w złym obliczeniu 1 sek wartość wynosiła 61630, przy prawidłowym obliczeniu wynosi 34 286 uwzględniając czas 1sek, częstotliwość taktowania 8MHz i prescaler 256. Przecież czas (1 sec.) odmierzasz timerem0, który jest 8-bitowy...
Rezystor 1k na Reset to trochę mało chyba że to literówka. Zazwyczaj 10k-15k Napisz zwykły "Blink" z jakąś diodą i spróbuj wgrać go do uC. Spotkałem się już z czymś takim, że okienko programatora sie otwierało i zamykało a programu w uC nie było :D Od tego czasu mam włączone "AutoVerify" - przynajmniej widać, że to co chciałeś jest w uC.
Jest 2017 rok i do sterowania takimi wyświetlaczami są specjalizowane układy które to robią bez łaski a procesor który ma co innego do roboty będzie musiał sie bawić w multipleksowanie. No faktycznie, multipleksowane obciąża tak mikrokontroler, że trzeba koniecznie użyć zewnętrznego układu. Użyłem multipleksowania w mierniku panelowym (11 wyświetlaczy,...
Witam, mam problem z stworzonym przez siebie zegarem w programie bascom ( dzialam na symulatorze ) Wiec program nie chce pokazywać mi minut ani sekund tylko pokazuje stale 255 A godziny zatrzymują się na 4 godzinie. Chciałem tez dodać switch który po kliknięciu zapisuje i przechodzi np z godzin do minut i z minut do sekund ale każdy jak go dodaje nie...
Wystarczy przykład 16F628 i 16F628A czy kolega może nam opowiedzieć o różnicach w budowie tych procków? i dlaczego "A" jest tańszy? Ja Ci mogę odpowiedzieć bo pewnie w życiu nie widziałeś datasheeta od procka. Przecież nie jest Ci potrzebny bo Ty nie potrzebujesz znać architektury procesora. Basic jest przecież rozwiązaniem na wszystkie problemy. Wersja...
Mam problem z Arduino Nano. Kiedyś bawiłem się trochę mikrokontrolerami AVR, ale z pewnego powodu miałem z nimi dłuższą przerwę. Trochę wiedzy przez ten czas uleciało mi z głowy, ale postanowiłem wrócić do tej zabawy. Zacząłem od zabawy z IDE Arduino, i nie rozumiem skąd program wie, którego leda ma zapalić, szkic (Blink without Delay). Nie zamierzam...
Znajdź sobie kurs C lub Arduino lub Bascom i pisz jakieś programy, po wygenerowaniu programu znajdź plik HEX, podłącz port USB, sprawdź czy pojawia się port COM, do płytki powinieneś mieć program AND-load, który obsługuje wgrany bootloader, wybierasz port COM, HEX i ładujesz HEX do środka. Podziwiasz jak działa. Niestety prawie żaden z załączonych do...
Te czarne punkty to kontrast, zmniejsz go trochę na potencjometrze. Aby wyeliminować błąd podłączenia, ściągnij sobie BASCOM-AVR i skompiluj taki kod: $crystal = 8000000 $regfile = "m128def.dat" Config Graphlcd = 240 * 64 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8 Dim A As Byte...
Czy w bascomie mozna napisac program obslubi LCD w trybie 8bit? W opcjach konfiguracyjnych jest tam tylko: dane 4bit i sygnal E, RS, a co z RW? Czy kttos moze mi powiedziec czy takei cos bedzie dzialac z wyswietlaczem 2*16 podalczonym poprzez dane 8 bitow i 3 sygnaly sterujace: Config Lcd = 16 * 2 Rw Alias P3.1 = 0 Db3 Alias P1.3 = 0 Db2 Alias P1.2...
ale jak zrobie stringa to mi wyskakuje błąd: invalid datatype w linijce: If B > 0 Then i Loop Until B = 27 Pozatym w książce jest zdjecie z tego programu i u autora jest napis w jednej linijce a ma tez zmienna b jako byte. Dodano po 2 zrobiłem tak: $regfile = "2313def.dat" $crystal = 4000000 $baud = 9600 'Open "comd.5:9600,8,N,1"...
Wrzuciłem hasło "89c2051 led blink" w Google, żeby sprawdzić, czy masz powody do narzekania i pomstowania. Nie masz, leniuszku, więc albo do roboty, albo nie marudź i usuń wątek.
mam taki kod w bascomie: Config Portd = Output Config Porta = Output Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portd.7 , Rs = Portd.4 Config Lcd = 16 * 2 Cls Cursor On Blink Display On Lcd "ABC" End i nie wiem czemu na wyswietlaczu nic nie ma a jak skasuje linie lcd"ABC" czyli do wyswietlacza ida tylko...
Celem jest zapisanie w pamięci AT24C04 jakiś danych. Program w Bascomie: $regfile = "m16def.dat" $crystal = 4000000 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2 Config Lcd = 20 * 4 Dim Temp As Byte Cls Cursor On Blink I2cstart I2cwbyte 162 I2cwbyte 1 I2cwbyte 100 I2cstop Waitms...
Witam Buduję układ oparty o AT89Cx051, 4 x PCF8574, 1 x PCF8583, 1 x PCF8582C-2. Jest to jeden z moich pierwszych układów bazujących na mikroprocesorach Napisałem prosty programik sprawdzający komunikację z poszczególnymi ukladami: Config Sda = P3.0 Config Scl = P3.1 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7...
https://obrazki.elektroda.pl/4868547700_... Dzisiaj zrealizuję projekt na malutkim, ośmionóżkowym mikrokontrolerze PIC w obudowie DIP8 oferującym skromne 3.5kB pamięci Flash. Co więcej, do komunikacjami z peryferiami użyję tylko dwóch pinów - całość opierać się będzie o I2C. W oparciu o nie uruchomię kontroler wyświetlacza/klawiatury oraz...
Witam. Mam problem z kompilacja programu z ksiazki m Wiazania. Wyskakuje mi blad: "Error : 35 Line: 6 3 parameters expected , in file ...lcd.bas" Posiadam pelna wersje bascom-avr 1.11.9.5. Oto skan z ksiazki http://obrazki.elektroda.net/33_12567456... Oto kod jaki przepisalem $regfile = "m8def.dat" $Crystal = 8000000 Config Lcd =...
Jak wylaczy sie przerwania to funkcja getkey dziala poprawnie, z przerwaniami nie wprowadza do zmiennej nowej wartosci. WHY? $regfile = "m128def.dat" $crystal = 14745600 $baud = 19200 Config Timer1 = Timer , Prescale = 64 Enable Interrupts Enable Timer1 On Timer1 Sectic 'co 1 sek Config Lcd = 16 * 2 Config Lcdmode = Port Config Lcdbus = 4 Config Lcdpin...
Witam, Mam problem z wyslaniem danych do rejestrow PCF8583. Odczyt przebiega prawidlowo lecz nie moge wyslac danych(godziny,daty itp) do pamieci pcfa. Oto moj przerobiony kod $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs =...
niestety mam... oto program '---------------------------------------... ' (c) 1997-2001 MCS Electronics '---------------------------------------... ' file: LCD.BAS ' demo: LCD, CLS, LOWERLINE, SHIFTLCD, SHIFTCURSOR, HOME ' CURSOR, DISPLAY '---------------------------------------... $sim Rem...
Mam poskładany układ. W bascomie chciałem sprawdzić czy wszystko funkcjonuje poprawnie i tu pojawił się problem. Wyswietlacz LCD nie działa nie wyświetla nic;/ Próbowałem potencjometrem ustawić kontrast ale nic to nie daje. Więc postanowiłem sprawdzić czy wszyskie wyprowadzenia są poprawnie podłączenia wyświetlacza są poprawnie podłączone wgrałem program...
Ok wklejam kod: $crystal = 8000000 $lib "mcsbyte.lbx" $lib "i2c_twi.lbx" $regfile = "m8def.dat" Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.0 , Db6 = Portd.7 , Db7 = Portd.6 , E = Portb.2 , Rs = Portb.3 $baud = 9600 Config Serialin = Buffered , Size = 15 $eeprom Data 0 , 22 , 22 , 22 , 0 $data '$prog &HFC , &HE2 , &HD9...
Przepraszam za drobna nieobecność . Co do pierwszego postu z uwagami czemu atmega 32 itp taka mam na zl3avr założoną . Natomiast jeśli chodzi o to jak chce zbudować cały termostat to użyje atmegi 8 i MCP 1525 (wala się gdzieś w skrzynce :)) jako napięcia odniesienia (ok 2,5 V) . Chociaż rozdzielczość nie jest tu bardzo dokładna bo nie potrzebna jest...
Po kilku dniach pracy urządzania stwierdziłem że jednak przydało by się żeby serwerek dodatkowo wysyłał dane do "https://thingspeak.com/" chociaż z termometru domowego. Próbowałem na rożne sposoby ale nie mam pojęcia jak to zrobić. Może ktoś z Was jest w stanie zmodyfikować kod ? Może kolega (at)bart-projects czyta ten temat? ;) (to ten sam kod co w...
Po całym dniu walki słabo opisałem mój problem bo już po prostu nie miałem siły :D Wyjaśniam... Zrobiłem sobie mikro serwerek LANowy na Atmedze32 i układzie ENC28J60. Z doświadczenia z tym układem i Atmegą wiem że znacznie stabilniej wszystko pracuje gdy mikroporocesor (Atmega) jest taktowana zegarem 25MHz z gotowego modułu ENC a nie własnym kwarcem....
Witam ponownie, trochę pozamiatałem i dodałem już funkcjonalność ustawiania zegara, powrzucałem wszystko w procedury itd..., jak na razie działa, co nie zmienia faktu, że nadal nie wiem co było nie tak wcześniej. W każdym razie prosiłbym doświadczonych kolegów o zerknięcie na poniższy kod i zasugerowanie, jak to powinno być zrobione zgodnie ze sztuką...
Witam, proszę o schemat podłączenia ATmegi8 do MAX7456. Załączam obrazek: http://obrazki.elektroda.net/82_12947470... Ew, prosze też o przerobienie tego programu aby pasował do atmegi8, chodzi tu o zmiane tylko crystal i regfile? Czy to nie wpłynie na komunikacje SPI? '=======================================... '= MAX7456 Video overlay...
cursor blink bascom blink samsung instalacja blink
włacznik zmierzchowy odłączenie woluminu toyota yaris światła tylne
migawka szczelinowa kolektor płaski
Bezpieczniki kierunkowskazów w lusterkach VW Eos 2007 – lokalizacja i opis SC1/SC2 Wymiana środkowej kratki nawiewu Opel Meriva A - krok po kroku
