25cdbaa492
* NEW: Form editor: Decide that a control has a parent according to its constructor, not to its Virtual state. * BUG: Form editor: Correctly handle color properties with an alpha value. * NEW: The '_HiddenControls' property of form controls now can hide controls from any other components. [BENCHMARKS] * NEW: Do less repeats in the 'string 'benchmark. * NEW: Update the Gambas version of 'mandelbrot' and 'polynom' benchmarks. [GB.WEB.FORM] * NEW: A small Color class. * BUG: WebButton now uses the 'gw-button' CSS class. * BUG: Fix WebCheckBox rendering. * NEW: WebRadioButton is a new control that implements a radio button. * NEW: WebTimer is a new virtual control that implements a timer on the browser client side. * NEW: Implement read-write WebComboBox. * NEW: WebControl now has Background and Foreground properties. * BUG: Hidden controls do not refresh. A control is hidden if it is not visible or if one of its parent is not visible. * NEW: Controls can render JavaScript code. * NEW: WebTextBox now uses the 'gw-textbox' CSS class. git-svn-id: svn://localhost/gambas/trunk@7477 867c0c6c-44f3-4631-809d-bfa615b0a4ec
33 lines
431 B
Text
Executable file
33 lines
431 B
Text
Executable file
#!/usr/bin/env gbs3
|
|
|
|
Sub Test(X As Float) As Float
|
|
|
|
Dim Mu As Float = 10.0
|
|
Dim Pu, Su As Float
|
|
Dim I, J, N As Integer
|
|
Dim aPoly As New Float[100]
|
|
|
|
N = 500000
|
|
|
|
For I = 0 To N - 1
|
|
For J = 0 To 99
|
|
Mu = Mu / 2.0 + 1
|
|
aPoly[J] = Mu
|
|
Next
|
|
Su = 0.0
|
|
For J = 0 To 99
|
|
Su = X * Su + aPoly[J]
|
|
Next
|
|
Pu += Su
|
|
Next
|
|
|
|
Return Pu
|
|
|
|
End
|
|
|
|
Dim I as Integer
|
|
|
|
For I = 1 To 2
|
|
Print Test(0.2)
|
|
Next
|
|
|