Witam mam następujący problem.
Napisałem program w bascom pod Atmegę8 termometru 4-punktowego z mozliwościa włączenie alarmu, dla zadanych wartości z klawiszy.
3 zadane temperatury zmieniają sie co 1 więc tu nie ma problemu.
Natomiast mam problem z porównaniem w instrukcji If temperatury z jednego czujnika zainicjalizowanej jako Integer z temperatura zadaną jak Single.
Bardzo prosze o pomoc w rozwiazaniu.
Napisałem program w bascom pod Atmegę8 termometru 4-punktowego z mozliwościa włączenie alarmu, dla zadanych wartości z klawiszy.
3 zadane temperatury zmieniają sie co 1 więc tu nie ma problemu.
Natomiast mam problem z porównaniem w instrukcji If temperatury z jednego czujnika zainicjalizowanej jako Integer z temperatura zadaną jak Single.
Bardzo prosze o pomoc w rozwiazaniu.
.
.
.
Dim I2 As Integer
Dim Liczba0 As Single
.
.
Locate 1 , 1
Lcd "Tem. alarmu " ; Chr(2)
Locate 2 , 1
Lcd "Tem. " ; Chr(2) ; "=" ; Liczba0 ; Chr(0)
Do
If S3 = 0 Then
Waitms 25
If S3 = 0 Then
Liczba0 = Liczba0 + 0.1
If Liczba0 => 85 Then
Liczba0 = 75
End If
End If
End If
If S4 = 0 Then
Waitms 25
If S4 = 0 Then
Liczba0 = Liczba0 - 0.1
If Liczba0 <= 75 Then
Liczba0 = 85
End If
End If
End If
Ss = Fusing(liczba0 , "#.#")
Cls
Locate 1 , 1
Lcd "Tem. alarmu " ; Chr(2)
Locate 2 , 1
Lcd "Tem. " ; Chr(2) ; "=" ; Ss ; Chr(0)
Locate 2 , 15
Lcd "OK"
Debounce S1 , 0 , Ustawianie2
Loop
If Liczba0 <= I2 And Liczba0 <> 0 Then
Set Portd.4
End If