Computer Science Canada

cd player haha version 0.2 lol

Author:  icemaster [ Thu Jan 15, 2004 9:57 pm ]
Post subject:  cd player haha version 0.2 lol

haha yup i made a really small cd player just put your cd player in the drive then run this code
code:

%cd player version 0.2! lol
%made By Isaac Emesowum
import GUI
var Stop, Play, Pause, FForward, Rewind, load, Quit : int
View.Set ("graphics:200;50, title:CD PLAYER, position:center, center,buttonbar")
process music (track : string)
    var track2 : string := "cd:" + track
    Music.PlayFile (track2)
end music

proc track_get
    var track := Window.Open ("buttonbar,graphics:100;100, title:Pick Track Number, position:center, center")
    var track_string : string
    loop
        put "Enter Track Number"
        get track_string
        if strintok (track_string) = true
                then
            exit
        end if
        cls
    end loop
    Window.Close (track)
    fork music (track_string)
end track_get

proc play_p
    GUI.Hide (Play)
    GUI.Show (Stop)
    track_get
end play_p

proc stop_p
    GUI.Hide (Stop)
    Music.PlayFileStop
    GUI.Show (Play)
end stop_p


proc main
    Play := GUI.CreateButton (0, 0, 0, "Play", play_p)
    Stop := GUI.CreateButton (61, 0, 0, "Stop", stop_p)
    Quit := GUI.CreateButton (122, 0, 0, "Quit", GUI.Quit)
end main

main
loop
    exit when GUI.ProcessEvent
end loop
assert false


ha well i was bored and i came up with this in a couple min

Author:  sport [ Sat Jan 17, 2004 1:14 pm ]
Post subject:  Nice work

It is a Useful Programs.

Author:  shorthair [ Sat Jan 17, 2004 1:23 pm ]
Post subject: 

good considering its turing implemented , but alot of these programs will be obselete now that turing 5 is out , becuae you can pause songs now and there is no need ot fork them

Author:  icemaster [ Sat Jan 17, 2004 5:33 pm ]
Post subject: 

well i liek the sound of pausing sounds.. it was a pain to only be able to stop and play

as for forking... don't u mean u don't need to because turing automatically plays them in the background, thus it's kind of forking

EDIT~
uh i check the turing update site... it said that turing 4.04c was the latest version

waht are you talkin about? is it available for dl somewhere else?


: