TheGameCreators - CodeBase - DBpro media player

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 31st Aug 2004 20:24

Modified: 31st Aug 2004 20:40

Author: Anonymous Coder

Summary

this is a media player made by DBPro This is a nice program

Full Description

Lots of bugs. please fill free upgrading the code. I'm unable attaching the project folder due to size limitation

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: dbpro media player

Rem Created: 30/8/2004 2:44:47 Î¼Î¼

Rem ***** Main Source File *****

global idea$

global size

global path_status$

global file_status$

global filename$,path$

global Animation_Number

global a_x1#,a_y1#

global a_x2#,a_y2#

global maxx#

global maxy#

global halfx#

global halfy#

global hhalfx#

global hhalfy#

global hmaxx#

global hmaxy#

global argument_size$

global pushed_this$

global txt$

global exit_program$

global volume

global speed

maxx#=screen width()

maxy#=screen height()

path_status$="sexi_Nickson"

file_status$="sexi_Nickson"

argument_size$="default"

exit_program$="no"

volume=100

speed=100

maxx=screen width()

maxy=screen height()

halfx=maxx/2

halfy=maxy/2

halfx#=maxx#/2

halfy#=maxy#/2

hhalfx#=halfx#/2

hhalfy#=halfy#/2

hmaxx#=hmaxx#*0.8

hmaxy#=hmaxy#*0.8

path$=GET DIR$()

print ""

print "DarkBasic Professional Media Player."

print "Please place executable into media file folder."

print ""

if (PATH EXIST(path$)=1)

print "Path exist."

path_status$="sexi_John"

else

print "Path doesn't exist."

exit

endif

input "Enter filename with extension: ",filename$

if (FILE EXIST(filename$)=1)

print "File exist."

file_status$="sexi_John"

else

print "File doesn't exist."

exit

endif

`   file_status$="sexi_John":filename$="coolasice256k.wmv"

if   ( file_status$="sexi_John" and path_status$="sexi_John" )

print path$

print filename$

print "Everything's ok"

size=file size(filename$)

print "File size: ",size/1000," Kbyte"

print ""

print "Press any key to proceed..."

wait key

LOAD ANIMATION path$+""+filename$,1

cls

line 0,0,maxx#,maxy#

line maxx#,0,0,maxy#

make_button(10,15,0.0,255.0,0.0,"M")

make_button(10,45,0.0,255.0,0.0,"D")

make_button(halfx*(0.15625*1),halfy*(0.1*7),200.0,0.0,0.0,"play")

make_button(halfx*(0.15625*1),halfy*(0.1*8),200.0,0.0,0.0,"stop")

make_button(halfx*(0.15625*1),halfy*(0.1*9),200.0,0.0,0.0,"pause")

make_button(halfx*(0.15625*1),halfy*(0.1*10),200.0,0.0,0.0,"resume")

make_button(halfx*(0.15625*1),halfy*(0.1*11),200.0,0.0,0.0,"quit")

print_xy_int(halfx*(0.15625*11.5),halfy*(0.1*6),volume)

make_button(halfx*(0.15625*11.5),halfy*(0.1*7),200.0,0.0,0.0,"volume_up")

make_button(halfx*(0.15625*11.5),halfy*(0.1*8),200.0,0.0,0.0,"volume_down")

make_button(halfx*(0.15625*11.5),halfy*(0.1*10),200.0,0.0,0.0,"speed_up")

make_button(halfx*(0.15625*11.5),halfy*(0.1*11),200.0,0.0,0.0,"speed_down")

print_xy_int(halfx*(0.15625*11.5),halfy*(0.1*12),speed)

if (exit_program$="yes") then:exit

fastsync

loop

else

print "About to exit. Press any key"

wait key

endif

end

function make_button(x,y,r#,g#,b#,txt$)

button(x,y,txt$,r#,g#,b#)

endfunction

function print_xy_message(x,y,message$)

set cursor x,y

print message$

endfunction

function print_xy_int(x,y,i)

set cursor x,y

print i

endfunction

function button(x,y,txt$,r#,g#,b#)

` code made by Atreides (I don't mind if you don't add me to your credits ^^)

` X ans Y are the center of the button

` txt is the text of the button

` r, g and b is the color of the button

mob as boolean

if mousex()>x-text width(txt$)/2-6 and mousex()<x+text width(txt$)/2+6

if mousey()>y-text height(txt$)/2-2 and mousey()<y+text height(txt$)/2+2

if mouseclick()=1 `mob=1:pushed_this$=txt$:cls 0:button_reader(txt$)

mob=1

pushed_this$=txt$

cls 0

button_reader(txt$)

endif

if mob=0

ink rgb(r#*0.7,g#*0.7,b#*0.7),0

box x-text width(txt$)/2-6,y-text height(txt$)/2-2,x+text width(txt$)/2+6,y+text height(txt$)/2+4

ink rgb(r#,g#,b#),0

box x-text width(txt$)/2-3,y-text height(txt$)/2,x+text width(txt$)/2+3,y+text height(txt$)/2+2

if (r#+g#+b#)/3>=128

ink rgb(0,0,0),0

else

ink rgb(255,255,255),0

endif

text x-text width(txt$)/2,y-text height(txt$)/2,txt$

else

repeat

ink rgb(r#,g#,b#),0

box x-text width(txt$)/2-6,y-text height(txt$)/2-2,x+text width(txt$)/2+6,y+text height(txt$)/2+4

ink rgb(r#*0.7,g#*0.7,b#*0.7),0

box x-text width(txt$)/2-3,y-text height(txt$)/2,x+text width(txt$)/2+3,y+text height(txt$)/2+2

if (r#*0.7+g#*0.7+b#*0.7)/3>=128

ink rgb(0,0,0),0

else

ink rgb(255,255,255),0

endif

text x-text width(txt$)/2,y-text height(txt$)/2,txt$

sync

until mouseclick()=0

if mousex()>x-text width(txt$)/2-6 and mousex()<x+text width(txt$)/2+6 and mousey()>y-text height(txt$)/2-2 and mousey()<y+text height(txt$)/2+2

if mouseclick()=1 then mob=1

else

mob = 0

endif

ink rgb(255,255,255),0

endfunction mob

function button_reader(pushed_this$)

if (pushed_this$="play")then:media_execution("play")

if (pushed_this$="stop")then:media_execution("stop")

if (pushed_this$="pause")then:media_execution("pause")

if (pushed_this$="resume")then:media_execution("resume")

if (pushed_this$="quit")then:media_execution("quit")

if (pushed_this$="volume_up")then:animation_volume("volume_up")

if (pushed_this$="volume_down")then:animation_volume("volume_down")

if (pushed_this$="speed_up")then:animation_speed("speed_up")

if (pushed_this$="speed_down")then:animation_speed("speed_down")

if (pushed_this$="M")then:screen_size("M")

if (pushed_this$="D")then:screen_size("D")

endfunction

function media_execution(command$)

if (command$="play")

if (argument_size$="default")

play ANIMATION 1,hhalfx#*0.9,hhalfy#*0.9,halfx#*1.55,halfy#*1.55

endif

if (argument_size$="small")

play ANIMATION 1,hhalfx#*1.0,hhalfy#*1.0,halfx#*1.2,halfy#*1.2

endif

if (argument_size$="medium")

play ANIMATION 1,hhalfx#*0.3,hhalfy#*0.3,maxx#*0.9,maxy#*0.9

endif

if (argument_size$="full")

play ANIMATION 1,0,0,maxx#,maxy#

endif

if (command$="stop")then:stop animation 1

if (command$="pause")then:pause animation 1

if (command$="resume")then:resume animation 1

if (command$="quit")

stop animation 1

DELETE ANIMATION 1

exit_program$="yes"

endif

endfunction

function line_box(x1,y1,x2,y2)

line x1,y1,x2,y1

line x1,y2,x2,y2

line x1,y1,x1,y2

line x2,y1,x2,y2

endfunction

function animation_volume(command_volume$)

if (command_volume$="volume_up")then:volume=volume+10

if (command_volume$="volume_down")then:volume=volume-10

if (volume < 0)then:volume=0

if (volume > 200) then: volume=200

SET ANIMATION VOLUME 1,volume

endfunction

function animation_speed(command_speed$)

if (command_speed$="speed_up")then:speed=speed+10

if (command_speed$="speed_down")then:speed=speed-10

if (speed < 0)then:speed=0

if (speed > 200)then:speed=200

SET ANIMATION SPEED 1,speed

endfunction

function screen_size(command_resize$)

media_execution("pause")

if (command_resize$="M")then:argument_size$="full":exit

if (command_resize$="D")then:argument_size$="default":exit

print_xy_message(30,10,argument_size$)

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - DBpro media player

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments