Jump to content

MP3 player

i542

By i542,
in AutoIt Example Scripts

 Share

Music  

47 members have voted

  1. 1. With what player you listening music?

    • Windows Media Player
      14
    • Winamp
      18
    • Some other
      13
    • I don't listening music
      2

Recommended Posts

i542 Universalist

i542

Posted
Posted (edited)

I asked myself: 'What player users use? Maybe it needs some simple and not too big MP3 player?'. So, if you want something more simplier and more smaller, you're come to right place! MP3WAV player will fit your needs!

It is simple: two steps and music playing.

  • Open file you want play
  • Press Play button
Interested? More informations in readme.

i542

EDIT: Current version: 1.1

MP3_player_1.1.zip

Edited by i542

I can do signature me.

Link to comment
Share on other sites
i542 Universalist

i542

Posted
  • Author
Posted

here's a fading in addon

SoundSetWaveVolume("0)

for $a=0 to 100

sleep(30)

SoundSetWaveVolume(""& $a &"")

next

Nice :D ! I marked with red all errors (probably with that " before zero script willn't run). But, I will add it in 1.1.

i542

I can do signature me.

Link to comment
Share on other sites
Daniel W. Universalist

Daniel W.

Posted
Posted 

Opt("GUIOnEventMode" ,  1 )
Opt("TrayMenuMode",1)

#include <GUIConstants.au3>

TraySetIcon(@Scriptdir & "\mp3player.ico")
TraySetTooltip("MP3 player 1.0")
$run = TrayCreateItem("Run")
$exit = TrayCreateItem("Exit")

Global $song = "no"

$player = GUICreate("MP3\WAV player", 119, 90, 192, 125, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
$play = GUICtrlCreateButton("Play", 3, 3, 58, 25)
$stop = GUICtrlCreateButton("Stop", 63, 3, 52, 25)
$open = GUICtrlCreateButton("Open", 63, 57, 52, 25)
$setvol = GUICtrlCreateButton("Set volume", 3, 30, 58, 25)
$close = GUICtrlCreateButton("Close", 63, 30, 52, 25)
$noterun = GUICtrlCreateButton("Notes", 3, 57, 58, 25)
$notes = GUICreate("Notes", 248, 264, 192, 125, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
$nedit= GUICtrlCreateEdit("", 3, 3, 241, 223, -1, $WS_EX_CLIENTEDGE)
$nclose = GUICtrlCreateButton("Close", 3, 228, 103, 25)
$setvolume = GUICreate("Set volume", 287, 50, 192, 125, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
$volslider = GUICtrlCreateSlider(6, 6, 280, 25)
GUICtrlSetData($volslider,100)
GUICtrlCreateLabel("Min", 12, 33, 21, 17)
GUICtrlCreateLabel("Max", 255, 30, 24, 17)
$volokay= GUICtrlCreateButton("OK", 126, 24, 34, 19)

GUISetState(@SW_HIDE, $setvolume)
GUISetState(@SW_SHOW,$player)
GUISetState(@SW_HIDE, $notes)

GUICtrlSetOnEvent( $exit , "_Exit" )
GUISetOnEvent( $GUI_EVENT_CLOSE , "_ExitHide" )
GUICtrlSetOnEvent( $close , "_ExitHide" )
GUICtrlSetOnEvent( $play , "_Play" )
GUICtrlSetOnEvent( $noterun , "_Note" )
GUICtrlSetOnEvent( $volokay , "_Vol" )
GUICtrlSetOnEvent( $stop , "_Soundplay" )
GUICtrlSetOnEvent( $nclose , "_nclose" )
GUICtrlSetOnEvent( $setvol , "_SetVol" )
GUICtrlSetOnEvent( $open , "_Open" )

Func  _Open()
    $song = FileOpenDialog("Open",@MyDocumentsDir,"MP3 files (*.mp3)|WAV files (*.wav)")
EndFunc

Func _SetVol()
    GUISetState(@SW_SHOW,$setvolume )
EndFunc

Func _nclose()
    $array=MouseGetPos()
    GuiSetState(@SW_HIDE, $notes )
EndFunc

Func _Soundplay()
    SoundPlay("")
EndFunc

FUnc _ExitHide()
    GuiSetState(@SW_HIDE, $player)
    GUISetState(@SW_HIDE, $setvolume)
    GUISetState(@SW_HIDE, $notes)
EndFunc

Func _Vol()
    SoundSetWaveVolume(GUICtrlRead( $volslider ) )
    GUISetState(@SW_HIDE,$setvolume)
EndFunc

Func _Note()
    GUISetState(@SW_SHOW, $notes)
EndFunc

Func _Play()
    If $song = "no" Then
        MsgBox(16,"No file to play","No file to play. Select OPEN command.")
    Else
        SoundPlay($song)
    EndIf   
EndFunc

Func _Exit()
    Exit
EndFunc

While 1
    $tmsg = TrayGetMsg()
    ToolTip("")
    Select
        Case $tmsg = $run
            GUISetState(@SW_HIDE, $setvolume)
            GUISetState(@SW_SHOW,$player)
            GUISetState(@SW_HIDE, $notes)
    EndSelect
WEnd

Here is the code without running through a big while loop. So it doesnt need much cpu

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Link to comment
Share on other sites
Vicks Universalist

Vicks

Posted
Posted

not to be rude, but in my though of mind it isn't a media player without previous and next or atleast not a media player i would use, not trying to be mean you have a nice script but i have alot of music and im pretty lazy and well playing games it is hard work to keep opening up each song, but i like it maybe you can add thoses to functions if you would like, its just an idea

[s]Autoit[/s]
Link to comment
Share on other sites
i542 Universalist

i542

Posted
  • Author
Posted

not to be rude, but in my though of mind it isn't a media player without previous and next or atleast not a media player i would use, not trying to be mean you have a nice script but i have alot of music and im pretty lazy and well playing games it is hard work to keep opening up each song, but i like it maybe you can add thoses to functions if you would like, its just an idea

Yes, I will think about that. Sorry, too busy :wacko: , can't before sunday.

maybe some skin

How?

Here is the code without running through a big while loop. So it doesnt need much cpu

I don't prefer working in functions. CPU isn't big problem (except me... :D ).

i don't have WinRAR or any other rar file programs, mind putting it as a .zip?

I promiss next version in zip, or can download from www.download.com if want.

i542

I can do signature me.

Link to comment
Share on other sites
i542 Universalist

i542

Posted
  • Author
Posted

Omg, you just said you wanted a simple media player. And you take the first change to get to put some more in then you don't really need.

Yes, but I can put it in Set volume.

I can do signature me.

Link to comment
Share on other sites
i542 Universalist

i542

Posted
  • Author
Posted

Windows comes with a standard volume control. You are just editing this by the command you are using, so it's kind of double. I think you shouldn't do it if you want to keep it simple.

Yes, but that volume control has very big GUI, and isn't more better I have only one control for all?

i542

I can do signature me.

Link to comment
Share on other sites
jvanegmond Universalist

jvanegmond

Posted
Posted (edited)

Yes, but that volume control has very big GUI, and isn't more better I have only one control for all?

i542

Do you think 447 by 270 is very big for a window that can be turned on and off in the blink of an eye? I don't.

Plus, you can always just single click the volume tray.

Edit: (i'm just helping you getting this topic on top :D)

Edited by Manadar

github.com/jvanegmond

Link to comment
Share on other sites
i542 Universalist

i542

Posted
  • Author
Posted

Do you think 447 by 270 is very big for a window that can be turned on and off in the blink of an eye? I don't.

Plus, you can always just single click the volume tray.

Edit: (i'm just helping you getting this topic on top :wacko: )

No problem. :D

1.1 is NOT some special summer pack (you will get it for 7 days) but I've going at some island and can't develop nothing. For pack (.ZIP file!!!!!) look first post.

i542

I can do signature me.

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
Go to topic listing

  • Recently Browsing   0 members

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