TheGameCreators - CodeBase - Audio CD Player for Laszlo Zoltan ( only executable included )

Category: Complete Applications

Version: 1.0

Information

Uploaded: 7th Nov 2004 01:24

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Audio CD player. Can play most,if not all, audio music tracks. Usage with arrow keys. Instructions: Downkey:Play-Stop. Upkey:Repeat audio CD. Leftkey:Backward track. Rightkey:Forward track. Esc:Close application.

Full Description

All essential files included , but no documentation. Working executable exists. See next application. Please feel free posting your tools. May I please be forgiven for any bugs. Thank you.

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: Audio CD Player for Laszlo Zoltan

Rem Created: 4/11/2004 9:19:32 Î¼Î¼

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

global Music_Number=1

global current_track=0

global proceed$="no"

global cd_tracks=0

global repeat$="Yes"

global status$="Stopped"

global rightkey$="free"

global leftkey$="free"

global upkey$="free"

global downkey$="free"

global rightkey_button=0

global leftkey_button=0

global upkey_button=0

global downkey_button=0

global rightkey_switch_button$="off"

global leftkey_switch_button$="off"

global upkey_switch_button$="off"

global downkey_switch_button$="off"

SET WINDOW ON

SET WINDOW TITLE "Audio CD Player for Laszlo Zoltan"

show window

MAXIMIZE WINDOW

audio_cd()

if (proceed$="yes")

cls

cursor_reader()

update_music_sequence()

screen_info()

loop

endif

end

function update_music_sequence()

if (status$="Playing")

if (MUSIC PLAYING(Music_Number)=0)

if (current_track <> cd_tracks)

current_track=current_track+1

loadandplay_audio_CD("play")

endif

if (status$="Playing")

if (repeat$="Yes")

if (current_track=cd_tracks)

if (MUSIC PLAYING(Music_Number)=0)

current_track=1

loadandplay_audio_CD("play")

endif

endfunction

function locate_track(command$)

if (command$="forward")then:current_track=current_track+1

if (command$="backward")then:current_track=current_track-1

if (current_track<1)then:current_track=cd_tracks

if (current_track>cd_tracks)then:current_track=1

if (command$="play") then: loadandplay_audio_CD("play")

if (command$="stop") then: loadandplay_audio_CD("stop")

if (command$="loop") then: repeat_audio_CD("loop")

if (command$="noloop") then: repeat_audio_CD("noloop")

endfunction

function repeat_audio_CD(command$)

if (command$="loop")

if (repeat$="No")

repeat$="Yes"

endif

if (command$="noloop")

if (repeat$="Yes")

repeat$="No"

endif

endfunction

function loadandplay_audio_CD(command$)

delete music Music_Number

LOAD CDMUSIC current_track,Music_Number

if (command$="play")

if (MUSIC PLAYING(Music_Number)=0)

delete music Music_Number

LOAD CDMUSIC current_track,Music_Number

PLAY MUSIC Music_Number

status$="Playing"

endif

if (command$="stop")

if (MUSIC PLAYING(Music_Number)=0)

stop music Music_Number

status$="Stopped"

endif

endfunction

function audio_cd()

if (GET NUMBER OF CD TRACKS()=0)

EXIT PROMPT "No audio CD.", "Error"

proceed$="no"

else

proceed$="yes"

cd_tracks=GET NUMBER OF CD TRACKS()

current_track=1

LOAD CDMUSIC current_track,Music_Number

endif

endfunction

function screen_info()

set cursor 0,0:  print "CD Tracks: ",cd_tracks

set cursor 0,15: print "Current Track: ",current_track

set cursor 0,30: print "Repeat audio_cd: ",repeat$

set cursor 0,45: print "Status: ",status$

set cursor 0,60: print "SCANCODE: ",SCANCODE()

set cursor 0,75: print "Rightkey: ",rightkey$

set cursor 0,90: print "Rightkey button: ",rightkey_button

set cursor 0,105:print "Right switch: ",rightkey_switch_button$

set cursor 0,120:print "Leftkey: ",leftkey$

set cursor 0,135:print "Leftkey button: ",leftkey_button

set cursor 0,150:print "Left switch: ",leftkey_switch_button$

set cursor 0,165:print "Upkey: ",upkey$

set cursor 0,180:print "Upkey button: ",upkey_button

set cursor 0,195:print "Up switch: ",upkey_switch_button$

set cursor 0,210:print "Downkey: ",downkey$

set cursor 0,225:print "Downkey button: ",downkey_button

set cursor 0,240:print "Down switch: ",downkey_switch_button$

endfunction

function cursor_reader()

if (rightkey()=1)

if (rightkey$="free")

rightkey_button=rightkey_button+1

if (rightkey_switch_button$="off")

rightkey_switch_button$="on"

else

rightkey_switch_button$="off"

endif

locate_track("forward")

rightkey$="lock"

endif

if (leftkey()=1)

if (leftkey$="free")

leftkey_button=leftkey_button+1

if (leftkey_switch_button$="off")

leftkey_switch_button$="on"

else

leftkey_switch_button$="off"

endif

locate_track("backward")

leftkey$="lock"

endif

if (downkey()=1)

if (downkey$="free")

downkey_button=downkey_button+1

if (downkey_switch_button$="off")

downkey_switch_button$="on"

else

downkey_switch_button$="off"

endif

if (status$="Playing")

locate_track("stop")

else

locate_track("play")

endif

downkey$="lock"

endif

if (upkey()=1)

if (upkey$="free")

upkey_button=upkey_button+1

if (upkey_switch_button$="off")

upkey_switch_button$="on"

else

upkey_switch_button$="off"

endif

if (repeat$="Yes")

locate_track("noloop")

else

locate_track("loop")

endif

upkey$="lock"

endif

if (keystate(scancode())=0)

rightkey$="free"

leftkey$="free"

upkey$="free"

downkey$="free"

endif

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - Audio CD Player for Laszlo Zoltan ( only executable included )

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments