TheGameCreators - CodeBase - Audio CD Player

Category: Complete Applications

Version: 1.0

Information

Uploaded: 7th Nov 2004 17:04

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

This is an improvement of a same earlier application , without unnecessary text information , and some minor bugs eliminated.

Full Description

1.Documentation attached , with all essential information. 2.Executable attached. May anyone please post a plug-in or any other tools you may have , as well as installation explanations? Thank you. Feel free doing anything you want with the application , documentation and source code.

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

Rem Created: 7/11/2004 11:31:59 Ï€Î¼

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

Rem Project: Audio CD Player for Laszlo Zoltan

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

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

global track_duration_switch$="on"

global song_duration_sec=0

global song_duration_min=0

global time=0

global automatic_play_cd_first_time$="yes"

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"

SET WINDOW ON

SET WINDOW TITLE "Audio CD Player"

show window

minimize WINDOW

audio_cd()

if (proceed$="yes")

cls

cd_tracks=GET NUMBER OF CD TRACKS()

cursor_reader()

update_music_sequence()

track_duration_routine()

screen_info()

loop

endif

end

function update_music_sequence()

if (automatic_play_cd_first_time$="yes")

if (status$="Stopped")

if (MUSIC PLAYING(Music_Number)=0)

if (current_track=1)

loadandplay_audio_CD("play")

automatic_play_cd_first_time$="no"

endif

if (status$="Playing")

if (MUSIC PLAYING(Music_Number)=0)

if (current_track <> cd_tracks)

current_track=current_track+1

loadandplay_audio_CD("play")

track_duration("off")

track_duration("on")

automatic_play_cd_first_time$="no"

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")

track_duration("off")

track_duration("on")

automatic_play_cd_first_time$="no"

endif

if (status$="Playing")

if (repeat$="No")

if (current_track=cd_tracks)

if (MUSIC PLAYING(Music_Number)=0)

current_track=1

loadandplay_audio_CD("stop")

track_duration("off")

automatic_play_cd_first_time$="no"

endif

endfunction

function locate_track(command$)

if (command$="forward")

if (status$="Playing")

if (current_track <= cd_tracks)

current_track=current_track+1

loadandplay_audio_CD("play")

track_duration("off")

track_duration("on")

endif

if (current_track > cd_tracks)

current_track=1

loadandplay_audio_CD("play")

track_duration("off")

track_duration("on")

endif

else

current_track=current_track+1

endif

if (command$="backward")

if (status$="Playing")

if (current_track >=1 )

current_track=current_track-1

loadandplay_audio_CD("play")

track_duration("off")

track_duration("on")

endif

if (current_track < 1)

current_track=cd_tracks

loadandplay_audio_CD("play")

track_duration("off")

track_duration("on")

endif

else

current_track=current_track-1

endif

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$)

private_current_track$="null"

if (current_track >=1)

if (current_track <= cd_tracks)

private_current_track$="valid"

delete music Music_Number

LOAD CDMUSIC current_track,Music_Number

endif

if ( private_current_track$="valid")

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

else

if ( private_current_track$="invalid")

EXIT PROMPT "Invalid audio CD track.", "Error"

proceed$="no"

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 "Song Duration: ",song_duration_min,":",song_duration_sec

endfunction

function cursor_reader()

if (rightkey()=1)

if (rightkey$="free")

locate_track("forward")

rightkey$="lock"

endif

if (leftkey()=1)

if (leftkey$="free")

locate_track("backward")

leftkey$="lock"

endif

if (downkey()=1)

if (downkey$="free")

if (status$="Playing")

locate_track("stop")

else

locate_track("play")

endif

downkey$="lock"

endif

if (upkey()=1)

if (upkey$="free")

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

function track_duration_routine()

if (status$="Playing")

track_duration("on")

endif

if (status$="Stopped")

track_duration("off")

endif

endfunction

function track_duration(command$)

if (command$="on")

if ( track_duration_switch$="on")

time=timer()

track_duration_switch$="off"

endif

if ( command$="off")

song_duration_sec=0

song_duration_min=0

track_duration_switch$="on"

endif

if ( status$="Playing")

song_duration_sec=(timer()-time)/1000

if (song_duration_sec>=60)

song_duration_min=song_duration_min+1

song_duration_sec=0

time=timer()

endif

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - Audio CD Player

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments