با سلام
لطفا یکی بگه تو این برنامه ساده چه مشکلی هست که اجرا نمیشه .من قبلا با M8,M16,M32 کار کردم و هیچ مشکلی نداشتم و این اولین باریه که با
ATtiny15 کار میکنم .
من برنامه هایی برای M16 نوشتم که به زور سر و تهش رو زدم تا اندازش کوچیکتر بشه و تو m16 رایت شه اونوقت تو این فسقلی گیر افتادم .
یه برنامه ساده :
البته من از کریستال خارجی استفاده نکردم و از اوسیلاتور داخلی میکرو استفاده کردم
b.0 = ورودی
b.1 = خروجی
b.2 = خروجی
شروع :
با یک شدن ورودی یعنی b.0 شروع به شمردن ثانیه ها بکنه و همزمان خروجی b.1 به طور متناوب یک ثانیه یک و یک ثانیه صفر بشود تا وقتی ثانیه به 20
برسه . موقعی که ثانیه به 20 رسید خروجی b.2 یک بشه . در ضمن در طول کل برنامه و در هر ثانیه ورودی تست بشه تا در صورت صفر بودن برنامه
برگرده به خط شروع
$regfile = "at15def.dat"
$crystal = 1600000
$tiny
Dim A As Iram Byte
Config Pinb.0 = Input
Config Pinb.1 = Output
Config Pinb.2 = Output
Mainstart:
A = 0
Bitwait Portb.0 , Set
Startline:
Do
Wait 1
A = A + 1
Portb.1 = 1
If A = 20 Then Goto Soundline
Wait 1
Portb. = 0
Loop Until Pinb.0 = 0
Goto Mainstart
Soundline:
Do
Portb.2 = 1
Wait 1
Loop Until Pinb.0 = 0
portb.2=0
Goto Mainstart
End
لطفا یکی بگه تو این برنامه ساده چه مشکلی هست که اجرا نمیشه .من قبلا با M8,M16,M32 کار کردم و هیچ مشکلی نداشتم و این اولین باریه که با
ATtiny15 کار میکنم .
من برنامه هایی برای M16 نوشتم که به زور سر و تهش رو زدم تا اندازش کوچیکتر بشه و تو m16 رایت شه اونوقت تو این فسقلی گیر افتادم .
یه برنامه ساده :
البته من از کریستال خارجی استفاده نکردم و از اوسیلاتور داخلی میکرو استفاده کردم
b.0 = ورودی
b.1 = خروجی
b.2 = خروجی
شروع :
با یک شدن ورودی یعنی b.0 شروع به شمردن ثانیه ها بکنه و همزمان خروجی b.1 به طور متناوب یک ثانیه یک و یک ثانیه صفر بشود تا وقتی ثانیه به 20
برسه . موقعی که ثانیه به 20 رسید خروجی b.2 یک بشه . در ضمن در طول کل برنامه و در هر ثانیه ورودی تست بشه تا در صورت صفر بودن برنامه
برگرده به خط شروع
$regfile = "at15def.dat"
$crystal = 1600000
$tiny
Dim A As Iram Byte
Config Pinb.0 = Input
Config Pinb.1 = Output
Config Pinb.2 = Output
Mainstart:
A = 0
Bitwait Portb.0 , Set
Startline:
Do
Wait 1
A = A + 1
Portb.1 = 1
If A = 20 Then Goto Soundline
Wait 1
Portb. = 0
Loop Until Pinb.0 = 0
Goto Mainstart
Soundline:
Do
Portb.2 = 1
Wait 1
Loop Until Pinb.0 = 0
portb.2=0
Goto Mainstart
End
دیدگاه