سلام برنامه ای نوشتم موقعی که دما مثلا از 20 میاد 21 ودوباره برمیگرده رله ها خاموش روشن میشن..میشه کاری کرد اینجور نشه؟؟؟؟؟
اطلاعیه
Collapse
No announcement yet.
مشکل روشنو،خاموش شدن رله ها با نوسان دما
Collapse
X
- ۵٬۳۲۰٬۰۰۰ ریال ۱٬۵۹۶٬۰۰۰ ریال۴٬۲۸۰٬۰۰۰ ریال ۳٬۶۳۸٬۰۰۰ ریال
-
پاسخ : مشکل روشنو،خاموش شدن رله ها با نوسان دما
مشکل رفع شد
اینم سورس با بیسیک
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
دیدگاه
دیدگاه