مشکل در ساخت دزدگیر سیمی با avr

[amir400]

سلام. من با یک atmega16 یک دزدگیر سیمی ساده ساختم ولی کار نمیکنه ( عملکرد دزدگیر سیمی باید این گونه باشدکه با قطع یک سیم ، آژیر فعال شود)
این مدار:

اینم برنامه در بیسکام:

$regfile = "m16def.dat"
$crystal = 1000000
Config Pina.0 = Output
Config Pina.1 = Input
Start:
While Pina.1 = 1
Pina.0 = 1
Wend
Do
Pina.0 = 0
Loop Until Pina.1 = 1
Goto Start
End

باید طبق برنامه تا زمانی که x و y به هم متصلند و در نتیجه PINA.1 مقدار 1 دارد ، PortA.0 مقدار یک داشته باشد یعنی آژیر برقرار نشود.
اما با قطع شدن اتصال x و y دیگر PINA.1 مقدار یک ندارد و در این هنگام باید PinA.0 صفر شود و در نتیجه آژیر برقرار شود.

ولی چه زمانی که x , y وصلن و چه زمانی که قطع هستند در دو سر ورودی تغذیه ی آژیر اختلاف پتانسیل وجود دارد و یعنی همیشه آژیر می کشد!!!
مشکل کجاست؟ لطفا راهنمایی کنید
مرسی

[amir400]

برنامه رو بهینه تر کردم . ولی فرقی نکرد:

$regfile = "m16def.dat"
$crystal = 1000000
Config Pina.0 = Output
Config Pina.1 = Input
Do
If Pina.1 = 1 Then
Pina.0 = 1
Else
Pina.0 = 0
End If
Loop
End

بازم همون شکلیه!

[amir400]

من با خوندن اینجا فهمیدم که برای ورودی باید از پین و برای خروجی باید از پورت استفاده کرد در حالی که فکر می کردم فرقی با هم ندارن.
اینجوری مشکل برطرف شد:

$regfile = "m16def.dat"
$crystal = 1000000
Config Porta.0 = Output
Config Pina.1 = Input
Do
If Pina.1 = 1 Then
Porta.0 = 1
Else
Porta.0 = 0
End If
Loop
End

[morteza_rk]

سلام امیر جان

خیلی خوبه که خودت به مشکلت پی بردی و از اون بهتر اینه که جواب صحیح رو هم اینجا گذاشتی تا سایرین بتونن استفاده کنن.

ممنون