TheGameCreators - CodeBase - weight height graphical relation of humans

Category: Complete Applications

Version: 1.0

Information

Uploaded: 8th Aug 2004 17:02

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

weight height graphical relation of humans. yes it's for humans, during the time that i was taken and raced as their own spicies,aliens i've made me the ultimate training consultation in time chamber, but i've lost my extendend red rod given from my grand father, and now i'm on my way home to meet the legendary super saiyan, by my magic yellow pee cloud no, seriously i am Son of Goku the supersaiyan

Full Description

please, let us have your tools please, let us have your tools please, let us have your tools please, let us have your tools please, let us have your tools please, let us have your tools

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

global maximum_graph_weidth#

global maxx_int

global maxy_int

global maxx#

global maxy#

global maxx

global maxy

maxx=screen width()

maxy=screen height()

maxx_int=screen width()

maxy_int=screen height()

maxx#=screen width()

maxy#=screen height()

maximum_graph_weidth#=0.0

halfx#=maxx#/2

halfy#=maxy#/2

halfx_int=maxx_int/2

halfy_int=maxy_int/2

y#=halfy#

x#=halfx#

print "Press Enter for default values."

input "Give maximum graph weigth as a real number: ",maximum_graph_weidth#

if (maximum_graph_weidth#=0.0)

maximum_graph_weidth#=150.0

maximum_graph_height#=2.10

else

mgh#=maximum_graph_weidth#

input "Give maximum graph height as a real number: ",maximum_graph_height#

endif

cls

line 0,maxy#-(maxy#/5),maxx#,maxy#-(maxy#/5)

line halfx#*0.333,0,halfx#*0.333,maxy#

set cursor halfx#/15,maxy#*0.9

print get date$()

set cursor halfx#/15,maxy#*0.85

print get time$()

print_XY_2int(mousex(),mousey(),maximum_graph_weidth#,maximum_graph_height#)

loop

print "        Done"

wait key

end

FUNCTION print_XY_2int(x,y,maximum_graph_weidth,maximum_graph_height#)

maximum_graph_weidth=maximum_graph_weidth+19

maximum_graph_height#=maximum_graph_height#+0.44

ratio#=x*0.85625

ratioh#=y*0.875

w#=(((ratio#-1)*maximum_graph_weidth)/548)

ww=(w#/1)-19

h#=maximum_graph_height#-(((ratioh#-1)*maximum_graph_height#)/420)

h#=h#-0.44

ink rgb(255,000,000),rgb(0,0,0)

line 450,450,600,450

line 141,194,227,114

line 227,114,379,76

print_xy(400,442,"girls")

ink rgb(000,000,255),rgb(0,0,0)

line 200,450,350,450

line 132,198,264,113

line 264,113,344,76

print_xy(150,442,"boys")

ink rgb(255,255,255),rgb(0,0,0)

print_xy(50,20,"Height")

print_xy(550,350,"Weight")

SET CURSOR maxx_int*0.625,maxx_int*0.625

if (ww>0)

PRINT "w: ",ww," Kg"

else

PRINT "w: 0 Kg"

endif

SET CURSOR maxx_int*0.625,(maxx_int*0.65625)

if (h#>0)

print "h: ",h#," m"

else

PRINT "h: 0 m"

endif

set cursor 10,50

print x

set cursor 10,70

print y

set cursor 10,90

print maxx_int-x

set cursor 10,110

print maxy_int-y

ENDFUNCTION

function print_xy(x,y,message$)

set cursor x,y

print message$

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - weight height graphical relation of humans

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments