ای بزرگان ای البالو ها ای پامادورها ای .......(پاچه خوری)
من مدار mt8870 رو با مگا 8 بستم جواب گرفتم ولی دوتا مشکل دارم :angry:
1 : به ازای کلید 1 روی صفحه کلید تلفن عدد 113 رو نشون میده و به ازای 2 عدد 114 و همین جور یک رقم یک رقم میره بالا ایا باید تبدیل کنم به یک عدد دیگه منظورم ده ده ای به دودوی یا یک چیز دیگه
2: گاهی اوقات به ازای 1 عدد 84 رو نشون میده و با سربه سر گذاشتنش حروف بی معنی رو روی lcd نشون میده و میکرو قفل میکنه باید چکار کنم
:NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = _
Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2
Config Int0 = Rising
Enable Interrupts
Enable Int0
On Int0 Hgh
Dim A As Integer
Config Portb = Input
Cursor Off
Cls
Do
Locate 1 , 1
Lcd "wait for pres key"
Loop
Hgh:
Cls
Home
Lcd "int0 ook"
A = Pinb
Locate 2 , 9
Lcd A
Waitms 100
Cls
Return
End
من مدار mt8870 رو با مگا 8 بستم جواب گرفتم ولی دوتا مشکل دارم :angry:
1 : به ازای کلید 1 روی صفحه کلید تلفن عدد 113 رو نشون میده و به ازای 2 عدد 114 و همین جور یک رقم یک رقم میره بالا ایا باید تبدیل کنم به یک عدد دیگه منظورم ده ده ای به دودوی یا یک چیز دیگه
2: گاهی اوقات به ازای 1 عدد 84 رو نشون میده و با سربه سر گذاشتنش حروف بی معنی رو روی lcd نشون میده و میکرو قفل میکنه باید چکار کنم
:NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO: :NO:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = _
Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2
Config Int0 = Rising
Enable Interrupts
Enable Int0
On Int0 Hgh
Dim A As Integer
Config Portb = Input
Cursor Off
Cls
Do
Locate 1 , 1
Lcd "wait for pres key"
Loop
Hgh:
Cls
Home
Lcd "int0 ook"
A = Pinb
Locate 2 , 9
Lcd A
Waitms 100
Cls
Return
End
دیدگاه