نمایش اعداد زوج و فرد روی 7سگمنت(به وسیله کلید)

[mojbili]

سلام;

1.برنامه ای میخوام که با فشردن کلید اول اعداد زوج 0تا100 و با فشردن کلید دوم اعداد فرد 0تا100 را روی 2 سون سگمنت نمایش دهد.
2.برنامه فوق را به نحوی تکمیل کنید که در صورت فشردن کلید از ادامه آخرین عدد شروع به شمارش نماید.
مشخصات برنامه:
میکرو کنترل:Atmega32
فرکانس:8.000.000
زبان برنامه:Basic(bascom)
با سپاس.

[vahidasm]

سلام دوست عزیز
تا حالا برنامه ای نوشتین خودتون؟؟
اگه ننوشتین اول یه برنامه خودتون بنویسین و اگه اشتباه بود اینجا بذارین تا براتون تصحیح بشه
موفق باشید

[mojbili]

برنامه های قبلش مثل 0تا9 یا 0تا99 رو نوشتم.اما نمیدونم چه جوری این دو قسمت رو انجام بدم.
اگر براتون مقدوره که راهنماییم کنید ممنون میشم.

[vahidasm]

خب دوست عزیز اینکه خیلی سادس
اگه میخواین عدد مورد نظر زوج باشه که از 2 شروع کنید و با استپ 2 بالا برین(از دستور for-next استفاده کنید)
همین کار رو هم برای اعداد فرد انجام بدین ولی اینبار برنامه رو طوری بنویسید که از 1 شروع کنه و دوتا دوتا بالا بره
منظورتون رو از سوال دوم نفهمیدم بیشتر توضیح بدین

[mojbili]

ممنونم از راهنماییتون.
سوال دوم به این صورت هست که اگه فرضاً اعداد زوج در حال شمارش هست،با فشردن کلید شروع به شمارش اعداد فرد کنه.مثل 0 2 4 6 8 9 11 13

[vahidasm]

خب اینم که خیلی سادس
شما تو این برنامه باید به فرض مثال اگه داره اعدازوج رو میشماره و شما کلید رو فشار میدین یکی به عدد شمرده شده اضافه کنه و از این به بعد دوتا دوتا بالا بره
مثلا داره اینطور میشماره 2 4 6 8 تو همین لحطه اگه کلید فشار داره بشه یکی به 8 اضافه کنه که میشه 9 حالا دوتا دوتا بالا بره که میشه 11 13 15 17 و....
اگه از این سوالی داری بپرس (این برنامه از اون یکی ها کمی پیچیده تره ولی سادس).موفق باشید

[mojbili]

متشکر از راهنماییتون.

[Shapour_Ardebil]

با سلام
من یک نرم افزلر قبلا نوشتم که درآوردن کد برای سون سگمنت را خیلی آسان میکند ویک مثال هم در پست پاییننتر براش گذاشتم که میتونه به دردت بخورد

You can see links before reply

[mojbili]

این جواب نهایی که اطمینان دارم که درسته.
با تشکر از راهنمایی های شما دوستان.



$regfile = "m32def.dat"
$crystal = 8000000
Config Portd = Output
Config Portc = Output
Config Porta = Input
Dim I As Byte
Dim J As Byte
Main:
If Pina.0 = 1 Then Goto L1
If Pina.1 = 1 Then Goto L2
Goto Main



L1:

For I = 0 To 9
For J = 0 To 9 Step 2
If Pina.1 = 1 Then Goto L2
Portd = Lookup(i , Seg)
Portc = Lookup(j , Seg)
Wait 1
Next I
Next J
Goto Main


L2:
For I = 0 To 9
For J = 1 To 9 Step 2
If Pina.0 = 1 Then Goto L1
Portd = Lookup(i , Seg)
Portc = Lookup(j , Seg)
Wait 1
Next I
Next J
Goto Main

Seg:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F