[futurebasic] 2 Conversion Questions

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : September 1999 : Group Archive : Group : All Groups

From: Jeff Yurka <woogieco@...>
Date: Wed, 29 Sep 1999 15:28:32 -0700 (PDT)
Recommendations please on how to fix the following two errors. I am down
from 700+ errors to 344. This ain't easy for someone who hasn't touched FB
for over a year. I am hoping that a little push will get me coasting.

Thanks
-Jeff

Warning: Type should be specified, a 16 bit integer has been assumed..
In file Calculator Project.¼:CALCULATOR PROJECT.INCL at line 468 in FIGARC,
Code=180412
*thePoint.h *= Lref + (Rref-Lref)/2 + temp5#

Refers to:

LOCAL FN FigArc(Lref,Tref,Rref,Bref)
ab# = (Rref-Lref)/2
bvalue = (Bref-Tref)/2
'Subtract 90 from our arc value
theAngle = PerCentI - 90
theTang# = TAN(theAngle*ATN(1)/45)
temp1# = (theTang# * theTang#) *  (ab# * ab#)
temp2# = temp1#/ (bvalue * bvalue)
temp3# = temp2# + 1
temp4# = (ab# * ab#)/temp3#
temp5# = SQR(temp4#)
LONG IF  PerCentI > 180
temp5# = temp5# * -1
END IF
midpoint = (Lref + (Rref-Lref)/2)
leftEdge = Lref + (Rref-Lref)/2 + temp5#
thePoint.h = Lref + (Rref-Lref)/2 + temp5#
thePoint.v = temp5# * TAN(theAngle*ATN(1)/45)
vmidpoint = (Tref + bvalue) + thePoint.v
thePoint.v = vmidpoint
CALL SETRECT(rect,253,162,318,187)
CALL PTTOANGLE(rect,thePoint,newAngle)
END FN = leftEdge


------------------------------------------------------
Also

Warning: REGISTER no longer Valid!.
In file Calculator Project.¼:PROGRESS.FLTR at line 43 in PROGRESSBAR,
Code=235488
*CALL FILLRECT(t,#REGISTER(A5)*+_gray)

Refers to:

LOCAL FN progressBar
'---------------------------------------
' Draw the progress bar.
'---------------------------------------
DIM t,l,b,r,wndT,wndL,wndB,wndR
DIM oldOut,workDone&,barPixels

oldOut    = WINDOW(_outputWnd)
WINDOW OUTPUT _pgProgressWnd
t         = 48
b         = t + 16
l         = WINDOW(_width)/2 - 100
r         = l + 200
CALL FRAMERECT(t)
PLOT r,t + 1 TO r,b TO l + 1,b
CALL INSETRECT(t,1,1)
workDone& = gWndInfo&(_pgProgressWnd) - gProgress&
barPixels = (workDone& \ gWndInfo&(_pgProgressWnd)) * 200.
r         = l + barPixels
CALL FORECOLOR(_blueColor)
CALL FILLRECT(t,#REGISTER(A5)+_gray)
CALL GETCWMGPRORT(wMgr&) FILLRECT(t,@wMgr&
CALL FORECOLOR(_blackColor)
WINDOW OUTPUT oldOut
END FN