پاسخ : راه اندازی LCD Nokia - 1100 با بسکام
سلام هر بار که دانلود میکنم نمیخونه
سلام هر بار که دانلود میکنم نمیخونه
NOKIA-1100 Library.inc fonts.inc نوی برنامه این فایلو اینکلود میکنی $include "Nokia-1100 Library.inc" فایل fonts خودش تو این فایل اینکلود شده و نیاز نیست. یه برنامه نمونه که یک متن و عکس رو نشون بده: $regfile = "m16def.dat" $crystal = 8000000 Nokia_spi_data Alias Porta.6 : Config Porta.6 = Output 'MOSI Nokia_spi_clock Alias Porta.7 : Config Porta.7 = Output 'SCK Nokia_cs Alias Porta.5 : Config Porta.5 = Output 'CS Display_reset Alias Porta.4 : Config Porta.4 = Output 'LCD_RESET Display_reset = 1 Nokia_cs = 1 Declare Sub Nokia_init() Declare Sub Nokia_clear() Declare Sub Nokia_text(byval Nokia_x As Byte , Byval Nokia_y As Byte , Byval Nokia_text As String , Byval Nokia_inversion As Byte) Declare Sub Nokia_picture(bylabel Nokia_label As Word) Dim W As Iram Word At 8 Overlay Dim Nokia_data_9 As Integer Call Nokia_init() Call Nokia_clear() برای پاک کردن صفحه استفاده میشه Call Nokia_text(3 , 5 , "BE NAME KHODA" , 0) برای نمایش متن روی lcd،با تغییر اعداد مختصات شروع جمله عوض میشه،اون عدد صفر رو اگه 1 کنی،دور متن سیاه و به اصطلاح متن اینورت میشه Call Nokia_picture(sharif) برای نمایش عکس سیاه سفید bitmap(BMP) با حداکثر سایز 96*68 استفاده میشه که طریقه ی گذاشتنشو میگم پایین $include "Nokia-1100 Library.inc" $inc Nobat , 20 , "sharif.bgf" اینم فایل تبدیل شده عکسته که باید اینکلود بشه و این عدد 20 هم که در پست های قبلی مطرح کردم نفهمیدم چیه چون تغییرش اثری نداره end
دیدگاه