Kód: Egész kijelölése
If Temp1 > 23 Then Set Portc.2
If Temp1 > 29 Then Reset Portc.2
Kód: Egész kijelölése
If Temp1 > 23 Then
If Temp1 < 29 Then 'mindkét feltételnek teljesülnie kell!
Reset Portc.2
End If
End If
If Temp1 <= 23 Then set portc.2
If Temp1 >= 29 Then set portc.2
3. verziótetye írta:Hali
A kérdésem az lenne hogy hogy levet bascomban olyat csinálni hogy egy ds1624 essel mégrem a hőt egy eszközön és pl ha 24-29 fok közé kerül akkor portc.2 = 1 else viszont portc.2=0
szal melyik fügvény az és hogy kell használni ha temp1 a hő érték?
naivan igy probáltam de nem jó:
If 24 < Temp1 < 29 then portc.2 = 1
szerintetek?
Kód: Egész kijelölése
.
Declare Function Shiftin_f(byval Bitscount As Word) As Word
Function Shiftin_f(byval Bitscount As Word) As Word
Result = 0
Config Dio_pin = Input
'SHIFTIN pin , pclock , var , option [, bits , delay ]
En_pin = 0 'Low
Waitus 1
Shiftin Dio_pin , Clk_pin , Result , 0 , Bitscount , 1
Waitus 1
En_pin = 1
Shiftin_f = Result
End Function
' Ez a hibás sor:
Call Shiftin_f(4)
