Converting Algorithm - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|281\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Converting Algorithm
Sun, 02 Jun 2013, 18:25
dna	Hello. I was converting this function Method Create:SimpleProgressBar(_x:Float,_y:Float,_w:Float,_h:Float,_minValue:Short,_maxValue:Short,_text:String="",_colorR:Byte=0,_colorG:Byte=255,_colorB:Byte=0) x = _x y = _y w = _w h = _h text = _text minValue = _minValue currentValue = minValue 'the current value defaults to the minimum value... maxValue = _maxValue colorR = _colorR colorG = _colorG colorB = _colorB Return Self End Method --v to B3D and wante to know what the statement : Return self does? -=-=- DNA
Sun, 02 Jun 2013, 19:58
Mog	SELF is referencing the object that is invoking the method - If you had something like a:thing in blitz3D, and if B3d had methods, if you call a.create(), it will invoke that method with A declared as a local object, named SELF. Pass the object into the function as Self:SimpleProgressBar. -=-=- I am Busy Mongoose - My Website Dev PC: AMD 8150-FX, 16gb Ram, GeForce GTX 680 2gb Current Project: Pyroxene
Mon, 03 Jun 2013, 01:28
steve_ancell	Type ProgressBar Field x# Field y# Field w# Field h# Field text_$ Field minValue Field currentValue Field maxValue Field colorR Field colorG Field colorB End Type Local pBar.ProgressBar = SimpleProgressBar(1, 2, 3, 4, 10, 20, "Some Text", 55, 155, 255) Print pBar\x# Print pBar\y# Print pBar\w# Print pBar\h# Print "" Print pBar\minValue Print pBar\currentValue Print pBar\maxValue Print "" Print pBar\text_$ Print "" Print pBar\colorR Print pBar\colorG Print pBar\colorB WaitKey() End Function SimpleProgressBar.ProgressBar(x#, y#, w#, h#, minValue, maxValue, text_$, colorR, colorG, colorB) Local pBar.ProgressBar = New ProgressBar pBar\x# = x# pBar\y# = y# pBar\w# = w# pBar\h# = h# pBar\minValue = minValue pBar\currentValue = minValue pBar\maxValue = maxValue pBar\text_$ = text_$ pBar\colorR = colorR pBar\colorG = colorG pBar\colorB = colorB Return pBar End Function --v
Mon, 03 Jun 2013, 15:13
dna	Thanks Steve
Mon, 03 Jun 2013, 15:23
steve_ancell	You're welcome Bud.
Tue, 04 Jun 2013, 11:06
dna	With all the conversion going on I finally came up with this. Function PROBAR(PX,PY,RWID,RHEI,GG#) If GG>RWID Then BS=GG/RWID:GG#=0.-0 ;If GG>RWID Then RWID=GG Color 200,200,200:Rect PX,PY,RWID+4,RHEI,0 Color 20,200,20 ;GG#=0.0 While GG<=100 Rect PX+2,PY+2,GG,16,1 Delay 50 GG=GG+BS Wend End Function --v Why the original code used types in Bmax is unknown when this works the same. -=-=- DNA
Tue, 04 Jun 2013, 14:53
steve_ancell	[quote=dna]Why the original code used types in Bmax is unknown when this works the same.[/dna] If you mean the code I posted, it's not BMax, I did that in Blitz3D. I've done it that way before, but with different field names.
Tue, 04 Jun 2013, 15:22
dna	Not yours Steve. The first source I posted that had the method header. Thed whole thing was constructed that way for a reason I do not see since the last code I posted will suffice. Some software programmers are too strongly typed with their code listings. -=-=- DNA