Jump to content

Dual Media Player


cyanidemonkey
 Share

Recommended Posts

Another media player.

Posted Image

Originally built on a mix of alex player by alexmadman and r4r by ronriel (thanks guys), plus alot of other bits and peices coded in.

Still needs some work, the code is a bit of a mess, this is a pre release beta. I thought some of it may be of use to other people building media players.

I'd still like to fix some of the bugs and add features like cueing one deck with headphones while the other plays (not sure how yet) and a mix curve adjustment.

It was going to be a radio automation app for mofo fm, but I had some issues with getting the list to load fast enough when switching out very large playlists. So I put in the visualisation at the bottom where the scheduling was going to go and make it a standard media player/mixer.

I plan to shelf this project until I've built a new radio automation app using WMP collection/playlist methods I found here: http://www.microsoft.com/technet/scriptcen...one/player.mspx (examples are VB, but they are easy to convert to AutoIt)

Once I got more time I'd like to finished this one, even though it's CRAP DJ, it's kinda cool I reckon. AutoIt is neat fun! :)

There is an exe, but also the source for the ones that dislike d/loading unknown exes (I'm inclinded that way myself)

The source is zipped with all required includes etc (i think).

crap_dj.exe

crap_dj_source.zip

Edited by cyanidemonkey

My AutoIt Scripts.- AutoHost and Password Enabler for Delta Force 2 Demo.| Caffine for Winamp 2.9x and WRS 2.0 | mp3 directory cleaner | CRAP DJ | A:B:J Radio Automation Software | FFMPEG batch conversion automator

Link to comment
Share on other sites

nice work cyanidemonkey but.... u still have same bugs i had :)) when u delete an entry from the list .. numbering won't refresh, can't move the files in the list :)

btw how do you change the visualisation???

anyway i'm glad my media player helped someone :P

Only two things are infinite, the universe and human stupidity, and i'm not sure about the former -Alber EinsteinPractice makes perfect! but nobody's perfect so why practice at all?http://forum.ambrozie.ro

Link to comment
Share on other sites

Nice cyanidemonkey. I'm flattered someone made use of something I have started.

but I had some issues with getting the list to load fast enough when switching out very large playlists.

Maybe i can help you with that.

I see you used my code for loading files(from 1st version). Yes, it is very slow specially when loading thousands :"> .

I had a major rewrite of my code(r4r). I changed much of the loading functions for speed.( Load directories,files and Playlist - got so addicted with regular expressions and stuff, I have more than 5 methods of loading playlists. :))

I have a new playlist format designed for speed. More than 3000 files can now be loaded in less than 3secs from my playlist including data from tags! But still, loading from directories, and .pls, .m3u playlist takes a while but at least 2 faster than the previous.

I'll be posting a new version when my new skin is complete. I just wish i can find more free time. :P

[font="Comic Sans MS"]-ronriel[/font][topic="48542"]r4r media player[/topic][topic="80836"]OCR & Paste[/topic]

Link to comment
Share on other sites

Thank you for your script, its interesting and amazing! :)

-I like very the Fade function that you have build in...

Can you give me some (small) example how the Fade function exactly works with AutoIT?

- I'd look into your code but I can't find them.

Thank anyway...

Keep on going the good work!

Link to comment
Share on other sites

@ YoseMite

I am at work, don't have time to look right now. Do a string seach on the code for "A2B" or "B2A" that will put you in the right place of the code tha handles the auto crossfade.

Basic bit for manual crossfader:

;convert 0~100 to 0.0~1.0
$xVolume = GUICtrlRead($crossfader)
    If $xVolume <> 100 Then
        If StringLen($xVolume) = 1 Then
            $xVolume = "0.0" & $xVolume
        Else
            $xVolume = "0." & $xVolume
        EndIf
    Else
        $xVolume = "1.0"
    EndIf

$crossfadeA = (1 - $xVolume)*(100 - GUICtrlRead($volumeA))
WMSetVolume($oDeckA, $crossfadeA)
$crossfadeB = $xVolume*(100 - GUICtrlRead($volumeB))
WMSetVolume($oDeckB, $crossfadeB)

@ ronriel

Yeah, when I get time I'll proberly redo the playlist part of it. I'll be sure to look over your new code to get some ideas.

@ alexmadman

I thought I'd got that bug sorted, but it's still there alright. damn.

re: visualisation, it uses what ever the visualisation is set to in Windows Media Player, so to change it requires opening WMP, and changing the visualisation.

@ Fabry

You are right :"> I thought I'd fixed that, must have done something to stop it working again.

@ Toady

Airsoft is my sport of choice, the OD green is the war gaming mind set sneeking into my code project. Not everyones cup of tea, but I'd seen too meny black/darkgrey one's already.

Thanks for the comments guys.

My AutoIt Scripts.- AutoHost and Password Enabler for Delta Force 2 Demo.| Caffine for Winamp 2.9x and WRS 2.0 | mp3 directory cleaner | CRAP DJ | A:B:J Radio Automation Software | FFMPEG batch conversion automator

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...