Co można z tego zrobić: Zegarek, wyświetlacz jakichś liczb, minutnik, licznik impulsów, prędkościomierz do roweru, obrotomierz... Jak: Poszukaj o programowaniu procesorów AVR (przez ISP), dokumentacja ATTiny2313, języki C, BASCOM
A Z czego wnika taka rozbieżność cenowa :?: przecież obydwa mają taką samą rozdzielczość Inna technologia wykonania. Ten pierwszy to tylko matryca ze złączem + jakiś tam plastik. No i ma mało popularny sterownik. BASCOM nie ma na liście tego sterownika (w bibliotekach też go nie ma), ale jest on funkcjonalnie kompatybilny z KS0713 a ten jest zaś unowocześnioną...
Witam Nie wiem czy trzeba zmieniać coś jeszcze w Fusebit, czy porostu problem jest po stronie wyświetlacza? Pozdrawiam Wyświetlacz powinien pracować zupełnie dobrze także przy 1 Mhz taktowaniu processora. W zależności od deklarowanej F(clk), Bascom kalkuluje odpowiednio timingi do stadardu HD44780 display controlera. Przy błednej konfiguracji (lub...
https://obrazki.elektroda.pl/9317464400_... Witam Przedstawiam stację meteo nad którą pracuję już kawałek czasu. Początek prac to też mój początek zabawy z Arduino. Zaczęło się od gotowego projektu malutkiej stacji z wyświetlaczem OLED. https://obrazki.elektroda.pl/5611267500_... Wtedy już samo wgranie programu do...
'$sim $crystal = 18432000 'Konfiguracja wyświetlacza Config Lcdbus = 4 Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7 = P1.7 , E = P1.3 , Rs = P1.2 Config Lcd = 16 * 1a 'configure lcd screen Cls Display On Cursor Off Dim H As Byte , M As Byte , S As Byte Dim L As Long H = 0 M = 0 S = 0 L = 0 Do If S = 60 Then Incr M S = 0 End If If...
] 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...
tak wygląda sam kod do odczytu predkośći "trochę nie ogarnięty sorki" [syntax=basic4gl] $regfile = "m16def.dat" 'wew rezonator $crystal = 8000000 'jest włączony wew rezonator $baud = 9600 'szybkosc ibusa Config Lcd = 16 * 2 'używany wyświetlacz i piny do jakich jest podłączony Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7...
Dziękuję za zainteresowane. Tak , grafiki będą wyświetlane zawsze w tym samym miejscu, na pełnym ekranie o formacie 240*128. Bitmapy jakie konwertowałem są monochromatyczne 1 bitowe. Rzeczywiście rysuję je ręcznie, piksel po pikselu (masakra) . Jeśli jest możliwość abym nie musiał ich konwertować to by było idealnie gdyż mogę sobie na bieżąco zmieniać...
Siemka ugh123 :D Co prawda nie mam tego wyświetlacza (Nokia), lecz o wiele większy. Ale do do tematu. Pliki ".bgc" są zapisywane w 8-bitowym kolorze, Ja pracuję z 16-sto bitowymi kolorami, więc konieczna jest konwersja z 8 na 16 bitów. Informacje na temat wymieniony przez Ciebie znajdziesz w sieci (poszukaj). Nie dam Ci gotowca,i sądzę, iż nikt Ci nie...
Prześledź to: (co zbyteczne, wyrzuć. Mega 8 daje radę) '-----------LCD for Nokia 3310 and Mega AVR-------------------------------------... ' 'Based on Louis Frigon program in C: "Nokia LCD Library" at www.microsyl.com 'and 'Darek Dobrowolski program in Bascom: "Wysterowanie wyświetlacza LCD LPH7779(Nokia 3310) przez ATmega128L...
No dobra, udalo ci sie polechtac moja proznosc wiec moze zrobimy tak. Opisze tutaj przykladowego mekafile-a z nastawieniem na WinAVR, Atmega8 i STK200 tak aby inni tez cos z tego mieli. W zasadzie wszystko jest opisane w angielszczyznie no ale jakby kto nie umial to daje po polsku. # Hey Emacs, this is a -*- makefile -*- #---------------------------------------...
Ciekawe czy AI dało sobie radę; [syntax=vbnet]' === SSD1322 BASCOM mini-driver: Pixel, Line (ATmega, 4-wire SPI) === ' Pins (edit to your wiring) Config Portb.2 = Output ' CS# Config Portb.1 = Output ' D/C# Config Portb.0 = Output ' RES# Ssd1322_cs Alias Portb.2 Ssd1322_dc Alias Portb.1 Ssd1322_res Alias Portb.0 ' SPI (hardware SPI on ATmega328/128/1284...
Sprawdź w pomocy Bascoma, ile może być zagnieżdżonych wyrażeń warunkowych. Ja tu widzę następujące: 1. If Jakaś zmienna = 1 Then 2. Select Case Inna_zmienna 3. If Kolejna <> 2 Then 4. Else [podejrzewam, że Bascom traktuje Else jako kolejny poziom zagnieżdżenia] 5. If Ostatnia_zmienna.7 = 1 Then 6. Else Display Off [uwaga do Else jak wyżej] I prawdopodobnie...
W międzyczasie musisz coś do tego wyświetlacza wysłać. EUREKA! :) Mnie też się zachciało dzisiaj LCD na I2C i męczę się od rana nad cholerstwem... Dzięki za podpowiedz dlaczego podświetlenie nie działało - myślałem że coś w adresie namieszałem, ale jednak nie ! :) Ale mam poważniejszy problem z wyświetlaniem - pewnie też jakaś głupota... Korzystam...
Dzień dobry ! Sprawdź ten kod: [syntax=vbnet] $regfile = "attiny2313.dat" $crystal = 1000000 $hwstack = 8 $swstack = 16 $framesize = 32 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Porta.0 , Db6 = Portd.1 , Db7 = Porta.1 , E = Portb.3 , Rs = Portb.4 Config Lcd = 16 * 1 Cursor Off Cls Const Wartosc_timera = 131 Config Timer0 = Timer , Prescale = 8 On...
Rozwiązanie kamyczka wydaje się być bardziej prawdopodobne. Szczerze powiem nie przyszło i to do głowy, a jakiś potencjometr elektroniczny na pewno leży mi gdzieś w szufladzie. Przy display on/off występuje "mrużenie" wyświetlania.
Właśnie zostałeś Kolego moim GURU :D Ruszyło :) To była kwestia biblioteki - musi być glcdEADOGM128x3 i wtedy działa :) Dodano po 2 https://obrazki.elektroda.pl/1008100100_... Dodano po 12 Należało użyć innej biblioteki: glcdEADOGM128x3. Poniższy kod działa bez żadnych przeróbek na ATXMEGAA3BU-XPLD: [syntax=vbnet] $regfile = "XM256A3BUDEF.DAT"...
Only one variable? What if you actually not set value of the variable? Should LCD display something else (like switching main screen/menu screen)? Do the buttons should have autorepeat or just one press = +1 You should be more precise
dodalem ale niczego to nie zmienia. a wygląda tak: Enable Interrupts Config Pind.2 = Output Set Pind.2 Config Int0 = Falling On Int0 Przerw Enable Int0 Cls Display On Cls Do Loop End Przerw: Lcd "OK" Return
<brawo> Dobre spostrzerzenie..... Jesli pisałbym obsługe t6963 to w C (szybkosci szybkosci i jeszcze raz szybkosci)... Okazuje sie ze t6963c nowsze serie (te w nowszych wyswietlaczach) zap*** z taka predkoscia ze da sie je odswiezac 30x na sekunde :D Praktyka pokazuje ze na wyswietlaczu z alledrogo kiedys udalo mi sie megą128 kręconą na 26MHz...
wlacz bascom i skorzystaj z czegos takiego : Help->Index Action Configure the LCD display and override the compiler setting. Syntax CONFIG LCD = LCDtype Remarks LCDtypeThe type of LCD display used. This can be : 40 * 4,16 * 1, 16 * 2, 16 * 4, 16 * 4, 20 * 2 or 20 * 4 or 16 * 1a Default 16 * 2 is assumed. When you have a 16 * 2 display, you don't have...
W jaki sposób zrobić restart LCD? To właśnie chciałem zrobić podając komendę cls, czyli czyść ekran wyświetlacza. Jeżeli to nie to, to jaka jest komenda do restartu LCD? Dla HD44780 instrukcja: Display clear - (RS = 0, R/W = 0, dane = 00000001) -instrukcja ta powoduje wyczyszczenie wyświetlacza poprzez wypełnienie go spacjami, ustawienie trybu zapisu...
A helpa czytaliśmy ? :) For extended RC5 code, the extended bit is bit 6 of the command. The toggle bit is stored in bit 7 of the command A czytałeś co napisałem: help bascom : Zmiany wprowadzone od wersji 1.11.6.9. Funkcja GETRC5() odbiera teraz rozszerzone kody RC5. Podziękowania dla Gert Boer, który jest autorem tej implementacji. Są kody RC5 nawet...
Mój wyświetlacz najlepiej działa z tą inicjalizacją: [syntax=vbnet] I2cstart I2cwbyte &H78 I2cwbyte &H80 'SET CHARGE PUMP I2cwbyte &H8D I2cstop I2cstart I2cwbyte &H78 I2cwbyte &H80 I2cwbyte &H14 'CHARGE PUMP ON I2cstop I2cstart I2cwbyte &H78 I2cwbyte &H80 I2cwbyte &HAF 'Wake up display I2cstop I2cstart I2cwbyte &H78 I2cwbyte &H80 I2cwbyte Kontrast 'Contrast...
There is an interesting article on Stacja lutownicza z Rumunii: To set the temperature there are tree buttons: -down -up -sleep Soldering station is available after to press buttons, up-down(to set 250 celsius degrees).The display enables viewing 2x16.The temperature adjustment step is 10 celsius degrees.Software for station I made in Bascom to measure...
Witam To co pisze na płycie to: "Wily Display Limited" Model:EN5014-01 Posiada 20 wprowadzeń. http://obrazki.elektroda.pl/6305793400_1... http://obrazki.elektroda.pl/8351241300_1... Czytelne układy to MJU7670 oraz LM324 Szukałem na googl i tak naprawdę nic tam niema o tym wyświetlaczu mam ich 3 sztuki i chwiałbym je wykorzystać...
Wiatm. Czy widział ktoś gdzieś kod do obsługi LCD PCF8833 w bascomie, mam taki wyświetlacz i bascoma z bibliotekami do jego obsługi, niestety coś w tej bibliotece (lcd-pcf8833.lbx) jest chyba nie tak bo wyświetlacz nie reaguje. Na elektrodzie znalazłem kawałek kodu który wyświetla kolorowe paski i ten kod działa. Teraz pytanie czy komukolwiek działa...
Zacznij od tego że w Google wpisujesz VL530X i dopisz Bascom Wpisywałem tak jak napisałeś, ale nie wchodziłem na strony obcojęzyczne. Ale dzięki że kolega odpisał. Dodano po 7 Jeśli czujnik nie ma przeszkody do 2 metrów nie powinien zwracać liczby 2000?
W jaki sposób ustawić Bascoma, żeby dało się bezpośrednio pisać teksty do wyświetlania LCD (sterownik z rosyjskimi znakami) cyrylicą? każda rada się liczy :D Rodzaj wyswietlanej czconki (fontu) na LCD nie zalezy od twojej klawiatury w systemie (np: Windows) ani tez od ustawien w Baskom lub innym compiler. Font jest generowany przez Character generator...
$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. Na początku chciałem zaznaczyć, że przed założeniem tego postu szukałem podobnych problemów. Niestety nic nie znalazłem. Podłączyłem wyświetlacz LCD z poniższego schematu: http://obrazki.elektroda.pl/8910815200_1... Napisałem prosty program W BASCOM AVR w celu sprawdzenia poprawności działania: $regfile = "m8def.dat" $crystal...
Poprawiłem swój programik usuwając $eeprom, dodając i2cinit, zmieniłem czasy według programu Dispv09 ze strony Elke Visner i zmieniłem procedurę startu i2c na tą ze strony Elke czyli: 1. Idle state all lines are high. 2. Pull MRQ low for a short period and let it go high again. 3. Send a "I2C Start" 4. Send the address byte, 0x9B. (The 8 character display...
Teraz Timer1 powinien mierzyć okres a po przeliczeniu zmienna Liczba powinna podać częstotliwość. Sygnał podaje na INT0 i wyświetlacz zaczyna szybko migać więc nie widać jaki jest wynik. Podaje 84Hz ale wyniku na LCD brak. Sam fakt że wyswietlacz 'miga' oznacza że coś tam jednak się pokazuje. Problem jest, że wynik nie pozostaje na długo bo jest natychmiast...
Witam Duch_ to piękna konstrukcja, chyba jeszcze nikt nie zaglądał na link, bo jeszcze nikt Cię nie zjadł za Bascom :) Zwykle ludzie piszą, że w Bascomie się nie da i do tego kabelki nie są równo ułożone. Wiele razy czytałem jaki to Bascom jest beee i fuj i wogóle... Nie przejmuje się tym. Co do programu to: Wyświetlacz wstawiony w linii emisji głośnika...
Cze Jezeli umiesz czytac w moim Chinskim to pomoze http://www.bipom.com na tej stronie znajdziesz jakie kawalki programow na 2051 cpu one bede w samples MicoIDE oni sprzedaja to ale versja na 2051 jest free tam napewno jest co na jaki LCD or VFD Zalaczylem ci P{DF naszego CU display to podobne commendy i interface jest te same za wyjatkiem pin 3 - VFD...
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...
Problem w tym, że po wybraniu danego DS'a wskazania się zmieniają tylko w momencie zmiany stanu przycisku, co nie do końca jest celem. Prawdopodobnie w innej części programu masz cykliczne odświerzanie wpisu w display z inną treścią i nacisnięcie przycisku w "Do... Loop ", jest jakby nieformalne 'wcisnięcie się w kolejkę' z której i tak w końcu jesteś...
Witam Czy ten CV ma tyle bledow czy mi sie zdaje. Za chiny nie moge odpalic wyswietlacza w trybie 4bit (innego nie probowalem). Gdy uzywam bascom na tych samych pinach, lcd dziala odrazu :(... przy CV wyswietla albo pelna jedna linijke albo obie, albo tez puste...:( dziala wam cos takiego??.. [LCD] [PORTD] 4 RS - 1 PD0 5 RD - 2 PD1 6 EN - 3 PD2 11 D4...
Witam, mam taki kod w bascomie i nie mam pojecia dlaczego nie chce zadzialac: $regfile = "attiny2313.dat" $crystal = 10000000 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.6 , Rs = Portb.7 Config Lcd = 16 * 2 Display On Cursor On Do Cls Lcd "Tekst" Wait 10000 Loop End Wszystko zostalo...
Ale w czym masz problem? Poczytaj o multipleksowaniu... Zasada ogólna jest taka, że pokazując coś na wyświetlaczu siedmiosegmentowym i mając np. 4 bloki możesz na raz wyświetlać tylko jedną cyfrę, tyle że musisz zmieniać to dość szybko żeby oszukać oko. [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 1000000 $baud = 1200 $hwstack = 64 $swstack =...
O wielkie dzieki! Fajnie to wyjaśniłeś teraz kumam :) Będę próbował na pewno się uda. P.S. używam kwarcu 4MHz Gdyby jednak nie udalo sie to popr. ten: $regfile = "m8def.dat" $crystal = 4000000 Config Portb = Output 'lcd display Const Timer1reload = 62500 ' tyle tikow zegara potrzeba dla 1 sec. Config Timer1 = Timer , Prescale = 64 Dim Czas...
Witam chciałem napisać kod który będzie powodował ze po tym jak wartość I3 będzie równe zero to będzie migać linia 2 z napisem PIEC i temperatura. Napisałem ale miga mi górna linia zamiast dolnej;/ Pomoże ktoś? If I3 = 0 Then Waitms 500 Display On Waitms 500 Cls Lowerline Lcd " PIEC " ; Ss ; Chr(0) ; i następnym problemem jest to że...
Ja to tylko tu zrobiłem żeby prawidłowo wyswietlało na wyswietlaczu a tu inna wersja jak chcesz dokładniej $crystal = 4000000 Config Lcd = 16 * 1a Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2 Config 1wire = Portd.0 Dim I As Integer Dim S As Single Deflcdchar 0 , 7 , 5 , 7 , 32 , 32...
Oto cały program, poprawiłem go według Waszych wskazówek jednak dalej nie wchodzi do obługi przerwania. Powiedzcie mi co w nim jest nie tak? Żeby przyśpieszyć analize opisze go po krótce. Przez włączeniem należy ustawić w stan wysoki Pind.3 wtedy program poprosi o tekst do wyświetlenia. Potem przechodzi do pętli w której są 3 efekty okazywania napisu...
Nie wiem dlaczego odbierasz takie dane. Pamiętaj też że jeżeli przez 70ms nie wyślesz żadnej danej to nadajnik wchodzi w tryb uśpienia, potem jego wybudzenie trochę trwa i może przekłamać bity. Spróbuj tak: Wgraj to do nadajnika i nic więcej: [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 $baud = 1200 Config Com1 = Dummy , Synchrone = 0...
Witam, piszę sobie program na A128 i nie umiem sobie poradzić z jednym problemem ... wykorzystuję instrukcję encoder jaka jest w bascomie do zliczania zmiennej LONG + - i jednocześnie dokonuję pomiaru napięcia V kod programu [syntax=basic4gl]'----------------------... 'name : BG30dB_LCD.bas 'copyright...
Oto cały program: [syntax=basic4gl] $sim $regfile = "m8def.dat" $crystal = 8000000 Config Portb = &B01111111 Config Portd = &B11111110 Dim Tablica(10) As String * 16 Tablica(1) = "elo" Tablica(2) = "whazzzup" Tablica(3) = "hello" Tablica(4) = "jedzmy ksem" Tablica(5) = "nie poddawaj sie" Tablica(6) = "jedziesz dalej" Tablica(7) = "juz coraz mniej:"...
Uprzedzając komentarze - uzyłem "szukaj" i nie znalazlem odpowiedzi... Sytuacja jest następująca: MEGA8 steruje wyświetlaczem LCD (w założeniu ma być 16*1). Próbowałem na dwu różnych - ale efekt jest taki sam. Użyte modele: WC1601A i HY1601E Program wygląda tak: $regfile = "m8def.dat" $crystal = 4000000 Config Lcdmode = Port Config Lcdbus = 4 Config...
Witam wspólnotę chciałbym zaznaczyć że z wykształcenia jestem mechanikiem, a z programowaniem nie miałem wcześniej styczności. Przeczytałem książeczkę która mowiła o programowaniu w jezyku bascom, i stworzyłem taki o to kod programu. [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 Config Timer0 = Timer , Prescale = 256 'licznik do odmierzania...
Witam. Mam program do obsługi wyświetlacza tft z dotykiem. Program nie mój, działa prawidłowo ale jest problem z szybkością wyświetlacza i chciałbym przejść na Xmega128A3. Problem w tym że Xmegi nigdy nie miałem "w rękach" i mam problemy z przeróbką programu. Chciałbym też wiedzieć na pewno że ten program będzie działał na Xmega zanim wpakuję się w...
display level bascom display control display pilocie
stabilizator mosfet połączenie domofon ethernet modbus falownik
Błąd wtrysku w koparce Volvo EC180 po rozgrzaniu Raspberry Pi wolno działa na SSD, szybciej na SD