Guru
Joined: 20/09/2024
Location: GermanyPosts: 835
| Posted: 07:36pm 05 May 2026 |
If I move up/down all values are correct until 0.2
Going to 0.3 or to -0.3 and back to 0 I get -2.775557562e-17 instead of 0
Option explicit
Dim float a
Do
Select Case Asc(Inkey$)
Case 128
Inc a,0.1
Case 129
Inc a,-0.1
End Select
Print @(100,100)" ";
Print @(100,100)a;
Loop
Dim float a
Do
Select Case Asc(Inkey$)
Case 128
Inc a,0.1
Case 129
Inc a,-0.1
End Select
Print @(100,100)" ";
Print @(100,100)a;
Loop
?a
-2.775557562e-17
-2.775557562e-17
PicoMite MMBasic USB RP2350B Edition V6.03.00RC1
OPTION SERIAL CONSOLE COM1,GP32,GP33
OPTION SYSTEM SPI GP22,GP23,GP20
OPTION SYSTEM I2C GP24,GP25
OPTION FLASH SIZE 16777216
OPTION COLOURCODE ON
OPTION KEYBOARD US, 0, 0, 180, 100
OPTION PICO OFF
OPTION CPUSPEED (KHz) 384000
OPTION LCDPANEL CONSOLE
OPTION DISPLAY 40, 100
OPTION LCDPANEL SSD1963_7_16, LANDSCAPE
OPTION TOUCH GP21,GP34
GUI CALIBRATE 1, 129, 360, 2067, 1342
OPTION SDCARD GP29, GP30, GP31, GP28
OPTION KEYBOARD REPEAT 180,100
OPTION AUDIO GP26,GP27', ON PWM CHANNEL 5
OPTION RTC AUTO ENABLE
OPTION PSRAM PIN GP47
OPTION SERIAL CONSOLE COM1,GP32,GP33
OPTION SYSTEM SPI GP22,GP23,GP20
OPTION SYSTEM I2C GP24,GP25
OPTION FLASH SIZE 16777216
OPTION COLOURCODE ON
OPTION KEYBOARD US, 0, 0, 180, 100
OPTION PICO OFF
OPTION CPUSPEED (KHz) 384000
OPTION LCDPANEL CONSOLE
OPTION DISPLAY 40, 100
OPTION LCDPANEL SSD1963_7_16, LANDSCAPE
OPTION TOUCH GP21,GP34
GUI CALIBRATE 1, 129, 360, 2067, 1342
OPTION SDCARD GP29, GP30, GP31, GP28
OPTION KEYBOARD REPEAT 180,100
OPTION AUDIO GP26,GP27', ON PWM CHANNEL 5
OPTION RTC AUTO ENABLE
OPTION PSRAM PIN GP47