TheGameCreators - CodeBase - Membars (Memory bars)

Return to the CodeBase listing

Category: Basic 2D

Version: 1.0

Information

Uploaded: 31st Aug 2003 00:32

Modified: 1st Jan 1970 01:00

Author: indi

Summary

The code displays 3 amounts of memory on your system in a stylised a 2d bar.

Full Description

Its also usefull for a progress bar or a timer bar. The code stores the membars into a typed array. It displays the gradient in relation to the size of the bar created but caps off the line if its too long to fit within the membar length. It could be deconstructed back to arrays for use in classic. It can be modified into a horizontal slider bar as well if you create a sprite to control the sliders point with a bit of work of course. ;)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 60

set text size 13 : set text font "arial"

rem setup memory bar type holder

type Membar

name$ as string

x1 as integer

y1 as integer

x2 as integer

y2 as integer

bdr as integer

width as integer

height as integer

memory as integer

endtype

dim Membar(3) as Membar

Membar(1).height = 8

Membar(1).width = 256

Membar(1).x1 = 10

Membar(1).y1 = 10

Membar(1).x2 = Membar(1).x1 + Membar(1).width

Membar(1).y2 = Membar(1).y1 + Membar(1).height

Membar(1).bdr = 2

Membar(1).name$ = "dmem"

Membar(1).memory = system dmem available()

Membar(1).memory = Membar(1).memory /1024

Membar(2).height = 8

Membar(2).width = 256

Membar(2).x1 = 10

Membar(2).y1 = 40

Membar(2).x2 = Membar(2).x1 + Membar(2).width

Membar(2).y2 = Membar(2).y1 + Membar(2).height

Membar(2).bdr = 2

Membar(2).name$ = "smem"

Membar(2).memory = system smem available()

Membar(2).memory = Membar(2).memory /1024

Membar(3).height = 8

Membar(3).width = 256

Membar(3).x1 = 10

Membar(3).y1 = 70

Membar(3).x2 = Membar(3).x1 + Membar(3).width

Membar(3).y2 = Membar(3).y1 + Membar(3).height

Membar(3).bdr = 2

Membar(3).name$ = "tmem"

Membar(3).memory = system tmem available()

Membar(3).memory = Membar(3).memory /1024

disable escapekey

while escapekey()=0

for i = 1 to 3

Display_Membar(i)

next i

sync

endwhile

undim Membar(3)

end

function Display_Membar(Num)

ink rgb(192,192,192),1

box Membar(Num).x1,Membar(Num).y1,Membar(Num).x2,Membar(Num).y2

ink rgb(32,32,32),1

box Membar(Num).x1+Membar(Num).bdr,Membar(Num).y1+Membar(Num).bdr,Membar(Num).x2-Membar(Num).bdr,Membar(Num).y2-Membar(Num).bdr

if Membar(Num).memory > Membar(Num).width

ink rgb(32,192,32),1

box Membar(Num).x1+Membar(Num).bdr+1,Membar(Num).y1+Membar(Num).bdr+1,Membar(Num).x1+Membar(Num).width-Membar(Num).bdr-1,Membar(Num).y2-Membar(Num).bdr-1

else

ink rgb(32,192,32),1

box Membar(Num).x1+Membar(Num).bdr+1,Membar(Num).y1+Membar(Num).bdr+1,Membar(Num).x1+Membar(Num).memory-1,Membar(Num).y2-Membar(Num).bdr-1

endif

ink rgb(255,255,55),1

text Membar(Num).x1+Membar(Num).bdr+2,Membar(Num).y1 + Membar(Num).height+2,Membar(Num).name$+" "+STR$(Membar(Num).memory)+"megs"

CodeBase - Membars (Memory bars)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	indi
CodeBase Entries:	1