دادن عدد به avr

[killer]

سلام.

من می خوام یه سری عدد رو توسط kepad در زبان basic به avr بدم.نه یک عدد تنها چون این که با دستور getkbd میشه میخوام مثل ماشین حساب بهش عددی مثل 1029 رو بدم و بعد جمع وتفریق کنم. :nerd:

[milad2546]

پاسخ : دادن عدد به avr

به ایم تایپک یه سری بزن.
http://www.eca.ir/forum2/index.php/topic,14636.0.html

[hess]

پاسخ : دادن عدد به avr

سلام دوست عزیز من توی بیسیک مثل جناب موسوی دست ندارم اما این برنامه ای میگید رو با C نوشتم اگه مایل بودی و بگید پش کنم شاید

به درد خورد موفق باشید :nerd:


[hr]ایمان علم عشق عدالت

[milad2546]

پاسخ : دادن عدد به avr

شما استاد مائی.

بذاری بد نیست

[killer]

پاسخ : دادن عدد به avr

لازم نیست که حتما با بیسیک باشه فقط کافیه که شما به من بگید که باید چه کارهایی رو انجام بدم خودم برنامشو مینویسم یعنی بیشتر نیاز به توضیح دارم تا خود برنامه.

[_reza_]

پاسخ : دادن عدد به avr

لازم نیست که حتما با بیسیک باشه فقط کافیه که شما به من بگید که باید چه کارهایی رو انجام بدم خودم برنامشو مینویسم یعنی بیشتر نیاز به توضیح دارم تا خود برنامه.

شاید این روش ساده که من استفاده میکنیم بدردت بخوره

من از یک dim key as string*15 استفاده میکنم
بعدش هر کلیدی که زده شد مقدارش رو بصورت استرینگ به متغیر key اضافه میکنم (مثلا key=key+ "2 برای 2 )
هر زمان هم که کلیدی که برای ok تعریف کردم زده میشد یا تعداد عددهای وارد شده به 15 رسید مقدارش رو توی متغیر دلخواه میریزم
یعنی key_v=val(key

اینجوری میشه برنامه وارد کردن عدد رو بصورت فانکشن نوشت و تعداد اعداد ورودی رو یکی از متغیر های اون قرار داد تا اعداد رو با تعداد ارقام مختلف در جاهای مختلف برنامه وارد کرد

[Ahp_online]

پاسخ : دادن عدد به avr

دوست عزیز
این یک برنامه با bascom است:

$regfile = "m32def.dat"
$crystal = 8000000
Config Kbd = Portb , Debounce = 350 , Delay = 150
Dim Sum As Word
Dim Scan_key As Byte
do
Scan_key = Getkbd()
Scan_key = Lookup(scan_key , Key1)
Select Case Scan_key
Case Is < 10:
Sum = Sum * 10
Sum = Sum + Scan_key
end select
loop
دوست عزیز شما هر وقت کلید فشار دهید که از مقدار 10 کمتر باشد یعنی اعداد 0 تا 9 باشند . این برنامه می یاد مقدار متغیر sum رو که در لحظه اول مقدار صفر را دارا است در عدد 10 ضرب بعد با مقدار عددی که از صفحه کلید فشار داده اید جمع می کند و در متغیر sum می ریزد همین کار رو تا آخر انجام می دهد.
مثال:
شما برای بار اول عدد 2 را فشار می دهید برنامه می یاد:
sum=0*10=0
sum=0+2=2
در اینجا مقدار sum برابر 2 می شود.
برای بار دوم شما عدد 9 را فشار می دهید:
sum=2*10=20
sum=20+9=29
شما در خروجی مقدار 29 رو دارید .بهمین نحو عدد دیگه ای فشار بدید به همین صورت عمل می شود.
فقط باید دقت کنید متغیر از نوع word است.

[killer]

پاسخ : دادن عدد به avr

دوست عزیز
این یک برنامه با bascom است:

$regfile = "m32def.dat"
$crystal = 8000000
Config Kbd = Portb , Debounce = 350 , Delay = 150
Dim Sum As Word
Dim Scan_key As Byte
do
Scan_key = Getkbd()
Scan_key = Lookup(scan_key , Key1)
Select Case Scan_key
Case Is < 10:
Sum = Sum * 10
Sum = Sum + Scan_key
end select
loop
دوست عزیز شما هر وقت کلید فشار دهید که از مقدار 10 کمتر باشد یعنی اعداد 0 تا 9 باشند . این برنامه می یاد مقدار متغیر sum رو که در لحظه اول مقدار صفر را دارا است در عدد 10 ضرب بعد با مقدار عددی که از صفحه کلید فشار داده اید جمع می کند و در متغیر sum می ریزد همین کار رو تا آخر انجام می دهد.
مثال:
شما برای بار اول عدد 2 را فشار می دهید برنامه می یاد:
sum=0*10=0
sum=0+2=2
در اینجا مقدار sum برابر 2 می شود.
برای بار دوم شما عدد 9 را فشار می دهید:
sum=2*10=20
sum=20+9=29
شما در خروجی مقدار 29 رو دارید .بهمین نحو عدد دیگه ای فشار بدید به همین صورت عمل می شود.
فقط باید دقت کنید متغیر از نوع word است.

دست درد نکنه مشکلم حل شد