[Ex] Music Player

[Uranium]

Voila mon premier post , je crois que j'ai bien respecté les règles de post :p

Je vous présente mon 'ancien' projet : Music Player

Il gère une liste de lecture et prends assez peu de RAM
Merci de me dire les erreurs que vous trouverez
Il est fonctionnel mais je vais continuer à l'améliorer en commençant par :

Code : Tout sélectionner

Le mettre par lecteur par défaut ( ouvrir avec > ) (Fini à moitié manque un rzegedit write :/)
Gérez plusieurs liste de lecture 
Changer l'affichage
Lyrics ( fini à moitié , bug sur certains titre)
Et sa me paraît assez pour le moment :)
 

J'utilise trois UDFs dont un trouver ici , je crois ( ressource.au3) et deux autre sûr du forum anglais (ID3 et Taost)
Soyer gentil pour mon premier programme et mon premier post

Edit : Mmh il faut lancer le script Aide en premier pour avoir sa liste de lecture , car le ini est configurée pour la mienne

Nouvelle version ..

[TommyDDR]

J'ai regarder vite fait le début du script, vous avez du remarqué que vous aviez un if au tout début contenant la même chose si on entre dans le if ou si on rentre dans le else.

Quand vous codez, si vous dupliquez du code c'est qu'il y a une autre façon de faire (plus propre ^^)

Voila la partie du code résuite :

► Afficher le textecode

Code : Tout sélectionner

Local $IsTopMost = 0
If IniRead(@ScriptDir & "\Paramètres.ini", "Fenêtre", "Top", 0) = 'True' Then
    $IsTopMost = $WS_EX_TOPMOST
EndIf
$Form1_1 = GUICreate("LMFAO - Player", 311, 351, 698, 113, BitOR($GUI_SS_DEFAULT_GUI, $DS_CONTEXTHELP), BitOR($WS_EX_APPWINDOW, $WS_EX_CONTEXTHELP, $IsTopMost, $WS_EX_WINDOWEDGE))
$MenuItem1 = GUICtrlCreateMenu("&Option")
$MenuItem2 = GUICtrlCreateMenuItem("Changer de musique", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Aide", $MenuItem1)
$Pic1 = GUICtrlCreatePic("", 8, 8, 169, 153)
GUICtrlSetImage(-1, @ScriptDir & "/AlbumArt.jpg")
$Label1 = GUICtrlCreateLabel("Titre :", 8, 200, 172, 17)
$Label2 = GUICtrlCreateLabel("Album :", 8, 168, 164, 17)
$Button1 = GUICtrlCreateButton("<", 8, 264, 41, 25)
$Button2 = GUICtrlCreateButton(">", 136, 264, 41, 25)
$Progress1 = GUICtrlCreateProgress(8, 232, 169, 17)
GUICtrlSetColor(-1, 0x008000)
$Button3 = GUICtrlCreateButton("Play", 56, 264, 73, 25)
$Button4 = GUICtrlCreateButton("Pause", 16, 296, 73, 25)
$Button5 = GUICtrlCreateButton("Stop", 104, 296, 73, 25)
$List1 = GUICtrlCreateList("", 184, 32, 121, 227)
GUICtrlSetData(-1, "")
$Label3 = GUICtrlCreateLabel("Liste de lecture :", 184, 8, 118, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Ecouter = GUICtrlCreateButton("Ecouter", 200, 264, 97, 17)
$Suppr = GUICtrlCreateButton("Supprimer", 200, 288, 97, 17)
$Renommer = GUICtrlCreateButton("Renommer", 200, 312, 97, 17)
$Slider1 = GUICtrlCreateSlider(0, 337, 310, 17, BitOR($GUI_SS_DEFAULT_SLIDER, $TBS_NOTICKS))
GUISetState(@SW_SHOW)

[Uranium]

Merci TommyDDR , c'est vrai que sa fait (beaucoup) plus propre et (beaucoup) plus court
Je pensais pas que l'on pouvais faire sa , c'est beaucoup plus clair dans la lecture du code comme sa

[TommyDDR]

Tout se situe au niveau du :

Code : Tout sélectionner

BitOR($WS_EX_APPWINDOW, $WS_EX_CONTEXTHELP, $IsTopMost, $WS_EX_WINDOWEDGE)

En effet, si $IsTopMost vaut $WS_EX_TOPMOST, alors on ajoutera les bits concernés au total, sinon, si $IsTopMost vaut 0, et bien un OR de 0 n'as aucun effet dans le résultat (0 OR 0 = 0 | 1 OR 0 = 1)

On peut donc mettre 0 dans la chaîne.

Et au pire des cas, vous auriez quand même pu faire :

► Afficher le textecode

Code : Tout sélectionner

If IniRead(@ScriptDir & "\Paramètres.ini", "Fenêtre", "Top", 0) = 'True' Then
    $Form1_1 = GUICreate("LMFAO - Player", 311, 351, 698, 113, BitOR($GUI_SS_DEFAULT_GUI, $DS_CONTEXTHELP), BitOR($WS_EX_APPWINDOW, $WS_EX_CONTEXTHELP, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
Else
    $Form1_1 = GUICreate("LMFAO - Player", 311, 351, 698, 113, BitOR($GUI_SS_DEFAULT_GUI, $DS_CONTEXTHELP), BitOR($WS_EX_APPWINDOW, $WS_EX_CONTEXTHELP, $WS_EX_WINDOWEDGE))
EndIf

Puis le reste ^^

[blacksoul305]

Salut,

peut être tout regroupé en un seul script, et lorsque les labels contiennent un lien vers internet, changer le pointeur.

Sinon, beau travail !