Re: Calculator revisited
Posted: Tue Jun 03, 2014 6:26 amAntonio, 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.
FiveTech Software tech support forums
www.FiveTechSoft.com
https://fivetechsupport.com/forums/
Calculator revisited
https://fivetechsupport.com/forums/viewtopic.php?f=3&t=28494
Page 3 of 3
Posted: Tue Jun 03, 2014 6:26 amRe: Calculator revisited
Posted: Tue Jun 03, 2014 6:48 amRe: Calculator revisited
Posted: Tue Jun 03, 2014 8:08 amFixed code
- Code: Select all Expand view
...
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
Re: Calculator revisited
Posted: Wed Jun 04, 2014 2:52 pmAntonio I mean ... with Getcalc of Tim ..