topic-18648

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Calculator
Posted: Fri Apr 23, 2010 08:37 PM

The power of macros -one line of code and a powerful calculator is ready.
Best regards,
Otto

prg-file

Code (fw): Select all Collapse

#Include "FiveWin.Ch"

Function Main()
   Local oDlg
   Local oGet
   local cVar := space( 100 )

   DEFINE DIALOG oDlg from 0,0 to 400,400 pixel

   @ 15,15 get oGet var cVar picture "@!"  bitmap "..\bitmaps\chkyes.bmp" action( calc( @cVar ), oGet:refresh() );
      size 120,12 of oDlg pixel
   oGet:lAdjustBtn := .t.

   ACTIVATE DIALOG oDlg

return nil


function calc( cVar )
   local cTempCalc := cVar
   Try
   cVar := ALLTRIM( str( &cTempCalc ) ) + space( 100 )
   CATCH
   msginfo( "Wrong input" )
   End

return nil

rc-file

Code (fw): Select all Collapse

// Add this to your resources RC file

#ifdef __FLAT__
   1 24 ".\winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif

James Bott

Posts: 4840