[BASCOM] Jak odczytać i wyświetlić eeprom 24C02/04/16/64 na LCD 2x16 w BASCOM?

Question

Witam, nie mogę nigdzie znaleźć jak odczytać zawartość pamięci eeprom 24C02/04/16/64. Interesuje mnie odczyt i wyświetlenie zawartości na lcd 2*16, przewijanie(góra, dół, pauza).

zumek · Accepted Answer

Bo pewnie szukałeś w innej galaktyce Zajrzyj do katalogu Smaples Bascoma. j/w Poskładaj zdobyte informacje do kupy i masz to co chciałeś. Piotrek

Platon · Accepted Answer

TAk. Zacznij pisac programy od najprostszych, do najbardziej skomplikowanych. Mozesz tez modyfikowac programy przykładowe. Po paru tygodniach bedziesz mial przyswojonego bascoma.

august_a · Accepted Answer

Komenda Print nie wyświetli ci zmiennej na lcd Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka'Program wykonujący zapis do pamięci EEPROM Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte) I2cstart I2cwbyte Addressw I2cwbyte Adres I2cwbyte Value I2cstop Waitms 10 End Sub 'Program wykonujący odczyt z pamięci EEPROM Sub Read_eeprom(byval Adres As Byte , Value As Byte) I2cstart I2cwbyte Addressw I2cwbyte Adres I2cstart I2cwbyte Addressr I2crbyte Value , Nack I2cstop End Sub odczytujesz: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka Call Read_eeprom(adres , zmienna)    oczywiście musisz zdeklarować odpowiednie zmienne...... Pzdr. Jaśniej już się chyba nie da

Krzych51 · Accepted Answer

Witam.
W trzeciej i czwartej linijce programu konfigurujesz wyświetlacz LCD, poleceniem CLS inicjujesz wyswietlacz, żeby coś na nim wyświetlić musisz napisać

LCD zmienna

wtedy wartość zmienej zostanie wyświetlona. Żeby sprawdzić jak to działa może spróbuj od czego prostrzego. Koledzy piszący wcześniej dobrze Ci radzili. Poszukaj w internecie przykładów i przeanalizuj je, a wtedy z czasem napewno osiągniesz sukces.

Pozdrawiam i życzę powodzenia.
Krzych

august_a · Accepted Answer

Poczytaj troche helpa Bascom tam jest WSZYSTKO opisane, jeśli chodzi o takie podstawy...

august_a · Accepted Answer

Co wyświetla ci lcd??

august_a · Accepted Answer

a mozesz wyswietlic jakis tekst np poleceniem: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkalocate 1,1:lcd test wyswietlacza

august_a · Accepted Answer

Wyświetlać ci może jakis krzaki bo w eepromie nic jeszcze nie zapisales.

zumek · Accepted Answer

Kolejność bracie , kolejność.Ponieważ w Twoim kodzie nie ma nigdzie instrukcji skoku do funkcji/podprogramu , to uC wykonując program po kolei , włazi do ... Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte) I2cstart I2cwbyte Addressw I2cwbyte Adres I2cwbyte Value I2cstop Waitms 10 End Sub  i po napotkaniu instrukcji End Sub wykonuje instrukcję Return/RET.Ponieważ nie ma gdzie wrócić , to albo się resetuje , albo idzie w krzaki. Wypróbuj poniższe i napisz co zobaczyłeś na LCD Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka $regfile = m8def.dat $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Pinc.1 , Rs = Pinc.0 Config Sda = Portd.5 Config Scl = Portd.7 Declare Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte) Declare Sub Read_eeprom(byval Adres As Byte , Value As Byte) Dim Addressw As Byte                                        'slave write address Dim Addressr As Byte                                        'slave read address Dim B1 As Byte , Adres As Byte , Value As Byte , T As Byte  'dim byte B1 = 0 Value = &H55 Cls Lcd Szukam urzadzen ; Lowerline Lcd na szynie I2C   ; For Addressw = 2 To 254 Step 2    I2cstart    I2cwbyte Addressw    I2cstop    If Err = 0 Then Exit For Next Cls If Addressw

zumek · Accepted Answer

Poprawiłem ociupinkę kod , więc spróbuj jeszcze raz.Przez 5 sekund będzie wyświetlał w górnej linii adres urządzenia(napisz jaki z eeperomem i jaki bez eepromu).Jeśli bez podłączonego eepromu wykrywa urządzenie na I2C , to może oznaczać brak rezystorów podciągających na SCL i SDA. Piotrek

zumek · Accepted Answer

To wytłumacz mi łaskawco , dlaczego w kodzie (post , który skopiowałem)masz


Config Sda = Portd.5
Config Scl = Portd.7

a na schemacie Portc.4 i Portc.5 :?:

Zmień przypisy i sprawdź

Piotrek

zumek · Accepted Answer

A jesteś pewien , że pod tym adresem nie jest zapisane zero Z innej beczki. Najpierw napisałeś , że masz 24c04 , ale teraz w komentarzu stoi 24c64 , więc pytam: którą kostkę teraz męczysz Piotrek

zumek · Accepted Answer

Zanim wkleję kod , to trochę ponarzekam Powiedz , dlaczego nie analizujesz kodu , który zadziałał i nie wyciągasz wniosków Czyżbyś go nie rozumiał Zauważ , że po zaadresowaniu układu , sprawdzam zmienną systemową ERR , która mówi , czy zaadresowany układ odpowiedział (ERR=0) , czy nie (ERR=1).Ty w swoim kodzie olewasz ERR i lecisz na pewniaka , a tu zonk Ok wystarczy Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka $regfile = m8def.dat $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Pinc.1 , Rs = Pinc.0 Config Sda = Portd.5 Config Scl = Portd.7 Declare Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte) Declare Sub Read_eeprom(byval Adres As Byte , Value As Byte) Dim Addressw As Byte                                        'slave write address Dim Addressr As Byte                                        'slave read address Dim B1 As Byte , Adres As Byte , Value As Byte , T As Byte  'dim byte B1 = &HFF Value = &H55 Cls Lcd Szukam urzadzen ; Lowerline Lcd na szynie I2C   ; For Addressw = 2 To 254 Step 2    I2cstart    I2cwbyte Addressw    I2cstop    If Err = 0 Then Exit For Next Cls If Addressw

snow · Accepted Answer

Musisz ty zamienić na litere. Każdemu znakowi odpowiada wartość z zakresu 0-255 więc ci będzie zawsze zwracał wartość liczbową danego znaku.

Ficu · Answer

Szukałem na elce i znalazłem 8 wyników, żadnego nie mogę zrozumieć;/ Może jest jakaś technika na przyswajanie sobie BASCOMA?

Ficu · Answer

Zrobiłem takie coś, ale nie działa ;/


$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Pinc.1 , Rs = Pinc.0
Config Rc5 = Portd.2
Config 1wire = Portb.0
Config Sda = Portc.4
Config Scl = Portc.5

Declare Sub Read_eeprom(byval Adres As Byte , Value As Byte)

Const Addressw = 160                                        'slave write address
Const Addressr = 161                                        'slave read address

Dim B1 As Byte , Adres As Byte , Value As Byte              'dim byte



Call Read_eeprom(1 , Value) : Print Value                   'read it back
Call Read_eeprom(5 , Value) : Print Value                   'again for address 5




Sub Read_eeprom(byval Adres As Byte , Value As Byte)
   I2cstart                                                 'generate start
   I2cwbyte Addressw                                        'slave adsress
   I2cwbyte Adres                                           'address of EEPROM
   I2cstart                                                 'repeated start
   I2cwbyte Addressr                                        'slave address (read)
   I2crbyte Value , Nack                                    'read byte
   I2cstop                                                  'generate stop
End Sub

Ficu · Answer

Bardzo proszę o pomoc! Potrzebuje tylko kod do odczytu eeprom i wyświetleniu zawartości na lcd.

Ficu · Answer

Czyli byłoby to coś takiego:

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Pinc.1 , Rs = Pinc.0

Config Sda = Portd.5
Config Scl = Portd.7

Declare Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
Declare Sub Read_eeprom(byval Adres As Byte , Value As Byte)

Const Addressw = 174                                        'slave write address
Const Addressr = 175                                        'slave read address

Dim B1 As Byte , Adres As Byte , Value As Byte              'dim byte

'Program wykonujący zapis do pamięci EEPROM
Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 10
End Sub

'Program wykonujący odczyt z pamięci EEPROM
Sub Read_eeprom(byval Adres As Byte , Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cstart
I2cwbyte Addressr
I2crbyte Value , Nack
I2cstop

Cls
Print ; Value
End Sub

Ficu · Answer

Help bascoma już czytałem.
Co w tym kodzie jest źle?

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Pinc.1 , Rs = Pinc.0

Config Sda = Portd.5
Config Scl = Portd.7

Declare Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
Declare Sub Read_eeprom(byval Adres As Byte , Value As Byte)

Const Addressw = 174                                        'slave write address
Const Addressr = 175                                        'slave read address

Dim B1 As Byte , Adres As Byte , Value As Byte              'dim byte

'Program wykonujący zapis do pamięci EEPROM
Sub Write_eeprom(byval Adres As Byte , Byval Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 10
End Sub

'Program wykonujący odczyt z pamięci EEPROM
Sub Read_eeprom(byval Adres As Byte , Value As Byte)
I2cstart
I2cwbyte Addressw
I2cwbyte Adres
I2cstart
I2cwbyte Addressr
I2crbyte Value , Nack
I2cstop

Cls
Lcd Value
End Sub

Ficu · Answer

Wyświetla tylko 1 krzaczek i nic więcej.

Ficu · Answer

Działa mi takie coś:

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Pinc.1 , Rs = Pinc.0
Config Rc5 = Portd.2
Config 1wire = Portb.0
Config Sda = Portc.4
Config Scl = Portc.5
Dim I As Byte
Deflcdchar Print , 17 , 10 , 4 , 10 , 17 , 10 , 4 , 10      ' replace ? with number (0-7)
Do
Cls
Lcd "tutaj wyswietla"
Waitms 10
Lowerline
Waitms 10
Lcd "sie dowolny"
Waitms 400
Cls
Lcd "tekst"
Waitms 500
Cls
Lcd "by Ficu  " ; Chr(0)
Waitms 100
For I = 1 To 16
Shiftlcd Right
Waitms 100
Next I
For I = 1 To 16
Shiftlcd Left
Waitms 100
Next I
Loop
End

Ficu · Answer

Narazie testuje 24C04, potem będę chciał coś większego chyba 24C64.
Eeprom programuje przez komputer oddzielnym programatorem i chcę aby tylko była wyświetlana jego zawartość.

Dodano po 4 [minuty]:

Wyświetla mi:

Szukam urzadzen
odpowiedzial ACK

Potem:

Porazka :(
B1<>Value

Dodano po 2 [minuty]:

Bez eepromu jest to samo.

Ficu · Answer

Z eeprom: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaAdres &H2 Bez eeprom: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaAdres &H2 Rezystory mam 3k3.

Ficu · Answer

A sprawdzałem to 3 razy...

Adres &H160

Sukces :)

Dodano po 17 [minuty]:

Czyli jak teraz mam odczytać eeprom?

Dodano po 3 [godziny] 18 [minuty]:

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Pinc.1 , Rs = Pinc.0

Config Sda = Portc.4
Config Scl = Portc.5


'zapis i odczyt danych z eeprom
Dim A As Byte
Const Adresw = 160                                          'adres do zapisu eeprom 24c64
Const Adresr = 161                                          'adres do odczytu eeprom 24c64

'odczyt eeprom

I2cstart                                                    'warunek startu
I2cwbyte Adresw                                             'zaadresujemy urządzenie
I2cwbyte 1                                                  'wyślij adres komórki eeprom
I2cstart                                                    'warunek startu
I2cwbyte Adresr                                             'adresujemy eeprom do odczytu
I2crbyte A                                                  'odczyt komórki pamięci, nack oznacza, że nie będzie następnego odczytu
I2cstop
Cls                                                         'warunek stopu
Lcd ; A
End

Na wyświetlaczu 0. Co jest nie tak?

Ficu · Answer

Więc co teraz mam zrobić aby wyświetlał mi tekst?

Ficu · Answer

Korzystam z 24C04. Programuje ic-prog'iem. Dodano po 5 [minuty]: Bez eeprom też 0.

Ficu · Answer

Zmieniłem tylko config scl i sda. Czyta z eeprom ale cyfry tzn nie zmienia tego na litery.

Ficu · Answer

Czyli jak?

[BASCOM] Jak odczytać i wyświetlić eeprom 24C02/04/16/64 na LCD 2x16 w BASCOM?

Jak w BASCOM odczytać zawartość pamięci EEPROM 24Cxx i wyświetlić ją na LCD 2x16?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Post #19

Post #20

Post #21

Post #22

Post #23

Post #24

Post #25

Post #26

Post #27

Post #28

Post #29

Post #30

Podsumowanie tematu