متخصصین EEPROM و LCD 6100 وارد شن و کمک کنن ببینم چند مرده هلاجن
من برنامه ای نوشتم که فایل ذخیره شده تو EEPROM مثل 24C128 رو از حافظه میخونه و میریزه تو متغیر
حالا میخوام چطوری این فایلو نشون بدم روی LCD 6100 رنگی , البته به زبان بسکام
اینم سورس برنامه
$regfile = "m8def.dat"
$crystal = 4000000
$lib "lcd-pcf8833.lbx"
$baud = 19200
Config Serialout = Buffered , Size = 254
Config Graphlcd = Color , Controlport = Portb , Cs = 0 , Rs = 3 , Scl = 1 , Sda = 2
Config Scl = Portc.5
Config Sda = Portc.4
Declare Sub Readmem
Const Ewrite = 160
Const Eread = 161
Dim A As Byte
Dim B As Byte
Dim N As Word
Dim Adres As Word
Dim Pic_input As Byte
For N = 0 To 8000
Adres = N
A = High(adres)
B = Low(adres)
Call Readmem
Next
End
Sub Readmem
I2cstart
I2cwbyte Ewrite
I2cwbyte A
I2cwbyte B
I2cstart
I2cwbyte Eread
I2crbyte Pic_input , Nack
I2cstop
End Sub Readmem
من برنامه ای نوشتم که فایل ذخیره شده تو EEPROM مثل 24C128 رو از حافظه میخونه و میریزه تو متغیر
حالا میخوام چطوری این فایلو نشون بدم روی LCD 6100 رنگی , البته به زبان بسکام
اینم سورس برنامه
$regfile = "m8def.dat"
$crystal = 4000000
$lib "lcd-pcf8833.lbx"
$baud = 19200
Config Serialout = Buffered , Size = 254
Config Graphlcd = Color , Controlport = Portb , Cs = 0 , Rs = 3 , Scl = 1 , Sda = 2
Config Scl = Portc.5
Config Sda = Portc.4
Declare Sub Readmem
Const Ewrite = 160
Const Eread = 161
Dim A As Byte
Dim B As Byte
Dim N As Word
Dim Adres As Word
Dim Pic_input As Byte
For N = 0 To 8000
Adres = N
A = High(adres)
B = Low(adres)
Call Readmem
Next
End
Sub Readmem
I2cstart
I2cwbyte Ewrite
I2cwbyte A
I2cwbyte B
I2cstart
I2cwbyte Eread
I2crbyte Pic_input , Nack
I2cstop
End Sub Readmem
دیدگاه