New Text file (2).txt (اندازه: 1.08 KB / تعداد دفعات دریافت: 30)
سلام کی میتونه یه برنامه برای میکرو avr atmega 16 تو محیط بسکام بنویسه که سه تا کلید به میکرو وصل کنیم که با فشردن هر کدام از کلیدا هشتا LED مجود وصل شده به میکرو به ترتیب کلید اول 10000000 کلید دوم 00000001 وکلید سوم 10101010 خاموش روشن بشه یعنی یه جورایی رقص نوره باید صفر و یکا با دستور rotate شیفت به چپ یا راست بخورن اینو هم بگم که تو این مدار LED ها تو پایه های کلکتور ترانزیستور ها هستن و بیس ترانزیستور هامون به میکرو وصل میشه فقط بگین بهتره کلیدا به کدوم پایه ها وصل بشه ترانزیستور به کدوم پایه ها من برنامه زیرو نوشتم ولی وقتی کامپایلش میکنم ارور میده
$crystal = 1000000
$regfile = "m16def.dat"
If Pin D.0 = 0 Then
Waitms 10
If Pin D.0 = 1 Then
Goto Down
Else
Up : If Pin D.0 = 1
Waitms 10
If Pin D.0 = 0
Goto Up
Else
Down
P0 :
X = 00000001
Up 0 : Port A = X
Rotate X , Left , 1
Wait 1
Call Key
If X1 = 1 Then
Goto Up 0
Else
Return
End If
If Pin D.1 = 0 Then
Waitms 10
If Pin D.1 = 1 Then
Goto Down
Else
Up : If Pin D.1 = 1
Waitms 10
If Pin D.1 = 0
Goto Up
Else
Down
P1 :
X = 10000000
Up 1 : Port A = X
Rotate X , Right , 1
Wait 1
Call Key
If X1 = 1 Then
Goto Up 1
Else
Return
End If
If Pin D.2 = 0 Then
Waitms 10
If Pin D.2 = 1 Then
Goto Down
Else
Up : If Pin D.2 = 1
Waitms 10
If Pin D.2 = 0
Goto Up
Else
Down
P2 :
X = 10101010
Up 2 : Port A = X
Rotate X , Left , 1
Wait 1
Call Key
If X1 = 3 Then
Goto Up 2
Else
Return
End If
X = 1
Do
Call Key
If X1 = 1 Then
Call P0
Else If X1 = 2 Then
Call P1
Else
Call P2
End If
Loop
Key : If Pin D.0 = 0 Then
X1 = 1
Else
If Pin D.1 = 0 Then
X1 = 2
Else If Pin D.2 = 0 Then
X1 = 3
End If
Return
چک کنین ببینین کجاش ایراد داره لطفا کمک کنید کمکاتونو یا تو همین سایت جواب بدین یا به respina86@yahoo.com ایمیل کنید مرسی
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :