Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] AudioLect
Auteur Message
Répondre en citant
Message [Prog] AudioLect 
Bonjour !

Voici mon deuxième programme AutoIt : AudioLect

A quoi sert-il ?
Il permet de lire des fichiers audio

Comment l'utiliser ?
Lors de la première ouverture, il crée un dossier "Musique" dans son dossier. Il vous dira une erreur. Il vous suffira ensuite d'y mettre vos fichiers audio

Que faut-il pour l'utiliser ?
Il vous suffit d'avoir des fichiers .mp3 et .wav

A quoi il ressemble ?
Screenshot du logiciel :


Quel est le code ?
Le voici :

Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("AudioLect", 346, 236, 192, 124)
Global $Label1 = GUICtrlCreateLabel("AudioLect", 88, 8, 175, 45)
GUICtrlSetFont(-1, 30, 400, 0, "Modern No. 20")
Global $Button1 = GUICtrlCreateButton("Jouer", 88, 200, 75, 25)
Global $Button2 = GUICtrlCreateButton("Stop", 184, 200, 75, 25)
Global $Button3 = GUICtrlCreateButton("Précédent", 8, 200, 75, 25)
Global $Button4 = GUICtrlCreateButton("Suivant", 264, 200, 75, 25)
Global $Progress1 = GUICtrlCreateProgress(24, 112, 294, 17, BitOR($PBS_SMOOTH, $WS_BORDER))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0xFFFFFF)
Global $Slider1 = GUICtrlCreateSlider(125, 144, 150, 45)
GUICtrlSetData(-1, 50)
Global $Label2 = GUICtrlCreateLabel("Musique :", 32, 80, 50, 17)
Global $Label3 = GUICtrlCreateLabel("Musique", 88, 80, 300,17)
Global $Label4 = GUICtrlCreateLabel("Volume :", 70, 152, 45, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


If FileExists(@ScriptDir & "\Musique") = 0 Then
   DirCreate(@ScriptDir & "\Musique")
EndIF

$listeFichiers = _FileListToArrayRec(@ScriptDir&"\Musique", "*.mp3;*.wav", 1, 0, 1, 0)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "AudioLect", "ERREUR : " & @error & @CRLF & "Il n'y a peut être pas de fichier")

Dim $Number = 1
Dim $Set = 0
Dim $Sound

GUICtrlSetData($Label3,$listeFichiers[$Number])

While 1
   If $Set <> 0 Then
      If _SoundLength($Sound) = _SoundPos($Sound) Then
         $Set = 0
         _SoundClose($Sound)
         GUICtrlSetData($Button1,"Jouer")
         $Number = $Number + 1
         If $Number = Ubound($listeFichiers) Then
            $Number = 1
         EndIf
         GUICtrlSetData($Label3,$listeFichiers[$Number])
         $Sound = _SoundOpen(@ScriptDir &"\Musique\"&$listeFichiers[$Number])
         If @error = 2 Then
            MsgBox($MB_SYSTEMMODAL, "Error", "Ce fichier n'existe pas")
         Else
            _SoundPlay($Sound)
            $Set = 1
            GUICtrlSetData($Button1, "Pause")
         EndIf
      Else
         $percent = Round((_SoundPos($sound, 2)/_SoundLength($sound, 2))*100)
         GuiCtrlSetData($Progress1, $percent)
      EndIf
   EndIf
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         If $Set = 0 Then
            $Sound = _SoundOpen(@ScriptDir &"\Musique\"&$listeFichiers[$Number])
            If @error = 2 Then
               MsgBox($MB_SYSTEMMODAL, "Error", "Ce fichier n'existe pas")
            Else
               _SoundPlay($Sound)
               $Set = 1
               GUICtrlSetData($Button1, "Pause")
            EndIf
         ElseIf $Set = 1 Then
            _SoundPause($Sound)
            GUICtrlSetData($Button1, "Reprise")
            $Set = 2
         Else
            _SoundResume($Sound)
            GUICtrlSetData($Button1, "Pause")
            $Set = 1
         EndIf
      Case $Button2
         If $Set <> 0 Then
            _SoundClose($Sound)
            GUICtrlSetData($Progress1,0)
            GUICtrlSetData($Button1,"Jouer")
            $Set = 0
         EndIf
      Case $Button4
         If $Set <> 0 Then
            _SoundClose($Sound)
            GUICtrlSetData($Progress1,0)
         EndIf
         $Number = $Number + 1
         If $Number = Ubound($listeFichiers) Then
            $Number = 1
         EndIf
         GUICtrlSetData($Label3,$listeFichiers[$Number])
      Case $Button3
         If $Set <> 0 Then
            _SoundClose($Sound)
            GUICtrlSetData($Progress1,0)
         EndIf
         $Number = $Number - 1
         If $Number = 0 Then
            $Number = Ubound($listeFichiers)-1
         EndIf
         GUICtrlSetData($Label3,$listeFichiers[$Number])
      Case $Slider1
         SoundSetWaveVolume(GUICtrlRead($Slider1))
   EndSwitch
WEnd



Un lien pour le télécharger ?
Bien sur,
32bits : http://www.mediafire.com/download/tternvg2sq9ggo7/AudioLect.Exe
64bits : http://www.mediafire.com/download/c3skx50a2bhj3ho/AudioLect-64bits.Exe

Bonne journée




______________________________________________________
Je ne suis pas ce que je suis. Mais si j'étais ce que je suis alors je ne serais pas ce que je suis actuellement (vous avez 2 heures).

Python : 90%
Batch : 65%
AutoIt : 20%

Site : http://lavapower.890m.com
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] AudioLect 
Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [Prog] AudioLect 
Merci (même si je répond un peu tard)




______________________________________________________
Je ne suis pas ce que je suis. Mais si j'étais ce que je suis alors je ne serais pas ce que je suis actuellement (vous avez 2 heures).

Python : 90%
Batch : 65%
AutoIt : 20%

Site : http://lavapower.890m.com
Visiter le site web du posteur
Répondre en citant
Message [Prog] AudioLect 
Oh j'ai codé la même chose en batch mais je l'ai jamais posté xD
Il ressemble à ça pour les curieux :p

http://img.xooimage.com/files110/b/9/1/capture-d-cran-37--504f8b9.png
Tout les contrôles au clavier et ya une liste en autoit dans le tray Wink




______________________________________________________
Visiter le site web du posteur
Message [Prog] AudioLect 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch