BlitzBasic Code Base

Try my new website: www.urcho.com - the new SIMPLE social network

NetGraph by zoom

[back]

Author: Archive | Viewed: 710 times | Language: BlitzBasic 3D | Category: Multiplayer Code

;NetGraph by zoom*, use it as you wish.
;Just put my name in the credits.
;before create a netgraph.ngf file with this code inside
;NGXDispPosition == 5
;NGYDispPosition == 360

Graphics3D 640,480,16,1

If Not FileType("netgraph.ngf") Then 
	RuntimeError	"NetGraph.ngf does not seem to exist. Please download again."
	End
EndIf

NGFContent	=	ReadFile("netgraph.ngf")
linecontent$	=	ReadLine(NGFContent)
NGXDispPosition#	=	Right(linecontent,Len(linecontent)-19)
linecontent$	=	ReadLine(NGFContent)
NGYDispPosition#	=	Right(linecontent,Len(linecontent)-19)

Global	x#,y#,a#,b#

Dim buffer(63,2)
SeedRnd	MilliSecs()

font	=	LoadFont(arial)
SetFont font

While Not KeyDown(1)
	NG_PutInBuffer(Rand(0,1000),Rand(0,100))
	NG_UpdateNetGraph(1000,100,NGXDispPosition,NGYDispPosition)
	Flip
Wend
End

Function	NG_DrawGraphBG(a#,b#)

Color	0,0,64
	Rect	a#+1,b#+1,200,115,1
	Color	255,255,255
	Rect	a#,b#,201,101,0
	Rect	a#,b#,201,116,0	
	Color	128,128,255
	Line	a#+5,b#+5,a#+5,b#+45
	Line	a#+5,b#+45,a#+195,b#+45
	Line	a#+5,b#+55,a#+5,b#+95
	Line	a#+5,b#+95,a#+195,b#+95
	
End Function

Function 	NG_UpdateNetGraph(bandwidthin#,bandwidthout#,x#,y#)
	
	NG_DrawGraphBG(x#,y#)
	For	n=1 To 63 Step 1
	
		Color	0,255,0
		Line	x#+4+3*n,y#+44,x#+4+3*n,y#+44-(buffer(n,1)*40)/bandwidthin#
		Line	x#+5+3*n,y#+44,x#+5+3*n,y#+44-(buffer(n,1)*40)/bandwidthin#
		Color	255,0,0
		Line	x#+4+3*n,y#+94,x#+4+3*n,y#+94-(buffer(n,2)*40)/bandwidthout#
		Line	x#+5+3*n,y#+94,x#+5+3*n,y#+94-(buffer(n,2)*40)/bandwidthout#		
		Color	0,0,110
		Line	x#+4+3*n,y#+44-(buffer(n,1)*40)/bandwidthin#-1,x#+4+3*n,y#+5
		Line	x#+5+3*n,y#+44-(buffer(n,1)*40)/bandwidthin#-1,x#+5+3*n,y#+5
		Line	x#+4+3*n,y#+94-(buffer(n,2)*40)/bandwidthout#-1,x#+4+3*n,y#+55
		Line	x#+5+3*n,y#+94-(buffer(n,2)*40)/bandwidthout#-1,x#+5+3*n,y#+55
		If n<63 Then NG_UpdateBuffer(n)

Next
	Color	0,128,255
	Text	x#+4,y#+102,"NetGraph>> in::" + Int(buffer(63,1)) + "Ko/s | out::" + Int(buffer(63,2)) + "Ko/s"

Delay 1000
	
End Function

Function 	NG_PutInBuffer(invalue#,outvalue#)

buffer(63,1) = invalue#
	buffer(63,2) = outvalue#
	
End Function

Function NG_UpdateBuffer(i)

buffer(i,1) = buffer(i+1,1)
	buffer(i,2) = buffer(i+1,2)
	
End Function

Author Comments:

A small netgraph