حالت موضوعی | حالت خطی

**رسول**

کماکان منتظر یاری سبزتان هستیم Biggrin

**ilgar**

این قسمتی از برنامه یه دماسنجه که جزو اولین پروژه هام با AVR بودهکه قسمت شمارنده شو جدا کردم.
هر چند برنامه مبتدیانه است اما برای آموزش خوبه.

**رسول**

ممنون ایلگار جان

ولی من شمارنده نمیخوام

یه برنامه ای میخوام که مربوط به پست اولم باشه یعنی اون جدول رو به ترتیب برای خروجیهای A/B/C/D عملی کنه و.....

البته کار اصلیشم همین شمارشه ها اما با رویکردی متفاوت ...........

فکر کنم برنامش باید شبیه برنامه موتورپله ای باشه که اونجا هم با ترتیب کردن وصفر رو یک کردن سیمها موتور حرکت میکنه واگه برعکسش کنیم برمیگرده و...
درست مثل همین UP و DOWN

**t3r!p3000**

مهندس یه سوال !

اگه رو وضعیت 1111 بود و کلید up رو فشار بدیم چی کار بشه !
کاری نشه یا اینکه صفر بشه ؟؟؟

هنگامی که 0000 هستش و کلید down رو بزنیم چطور؟

**رسول**

نقل قول: اگه رو وضعیت 1111 بود و کلید up رو فشار بدیم چی کار بشه !
کاری نشه یا اینکه صفر بشه ؟؟؟

اگه به اینجا رسید یعنی آخرشه وهر چه UP رو فشار بدیم همینجا بمونه .. یعنی کاری نشه

نقل قول: هنگامی که 0000 هستش و کلید down رو بزنیم چطور؟

اینم همینطور

**t3r!p3000**

هی من تلاش می کنم خودت برنامشو بنویسی ولی انگار نمیشه !!!
باور کن برنامش ساده تر از اون چیزیه که فکرشو بکنی !!

اینو ببین :

کد php: 
$regfile = "m8def.dat" : $crystal = 1000000

Dim Ant As Byte

Ddrd = &B11100000 : Portd = 3 : Ddrb = 1

Sw_up Alias Pind.0 : Sw_down Alias Pind.1
A Alias Portd.5 : B Alias Portd.6
C Alias Portd.7 : D Alias Portb.0

Do
   Debounce Sw_up , 0 , Up , Gosub
   Debounce Sw_down , 0 , Down , Gosub
Loop

Up:
   Incr Ant
   If Ant = 16 Then Ant = 15
   A = Ant.3 : B = Ant.2 : C = Ant.1 : D = Ant.0
Return

Down:
   Decr Ant
   If Ant = 255 Then Ant = 0
   A = Ant.3 : B = Ant.2 : C = Ant.1 : D = Ant.0
Return 