سلام
دوستان با تشکر از مدیران انجمن و شما دوستان این انجمن به من خیلی کمک کرد برای یادگیری avr
lمن مشکل داشتم برای بدست اوردن یک تایم برای ورودی و خروجی ها . در برنامه زیر با تغییر اعداد باید به مقدار تایین شده عکسها که قرار میدهم باید برسم و هر چقدر تغییر دادم به ان مقدارهای خروجی نمیرسم چطور میتونم به این مقادیر که عکس قرار میدهم برسم
$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Timer , Prescale = 1
Stop Timer1
Config Portb = Output
Config Portd = Output
Portb.1 = 0
Portd.6 = 0
Portd.7 = 0
Dim A As Word
Startline1:
Start Timer1
A = 0
Portb.1 = 1
Do
A = A + 1
Loop Until A = 14
Portb.1 = 0
A = 0
Do
A = A + 1
Loop Until A = 2
A = 0
Portd.6 = 1
Do
A = A + 1
Loop Until A = 1
A = 0
Portd.6 = 0
Do
A = A + 1
Loop Until A = 9
A = 0
Portd.7 = 1
Do
A = A + 1
Loop Until A = 2
A = 0
Portd.7 = 0
Do
A = A + 1
Loop Until A = 180
Stop Timer1
Goto Startline
پیشاپیش تشکر میکنم از اساتیدمحترم
از اینجا میتوانید فایل اسکوپ را دریافت کنید
http://up.iranblog.com/images/yl7l0b23btuo7gnwwsx8.rar
دوستان با تشکر از مدیران انجمن و شما دوستان این انجمن به من خیلی کمک کرد برای یادگیری avr
lمن مشکل داشتم برای بدست اوردن یک تایم برای ورودی و خروجی ها . در برنامه زیر با تغییر اعداد باید به مقدار تایین شده عکسها که قرار میدهم باید برسم و هر چقدر تغییر دادم به ان مقدارهای خروجی نمیرسم چطور میتونم به این مقادیر که عکس قرار میدهم برسم
$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Timer , Prescale = 1
Stop Timer1
Config Portb = Output
Config Portd = Output
Portb.1 = 0
Portd.6 = 0
Portd.7 = 0
Dim A As Word
Startline1:
Start Timer1
A = 0
Portb.1 = 1
Do
A = A + 1
Loop Until A = 14
Portb.1 = 0
A = 0
Do
A = A + 1
Loop Until A = 2
A = 0
Portd.6 = 1
Do
A = A + 1
Loop Until A = 1
A = 0
Portd.6 = 0
Do
A = A + 1
Loop Until A = 9
A = 0
Portd.7 = 1
Do
A = A + 1
Loop Until A = 2
A = 0
Portd.7 = 0
Do
A = A + 1
Loop Until A = 180
Stop Timer1
Goto Startline
پیشاپیش تشکر میکنم از اساتیدمحترم
از اینجا میتوانید فایل اسکوپ را دریافت کنید
http://up.iranblog.com/images/yl7l0b23btuo7gnwwsx8.rar
دیدگاه