Witam
Dzisiaj z racji ferii przysiadłem się do bascoma tak na poważnie. Pomyślałem jak by tu tak napisać sterownik który działał by na zasadzie termostatu i w raz ze wzrostem temperatury załączał poszczególne porty. Prosił bym o korektę moich godzinnych wypocin(pierwszy raz w ogóle pisze program)
Nie potrafię tego opanować. Proszę o podpowiedzi i wskazówki
Dzisiaj z racji ferii przysiadłem się do bascoma tak na poważnie. Pomyślałem jak by tu tak napisać sterownik który działał by na zasadzie termostatu i w raz ze wzrostem temperatury załączał poszczególne porty. Prosił bym o korektę moich godzinnych wypocin(pierwszy raz w ogóle pisze program)
$regfile = "attiny12.dat"
$crystal = 8000000
Config Portb.2 = Output
Config Portb.1 = Output
Config Portb.0 = Output
Triak1 Alias Portb.2
Triak2 Alias Portb.1
Triak3 Alias Portb.0
Config 1wire = Portb.5
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
Temperatura(1) = 1wread(2)
1wreset
Do
Loop
Do
Declare Temperatura(1) < 10 , Pr1 , Sub
Declare Temperatura(1) < 30 , Pr2 , Sub
Declare Temperatura(1) < 50 , Pr3 , Sub
Declare Temperatura(1) > 70 , Pr4 , Sub
Loop
End
Pr1 : Toggle Triak1
Return
Pr2 : Toggle Triak2
Toggle Traik1
Return
Pr3 : Toggle Triak3
Toggle Triak2
Return
Pr4 : Toggle Triak3
Return
Do
Loop
EndNie potrafię tego opanować. Proszę o podpowiedzi i wskazówki