topic-28494

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Calculator revisited
Posted: Tue Jun 03, 2014 06:26 AM

Antonio, yes of course, But I not Know How I must make to run also extern functions...

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Calculator revisited
Posted: Tue Jun 03, 2014 06:48 AM

Silvio,

Those functions are part of harbour, as far as I know.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: Calculator revisited
Posted: Tue Jun 03, 2014 08:08 AM

Fixed code

Code (fw): Select all Collapse

...
 REDEFINE BUTTON oBtnDel ID 426 OF oDlg MESSAGE 'Borra último dígito';
             ACTION (::cUltima:='CE'            ,;
                     iif(::cUltimaOp='=' .or. ::cUltimaOp='AP' .or. ::cUltimaOp='AE'                                    ,; //IF
                           (::cUltimaOp:='',::nResult:=0,aadd( ::aRolloCalc, {' ',' '} ),oBrw:gobottom(),oBrw:refresh()),; //THEN
                            NIL )                                                                                       ,; //ELSE
                     iif(nGet<>0                                         ,; //IF
                           (cGet:=LEFT(cGet,len(cget)-1),nGet:=val(cGet)),; //THEN
                            NIL)                                         ,; //ESLSE
                     oGet:SetText(cGet)         ,;
                     oBtnIgual:Setfocus()       ,;
                     sysrefresh() ) UPDATE
...

    REDEFINE BUTTON oBtn0   ID 100 OF oDlg ;
             ACTION (::cUltima:='0'                                                                                      ,;
                     iif(::cUltimaOp='=' .or. ::cUltimaOp='AP' .or. ::cUltimaOp='AE'                                     ,;
                           (::cUltimaOp:='',::nResult:=0,aadd( ::aRolloCalc, {' ',' '} ), oBrw:gobottom(),oBrw:refresh()),;
                           NIL )                                                                                         ,;
                     iif(nGet<>0 .or. at(".",cGet)>0               ,;
                           ( cGet:=cGet+::cUltima, nGet:=val(cGet)),;
                           NIL )                                   ,;
                     oGet:SetText(cGet)         ,;
                     oBtnIgual:Setfocus()       ,;
                     sysrefresh() ) UPDATE

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Calculator revisited
Posted: Wed Jun 04, 2014 02:52 PM

Antonio I mean ... with Getcalc of Tim ..

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion