Beiträge von ProgrammingDonkey

-Bugfixes
-Lock Feature hinzugefügt (Idee von turbobaby)

-Hilfe Programm einbauen
-Hall / Echo für Equalizer
-Am Equalizer wird gerade gebastelt; Der wird wahrscheinlich am Ende ganz speziell sein

Unterstützte Datei-Formate:
.mp3, .wav, .wma, .m4a, .aac, .ogg

Player:
Speichert und lädt alle Songs der Playlist
Repeat-Funktion
List-Repeat-Funktion
Shuffle-Funktion
Crossfade
Crossfade bei Positionswechsel
Fade bei Play/Pause
Beliebig viele Songs plazieren
Songsuche

Equalizer (EQ):
Speichert und lädt Frequenzen und Einstellung
Simpler On/Off Button
Scrollbar
db Add/Sub mit Slidern
Beliebig viele Frequenzen
Pitch&Speed Regler
Lautstärke Regler

Design:
Übersichtlich
Simpel
Fullscreen-only (Resizable wieder entfernt wegen schlechtem Aussehen)
Bald auch farblich änderbar (<- Kommt mit Hilfe-Programm)

#Region Setup
;Includes
#include <Bass.au3>
#include <BassConstants.au3>
#include <BassEQ.au3>
#include <GUIConstants.au3>
#include <ID3.au3>
#include <GUIListView.au3>
#include <File.au3>
#include <Array.au3>
#include <Sound.au3>
;Vars e.t.c
Start()
$sFolder = FileSelectFolder("Please select the music folder", "")
$file = ""
$IsPlaying = -1
$MusicHandle = ""
$fileindex = -1
Dim $hGUIEQListItem[0]
$Length = 1
;GUI
$hGUI = GUICreate("DemonPlay", 600, 475, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX))
$hGUIList = GUICtrlCreateListView("Filename|Title|Artist|Album|Length",0,0, 480, 400, -1, BitOR($LVS_EX_INFOTIP, $LVS_EX_FULLROWSELECT))
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
$hGUIListContext = GUICtrlCreateContextMenu($hGUIList)
$hGUIListContextPlay = GUICtrlCreateMenuItem("Play", $hGUIListContext)
$hGUIEQ = GUICtrlCreateListView("Freq|+ // -",500,0, 100, 375)
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
$hGUIEQContext = GUICtrlCreateContextMenu($hGUIEQ)
$hGUIEQContextAdd = GUICtrlCreateMenuItem("Add Setting", $hGUIEQContext)
$hGUIEQContextDelete = GUICtrlCreateMenuItem("Delete Setting", $hGUIEQContext)
$hGUIEQBtn = GUICtrlCreateButton("Off", 500, 375, 100, 25)
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
$hGUIPlayPause = GUICtrlCreateButton(ChrW(9658), 275, 400, 50, 30) ;Pause = II
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
$hGUIBackwards = GUICtrlCreateButton("<<", 225, 400, 50, 25)
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
$hGUIForwards = GUICtrlCreateButton(">>", 325, 400, 50, 25)
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
$hGUIPosition = GUICtrlCreateSlider(100, 450, 500, 25)
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
$hGUIPositionL = GUICtrlCreateLabel("0.00 / 0.00", 0, 450, 100, 25)
GUICtrlSetResizing(-1, 1)
GUICtrlSetFont(-1, 12)
_GUICtrlListView_SetColumnWidth($hGUIEQ, 0, 50)
_GUICtrlListView_SetColumnWidth($hGUIEQ, 1, 50)
$aFiles = _FileListToArray($sFolder)
Dim $aDelete[0]
for $i = 0 to UBound($aFiles)-1 step +1
If Not(StringInStr($aFiles[$i], ".mp3") <> 0 or StringInStr($aFiles[$i], ".wav") <> 0 or StringInStr($aFiles[$i], ".wma") <> 0 or StringInStr($aFiles[$i], ".m4a") <> 0 or StringInStr($aFiles[$i], ".aac") <> 0 or StringInStr($aFiles[$i], ".ogg") <> 0) Then
_ArrayAdd($aDelete, $aFiles[$i])
EndIf
Next
for $i = 0 to UBound($aDelete) -1 step +1
_ArrayDelete($aFiles, _ArraySearch($aFiles, $aDelete[$i]))
Next
Dim $hGUIListItem[UBound($aFiles)]
for $i = 0 to UBound($aFiles) -1 step +1
_ID3ReadTag($sFolder &"\"& $aFiles[$i])
$sText = $aFiles[$i] &"|"& _ID3GetTagField("Title") &"|"& _ID3GetTagField("Artist") &"|"& _ID3GetTagField("Album") &"|"& _SoundLength(_SoundOpen($sFolder &"\"& $aFiles[$i]))
$hGUIListItem[$i] = GUICtrlCreateListViewItem($sText, $hGUIList)
Next
GUISetState()
#EndRegion
$Times = 0
#Region Loop
While 1
$Time = _BASS_ChannelBytes2Seconds($MusicHandle, _BASS_ChannelGetPosition($MusicHandle, $BASS_POS_BYTE))
If Round($Time) <> $Times Then
$Times = Round($Time)
GUICtrlSetData($hGUIPosition, $Time)
GUICtrlSetData($hGUIPositionL, Round($Time) & " / "&Round($Length))
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Stop()
Case $hGUIListContextPlay
$fileindex = ControlListView($hGUI, "", $hGUIList, "GetSelected")
$file = ControlListView($hGUI, "", $hGUIList, "GetText", $fileindex)
$file = $sFolder&"\"&$file
Play($file)
Case $hGUIPlayPause
If $IsPlaying = 0 Then
_BASS_ChannelPlay($MusicHandle, 0)
$IsPlaying = 1
GUICtrlSetData($hGUIPlayPause, "II")
ElseIf $IsPlaying = 1 Then
_BASS_ChannelPause($MusicHandle)
$IsPlaying = 0
GUICtrlSetData($hGUIPlayPause, ChrW(9658))
ElseIf $isPlaying = -1 Then
$fileindex = ControlListView($hGUI, "", $hGUIList, "GetSelected")
$file = ControlListView($hGUI, "", $hGUIList, "GetText", $fileindex)
$file = $sFolder&"\"&$file
_GUICtrlListView_SetItemSelected($hGUIList, $fileindex)
$IsPlaying = 1
Play($file)
EndIf
Case $hGUIForwards
If $fileindex < UBound($aFiles)-1 Then
$fileindex += 1
Else
$fileindex = 0
EndIf
_GUICtrlListView_SetItemSelected($hGUIList, $fileindex)
$file = ControlListView($hGUI, "", $hGUIList, "GetText", $fileindex)
$file = $sFolder&"\"&$file
Play($file)
Case $hGUIBackwards
If $fileindex > 0 Then
$fileindex -= 1
Else
$fileindex = UBound($aFiles)-1
EndIf
_GUICtrlListView_SetItemSelected($hGUIList, $fileindex)
$file = ControlListView($hGUI, "", $hGUIList, "GetText", $fileindex)
$file = $sFolder&"\"&$file
Play($file)
Case $hGUIEQBtn
Dim $aFreqs[UBound($hGUIEQListItem)]
Dim $aSets[UBound($hGUIEQListItem)]
Dim $aNoSets[UBound($hGUIEQListItem)]
for $i = 0 to UBound($hGUIEQListItem)-1 step +1
$aFreqs[$i] = _GUICtrlListView_GetItemTextArray($hGUIEQ, $i)[1]
$aSets[$i] = _GUICtrlListView_GetItemTextArray($hGUIEQ, $i)[2]
$aNoSets[$i] = "+0"
Next
If GUICtrlRead($hGUIEQBtn) = "Off" Then
GUICtrlSetData($hGUIEQBtn, "On")
SetEQ($aFreqs, $aSets)
Else
GUICtrlSetData($hGUIEQBtn, "Off")
SetEQ($aFreqs, $aNoSets)
EndIf
Case $hGUIEQContextAdd
$Freq = InputBox("Frequency", "Please enter a frequency ['125' e.t.c]: ")
$Setting = InputBox("Setting", "Please enter a setting ['+2' / '-2' e.t.c]: ")
_ArrayAdd($hGUIEQListItem, GUICtrlCreateListViewItem($Freq &"|"& $Setting, $hGUIEQ))
$IsTrue = True
_GUICtrlListView_SimpleSort($hGUIEQ, $IsTrue, 0)
Case $hGUIEQContextDelete
GUICtrlDelete($hGUIEQListItem[ControlListView($hGUI, "", $hGUIEQ, "GetSelected")])
_ArrayDelete($hGUIEQListItem, ControlListView($hGUI, "", $hGUIEQ, "GetSelected"))
$IsTrue = True
_GUICtrlListView_SimpleSort($hGUIEQ, $IsTrue, 0)
EndSwitch
WEnd
#EndRegion
#Region Funcs
Func Start()
_BASS_STARTUP("bin\bass.dll")
_BASS_FX_Startup("bin\bass_fx.dll")
_BASS_Init(0, -1, 100000, 0, "")
_BASS_Init(0, -1, _Bass_GetInfo()[6], 0, "")
EndFunc

Func Play($file)
$Length = _SoundLength(_SoundOpen($file), 2) /1000
GUICtrlSetLimit($hGUIPosition, $Length)
If $MusicHandle <> "" Then
_BASS_ChannelStop($MusicHandle)
EndIf
$MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0)
_BASS_ChannelPlay($MusicHandle, 1)
$IsPlaying = 1
GUICtrlSetData($hGUIPlayPause, "II")
EndFunc

Func SetEQ($aFreqs, $aSets)
_Bass_SetEQ($MusicHandle, $aSets, $aFreqs)
EndFunc

Func Stop()
_BASS_FREE()
Exit
EndFunc
#EndRegion

ListView unsortiert:
Freq Setting [ID]
100 1 0
300 3 1
200 2 2

ListView sortiert:
Freq Setting [ID]
300 3 1
200 2 2
100 1 0

Case $hGUIEQContextAdd
$Freq = InputBox("Frequency", "Please enter a frequency ['125' e.t.c]: ")
$Setting = InputBox("Setting", "Please enter a setting ['+2' / '-2' e.t.c]: ")
_ArrayAdd($hGUIEQListItem, GUICtrlCreateListViewItem($Freq &"|"& $Setting, $hGUIEQ))
$IsTrue = True
_GUICtrlListView_SimpleSort($hGUIEQ, $IsTrue, 0)
Case $hGUIEQContextDelete
GUICtrlDelete($hGUIEQListItem[ControlListView($hGUI, "", $hGUIEQ, "GetSelected")])
_ArrayDelete($hGUIEQListItem, ControlListView($hGUI, "", $hGUIEQ, "GetSelected"))
$IsTrue = True
_GUICtrlListView_SimpleSort($hGUIEQ, $IsTrue, 0)