مشکل با برنامه در بسکام

[gmaissam]

سلام
یهبرنامه نوشتم برای دستگاه منها از قسمتی که ستاره گذاشتم کار نمیکنه اصلا..برنامه بدین صورته که دوتا مگا 8 اطلاعات شامل دما ورطوبت رومیفرستن واین مگا32 بر اساس رطوبت میاد یک دریچه رو تو سه وضعیت قرار میده،وبرنامه درست کارمیکنه تا جایی کهستارهگذاشتم ولی برای اینشرایط متغیرها اصلا کاری انجام نمیده...مشکل از کجاست
Inputbin Code
If Code = 150 Then
Inputbin T1
Inputbin H1
B = Val(t1)
B1 = Int(b)
Locate 1 , 1
Lcd "T1="
Lcd B1

Lcd Chr(0)
Lcd "c"
Lcd " "
E = Val(h1)
E1 = Int(e)
Locate 2 , 1
Lcd "H1="
Lcd E1
Lcd " "
Lcd "%"
Lcd " "
Elseif Code = 50 Then
Inputbin T2
Inputbin H2

B2 = Val(t2)
B3 = Int(b2)
Locate 1 , 10
Lcd "T2="
Lcd B3
Lcd Chr(0)
Lcd "c"
E2 = Val(h2)
E3 = Int(e2)
Locate 2 , 10
Lcd "H2="
Lcd E3
Lcd " "
Lcd "%"
End If


Mo = Temp1 + 1
No = Temp1 - 1
Mo2 = Temp2 + 1
No2 = Temp2 - 1
Moh = Hum1 + 5
Noh = Hum1 - 5
Moh2 = Hum2 + 5
Noh2 = Hum2 - 5
If B1 < No Or B3 < No2 Then
Portb.3 = 1
Else
Portb.3 = 0
End If

If E1 < Noh Or E3 < Noh2 And Pina.3 = 1 Then
Portb.2 = 1
Else
Portb.2 = 0
End If
If E1 < Noh And E3 < Noh2 And Pind.5 = 0 Then
Portb.0 = 0
Portb.1 = 0
Elseif E1 < Noh And E3 < Noh2 And Pind.6 = 0 Then
Portb.0 = 0
Portb.1 = 1
Do
Loop Until Pind.5 = 0
Portb.0 = 0
Portb.1 = 0
Elseif E1 < Noh And E3 < Noh2 And Pind.7 = 0 Then
Portb.0 = 1
Portb.1 = 0
Do

Loop Until Pind.5 = 0
Portb.0 = 0
Portb.1 = 0

Elseif E1 < Noh And E3 > Hum2 And Pind.6 = 0 Then
Portb.0 = 0
Portb.1 = 0
Elseif E1 < Noh And E3 > Hum2 And Pind.5 = 0 Then
Portb.0 = 0
Portb.1 = 1
Do

Loop Until Pind.6 = 0
Portb.0 = 0
Portb.1 = 0
Elseif E1 < Noh And E3 > Hum2 And Pind.7 = 0 Then
Portb.0 = 1
Portb.1 = 0
Do

Loop Until Pind.6 = 0
Portb.0 = 0
Portb.1 = 0
Elseif E1 > Hum1 And E3 < Noh2 And Pind.5 = 0 Then*******************************************از اینجا
Portb.0 = 0
Portb.1 = 1
Do
Loop Until Pind.7 = 0
Portb.0 = 0
Portb.1 = 0
Elseif E1 > Hum1 And E3 < Noh2 And Pind.7 = 0 Then
Portb.0 = 0
Portb.1 = 0
Elseif E1 > Hum1 And E3 < Noh2 And Pind.6 = 0 Then
Portb.0 = 0
Portb.1 = 1
Do
Loop Until Pind.7 = 0
Portb.0 = 0
Portb.1 = 0
End If

Loop
End

[gmaissam]

پاسخ : مشکل با برنامه در بسکام

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