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...
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=28494
...
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