[RELEASE] SchabboNetX Player Beta 0.1

-Consumo di Ram Ottimizzato ;
-Aggiunte altre Estensioni di File Musicali ;
-Più libertà nella scelta del Volume ;
-Tasto Pausa ;
-3 Schede : Player , Volume , Credits .

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <audio.au3>
#region
#AutoIt3Wrapper_outfile_type=au3
#AutoIt3Wrapper_icon=ND
#AutoIt3Wrapper_outfile=SchabboNetX Player 0.1.2 Beta.au3
#AutoIt3Wrapper_compression=4
#AutoIt3Wrapper_res_fileversion=0.1.2.0
#
#AutoIt3Wrapper_res_language=1040
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#AutoIt3Wrapper_Res_File_Add=ND
#endregion
#AutoIt3Wrapper_Res_File_Add=ND
#endregion
#region _Memory

$Form2 = GUICreate("SchabboNetX Player Beta v.0.1.2", 469, 345, 208, 163)
$PageControl1 = GUICtrlCreateTab(8, 8, 452, 256)
$TabSheet1 = GUICtrlCreateTabItem("Player")
$Label0 = GUICtrlCreateLabel("SchabboNetX Player Version 0.1.2 Beta AutoIT.ForumCommunity.net", 20, 139, 438, 99)
GUICtrlSetFont(-1, 14, 400, 0, "BIRTH OF A HERO")
GUICtrlSetColor(-1, 0xFF0000)
$Browse = GUICtrlCreateButton("Browse", 16, 160, 433, 97)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$Play = GUICtrlCreateButton("Play", 16, 32, 137, 105)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$Pause = GUICtrlCreateButton("Pause", 168, 32, 129, 105)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$Stop = GUICtrlCreateButton("Stop", 312, 32, 137, 105)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$TabSheet2 = GUICtrlCreateTabItem("Volume")
$Mute = GUICtrlCreateButton("MUTE", 16, 40, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$10per = GUICtrlCreateButton("10 %", 168, 40, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$20per = GUICtrlCreateButton("20 %", 320, 40, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$30per = GUICtrlCreateButton("30 %", 16, 96, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$40per = GUICtrlCreateButton("40 %", 168, 96, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$50per = GUICtrlCreateButton("50 %", 320, 96, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$setvol = GUICtrlCreateLabel("Set Here Volume", 352, 208, 85, 18)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$Edit1 = GUICtrlCreateEdit("", 368, 232, 73, 17)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$60per = GUICtrlCreateButton("60 %", 16, 152, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$70per = GUICtrlCreateButton("70 %", 168, 152, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$80per = GUICtrlCreateButton("80 %", 320, 152, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$90per = GUICtrlCreateButton("90 %", 16, 208, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$100per = GUICtrlCreateButton("100 %", 168, 208, 121, 41)
GUICtrlSetFont(-1, 15, 400, 0, "Charlemagne Std")
$TabSheet3 = GUICtrlCreateTabItem("Credits")
$Label2 = GUICtrlCreateLabel("SchabboNetX", 16, 32, 438, 99)
GUICtrlSetFont(-1, 64, 400, 0, "BIRTH OF A HERO")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("|P|L|A|Y|E|R|", 16, 128, 108, 45)
GUICtrlSetFont(-1, 28, 400, 0, "BIRTH OF A HERO")
GUICtrlSetColor(-1, 0x008000)
$Label4 = GUICtrlCreateLabel("Make Your Own Life !", 264, 128, 195, 34)
GUICtrlSetFont(-1, 20, 400, 0, "BIRTH OF A HERO")
GUICtrlSetColor(-1, 0x0000FF)
$Label5 = GUICtrlCreateLabel("Version 0.1.2 Beta", 128, 152, 93, 21)
GUICtrlSetFont(-1, 12, 400, 0, "BIRTH OF A HERO")
GUICtrlSetColor(-1, 0x808000)
$Label6 = GUICtrlCreateLabel("Visit AutoIT Fan Club Forum : ", 16, 208, 153, 21)
GUICtrlSetFont(-1, 12, 400, 0, "BIRTH OF A HERO")
$Label7 = GUICtrlCreateLabel("http://autoit.forumcommunity.net", 176, 200, 254, 27)
GUICtrlSetFont(-1, 16, 400, 0, "BIRTH OF A HERO")
GUICtrlSetColor(-1, 0x0000FF)
$Label8 = GUICtrlCreateLabel("Send me a mail to : Schabbo97@gmail.com or Alexx.97@hotmail.it ", 16, 232, 373, 21)
GUICtrlSetFont(-1, 12, 400, 0, "BIRTH OF A HERO")
GUICtrlCreateTabItem("")
$Button2 = GUICtrlCreateButton("Exit", 198, 272, 75, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form2)
Dim $StatusBar1_PartsWidth[3] = [50, 100, -1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "", 0)
_GUICtrlStatusBar_SetText($StatusBar1, "", 1)
_GUICtrlStatusBar_SetText($StatusBar1, "", 2)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)
$Label9 = GUICtrlCreateLabel("SchabboNetX Player v.0.1.2 Beta | All Right Reserved 2011 | ©®", 72, 304, 313, 17)
GUISetState(@SW_SHOW)


While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit

               Case $Label2
               
       Case $Browse
               $File = (FileOpenDiaLog( "Select a Song",@ScriptDir, "Solo File Musicali (*.mp3;*.ogg;*.wma;*.wav;*.mpc)") )
       Case $Play
               _SoundOpen ($File)
               _SoundPlay ($File)
       Case $Pause
               _SoundPause ($File)
       Case $Stop
               _SoundStop ($File)
       Case $Mute
               SoundSetWaveVolume (0)
       Case $10per
               SoundSetWaveVolume (10)
       Case $20per
               SoundSetWaveVolume (20)
       Case $30per
               SoundSetWaveVolume (30)
       Case $40per
               SoundSetWaveVolume (40)
       Case $50per
               SoundSetWaveVolume (50)
       Case $60per
               SoundSetWaveVolume (60)
       Case $70per
               SoundSetWaveVolume (70)
       Case $80per
               SoundSetWaveVolume (80)
       Case $90per
               SoundSetWaveVolume (90)
       Case $100per
               SoundSetWaveVolume (100)
       Case $Edit1
               SoundSetWaveVolume ()
       Case $button2
               exit
       
       
       EndSwitch
WEnd