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 :)...
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. 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...
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"...
$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...
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, 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)...
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Ω,...
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...
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...
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 =...
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...
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ę,...
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ę...
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...
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...
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...
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...
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"...
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...
niestety mam... oto program '---------------------------------------... ' (c) 1997-2001 MCS Electronics '---------------------------------------... ' file: LCD.BAS ' demo: LCD, CLS, LOWERLINE, SHIFTLCD, SHIFTCURSOR, HOME ' CURSOR, DISPLAY '---------------------------------------... $sim Rem...
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 =...
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...
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...
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...
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...
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 =...
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...
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ą...
Dzięki za pozdrowienia i za odpowiedź . A co do układu to jest automat do pokoju i ma sterować światłem rgb , halogenami , klawiatura umieszczona we włączniku+ dioda rgb ma sygnalizować jaka funkcja światła zostanie zmieniona , odczytać i zapisać i2c to zadanie dla attiny2313 . A atmega8 ma wyświetlać na wyświetlaczu co jest obecnie za funkcja , pobierać...
Witam, właśnie walczę z obsługą LCD pod Atmegą 8 - cały kod jest w C, z użyciem biblioteki: lcd.h #ifndef LCD_H #define LCD_H /***************************************... Title: C include file for the HD44780U LCD library (lcd.c) Author: Peter Fleury <pfleury(at)gmx.ch> http://jump.to/fleury File:...
ja w asemblerze tak to incjuje (w asemblerze) jak chcecie to wkleje tu też program wysyłający dane do modułu. Każdy pin lcdka można podłączyć dowolnie do procka (tak jak w bascomie). Może dla starych wyjadaczy to żadna gratka, ale jakiś "młody" (np: taki jak ja moze sobie to postudiować) pozdrawiam ;******************************** INITLCD: MOV A, #51;FUNCTION...
Program napisany jest w Bascom. Delay nie ma w ogóle. Program napisany chaotycznie, ale działał ok dopóki nie dopisałem obsługi DCF77. Gdy przyjdzie odpowiednia godzina, dioda IR ma wysłać kod do odbiornika. Wtedy właśnie procesor zwalnia. Sekundy wtedy "idą" co 3 no i dźwięk ma zwolnione tempo. [syntax=vbnet] $regfile = "m32def.dat" $crystal = 8000000...
Witam Znalazłem gotowca sterującego lcd za pomocą HC595. Program niby działa i musi działać poprawnie się kompiluje i nie działa... Testowałem z 2 wyświetlaczami 2x16 i 1x16 (po zmianach w kodzie) które są na pewno sprawne. To już mój niepierwszy dziwny problem z Bascomem 1,11,9,5. Mógłby któryś z kolegów sprawdzić czy mu to działa? ewentualnie podesłać...
ja sam napisałem programik do obsługi takiej klawiatury i wyświetlania liczb na wyświetlaczu LCD 2x16. tylko problem jest w tym że ten mój program zajmuje za dużo i tak małej pamięci procka. program napisałem w bascomie jestem początkującym i nie znam jeszcze asm a LCD podłączony: EN - PB1 D4 - PB4 D5 - PB5 D6 - PB6 D7 - PB6 RS - PB2 jeśli komuś to...
Witam, jak w temacie, wyświetlacz 128*128 bardzo ładnie chodzi w Bascomie - oprócz ładowania grafiki z plików. Od kilku godzin próbuje go ożywić w Fastavr i jak narazie klops. Podłaczenie: LCD - Mega16 D0-D7 PA0-PA7 CD PD5 CE PD4 RD PD3 WR PD2 Reset PD6 FS PD7 Listing: ... $GLCD T6963C, Data=PORTA, ctrl=PORTD, 128, 128, 1 $Gctrl CD=5, CE=4, RD=3, WR=2,...
Tak na szybko, nie testowane - nie mam bascoma to co dopisane zmienione oznaczone komentarzem ' ********* dopisane alarm [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 16000000 $hwstack = 64 $swstack = 64 $framesize = 64 $include "Config_PCF8583.bas" Config Lcdpin = Pin , Rs = Portd.2 , E = Portd.3 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6...
Mam następujący kłopot. Podłączyłem LCD pod Atmege8: http://obrazki.elektroda.net/24_12350652... Oraz program (przepisany z książki Marcina Wiązania): $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Dim I As Byte Cls Lcd "*BascomAVR*"...
Witam wszystkich. Bardzo ładnie proszę, o sprawdzenie kodu poniżej. Nie mogę za nic w świecie ustawić zegara, i z datą jest też nie do końca ok. Męczyłem się składając linijki, i nie wychodzi. Nie wiem gdzie są błędy. Zegar idzie, ale nie idzie go ustawić. Jeśli wyświetla 13:20 i ustawię inny czas, wraca z powrotem do 13:20 lub innej wartości. Czy może...
-------------serdecznie dziekuje za pomoc,podpowiedzi! i prosze o wyrozumialosć ----------- wklejam caly kod (napisany w Bascomie) i bylbym wdzieczny za pomoc w przeanalizowaniu jego dzialania, czesc kodu odpowiedzialna za dzialanie przetwornikow AC i sterowanie wyswietlaczem LCD nie istotna dla mnie w tym momencie ----------------------------------------...
Witam, Dostałem skan artykułu Miernik dużych pojemności z Nowego Elektronika 5/2003. Skan jest dość słaby i nie mogę dokładnie zweryfikowac programu z moim źrodłem. (dostałem juz przepisany w pliku txt) Miernik oparty jest na AT89C4051 i NE555. Mam kompilator BASCOM-8051 ver 2.0.11.0 (pełna wersje) i przy próbie kompilacji wyrzuca bład w linijce: Dim...
Witam wszystkich. Od pewnego czasu próbuję, z wykorzystaniem Bascoma, napisać program, który będzie obsługiwał dwa mikroprzełączniki i wyświeltacz LCD. Ideą programu ma być wprowadzenie do tablicy danych, czyli jeden przycisk zmienia pole na LCD, a drugi zwiększa wartość znajdującej się tak cyfry. Skorzystałem z obsługi przerwań zewnętrznych. Problem...
cursor blink blink bascom zasilać cursor
lutowanie telefon napięcie obudowie urządzenia podliczniki energia
webasto sterownik kamera samochodowa
Czujnik temperatury silnika MINI R50 – kolor oryginału, zamienniki, lokalizacja Beretta Fonte 11-14 – iskrownik cyklicznie włącza się bez przepływu wody, przyczyny i naprawa
