مشکل در دستور if

[parham144]

سلام دوستان من این برنامه رو نوشتم و ارور هم نمیده فایلشو هم قرار دادم ولی مقادیر پین های وردی رو در متغییر نمیریزه و فقط دستور اولین شرط رو اجرا میکنه و دیگه شرطهای دیگه رو چک نمیکنه و دستوراتشون رو هم انجام نمیده لازم به ذکر هست برای فعال کردن موتور دو سیمه dc می خوام از این برنامه استفاده بکنم.ممنون میشم بگید مشکل چیه یا یک برنامه بیزحمت پیشنهاد بدید که پین 4 پین هرکدام کدام صفر شد مثلا یک پایه رو یک کنه .ممنون

$regfile "M32def.dat"
$crystal = 8000000
'*********************
Config Portd = Input
Config Portb = Output

Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Porta.5 , E = Porta.4 , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0

'*********************
Dim A1 As Byte , A2 As Byte , A3 As Byte , A4 As Byte
Pind.0 = A1
Pind.1 = A2
Pind.2 = A3
Pind.3 = A4

Do
If A1 = 0 Then
Set Portb.4 : Waitms 180
Reset Portb.4
Waitms 300
Elseif A2 = 0 Then
Set Portb.5
Waitms 300
Reset Portb.5
Elseif A3 = 0 Then
Set Portb.6
Waitms 300
Reset Portb.5
Elseif A4 = 0 Then
Set Portb.7
Waitms 300
Reset Portb.7

End If
loop

[sajjad_AD]

سلام
برنامه تون چند تا مشکل کوچيک داره
اول اينکه شما پين هاتون رو مساوي متغيير ها قرار دادين نه متغيير ها رو مساوي پين ها
و دوم متغيير هاتون رو از نوع بيت تعريف کنين
و اگه پين ها دائم بايد چک شن اون 4 تا دستوري که مقدار پين هارو تو متغيير قرار ميدن بايد تو حلقه نوشته شن

[parham144]

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

[mehdi29665]

سلام دوستان من این برنامه رو نوشتم و ارور هم نمیده فایلشو هم قرار دادم ولی مقادیر پین های وردی رو در متغییر نمیریزه و فقط دستور اولین شرط رو اجرا میکنه و دیگه شرطهای دیگه رو چک نمیکنه و دستوراتشون رو هم انجام نمیده لازم به ذکر هست برای فعال کردن موتور دو سیمه dc می خوام از این برنامه استفاده بکنم.ممنون میشم بگید مشکل چیه یا یک برنامه بیزحمت پیشنهاد بدید که پین 4 پین هرکدام کدام صفر شد مثلا یک پایه رو یک کنه .ممنون

$regfile "m32def.dat"
$crystal = 8000000
'*********************
config portd = input
config portb = output

config lcd = 16 * 2
config lcdbus = 4
config lcdpin = pin , rs = porta.5 , e = porta.4 , db4 = porta.3 , db5 = porta.2 , db6 = porta.1 , db7 = porta.0

'*********************
dim a1 as bit , a2 as bit , a3 as bit , a4 as bit

do

a1=pind.0
a2=pind.1
a3=pind.2
a4=pind.3

if a1 = 0 then
set portb.4 : Waitms 180
reset portb.4
waitms 300
elseif a2 = 0 then
set portb.5
waitms 300
reset portb.5
elseif a3 = 0 then
set portb.6
waitms 300
reset portb.6
elseif a4 = 0 then
set portb.7
waitms 300
reset portb.7

end if
loop

لطفا این اصلاحیه رو انجام بده ببین چی میشه
بقیه اش تقریبا درسته

[parham144]

با تشکر از کمکتون تقریبا درست شد .فقط زمان ها زیاد درست نیست مثلا 3 ثانیه یک بار میشه 1 ثانیه یک بار میشه 4 ثانیه یا مثلا portb.7 روشن میشه و اصلا reset نمیشه یا بعضی وقتا یه پایه که نباید جریان بدیه جریان کم به حالت قطع و وصل سریع میده و متور به طور ناخواسته یکم میچرخه .میشه راهنماییم کنید مشکل کجاست؟ مقاومت در خروجی پینها قرار بدم که جریان های کم رو بگیره؟ممنون

[mehdi29665]

لطفا شماتیک رو هم قرار بدید
ضمنا زمانها تجربی درست میشه
چون میکروفون قرار داره ممکنه از صدای حرکت خودش هم مجدد تحریک بشه؟

[parham144]

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

[mehdi29665]

از مداری که قرار دادی واقعا ممنونم
حساسیت میکروفون رو هم میشه کم و زیاد کرد

[parham144]

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