سلام به همگی
من میخوام میکرو ATXmega32a4u-au وصل کنم به السیدی 5110 نوکیا ولی به مشکل برخوردم
دوتا کتابخانه از السیدی دارم
برنامه رو روی ATmega32 تست کردم جواب داد مشکلی نداره
ولی روی Xmega32a4u-au امتحان کردم جواب نداد ..
این کتابخانه رو glcd-nokia3310.lib استفاده میکنم تصویر سیاه بعد از چند ثانیه نوشته ها قاطی میشن و از دوباره سیاه میشه
این یکی کتابخانه glcd-nokia5110.lib اینو استفاده میکنم نوشته ها میاد ولی مثلا تو برنامه
lcdat 1,1,"0"
مینویسم ...ولی 0 رو روی السیدی ";:0123456789 اینجوری نمایش میده
عکسم که میزارم قاطی نشون میده
دقیق نمیدونم مشکل از کجاست خودم حدس میزنم فیوز بیتا باشه ...ولی از فیوز بیتای ایکسمگا چیزی
نمیدونم ...
پروگرامرمم هاتله
ممنون میشم دوستان کمکم کنن
من میخوام میکرو ATXmega32a4u-au وصل کنم به السیدی 5110 نوکیا ولی به مشکل برخوردم
دوتا کتابخانه از السیدی دارم
برنامه رو روی ATmega32 تست کردم جواب داد مشکلی نداره
ولی روی Xmega32a4u-au امتحان کردم جواب نداد ..
این کتابخانه رو glcd-nokia3310.lib استفاده میکنم تصویر سیاه بعد از چند ثانیه نوشته ها قاطی میشن و از دوباره سیاه میشه
این یکی کتابخانه glcd-nokia5110.lib اینو استفاده میکنم نوشته ها میاد ولی مثلا تو برنامه
lcdat 1,1,"0"
مینویسم ...ولی 0 رو روی السیدی ";:0123456789 اینجوری نمایش میده
عکسم که میزارم قاطی نشون میده
دقیق نمیدونم مشکل از کجاست خودم حدس میزنم فیوز بیتا باشه ...ولی از فیوز بیتای ایکسمگا چیزی
نمیدونم ...
پروگرامرمم هاتله
ممنون میشم دوستان کمکم کنن
کد:
$regfile = "xm32a4udef.dat" $crystal = 32000000 $hwstack = 40 $swstack = 16 $framesize = 32 $lib "xmega.lib" Config Osc = Enabled , 32mhzosc = Enabled Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1 $lib "glcd-nokia3310.lib" Config Graphlcd = 128x64sed , Rst = Portc.3 , Cs1 = Portc.4 , A0 = Portc.5 , Si = Portc.6 , Sclk = Portc.7 Dim I As Byte , N As Word , M As Byte Dim Text As String * 8 '***************************** Program ***************************************** Initlcd Cls Setfont Font6x8 Lcdat 2 , 16 , "NOKIA-3310" Lcdat 4 , 30 , "84x48" Wait 2 Cls Showpic 0 , 0 , Walker Wait 2 Cls Setfont Font6x8 Lcdat 3 , 1 , "--------------" Lcdat 4 , 22 , "1 March" Lcdat 5 , 1 , " Saturday " , 1 Lcdat 6 , 31 , "2014" Setfont Font12x16dig I = 20 Do Incr I If I > 59 Then I = 20 Text = Str(i) Lcdat 1 , 1 , "23:" ; Text Waitms 500 Lcdat 1 , 1 , "23 " ; Text If I.0 = 1 Then Showpic 66 , 1 , Ring Else Lcdat 1 , 66 , " " Waitms 500 '----------------------------------------------- Contrast regulation 'For m = 175 To 210 ' Glcdcmd 33 : Glcdcmd m ' Waitms 100 'Next 'Glcdcmd 33 : Glcdcmd 200 'Normal Contrast Loop End '=============================================================================== Ring: $bgf "Ring.bgf" Walker: $bgf "Walker.bgf" $include "font6x8.font" $include "font12x16dig.font"
دیدگاه