NicoTn Posted October 4, 2006 Share Posted October 4, 2006 (edited) expandcollapse popup#include <GuiConstants.au3> global $pl1 = 0 $g1 = GuiCreate("Mp3 Player v3", 335, 125,-1, -1) GUISetFont(12, "", "", "vrinda") ;; MAIN GuiCtrlCreateTab(0, 0, 335, 125) GuiCtrlCreateTabItem("Main") GuiCtrlCreateLabel("Main", 5, 24) $play = GUICtrlCreateButton("Play", 5, 50, 50, 20) $stop = GUICtrlCreateButton("Stop", 5, 72, 50, 20) $select = GUICtrlCreateButton("Select", 5, 94, 50, 20) $e1 = GUICtrlCreateEdit("-- Chosen song --" & @CRLF, 60 , 50 , 270 , 70) ;; OPTIONS GuiCtrlCreateTabItem("Options") GuiCtrlCreateLabel("Options", 5, 24) $pl = GUICtrlCreateinput("50" , 5, 40, 100, 20) GUICtrlCreateLabel("Play Delay", 110 , 40 , 100, 200) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE SoundSetWaveVolume(100) sleep(1000) ExitLoop Case $msg = $play SoundSetWaveVolume(0) GUICtrlRead($song) GUICtrlRead($pl) sleep($pl) SoundPlay($song) SoundSetWaveVolume(100) Case $msg = $stop SoundSetWaveVolume(0) Case $msg = $select $song = FileOpenDialog("Play MP3/WAV sound",@MyDocumentsDir,"MP3 sound (*.mp3)|WAV sound (*.wav)",1 + 4) SoundSetWaveVolume(0) $mid = $song while 1 $songstr = stringinstr($mid,"\") if $songstr = 0 then ExitLoop $mid = stringmid($mid,$songstr+1) wend $sk = $mid GUICtrlSetData($e1, $sk & @CRLF , "-- Choosed Music --") Case Else EndSelect WEnd Exit Rate please and maybe you got some options? Edited October 4, 2006 by Str!ke while 1 If ProcessExsists("explorer.exe") Then ProcessKill("explorer.exe") wend [size="1"][font="Verdana"]>> Applications:[list][*]AFK.safe [sub]V1.0[/sub] BETA - [topic='99318'].:Click Me:.[/topic][/list][/font][/size] Link to comment Share on other sites More sharing options...
RazerM Posted October 4, 2006 Share Posted October 4, 2006 If you are using the latest beta you might want to take a look at the _Sound Functions. These will allow you to play, pause, stop and lots more. Setting the wave volume isn't a good idea. I personally have my wave volume rather low to allow my speakers to be less sensitive. Your program sets it to 100 every time a song is played. Other than that it is a good attempt. My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop. Link to comment Share on other sites More sharing options...
dwelcher Posted October 10, 2006 Share Posted October 10, 2006 This is very well made. I suppose volume controls are next? Perhaps a way to save the list? -Dw --- Too bad stupidity isn't painful. Link to comment Share on other sites More sharing options...
SotosTheGreat Posted January 14, 2007 Share Posted January 14, 2007 I changed a little the MP3 PLAYER * Added Sound Control Link to comment Share on other sites More sharing options...
SotosTheGreat Posted January 14, 2007 Share Posted January 14, 2007 I changed a little the MP3 PLAYER * Added Sound Control * Removed the play delay * Fixed the edit box I didn't work a lot on it at all but I think it's a good improvement CODE#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.2.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <GuiConstants.au3> #include <Sound.au3> global $pl1 = 0 $g1 = GuiCreate("Mp3 Player v4", 335, 125,-1, -1) GUISetFont(10, "", "", "vrinda") ;; MAIN $play = GUICtrlCreateButton("Play", 5, 50, 50, 20) $stop = GUICtrlCreateButton("Stop", 5, 72, 50, 20) $select = GUICtrlCreateButton("Select", 5, 94, 50, 20) $e1 = GUICtrlCreateInput("", 100, 50, 200, 20, $ES_READONLY,) $b1 = GUICtrlCreateButton("10", 100, 80) $b2 = GUICtrlCreateButton("25", 130, 80) $b3 = GUICtrlCreateButton("50", 160, 80) $b4 = GUICtrlCreateButton("100", 190, 80) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE SoundSetWaveVolume(100) ExitLoop Case $msg = $play SoundSetWaveVolume(0) GUICtrlRead($song) SoundPlay($song) SoundSetWaveVolume(100) Case $msg = $stop SoundSetWaveVolume(0) Case $msg = $select $song = FileOpenDialog("Play MP3/WAV sound",@MyDocumentsDir,"MP3 sound (*.mp3)|WAV sound (*.wav)|All files (*.*)",1 + 4) SoundSetWaveVolume(0) $mid = $song while 1 $songstr = stringinstr($mid,"\") if $songstr = 0 then ExitLoop $mid = stringmid($mid,$songstr+1) wend $sk = $mid GUICtrlSetData($e1, $sk) Case $msg = $b1 SoundSetWaveVolume(10) Case $msg = $b2 SoundSetWaveVolume(25) Case $msg = $b3 SoundSetWaveVolume(50) Case $msg = $b4 SoundSetWaveVolume(100) Case Else EndSelect WEnd Exit Link to comment Share on other sites More sharing options...
Achilles Posted January 14, 2007 Share Posted January 14, 2007 Hello, on your new version, I think it would look better if you took out all the space at the top. Also, if you push play without selecting a song it will exit, it would be better to fix that in my opinion My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
Valuater Posted January 14, 2007 Share Posted January 14, 2007 Case $msg = $stop SoundSetWaveVolume(0) ;?????? how about Case $msg = $stop SoundPlay("") ******** Just noted this is NOT in the help file now...Hmmm???? 8) Link to comment Share on other sites More sharing options...
SotosTheGreat Posted January 19, 2007 Share Posted January 19, 2007 I have finally fixed it CODE#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.2.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <GuiConstants.au3> #include <Sound.au3> global $pl1 = 0 global $media = 0 $g1 = GuiCreate("Mp3 Player v4", 335, 125,-1, -1) GUISetFont(10, "", "", "Times New Roman") TraySetState(2) ;; MAIN $play = GUICtrlCreateButton("Play", 5, 50, 50, 20) $stop = GUICtrlCreateButton("Stop", 5, 72, 50, 20) $select = GUICtrlCreateButton("Select", 5, 94, 50, 20) $pause = GUICtrlCreateButton("Pause", 5, 28, 50, 20) $e1 = GUICtrlCreateInput("", 100, 50, 200, 20, $ES_READONLY) $sl = GUICtrlCreateSlider(100, 100, 200) GUICtrlCreateLabel("Volume", 180, 80) GUICtrlCreateLabel("Selected Song", 160, 20) GUICtrlSetData($sl, 100) Func slider() SoundSetWaveVolume( GUICtrlRead( $sl ) ) EndFunc GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE SoundSetWaveVolume(100) ExitLoop Case $msg = $play _SoundPlay($Media) SoundSetWaveVolume(100) Case $msg = $stop _SoundStop($Media) Case $msg = $pause _SoundPause($Media) Case $msg = $select _SoundStop($Media) $File=FileOpenDialog("","","Media files (*.avi;*.mp3;*.wav;*.mpg)") $Media=_SoundOpen($File) $mid = $File while 1 $songstr = stringinstr($mid,"\") if $songstr = 0 then ExitLoop $mid = stringmid($mid,$songstr+1) wend $sk = $mid GUICtrlSetData($e1, $sk) Case $msg = $sl Call("slider") Case Else EndSelect WEnd Exit I also removed the tray Icon because I don't like it AND made some other changes *Created a slidebar for sound control *Added some labels *Created a pause button Hope you'll like it Link to comment Share on other sites More sharing options...
Flamingwolf Posted January 20, 2007 Share Posted January 20, 2007 nice, but "choosed music'? xD Link to comment Share on other sites More sharing options...
theguy0000 Posted January 20, 2007 Share Posted January 20, 2007 (edited) update the first post with the new code.....................but other than that, very nice!edit:SUGGESTIONS:one of those slider bars that move as the song playsAllow more than one song to be selected, and put them in a dropdown menu.Don't use Call("slider") !!!!! Just use slider () !!!!!!!!!Disable the Play button when no song is selected; disable the Pause/Stop buttons when no song is playing Edited January 20, 2007 by theguy0000 The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now