A help with Write/Read a I2C memory

[mister_e]

Hi, something like the following will work.

        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 $

[mister_e]

in your first example, try to change to..

<font color="#000000">        @ __CONFIG _XT_OSC &amp; _WDT_ON &amp; _PWRTE_ON &amp; _BODEN_ON &amp; _LVP_OFF                  
        <font color="#000080">DEFINE </font>OSC 4
        <font color="#000080">INCLUDE </font>&quot;Modedefs.bas&quot;
        
        <font color="#000080">DEFINE </font>LCD_DREG PORTB
        <font color="#000080">DEFINE </font>LCD_DBIT 4
        <font color="#000080">DEFINE </font>LCD_RSREG PORTB
        <font color="#000080">DEFINE </font>LCD_RSBIT 3
        <font color="#000080">DEFINE </font>LCD_EREG PORTB
        <font color="#000080">DEFINE </font>LCD_EBIT 2
        
        SDA <font color="#000080">VAR </font>PORTC.4
        SCL <font color="#000080">VAR </font>PORTC.3
        
        J <font color="#000080">VAR WORD
        </font>i <font color="#000080">VAR WORD
        
        </font>c <font color="#000080">VAR BYTE
        </font>variabila1 <font color="#000080">VAR BYTE
        </font>variabila2 <font color="#000080">VAR BYTE        
        </font>variabila1=&quot;A&quot;
        variabila2=&quot;B&quot;
        
        i=0
        J=0
        
        ADCON1 = 7
        TRISB = 0

start:

        <font color="#000080">I2CWRITE </font>SDA, SCL,$A0,i,[&quot;TEXT1&quot;,variabila1,&quot; TEXT2&quot;,variabila2]
        <font color="#000080">LCDOUT </font>$FE,1
        <font color="#000080">LCDOUT </font>$FE,$80,&quot;INCERCARI&quot;
        <font color="#000080">LCDOUT </font>$FE,$C0
        
        <font color="#000080">FOR </font>J = 0 <font color="#000080">TO </font>12
            <font color="#000080">I2CREAD </font>SDA, SCL,$A0,J,[c]
            <font color="#000080">LCDOUT </font>c
            <font color="#000080">NEXT </font>J

        @   <font color="#000080">GOTO </font>$

[Eugeniu]

in your first example, try to change to..

    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 .

[mister_e]

no it works here, look at post #10

[Eugeniu]

Hi, something like the following will work.

        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

[mister_e]

POST #10, not #9

anyways, look what your actual code do...

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.

[Eugeniu]

POST #10, not #9

anyways, look what your actual code do...

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 !

[mister_e]

Grreeeeeeeeeeeeeat! Enjoy!

[JD123]

"Have you only a happy days !"

Quote of the day.

[mister_e]

ah come on... read first post

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