راهنمایی برنامه نویسی فلاشر با اتمگا8

[رسول21]

با سلام یه برنامه نوشتم که پرت دی میکرو اتمگا 8 رو خروجی تعریف کردم میخام هر پین پرت دی بمدت 50 میلی ثانیه روشن و بعدی روشن و خاموش بشه البته تعدادش 50 بار و بره برای یه دستور دیگه مثلا 4 تا پین روشن بشه
این متن برنامه هس
$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Dim A As Byte
Dim B As Byte
Dim C As Byte
A = &B00000001
C = &B00001111
Do
For B = 1 To 50
Portd = A
Rotate A , Left
Waitms 50
Next
Portd = C
Loop
end
ولی وقتی کامپایل و اجراش میکنم فقط روی دستور روتیت میچرخه و دستور بعدی اجرا نمیشه
برای معرفی حلقه با تعداد تکرار معین چکار باید کزد؟

[zakariya moradi]

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

$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Config Portc = Output
Dim tedad As Byte


tedad=0
  Do
  PORTB=&B00000001
waitms 50
PORTB=&B00000010
waitms 50
PORTB=&B00000100
waitms 50
PORTB=&B00001000
waitms 50
PORTB=&B00010000
waitms 50
PORTB=&B00100000
waitms 50
PORTB=&B01000000
waitms 50
PORTB=&B10000000
waitms 50

incr tedad

if tedad=50 then 
tedad=0
PORTC=&B00001111
waitms 500
PORTC=&B00000000
end if

     Loop
end

در این مثال با هر بار اجرا شدن حلقه 1 واحد به tedad اضافه میشه و بعد از رسیدن به عدد 50 دستور داخل شرط اجرا میشه که در مثال با روشن شد 4 تا از پین های پورت c می باشد .

[flishet]

سلام دوست عزیز
در اصل برنامه شما داره دستور بعد از for رو هم اجرا میکنه ولی مشکل اینه که چون بعد از دستور portd=c تاخیری نزاشتین بخاطر همین سریع اجرا میشه و یعد از اون دستور portd=A اجرا میشه

[mehdi29665]

سلام دوست عزیز
در اصل برنامه شما داره دستور بعد از for رو هم اجرا میکنه ولی مشکل اینه که چون بعد از دستور portd=c تاخیری نزاشتین بخاطر همین سریع اجرا میشه و یعد از اون دستور portd=A اجرا میشه