ايران ويج

[attachment=6317]سلام کی میتونه یه برنامه برای میکرو 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 ایمیل کنید مرسی

سلام دوست عزیز

ضمن خوش آمد گویی به شما ... لازم میدونم چند تا نکته رو بهتون بگم:

اول اینکه وقتی می خواین تاپیکی ایجاد کنین عنوان مناسبی براش انتخاب نمایین و از بکار بردن کلماتی مثل کمک و ... خودداری نمایین!!!

دوم اینکه همینکه یه تاپیک ایجاد کردین هر کی ببینه و بتونه زود میاد و بهتون کمک میکنه و لازم نیست که یک موضوع رو بیش از چند بار در تاپیکهای مختلف بپرسین!!!