A help with Write/Read a I2C memory

Printable View

- 27th March 2008, 16:23
Eugeniu

A help with Write/Read a I2C memory

Hello !

My name is Eugen , from Romania - Bucharest . I am a new in use PBP . Please help me to know where I wrong . I have a Pic16F877 , and I wish to write a one or two texts as connstant , and variables as hours , minutes , seconds (these are not writes in my example), on a I2C memory type 24FC512 ,Read memory and display on a LCD with 2X16 lines:
*****************************
define LOADER_USED 1
define OSC 4
INCLUDE "Modedefs.bas"

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 2

SDA VAR PORTC.4
SCL VAR PORTC.3

J var word
i var word

c var byte

I=0
J=0

ADCON1 = 7
TRISB = 0

start:

DISABLE INTERRUPT

FOR i = 0 TO 20
I2cwrite SDA, SCL,$A0,I,["TEXT1",VARIABILA1,"TEXT2",VARIABILA2]
pause 30
NEXT i

for J = 0 to 20
i2cread SDA, SCL,$A0,J,[C]
pause 30

lcdout $FE,1
LCDOUT $FE,$80,"INCERCARI"
LCDOUT $FE,$C0+j ,c

pause 400
next J
pause 400
Enable
goto start
*****************************
Thenk you very much !
- 27th March 2008, 17:39
JD123

Instead of "TEXT1", use [#T,#E,#X,#T,#1...etc]

Don't overwrite your buffer.
- 27th March 2008, 18:58
Eugeniu

Quote:

Originally Posted by JD123

Instead of "TEXT1", use [#T,#E,#X,#T,#1...etc]

Don't overwrite your buffer.

Do not work .

"I2cwrite SDA, SCL,$A0,I,[#T,#E,#X,#T,# ]" = "bad expression "

Thanks !
- 27th March 2008, 19:16
JD123

Oops, my bad... that's for serial stuff.

Try:

text var byte[5]
test[4] = "T"
test[3] = "E"
test[2] = "X"
test[1] = "T"
test[0] = "1"

I2cwrite SDA, SCL,$A0,I,[char test\5, {your other data to send} ]

I don't know if the array is sent out lowest ([0]) or highest ([4]) first. Reverse array asignments if it comes out backwards.
- 27th March 2008, 19:48
skimask

I2cwrite SDA, SCL,$A0,I,[ "T" , "E" , "X" , "T" , "1" ].....
should also work. (not 100% sure, haven't tried myself, but it should work)

What you originally had was an embedded string, which PBP doesn't natively handle. ( "TEXT1" ). A byte array of characters as noted in the post preceeding can be used as a string, but is not really a 'string' as far as PBP is concerned.
- 27th March 2008, 20:38
Eugeniu

Quote:

Originally Posted by skimask

I2cwrite SDA, SCL,$A0,I,[ "T" , "E" , "X" , "T" , "1" ].....
should also work. (not 100% sure, haven't tried myself, but it should work)

What you originally had was an embedded string, which PBP doesn't natively handle. ( "TEXT1" ). A byte array of characters as noted in the post preceeding can be used as a string, but is not really a 'string' as far as PBP is concerned.

I have tried again , and in other kinds , and do not work .
- 27th March 2008, 20:45
Eugeniu

[QUOTE=skimask;53213]I2cwrite SDA, SCL,$A0,I,[ "T" , "E" , "X" , "T" , "1" ].....
should also work. (not 100% sure, haven't tried myself, but it should work)

What you originally had was an embedded string, which PBP doesn't natively handle. ( "TEXT1" ). A byte array of characters as noted in the post preceeding can be used as a string, but is not really a 'string' as far as PBP is concerned.[/QUOTE

I used this and not work .Read and display step by step only " T " ,first karakter .

........................................
test var byte[5]
test[4] = "T"
test[3] = "E"
test[2] = "X"
test[1] = "T"
test[0] = "1"

ADCON1 = 7
TRISB = 0
TRISC = 0

start:

DISABLE INTERRUPT
scriere:

FOR i = 1 TO 20
I2cwrite SDA, SCL,$A0,I,["T","E","S","T","1"]
pause 30
NEXT i
........................................
- 27th March 2008, 20:48
skimask

Quote:

Originally Posted by Eugeniu

I have tried again , and in other kinds , and do not work .

Well, that code isn't going to work in a loop like that. Why would it?
Get rid of the loop on the write.
- 27th March 2008, 21:00
mister_e

Hi, something like the following will work.

Code:

EEP1 con %10100000 ' First EEPROM A<2:0>=Gnd Addr var word ByteA var byte ByteB var byte PAUSE 50 addr=0 BYTEA="A" byteb="B" I2CWRITE SDA,SCL,EEP1,ADDR,[bYTEA," TEXT1",BYTEB," TEXT2"] PAUSE 10 FOR ADDR=0 TO 13 I2Cread SDA,SCL,EEP1,ADDR,[bYTEA] hserout [BYTEA] next @ GOTO $
- 27th March 2008, 21:04
mister_e

in your first example, try to change to..

Code:

 @ __CONFIG _XT_OSC & _WDT_ON & _PWRTE_ON & _BODEN_ON & _LVP_OFF DEFINE OSC 4 INCLUDE "Modedefs.bas" DEFINE LCD_DREG PORTB DEFINE LCD_DBIT 4 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 3 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 2 SDA VAR PORTC.4 SCL VAR PORTC.3 J VAR WORD i VAR WORD c VAR BYTE variabila1 VAR BYTE variabila2 VAR BYTE variabila1="A" variabila2="B" i=0 J=0 ADCON1 = 7 TRISB = 0 start: I2CWRITE SDA, SCL,$A0,i,["TEXT1",variabila1," TEXT2",variabila2] LCDOUT $FE,1 LCDOUT $FE,$80,"INCERCARI" LCDOUT $FE,$C0 FOR J = 0 TO 12 I2CREAD SDA, SCL,$A0,J,[c] LCDOUT c NEXT J @ GOTO $
- 27th March 2008, 21:09
Eugeniu

Quote:

Originally Posted by skimask

Well, that code isn't going to work in a loop like that. Why would it?
Get rid of the loop on the write.

Write code lines please , what have you in your mind .

Corect my lines .

Thank you !
- 27th March 2008, 21:18
Eugeniu

Quote:

Originally Posted by mister_e

in your first example, try to change to..

Code:

lcdout $FE,1 LCDOUT $FE,$80,"INCERCARI" LCDOUT $FE,$C0 for J = 0 to 20 i2cread SDA, SCL,$A0,J,[C] LCDOUT c next

In this situation the fist karakter is write in the same place , first possition .
- 27th March 2008, 21:31
mister_e

no it works here, look at post #10
- 27th March 2008, 21:32
Eugeniu

Quote:

Originally Posted by mister_e

Hi, something like the following will work.

Code:

EEP1 con %10100000 ' First EEPROM A<2:0>=Gnd ................................................................ @ GOTO $

I have write your code ..and display " ATEXT1 BTEXT2 " BUT NOT ALL TOGETHER -alternately . If will be remain all karakters on the display -ALL WILL BE OK !

Addr var word
ByteA var byte
ByteB var byte

PAUSE 50

addr=0
BYTEA="A"
byteb="B"
I2CWRITE SDA,SCL,$A0,ADDR,[bYTEA," TEXT1",BYTEB," TEXT2"]
PAUSE 10
reading:
FOR ADDR=0 TO 13
I2Cread SDA,SCL,$A0,ADDR,[bYTEA]

lcdout $FE,1
LCDOUT $FE,$80,"INCERCARI"
LCDOUT $FE,$C0+addr ,ByteA ' HERE I WRITE " +ADDR " BECOSE HE WRITE IN THE SAME PLACE

pause 300
next
pause 400
Enable
goto scriere
- 27th March 2008, 21:36
mister_e

POST #10, not #9

anyways, look what your actual code do...

Code:

FOR ADDR=0 TO 13 I2Cread SDA,SCL,$A0,ADDR,[bYTEA] lcdout $FE,1 ' it always clear your LCD and return to home LCDOUT $FE,$80,"INCERCARI" ' it always draw this line LCDOUT $FE,$C0+addr ,ByteA ' and finally here, it will only draw a single character, because you ALWAYS clear the WHOLE lcd with $FE,1 pause 300 next

hence why i've move most LCDOUT BEFORE the FOR/NEXT loop.... twice.
- 27th March 2008, 21:56
Eugeniu

Quote:

Originally Posted by mister_e

POST #10, not #9

anyways, look what your actual code do...

Code:

FOR ADDR=0 TO 13 I2Cread SDA,SCL,$A0,ADDR,[bYTEA] I understand that : in this line " byTEA is a new variable where PBP put what read at "ADDR" I have change with "C" and is the same . lcdout $FE,1 ' it always clear your LCD and return to home Aha , I will delete this line !! .....and WORK !! LCDOUT $FE,$80,"INCERCARI" ' it always draw this line yes , I wish this . LCDOUT $FE,$C0+addr ,ByteA ' and finally here, it will only draw a single character, because you ALWAYS clear the WHOLE lcd with $FE,1 pause 300 next

hence why i've move most LCDOUT BEFORE the FOR/NEXT loop.... twice.

I understand , I have make changes in programs and now it work !

Thank you very much for all help ! Have you only a happy days !
- 27th March 2008, 21:58
mister_e

Grreeeeeeeeeeeeeat! Enjoy!
- 27th March 2008, 22:04
JD123

"Have you only a happy days !"

Quote of the day.
- 27th March 2008, 22:07
mister_e

ah come on... read first post

Quote:

Originally Posted by POST #1

My name is Eugen , from Romania - Bucharest .

Chances are that our friend is not English, and try to do it's best... as i do each days since i'm here.... and yes i do tons of mistakes here and there, in each and every of my over 4,800 posts.

Time to raise Melanie's post once again
http://www.picbasic.co.uk/forum/showthread.php?t=4583
- 27th March 2008, 22:28
JD123

mister-e, tong-in-cheek, you know that. I would have stuck with helping him but my job called me away. Thanks for jumping in. It's best anyway, as I'm working on alot of I2C code right now and this kind of evolved into an LCD issue, which is not in the front of my mind.
- 27th March 2008, 22:37
mister_e

You just provided one example for me and probably tons of other users + spelling mistake ;). Tongue-in-cheek... for me, French Quebecer, it doesn't mean anything... but thanks Wikipedia...

Quote:

Tongue-in-cheek is a term that refers to a style of humour in which things are said only half seriously, or in a subtly mocking way. It is related to satire and irony.

I learn something new everyday ;) Thanks!
- 27th March 2008, 22:54
JD123

LOL!!! "tong", I just noticed that!
- 27th March 2008, 23:00
mister_e

sounded more chinese to me :D

ni hao!
- 28th March 2008, 07:19
Eugeniu

Apologize for my english, please ! Do not be angry .

Eugeniu
- 28th March 2008, 12:03
mister_e

Don't worry Eugeniu, there's a lot of people here, including me, who aren't english. We do our best and that's it. Your question was clear enough for me.

Don't be afraid and don't give up!
- 28th March 2008, 13:53
Eugeniu

Quote:

Originally Posted by mister_e

Don't worry Eugeniu, there's a lot of people here, including me, who aren't english. We do our best and that's it. Your question was clear enough for me.

Don't be afraid and don't give up!

Thank you , again ! My misyakes was very simple , for others , that "COLUMB EGG " but , I have lost a day , and my mind and eyes do not want to see they .