Witam serdecznie!
Mam problem z inkrementacją zmiennej Z, ponieważ wszystko opiera się o dokładność przedstawiania liczby zmiennoprzecinkowej. Zamiast 0,1 pokazuje 0,09. Próbowałem już fusing(), frac() (wskazywanie liczby po przecinku, chciałem tą resztę zaokrąglać round() ) , może format() ale tu trzeba non stop konwertować zmienne na znaki z liczb i odwrotnie no i lipa , może nie tak się zabrałem do sprawy.
Dziękuję z góry za pomoc!!
Dodano po 6 [minuty]:
Z = Z + 0.5
zapomniałem poprawić zapis dla 0.5 jest wszystko ok dla 0.1 występuje błąd!
Mam problem z inkrementacją zmiennej Z, ponieważ wszystko opiera się o dokładność przedstawiania liczby zmiennoprzecinkowej. Zamiast 0,1 pokazuje 0,09. Próbowałem już fusing(), frac() (wskazywanie liczby po przecinku, chciałem tą resztę zaokrąglać round() ) , może format() ale tu trzeba non stop konwertować zmienne na znaki z liczb i odwrotnie no i lipa , może nie tak się zabrałem do sprawy.
Dziękuję z góry za pomoc!!
$crystal = 1000000
$regfile = "m16def.dat"
Config Lcd = 20 * 2
Dim Z As Single
Dim A As Single
Nastawy Alias Pina.3
Deflcdchar 6 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32
A = 5
Z = Fusing(a , "##.#")
Cls
Do
If Z < 10 Then
Locate 1 , 2
Lcd "Twardosc kH: " ; Z ; Chr(6)
Else
Locate 1 , 2
Lcd "Twardosc kH: " ; Z ; Chr(6)
End If
If Nastawy = 0 Then
Z = Z + 0.5
End If
If Z > 24 Then
Z = 0
End If
Loop
End
Dodano po 6 [minuty]:
Z = Z + 0.5
zapomniałem poprawić zapis dla 0.5 jest wszystko ok dla 0.1 występuje błąd!
