Witam ! Usuń nawiasy kwadratowe z: [syntax=basic4gl] Deflcdchar [2] , 224 , 231 , 229 , 231 , 224 , 224 , 224 , 224 Deflcdchar [0] , 32 , 7 , 5 , 7 , 32 , 32 , 32 , 32 Deflcdchar [1] , 32 , 4 , 4 , 14 , 14 , 14 , 32 , 32 [/syntax] Tak: [syntax=basic4gl] Deflcdchar 2 , 224 , 231 , 229 , 231 , 224 , 224 , 224 , 224 Deflcdchar 0 , 32 , 7 , 5 , 7 , 32 ,...
http://obrazki.elektroda.net/92_12909563... Witam serdecznie Osoby piszące programy na uC w Bascom'ie, często definiują własne znaki, które zostają następnie zakodowane na ciąg liczb, oddzielonych przecinkami. Każdy stworzony znak dobrze jest sobie opisać, aby nie zapomnieć, co oznacza. Ale co zrobić, jeśli przypadkowo zapomnimy dodać opisu,...
. Język BASCOM BASIC oferuje wiele instrukcji obsługujacych wyświetlacz LCD. Aby jednak mieć całkowitą kontrolę nad wyświetlaczem można stosować procedury w języku asembler. Poniżej znajduje się przykład: $asm Ldi _temp1, 5 'załadowanie kodu rozkazu do R24 Rcall _Lcd_control 'prześlemy do LCD jako komendę Ldi _temp1, 65 'załadowanie do R24 kodu znaku...
Jak wgrasz .hex'a do uC to sie przekonasz, a wtedy jesli nie bedzie dzialac to zadaj pytanie "dlaczego nie dziala?" zamiast "czy to dziala?". A odnosnie tego co juz masz to piszac wyswietlajac dane na LCD w ten sposob: {...} Lcd " T1 'c" Cls If T1 > T2 Then Deflcdchar Print , 4 , 14 , 21 , 4 , 4 , 4 , 4 , 4 ' replace ? with number...
Komenda shiftlcd left tego nie zrealizuje Niby dlaczego? Problem będzie tylko, gdybyś chciał wykorzystać inne linie do czegoś innego. Tu masz przykładowy program, korzystający z pamięci EEPROM: $eeprom Data "Baaardzo d{003}uuugi napis.!Jest zapisany w pami{002}ci EEPROM. W ATTiny 2313 mo{007}e mie{001} do...
Są Święta więc łap :D https://filmy.elektroda.pl/56_1450976796... Tylko trochę poprawiłem co tam napisałeś bo można by więcej... Możesz tez zerknąć [url=http://bart-projects.cba.pl/bargraf... tę kolekcję - Link. Napisałem w międzyczasie kilka innych i "szybszych" ale nie było czasu wrzucić. [syntax=vbnet]$regfile = "m16def.dat" $crystal = 1000000...
Witam. Robię mini komputer pokładowy. Funkcje to pomiar poziomu paliwa, temperatury w i na zewnątrz, i napięcia aku. Na razie mam paliwo i jedną temperaturę. Poziom paliwa symuluje na razie potencjometrem. Do pewnego poziomu fajnie wypełnia mi kolejne kwadraty, jednak gdy zapełnię pierwszą linię, i przekręcę jeszcze trochę potencjometr, to wypełnia...
Opis magistrali 1Wire masz w helpie. Poniżej kod na obsługę dallasa DS18B20. Config 1wire = P1.0 'konfiguracja magistrali 1wire Config Lcd = 16 * 1a 'konfiguracja wyswietlacza Deflcdchar 1 , 4 , 10 , 4 , 32 , 32 , 32 , 32 , 32 'znak stopnia Dim T1 As Single Dim T2 As Single Dim B1 As Byte , B2 As Byte , R As Byte Dim Tmp As String * 6 Dim Znak As String...
Jak zwykle czasu nie ma, ale nie mogłem się powstrzymać. Nakręciłem pierwszy klip - ahahahaha :D No musiałem się pobawić edytorem. Efekt to półtora minuty magii :D Ahahaha miałem kupę zabawy z tym :D Przy okazji możesz zobaczyć jak się używa wbudowanego symulatora by zadawać wartości ADC ;) Twój pomniejszony kodzik też poniżej, tylko używając poza symulatorem...
Niebardzo rozumiem o co dokładnie tu chodzi ale: 1. Każde wystąpienie Lcd Chr(3) powinno być Lcd Chr(3); żeby nie były dodawane znaki nowej linii. 2. Żeby modulo 10 się obliczało poprawnie, to zamiast Dim Volt_d As Byte musi być Dim Volt_d As Word To jest związane z tym, że BASCOM nie potrafi rzutować typów z większego (Word) na mniejszy...
Może nie umie wstawiać? $regfile = "m88def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4 Config Portd = &B00001111 'portd 0 1 2 3 jako wyjscia portd 4 jako 1wire 5 6 7 jako wejscia Portd.5 = 1 Portd.6 = 1 Portd.7 = 1 Portd.3 =...
...czy tylko wstawka asemblerowa może? Pewne jest , że gdybyś bardziej przyjrzał się standardowym bibliotekom Bascoma , to byś nie zadawał tego pytania :P Biblioteka LCD Bascoma , udostępnia np. takie procedury: _lcd_control 'wyślij rozkaz do LCD _write_lcd 'wyślij znak do LCD Parametr dla tych procedur , musi znajdować się w zmiennej _temp1(R24)....
http://obrazki.elektroda.pl/3089511800_1... Witam, dziś prezentuje swój bezprzewodowy termometr pracujący na częstotliwości 433 MHz. Urządzenie składa się z nadajnika i odbiornika. Nadajnik odczytuje temperaturę pieca C.O. i wysyła ją do odbiornika. W odbiorniku mamy możliwość ustalenia górnego i dolnego progu załączenia alarmu, który...
Wystarczy wzór znaku zapisać w pamięci wyświetlacza. Jego datasheet oraz zapewne setka przykładów w sieci wszystko wyjaśni.
http://obrazki.elektroda.pl/7139682100_1... Witajcie Wlasciwie jest to moj pierwszy temat na forum wiec prosze z gory o wyrozumialosc. Przepraszam rowniez, za brak polskich fontow, ale pomimo prob wielu nie ogarniam wiekszosci ogonkow z racji lokalizacji :/ Przyszly swieta, czas urlopu i odpoczynku... Niestety wraz ze swietami przybyla...
;) no hmm teraz może łapię o co ci chodziło. Odpowiedź jest krótka, prosta i przyjemna. Nie można - tzn nie można zdefiniować więcej niż 8 znaków jednocześnie i nawet nie poszukuj takiego rozwiązania bo jakbyś nie próbował to i tak będzie to bez sensu. I wcale nawet nie chodzi tu o to że można czy trzeba używać jakiegoś CLS'a bo to nie ma z tym nic...
Nigdy nie miałem tego sensora u siebie i dlatego nie czytałem dokumentacji i koła od nowa tez nie chciałem wymyślać. Jest gotowy kod na to na innym forum. On moze obsługiwać więcej czujników. Najważniejsze że pokazane jest jak do tego Twojego dodać obsługę temperatur ujemnych. [syntax=vbnet] ' ' Sensor DHT22 ' Insanity ' $regfile = "m328pdef.dat" $hwstack...
Bardzo dziękuje za odp. Sprawdz komende DEFLCDCHAR w BASCOM
Spójrz na prosty przykład. $regfile = "m328pdef.dat" $crystal = 16000000 $hwstack=40 $swstack=16 $framesize=32 Config Lcdpin = Pin , E = Portb.1 , Rs = Portb.0 Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 Config Lcdpin = Pin , Db6 = Portb.4 , Db7 = Portb.5 Config Lcdbus = 4 Config Lcd = 16x2 Initlcd Cursor Off , Noblink Deflcdchar 0...
Dzień dobry. Napisałem kod który wyświetla symbol kręcącego się wentylatora na wyświetlaczu LCD. Deflcdchar 0 , 32 , 25 , 1 , 32 , 16 , 19 , 32 , 32 Deflcdchar 1 , 32 , 12 , 1 , 17 , 16 , 6 , 32 , 32 ' replace ? with number (0-7) Deflcdchar 2 , 32 , 6 , 16 , 17 , 1 , 12 , 32 , 32 ' replace ? with number (0-7) Deflcdchar 3 , 32 , 19 ,...
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...
skoro BASCOM ma już zintegrowany moduł do tworzenia znaków to kupując BASCOMa po co się jeszcze bawić z tego typu wynalazkami? Ale ten program działa w odwrotną stronę - ciąg znaków tekstowych dekoduje na graficzny symbol, a takiej funkcjonalności nie ma wbudowany w Bascom LCD designer.
Dzieki bardzo za podpowiedź, DEFLCDCHAR calkowicie mi wystarczył . . .:)
Witajcie, dziś postanowiłem się podzielić dorobkiem w postaci oprogramowania i wiedzy na temat pewnego modułu GPS. Zegar softowy synchronizowany GPS z dodatkowym wyświetlaniem współrzędnych i prędkości no i dorzuciłem w ostatniej chwili temperaturę z DS18B20 - taki szkoleniowy programik w BASCOM (świetny przykład - gotowiec dla tych którzy chcą zrobić...
A masz w programie taką linię : Deflcdchar 0 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32 ??
Spróbuj If ... Then Deflcdchar ..., albo Select Case. Nie próbowałem ale powinno zadziałać
W chwili gdy obsługuje 1-Wire, Bascom ZAWSZE nawet na czas generowania resetu, co trawa ok 500us, później presence, co daje razem ok 800us, zawiesza przerwania. To samo w czasie transmisji danych, transmisja bajtu to ponad 500us zawieszone przerwania. W tym czasie nie wykona się przerwanie od timera, od i cała tajemnica. Ale zabobony. Każdy może otworzyć...
Poskładałem coś takiego: $regfile = "M8def.dat" ' use the Mega8 $crystal = 16000000 Config Portc = Input Portc = &B0000000 Config Portd = Input Portd = &B11111111 '----------------------------------do VU--------------- Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32 Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16 ' replace...
W niektórych kodach widzę taki zapis: Deflcdchar 0 , 32 , 32 , 32 , 32 , 31 , 31 , 14 , 31 ' replace ? with number (0-7) Deflcdchar 2 , 32 , 32 , 32 , 32 , 24 , 30 , 7 , 3 'prawa Deflcdchar 5 , 32 , 32 , 32 , 32 , 3 , 15 , 28 , 24 'lewa Deflcdchar 1 , 31 , 14 , 32 , 32 , 17 , 31 , 31 , 32 'galka dol Deflcdchar 3 , 3 , 3 , 7 , 15 , 30 , 28 ,...
Zrobiłem wskaźnik wysterowania audio. Był on dostosowany do LCD 20x4 , przerobiłem kod i dodałem drugi LCD 16x2. Nie wiem dlaczego druga linijka pierwszej linii E posiada błąd. Sprawdzałem LCD , oraz wyświetlałem napisy na obu wyświetlaczach i wszystko jest dobrze, tylko pod tym kodem do obsługi VU meter lcd wariuje. http://obrazki.elektroda.pl/8972835800_1...
Witam wszystkich :D Chciałbym wam przedstawić mój nowo zbudowany zegarek na uP Atmega 8 i jako wyświetlacz użyłem LCD 4x20 . Całość zmontowałem na uniwersalnej płytce . Atmega pracuje na wewnętrznym oscylatorze ustawionym na 8 Mhz , do procka podlączyłem kwarc zegarkowy Program przy pomocy kolegi Stefana pisałem w Bascom zdjecia zalącze jutro rano ponieważ...
Witam. Sprawdziłem. bascom wersja 2.0.5.0. program się kompliluje i wyświetla "no errors found", ale poprawiłem deflcdchar na wersję bez nawiasów. Bawiąc się na zestawie uruchomieniowym zauważyłem, że pomimo wyłączonego kursora, czasami się on pojawia. Zawsze jest widoczny w przypadku odmierzania czasy pracy gdy odmierza jednostki sekund. Jest na przykład...
Funkcja pulsein wstrzymuje działanie programu na te 655ms? (lub krócej) Nie, nie wstrzymuje, cały czas mierzy. Tyle tylko może zmierzyc(!!!). Jeżeli mierzony przedział czasu jest dłuższy to powie (Err=1) ; znaczy to że jego miara jest za krótka. Tu masz przykład pomiaru impulsu (active low) timerem 1 [syntax=basic4gl] 'Timer1 measure time interval...
Witam, mikroprocesor Atmega 8A odczytuje błędne dane z czujnika temperatury MLX90614 wersja 5V Sprawdzone rzeczy: -ciągłość połączeń -napięcie pomiędzy nóżkami zasilania -nowy mikrokontroler -definiowanie innych wejść sda i scl w atmedze - różne adresy zapisu i odczytu zapisu:&B00000000, &H5A odczytu:&B00000001 &H5B -różne napięcia podciągające schematy...
Witam po kilku dniach szperania po sieci, szukając programu pozwalającego sterować Attiny45 wyświetlaczem LCD 16x2 przy użyciu i2c z poziomu Bascoma w pierwszej kolejności natknąłem się na skrypt Pana Kent Andersson. Niestety skrypt mnie nie zadowalał ponieważ nie było możliwości sterowania podświetleniem przez port PCF8574 a ze względu ze dopiero się...
Chodzi o te zaznaczone ustawienia z obrazka. Są wstawiane jako domyślne jeśli się ich nie wpisze do kodu. Chodzi o to, że kiedy Bascom skacze do jakiegoś Sub to odkłada na stos te wcześniej omawiane dwa Bajty. W takim Sub już może tego nie widać, ale tez skacze np. do procedury odczytu czujników 1Wire. To już np. cztery bajty a w tym momencie nadchodzi...
Proszę. Twój programik ponad 20% chudszy ;) Pewnie jeszcze by się coś znalazło :D [syntax=vbnet]$regfile = "attiny2313.dat" $crystal = 1000000 $hwstack = 32 $swstack = 4 $framesize = 38 '* Konfiguracja wyświetlacza * Config Lcdpin = Pin , Rs = Portd.6 , E = Portd.4 , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 Config Lcd = 16 * 2 Deflcdchar...
Witam Mam do podłączenia czujnik temperatury KTY81-210. Piszę w bascomie. Przeglądając różne fora pl i zagr. poszukując odpowiedzi mam coś takiego. Ogólnie działa, sprawdzałem na razie w dwóch temp. wzorowałem się termoparą typu-K z miernika :-). Temperatury były zbliżone do siebie..... A chciałęm się dopytać o kod który podałem z czego wynikają te...
W symulacji ( bascom AVR 1.11.9.8 ) działa. Z LCD też działa. dodaję cały kod: $regfile = "attiny2313.dat" $crystal = 1000000 Config Lcdpin = Pin , Db7 = Pb.2 , Db6 = Pb.3 , Db5 = Pb.4 , Db4 = Pb.5 , E = Pb.6 , Rs = Pb.7 Config Lcd = 16 * 1 Deflcdchar 5 , 12 , 4 , 6 , 4 , 12 , 4 , 14 , 32 Cls Do Locate 1 , 1 Lcd "Jaros" ; Chr(5)...
Witam, Czy przyobsłudze wyswietlacza graficznego na T6963C można użyć w Bascomie komendy "Deflcdchar", aby zdefiniować własny znak?? Pisząc program wyrzucal mi jakieś błędy typu: Label not found
Więc jak mogę to zastąpić? Przepraszam za to pytanie ale nie znam BASCOM aż tak dobrze. Dodano po 2 Takie mam zmienne: Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32 ' replace ? with number (0-7)' Deflcdchar 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ' replace ? with number (0-7) Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16 ' replace...
Problem rozwiązałem w 50%. To znaczy dzięki podpowiedzią kolegów co mi brakowało żeby działał termometr, który pracuje bardzo dobrze ,dopisałem do programu woltomierz , który pracuje dobrze. Do zamknięcia tematu pozostał jeszcze amperomierz , który mierzy spadek napięcia na boczniku sygnał wzmocniłem wzmacniaczem LM358.Nie wiem jak przeliczyć spadek...
Masz kilka możliwości... 1. zmniejszenie objętości programu 2. Włożenie żadko zmieniających się zmiennych do eram(nie polecam) 3. wywalenie żeczy extra typu Deflcdchar 4. dołożenie pamięci zewnętrznej Jeśli mi powiesz co ten program ma robić to może uda mi sie go skrócić. P.S. Programik na większym procku działa tylko nie wiem co robi opowiedz w skrócie...
witam wszystkich jestem początkujący w programowaniu uC i dla tego mam mały problem a mianowicie chciałbym aby na wyświetlaczy pokazywała mi sie temperatura a przy okazji można był sterować różnymi urządzeniami za pomocą pilota RC5 podczas kompilacji w bascom-avr wersja demo program wywala mi błąd error: 61 line: 176 label not found $regfile = "m8def.dat"...
Na AVRFreaks jest ciekawy przykład : http://obrazki.elektroda.net/56_12585323... ' ****************************************... ' * ' * Title : ADC M8.bas ' * Version : 1.0 ' * Last Updated : 08.04.2006 ' * Target : AT Mega8 ' * Author : www.avrprojects.net ' * Program code : BASCOM AVR ' * Hardware...
Łap. Mam co robić ale tak się chwile pobawiłem. Program nie jest przemyślany tylko tak z doskoku :D Mierzy długość impulsu jednego i drugiego i pokazuje na LCD Do tego sumując obydwie długości wróży tez częstotliwość :P Nie miałem na szybko nic z PWM żeby zadawać różne wartości to złapałem ten mój programowany generator 50/50 i dlatego wyniki takie...
$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...
Publikuję to z myślą, że może się to komuś przyda. Dopasowałem tani chiński konwerter I2C do wyświetlacza HD44780, który można kupić poniżej 5 zł. Należy linię RW wyświetlacza połączyć z masą. http://obrazki.elektroda.pl/8806597000_1... [syntax=vbnet] ' Uniwersalny nagłowek programu v1a LCD HD44780 TWI (I2C) $regfile = "m8def.dat" 'Atmega8...
Wiem, że jest kilka podobnych tematów, które niby wskazują że problemy wynikają z różnic pomiędzy DS1820 a DS18B20, czy ewentualnie błędnej konfiguracji, ale u mnie wydaje się, że w programie jest wszystko ok, a mimo to, moim zdaniem temperatura jest zawyżana o kilka stopni (pomiar w temperaturze pokojowej) pokazuje około 24-26 st C, gdy tymczasem temperatura...
Witam Jak użyć znaków specjalnych LCD z tej dokumentacji $regfile "2313def.dat" $crystal = 1000000 Config Lcd = 16 * 1a Config Lcdpin = Pin , Db4 = Pb.3 , Db5 = Pb.2 , Db6 = Pb.1 , Db7 = Pb.0 , E = Pb.4 , Rs = Pb.5 Config 1wire = Portd.6 Dim I As Integer Dim S As Single Dim T As String * 4 Deflcdchar 0 , 6 , 9 , 6 , 32 , 32 , 32 , 32 , 32...
bascom bascom enkodera bascom projekt bascom bascom bascom enkoder
ricoh reset bębna tabliczka znamionowa silniku pętel zewrzeć pomiar
stycznik panelowy matowa płyta
Niskie napięcie siatki G2 w telewizorze JVC - przyczyny i diagnostyka Radio Becker BE7950 - Kod odblokowujący i numer seryjny