سلام برنامه ای نوشتم موقعی که دما مثلا از 20 میاد 21 ودوباره برمیگرده رله ها خاموش روشن میشن..میشه کاری کرد اینجور نشه؟؟؟؟؟
-
-
پاسخ : مشکل روشنو،خاموش شدن رله ها با نوسان دما
سلام
تو ی برنامت تعریف کن مثلا با 3 درجه اختلاف رله عمل کنهmrg -
پاسخ : مشکل روشنو،خاموش شدن رله ها با نوسان دما
ممنوننوشته اصلی توسط MRGMRG
میشه با یه مثال ساده بزنی؟؟؟دیدگاه
-
پاسخ : مشکل روشنو،خاموش شدن رله ها با نوسان دما
مشکل رفع شد
اینم سورس با بیسیک
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
Moh = Hum1 + 5
Noh = Hum1 - 5
Moh2 = Hum2 + 5
Noh2 = Hum2 - 5
Select Case B1
Case Temp1 : Portb.3 = 0
Portb.4 = 0
End Select
If B1 > Mo Then
Portb.4 = 1 'on cooler
Portb.3 = 0 'off heater
Elseif B1 < No Then
Portb.3 = 1 'on heater
Portb.4 = 0 'off coller
End Ifدیدگاه
دیدگاه