Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Witam wszystkich. Mam taki problem bo bascom zle liczy ulamki (mniej wiecej wiem o co chodzi) np. w pewnym momencie zamiast 0.4 pokazuje0.399999999989 oczywiscie uzywam zmiennej single. czy da sie to jakos obejsc w prosty sposob czy bascom jest skazany na takie problemy?
Config Portb = Output
Config Porta = Output
Config Portc = Input
Portc = &B11111111
Dim Forr As Word
Dim Il_zebow As Word
Dim Kat As Single
Dim Katy As Long
Dim Il_krokow As Word
Dim Z As String * 10
Il_zebow = 150 <--przykladowa liczba 150
Cls
Cursor Off
Lcd "PODZIELNICA"
Cls
Lcd "Ustaw liczbe zebow"
Locate 2 , 1
Lcd Il_zebow
'------------------------------------------------------------------------
Do
If Portc.0 = 0 Then
Gosub Dodaj_zab
End If
If Portc.1 = 0 Then
Gosub Odejmij_zab
End If
If Portc.2 = 0 Then
Gosub Przeliczenia
End If
Loop
Dodaj_zab:
Incr Il_zebow
'Waitms 200
Locate 2 , 1
Lcd Il_zebow
Return
'ustawianie il zebow
Odejmij_zab:
Decr Il_zebow
'Waitms 200
Locate 2 , 1
Lcd Il_zebow
Return
'-----------------------------------------------------------------------
Przeliczenia:
Cls
Kat = 360 / Il_zebow 'przeliczanie il krokow
Z = Fusing(kat , "#.#######")
Kat = Val(z)
Il_krokow = Kat * 1000
Lcd "kroki:" ; Il_krokow <--tu powinno wyswietlic 2400 a jest 2399
Lowerline
Lcd "il.zebow: " ; Il_zebow
Do
If Portc.3 = 0 Then
Gosub Praca
End If
Loop
'-----------------------------------------------------------------------
Praca:
For Forr = 1 To Il_krokow
Set Porta.0
Waitms 1
Reset Porta.0
Waitms 1
Next Forr
Lcd "kroki:" ; Il_krokow
Lowerline
Decr Il_zebow
Lcd "il.zebow: " ; Il_zebow
If Il_zebow = 0 Then
Cls
Lcd "KONIEC"
End If
Return
Kat = 360 / Il_zebow 'przeliczanie il krokow
Z = Fusing(kat , "#.#######")
Kat = Val(z) ; ta instrukcja jest potrzebna?
Il_krokow = Kat * 1000 ;przenieś nad Z=Fusing
Lcd "kroki:" ; Il_krokow <--tu powinno wyswietlic 2400 a jest 2399
Lowerline
Lcd "il.zebow: " ; Il_zebowModerowany przez McRancor:Dodałem znaczniki "code" prawda że czytelniej?
