۰۹-مرداد-۱۳۹۵, ۱۹:۲۴:۱۴
سلام به همگی
من میخوام میکرو 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"