roboforum.ru

$regfile = "m16def.dat"                                     ' specify the used micro
$crystal = 8000000
$baud = 19200                                               ' use baud rate

$lib "lcd4.lib"
'$lib "i2c.lbx"
$lib "i2c_twi.lbx"


Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.2 , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7
Config Lcd = 16 * 2
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space



Cls
Dim Adress As Word , Content As Byte , Dat As Byte , Hi_addr As Byte , Low_addr As Byte

Adress = 16384
Content = 123
    Hi_addr = High(adress)
    Low_addr = Low(adress)

    Cursor Off
    Locate 1 , 1
    Lcd "wr:" ; Bin(content)
    Locate 2 , 1
    Lcd "adress:" ; Adress
    I2cstart
    I2cwbyte 160
    I2cwbyte Hi_addr
    I2cwbyte Low_addr
    I2cwbyte Content
    I2cstop
    Waitms 1200

    Waitms 1200

Dim Read_dat As Byte

    Hi_addr = High(adress)
    Low_addr = Low(adress)
    I2cstart
    I2cwbyte 160
    I2cwbyte Hi_addr
    I2cwbyte Low_addr
    I2cstart
    I2cwbyte &HA1
    I2crbyte Read_dat , Nack
    I2cstop
    Waitms 1200
    Cls
Locate 1 , 1
Lcd "read:" ; Bin(read_dat);
Locate 2 , 1
Lcd "adress:" ; Adress;
End