[bb] NetGraph by zoom* [ 1+ years ago ]

[BlitzBot]

Title : NetGraph
Author : zoom*
Posted : 1+ years ago

Description : A small netgraph

Code :

Code (blitzbasic) Select Expand

;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

Comments :


BlitzSupport(Posted 1+ years ago)

 That's very nice.