Resultado interesante

[karinha]

Code: Select all | Expand

#include "FiveWin.ch"STATIC oWndFUNCTION Main()   LOCAL oBar   DEFINE WINDOW oWnd TITLE "Bilhões de dolares"   DEFINE BUTTONBAR oBar _3D OF oWnd   DEFINE BUTTON OF oBar ACTION( BILHOES_DOLAR() )   SET MESSAGE OF oWnd TO "Bilhões de dolares" NOINSET CLOCK DATE KEYBOARD   ACTIVATE WINDOW oWnd CENTEREDRETURN NILFUNCTION BILHOES_DOLAR()   LOCAL oDlg   LOCAL oGet1, oGet2, oGet3, oGet4   LOCAL cVar1, cVar2, cVar3, cVar4   LOCAL nMilhoes1   := "111.111.111"   LOCAL nMilhoes2   := "111.111.111"   LOCAL nMultiplica := 0.00   LOCAL nResultado  := 0.00   oGet1 := SPACE(50)   cVar1 := 0.00   nMultiplica := VAL( nMilhoes1 ) * VAL( nMilhoes2 )   nResultado  := nResultado + nMultiplica   cVar1 := nResultado   DEFINE DIALOG oDlg TITLE "From Code" PIXEL SIZE 500, 300   @ 10,10 GET oGet1 VAR cVar1 OF oDlg PIXEL SIZE 150,12    ;      PICTURE "@K 999999.999999" BITMAP "..\bitmaps\on.bmp" ;      ACTION( msginfo( "FiveWin Power" ) ) CENTER   oGet1:lBtnTransparent := .T.   ACTIVATE DIALOG oDlg CENTEREDRETURN NIL 

Saludos.

[leandro]

El resultado



?

[Euclides]

... matando pulgas a cañonazos...

Code: Select all | Expand

#include "fivewin.ch"Function Main()   ? str(11111111^2, 15)      //  123456787654321   ? str(111111111^2, 18)     //  12345678987654320 <- Limitación de Harbour/*   11111111 * 11111111 =   11111111+                         111111110+                        1111111100+                       11111111000+                      111111110000+                     1111111100000+                    11111111000000+                   111111110000000=                   123456787654321                  */  return nil 

Saludos, Euclides

[karinha]

Very good, Muy Bién Euclides!