[Gambas-user] (no subject)

[Philippe Valarcher]

Well asked by Benoît a short application showing the "strange" :

'Rem Constantes
Public Const C As Float = 344
Public Const PO As Float = 1.1803398875

Public Sub Form_Open()

Print "C = " & C
Print "PO = " & po

Print "Calcul1 =" & CStr((C ^ 2) * po / ((2 * Pi * 100) ^ 2 * 107.41))
Print "Calcul2 =" & CStr((344 ^ 2) * 1.1803398875 / ((2 * Pi * 100) ^ 2
* 107.41))

vbx1.Value = (C ^ 2) * po / ((2 * Pi * 100) ^ 2 * 107.41)
vbx2.Value = (344 ^ 2) * 1.1803398875 / ((2 * Pi * 100) ^ 2 * 107.41)
vbx3.Value = c
vbx4.Value = po
vbx5.Value = 344

End

-- 
Philippe Valarcher <philippe.valarcher at free.fr>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20240223/a5dbe64f/attachment-0001.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: test1_0.0.1.orig.tar.gz
Type: application/x-compressed-tar
Size: 12653 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20240223/a5dbe64f/attachment-0001.bin>