کی پد در بسکام

[reza175]

سلام به دوستان عزیز
چطور میشه تو بسکام یه کی پد رو به مگا 32 وصل کرد به طوریکه بشه مثلا یه عدد سه رقمی رو وارد کرد و در یه متغیر ذخیره کرد. ورود اعداد هم رو هم پشت سر هم تو ال سی دی بشه دید و با تایید ذخیره کرد

[ardavanzzz]

پاسخ : کی پد در بسکام

سلام.شما کار با کی پد رو بلد هستید؟میتونید یه عدد یه رقمی رو از کی پد دریافت و روی lcd نشون بدید؟

[reza175]

پاسخ : کی پد در بسکام

بله

[ardavanzzz]

پاسخ : کی پد در بسکام

خب کافبه این کار رو در یک حلقه بذارید و واسش یه کانتر تعریف کنید که تا وقتی به 3 نرسیده حلقه تکرار شه.حالا با وارد کردن هر عدد جدید عدد قبلی باید در 10 ضرب شه و با این عدد جدید جمع شه. :rolleyes:

[حمیدرضا رضایی]

پاسخ : کی پد در بسکام

عدد اول رو بریزید تو یه متغیر بعد ضرب در 100 کنید
عدد دوم رو بریزید تو یه متغیر دیگه و ضرب در 10 کنید
عدد سوم رو بریزید تو متغیر و در چیزی ضرب نکنید!
حالا این 3 تا متغیر رو با هم جمع کنید

[ardavanzzz]

پاسخ : کی پد در بسکام

فک کنم روشی که من گفتم راحتر باشه :redface:

[پراو]

پاسخ : کی پد در بسکام

کد برنامه های زیادی میشه نوشت از جمله ساده ترین آنها :
Q1 = K1 * 10
K1 = Q1 + S
که s عددی است که از کی پد دریافت میشود
با این برنامه محدودیت در دریافت عدد هم نداری و لازم نیست که مانند برنامه ی دوستان از شمارنده استفاده کنی

[ATA.Mega64]

پاسخ : کی پد در بسکام

راههای زیاد و متعددی هست که بسته به خلاقیت برنامه نویس تعریف شده.
ولی این یکی از همه معمولتره.

$regfile = "m32def.dat"
$crystal = 8000000
$sim
Config Kbd = Portb
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , _
E = Portd.4 , Rs = Portd.5
Cls
Dim A(3) As Byte
Dim B As Integer
Dim C As Byte
Dim V As Integer
Dim I As Byte
Locate 1 , 1

For I = 1 To 3
Re:
A(i) = Getkbd()
if a(i)=16 then goto re
A(i) = Lookup(a(i) , Keyboard)
Lcd A(i)
Next I
B = A(1) * 100
C = A(2) * 10
V = B + C
V = V + A(3)
Locate 2 , 4
Lcd V

End

Keyboard:
Data 1 , 2 , 3 , 10
Data 4 , 5 , 6 , 11
Data 7 , 8 , 9 , 12
Data 13 , 0 , 14 , 15

البته این برای 3 کاراکتره و اگه بیشتر هم بخوای خیلی راحت میشه ساخت.