صفر نشدن پورت در مگا 16

[Iran-PC]

سلام.
من برنامه زیر را در بسکام نوشتم و بعد که روی میکرو ریختم دیدم وقتی پورت D پین 6 را یک میکنم یک میشود ولی وقتی آن را 0 میکنم بجای اینکه صفر شود انگار به هیچ جایی وصل نیست . نه به GND و نه به VCC .
با ولتمتر هم که تست کردم همین رو دیدم.

برنامه این بود

regfile = "m16def.dat"
$crystal = 8000000
Config Kbd = Porta
Dim Comand As Byte
Main:
Command = Getkbd()
If Command > 15 Then Goto Main
Portd.6 = 1
Waitms 200
Portd.6 = 0
Goto Main
End

???
مگر برای صفر کردن یک خط از پورت به آن مقدار صفر نمیدند؟
کمک لطفا.
من حتی اونو PullUp هم کردم اما نتیجه نداد.
برای استفاده از دستور Rc5Send هم به همین مشکل برخورد کردم.
یعنی صفر نشدن پورت.

[shahriar]

پاسخ : صفر نشدن پورت در مگا 16

مطمئن هستین که برنامتون توی یک لوپ نیافتاده و شما فکر می کنین که به هیچ جا وصل نیست. اگر تو یک لوپ افتاده باشه باید یک ولتاژ مثلا 2.5 ولت روی این پین داشته باشین.
اگرم اسکوپ دارین تستش بکنین.

HTH - Shahriar

[arashk]

پاسخ : صفر نشدن پورت در مگا 16

سلام

به نظر من ابتدا باید پورت D را به عنوان خروجی تعریف کنید ....... تو برنامه ای که نوشتید این کار رو نکردید .

[Iran-PC]

پاسخ : صفر نشدن پورت در مگا 16

سلام.
حق با این دوستمون بود.
ممنون.
فعلا که این صفر شدنه مشکلش حل شد.
تا ببینیم این RC5Send رو چیکار میکنه.

[maker]

پاسخ : صفر نشدن پورت در مگا 16

سلام
چند تا اشکال کوچیک داره برنامت
regfile = "m16def.dat"
$crystal = 8000000
Config Kbd = Porta
config portd=output//////////////<<<<<<<<<<<<&l t;<<<<<
Dim Comand As Byte
Main:
Command = Getkbd()
If Command > 15 Then Goto Main
Portd.6 = 1
Waitms 200
Portd.6 = 0
waitms 200////////////////<<<<<<<<<<<<&l t;<
Goto Main
End
مشکلتم اینه که چون بعد از portd.6=0 مکث نکردی زمان صفر بودنش به قدری کمه که نمیتونید حسش کنید

[امیرعلی بلورچیان]

پاسخ : صفر نشدن پورت در مگا 16

متشکر از توضیحتون

[Iran-PC]

پاسخ : صفر نشدن پورت در مگا 16

سلام.
خیلی ممنون.
مشکلش همون خروجی تعریف کردن پورت بود که حل شد و به خوبی کار کرد.
حتی مشکل اون Rc5Send هم همین بود که حل شد.
مکث هم لازم نداشت چون تا یک کلید فشرده نشه پورت 1 نمیشه.
در هر حال از راهنمائیهاتون ممنونم.
من تازه دارم با بسکام و کلا AVR ها کار میکنم و از هر راهنمائی شما استقبال میکنم.
موفق باشید.

[kakan]

پاسخ : صفر نشدن پورت در مگا 16

bayad ino avale barnamat type ****:
config portx.y= output

[mohsen.hex]

پاسخ : صفر نشدن پورت در مگا 16

دوست عزیز اگر از دستور
portd.6 =1
استفاده کنی نمیتونی ازش جریان بکشی مثلا ledروشن کنی
ولی اگر از دستور
set portd.6
استفاده کنی خروجی داری به همراه جریان یا دستور زیر
portd=01000000