Re: Calculator revisited
Posted: Tue Jun 03, 2014 6:26 am
Antonio, yes of course, But I not Know How I must make to run also extern functions... 
Silvio,
Those functions are part of harbour, as far as I know.
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Code: Select all | Expand
...
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