home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. CD ROM (Annual Premium Edition)
/
premium.zip
/
premium
/
WINUTIL2
/
WB_41E.ZIP
/
OLECALC.WB_
< prev
next >
Wrap
Text File
|
1993-08-23
|
3KB
|
97 lines
CalcDialogFormat=`WWWDLGED,4.0`
CalcDialogCaption=`Calc`
CalcDialogX=226
CalcDialogY=25
CalcDialogWidth=77
CalcDialogHeight=151
CalcDialogNumControls=10
CalcDialog01=`6,4,64,DEFAULT,EDITBOX,edbox,""`
CalcDialog02=`6,20,64,DEFAULT,PUSHBUTTON,DEFAULT,"Decrement",1`
CalcDialog03=`6,34,64,DEFAULT,PUSHBUTTON,DEFAULT,"Count Down",2`
CalcDialog04=`6,48,64,DEFAULT,PUSHBUTTON,DEFAULT,"Cube",3`
CalcDialog05=`6,62,64,DEFAULT,PUSHBUTTON,DEFAULT,"Factorial",4`
CalcDialog06=`6,76,64,DEFAULT,PUSHBUTTON,DEFAULT,"Increment",5`
CalcDialog07=`6,90,64,DEFAULT,PUSHBUTTON,DEFAULT,"Count Up",6`
CalcDialog08=`6,104,64,DEFAULT,PUSHBUTTON,DEFAULT,"Square",7`
CalcDialog09=`6,118,64,DEFAULT,PUSHBUTTON,DEFAULT,"Close",8`
CalcDialog10=`6,132,64,DEFAULT,PUSHBUTTON,DEFAULT,"Quit",0`
DispCalc=ObjectOpen("dispcalc.ccalc")
:next
edbox=DispCalc.Accum
DispCalc.Display()
select=Dialog("CalcDialog")
if edbox=="" then edbox = 0
if !IsNumber(edbox) then Display(5,"Error","Edit box contents must be an integer")
then goto next
DispCalc.Accum = edbox
goto select%select% ; Case Statement
:select1 ; Decrement
DispCalc.opnd=1
DispCalc.op=2 ; Minus
DispCalc.Eval()
DispCalc.Display()
goto next
:select2 ; Count Down
if DispCalc.Accum <= 0 then Message ("Value too small or zero",DispCalc.Accum)
then goto next
DispCalc.opnd=1
DispCalc.op=2
DispCalc.Eval()
DispCalc.Display()
goto select2
:select3 ; Cube
DispCalc.op=3 ; 3 is code for multiply
DispCalc.opnd = edbox
DispCalc.Eval()
DispCalc.Eval()
DispCalc.Display()
goto next
:select4 ; Factorial
if DispCalc.Accum > 12 then Message("Value too large",DispCalc.Accum)
then goto next
DispCalc.op=3 ; Multiply
DispCalc.opnd=DispCalc.Accum
:factloop
DispCalc.opnd=DispCalc.opnd-1
if DispCalc.opnd<=1 then goto next
DispCalc.Eval()
DispCalc.Display()
goto factloop
:select5 ; Increment
DispCalc.Opnd=1
DispCalc.op=1
DispCalc.Eval()
DispCalc.Display()
goto next
:select6 ; Count Up
DispCalc.opnd=1
DispCalc.op=1
DispCalc.Eval()
DispCalc.Display()
goto select6
:select7 ; Square
DispCalc.op=3 ; 3 is code for multiply
DispCalc.opnd = edbox
DispCalc.Eval()
DispCalc.Display()
goto next
:select8 ; Close
DispCalc.Quit()
ObjectClose(DispCalc)