یه سوال مبتدیانه از کیبرد

[narek]

سلام دوستان
من یه تازه کار هستم و AVR را از این پست یاد گرفتم http://www.eca.ir/forum2/index.php?topic=7070.0
همین جا از آقای nex2004 سپاس گذاری میکنم واسه این پست عالیشون :applause: :job:و امیدوارم که این آموزشها ادامه داشته باشه
میخوام بدونم چطوری میشه یه عدد چند رقمی را ذخیره کرد مثلا با کیبرد اعداد 5و4و3و6و2 را که وارد میکنیم بعد مثلا * را که بزنیم عدد26345 ذخیره شود من برنامه ای که نوشتم فقط عدد آخر ذخیره میشه یعنی هر عددی که وارد میکنم میره جای عدد فعلی را میگیره(فقط عدد آخر ذخیره میشه) :angry: :cry2:
از دوستان اگه کسی میدونه یه راهنمایی کنید لطفا :redface:
ممنون :bye

[MAJID-PM]

پاسخ : یه سوال مبتدیانه از کیبرد

سلام دوست عزیز

مشکلی نیست اصلا روال کار با کی پد همین است برای این کار شما باید یک while بنویسی

شما دو تا متغییر تعریف کن مثلا num و num_temp

وقتی اولین عدد را دریافت کردی آنرا در num_temp بریز بعد وقتی دومین عدد وارد شد مقدار num_temp را در 10 ضرب کن و داخل num بریز
وقتی سومین عدد وارد شد آنرا در num_temp بریز و سپس مقدار num را در 10 ضرب کن و با num_temp جمع کن و دوباره در num بریز همین کار را تا آخر انجام بده

امیدوارم که مشکلت حل شود اگر باز هم مشکلی داشتی من در خدمتم

راستی من یک سایت پیدا کردم که بورد آموزشی ARM و AVR جایزه میده www.ne-ir.com

[narek]

پاسخ : یه سوال مبتدیانه از کیبرد

سلام دوست عزیز

مشکلی نیست اصلا روال کار با کی پد همین است برای این کار شما باید یک while بنویسی

شما دو تا متغییر تعریف کن مثلا num و num_temp

وقتی اولین عدد را دریافت کردی آنرا در num_temp بریز بعد وقتی دومین عدد وارد شد مقدار num_temp را در 10 ضرب کن و داخل num بریز
وقتی سومین عدد وارد شد آنرا در num_temp بریز و سپس مقدار num را در 10 ضرب کن و با num_temp جمع کن و دوباره در num بریز همین کار را تا آخر انجام بده

امیدوارم که مشکلت حل شود اگر باز هم مشکلی داشتی من در خدمتم

راستی من یک سایت پیدا کردم که بورد آموزشی ARM و AVR جایزه میده www.ne-ir.com

با سلام دوباره
دوست عزیز من هر چی ور رفتم نتونستم برنامشو بنویسم عددهای عجیب قریب نشون میده :sad: oo:
اگه میشه یه خورده بیشتر توضیح بدید :redface:
ممنون

[narek]

پاسخ : یه سوال مبتدیانه از کیبرد

بابا چرا کسی جواب نمیده پس؟؟؟ :sad: :sad: :sad: :cry2:
کسی جواب سوالمو نمودونه یعنی؟؟؟؟؟؟؟ :sad:

[narek]

پاسخ : یه سوال مبتدیانه از کیبرد

:cry: :cry2:

[ali_rk]

پاسخ : یه سوال مبتدیانه از کیبرد

سلام یه نیگاه به این برنامه بنداز اگه متوجه نشدی بگو تا واست توضیح بدم تو این برنامه اعداد به ترتیب در segment[i] ذخیره و روی سون سگمنت نمایش داده میشن

#include <mega32.h>
#include <delay.h>
flash char cathod[16]={252,96,218,242,102,182,190,228,254,246,238,62,15 6,122,158,142};
flash char anod [8]={247,251,253,254,127,191,223,239};
flash char kbref[4]={0xef,0xcf,0xbf,0x7f};
void main (void)
{
char kb=16,i=0,j=0,num_new=0,num_old=16;
char segment[8]={0,0,0,0,0,0,0,0};
DDRD=0xf0;
PORTD=255;
DDRA=255;
DDRC=255;
while(1)
{
num_new=16;
for(i=0;i<4;i++)
{
PORTD=kbref[i];
delay_ms(1);
kb=(~PIND)& 15;
if(kb==1) num_new=4*i;
if(kb==2) num_new=4*i+1;
if(kb==4) num_new=4*i+2;
if(kb==8) num_new=4*i+3;
}
if(num_new!=16 && num_new!=num_old)
{
for(j=7;j>0;j--)segment[j]=segment[j-1];
segment[0]=num_new;
num_old=num_new;
}
if(num_new!=num_old)num_old=16;
for(i=0;i<8;i++)
{
PORTA=cathod[segment[i]];
PORTC=anod[i];
delay_ms(2);
PORTC=255;
}

}
}

[narek]

پاسخ : یه سوال مبتدیانه از کیبرد

سلام آقا علی
خیلی ممنون از پستتون ولی راستش من زبان بیسیک بلدم اونم در حد ابتدایی :redface:
اگه ممکنه یه خورده توضیح ببدید در مورد نحوه ی عملکرد برنامه :rolleyes:
متشکر

[saeed bagherani]

پاسخ : یه سوال مبتدیانه از کیبرد


$regfile = "m323def.dat"
Dim Key As Byte
Dim Ar(6) As Byte
Dim N As Byte
Config Kbd = Porta

Do
Key = Getkbd()
If Key < 10 Then
For N = 6 To 2 Step -1
Ar(n) = Ar(n - 1)
Next N
Ar(1) = Key
Waitms 100
End If
If Key = 15 Then
N = 1
For N = 6 To 1 Step -1
Print Ar(n);
Ar(n) = 0
Next N
End If
Loop

End

[ali_rk]

پاسخ : یه سوال مبتدیانه از کیبرد

سلام آقا علی
خیلی ممنون از پستتون ولی راستش من زبان بیسیک بلدم اونم در حد ابتدایی :redface:
اگه ممکنه یه خورده توضیح ببدید در مورد نحوه ی عملکرد برنامه :rolleyes:
متشکر

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

[hamed_online62]

پاسخ : یه سوال مبتدیانه از کیبرد

می تونی به این صورت عمل کنی:
هر بار یه عدد دریافت کنی و اونو با حاصلضرب قبلی در 10 جمع کنی. مثلا عدد 24 از جمع عدد 4 با 2*10 بدست میاد .
مثل این :

...
Dim B As Long
Dim A Byte

B = 0
Do
A = Getkbd()
A = Lookup(a , Key)
Select Acse A
Case Is < 10:
B = B * 10
B = B + A
Case 15:
Cls
Locate 1 , 6
Lcd B
End Select
Loop

End

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

[r.m.e]

پاسخ : یه سوال مبتدیانه از کیبرد

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

Config Lcd = 16 * 2
Config Kbd = Portb , Debounce = 250 , Delay = 140
Cls
Cursor Off
Dim A As Byte , A1 As Word
Dim B As Byte , B1 As Word , E1 As Byte , F1 As Word
Dim C As Byte , C1 As Word , D1 As Word , D As Byte
Dim S1 As Byte , S2 As Byte , S3 As Byte , S4 As Byte , S5 As Byte
Dim R1 As Word , R2 As Word , R3 As Word , T As Byte
F1 = 0
Do
Locate 2 , 1
Lcd F1
Home
Lcd "num:"
M1:
A = Getkbd()
If A > 15 Then Goto M1
S1 = Lookup(a , Dat1)
If S1 > 9 Then Goto M1
Locate 1 , 5
Lcd S1
Waitms 20
M2:
B = Getkbd()
If B > 15 Then Goto M2
S2 = Lookup(b , Dat1)
If S2 > 10 Then Goto Main1
Locate 1 , 6
Lcd S2
Waitms 20
M3:
C = Getkbd()
If C > 15 Then Goto M3
S3 = Lookup(c , Dat1)
If S3 > 10 Then Goto Main2
Locate 1 , 7
Lcd S3
Waitms 20
M4:
D = Getkbd()
If D > 15 Then Goto M4
S4 = Lookup(d , Dat1)
If S4 > 10 Then Goto Main3
Locate 1 , 8
Lcd S4
Waitms 20
M5:
T = Getkbd()
If T > 15 Then Goto M5
S5 = Lookup(t , Dat1)
If S5 <> 100 Then Goto M5
A1 = S1 * 1000
B1 = S2 * 100
E1 = S3 * 10
C1 = B1 + A1
D1 = C1 + E1
F1 = D1 + S4
Locate 2 , 1
Lcd F1
Loop
Main1:
F1 = S1
Goto Main
Main2:
F1 = S1 * 10
F1 = F1 + S2
Goto Main
Main3:
R1 = S1 * 100
R2 = S2 * 10
R3 = R1 + R2
F1 = R3 + S3
Goto Main
Main:
Locate 2 , 1
Lcd F1
Goto M1

End
Dat1:
Data 1 , 2 , 3 , 10 , 4 , 5 , 6 , 10 , 7 , 8 , 9 , 10 , 100 , 0 , 10

[narek]

پاسخ : یه سوال مبتدیانه از کیبرد

سلام :biggrin:
بچه ها از همتون تشکر میکنم واسه کمکی که به من کردید بالاخره تونستم با راهنمایی های شما یه برنامه خودم بنویسم با پروتئوس هم چک کردم 100% جواب میده اینم برنامش میزارم اینجا حالشو ببرید :mrgreen:
$regfile = "m16def.dat"
$crystal = 80000
Dim A As Byte
Dim B As Long
Config Lcd = 16 * 2
Config Kbd = Portb
B = 0
Do
A = Getkbd()
If A < 10 Then
B = B * 10
B = B + A
Cls
Lcd B
Waitms 400
End If
Loop
End
فقط بازم یه سوالی واسم بی جواب مونده :sad: :redface: اونم اینکه اولش که برنامه را نوشته بودم تاخیر رو ایجاد نکرده بودم (Waitms 400) بعد مثلا یه عددی را میزدم مثلا 4 برنامه میزد 44444 :eek: بعدش که تاخیر را گذاشتم درست شد میخوام بدونم علت اون تاخیر چیه؟ چرا حتما باید تاخیر رو بذارم؟(خودم چند دلیل پیش خودم دارم میخام مطمعن شم که استدلال خودم درسته یا نه :biggrin
بازم از شما تشکر میکنم واسه راهنمایی هاتون ممنون :job: :bye

[saeed bagherani]

پاسخ : یه سوال مبتدیانه از کیبرد

من فکر می کنم اگه دستت روی کلید باقی بمونه باز هم 4444444 رو می نویسه فقط سرعتش اول زیاد بود و بعدش تاخیر که گذاشتی کمتر شد
یک راه حل خیلی عالی اینه که برنامه رو اینطوری تعقیر بدی ( کبیورد مثل ماشین حساب عمل می کنه و هر بار فشردن کلید فقط یک بار عمل می کنه زمان cpu هدر نمیشه و سرعت کلید زدنت هم بالا میره )


$regfile = "m16def.dat"
$crystal = 80000
Dim A As Byte
Dim B As Long
Dim Slave As Byte
Config Lcd = 16 * 2
Config Kbd = Portb
B = 0
Do
A = Getkbd()

If A < 10 Then
Do
Slave = Getkbd()
Loop Until Slave <> A
B = B * 10
B = B + A
Cls
Lcd B
End If
Loop
End

[hamed_online62]

پاسخ : یه سوال مبتدیانه از کیبرد

مشکل برنامه بر میگ رده به تعریف کیپد .
یا باید همون طور که نوشتی عمل کنی یا به این صورت:

Config KBD=PortB , Delay = 200 , Debounce = 200

اولی تاخیر بین دو کلید و دومی زمان پایین نگه داشتن کلید برای درک اون توسط میکرو به عنوان یک کلید .