A help with Write/Read a I2C memory

[Eugeniu]

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 !

[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.

[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.

[Eugeniu]

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 .

[skimask]

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.

[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]

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

[Eugeniu]

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 !

[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
........................................