AutoIt Français

bonjour ,

voila un petit script que je viens de crée , anti-yaourt. explications :
je le regret de vous dire qu'en Europe (et peut être mondial qui sais) , nous faisons partit des plus nul en Anglais (généralement). Chanter en yaourt est une technique qui consiste à chanter en produisant des sons, des onomatopées, des syllabes qui font penser qu'il s'agit d'une langue réelle. Voila qu'intervient mon script ! il permet dans une salle fenêtre de mettre ses paroles (fichier texte) et sa musique (en mp3). vous cliquez sur la flèche, et c'est parti ! la musique commence. vous pouvez aussi la mettre en pause. j'ai intégré une gui avec internet pour aller chercher son fichier txt.

image :

je vous montre la source :

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <Sound.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Anti yaourt",  481, 508, 330, 0)
Global $MenuItem1 = GUICtrlCreateMenu("Menu")
Global $MenuItem2 = GUICtrlCreateMenuItem("chercher un texte", $MenuItem1)
GUISetBkColor(0xFFFFFF)
Global $Edit1 = GUICtrlCreateEdit("", 8, 72, 465, 297)
GUICtrlSetData(-1, "le texte s'affichera ici")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xF0F0F0)
Global $Label1 = GUICtrlCreateLabel("emplacement : ", 72, 32, 399, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Emplacement :", 72, 392, 397, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Pic1 = GUICtrlCreatePic(@ScriptDir&"\data\images.jpg", 26, 384, 33, 34, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic2 = GUICtrlCreatePic(@ScriptDir&"\data\61149.gif", 16, 16, 49, 41, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic3 = GUICtrlCreatePic(@ScriptDir&"\data\play_button.gif", 168, 440, 49, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic4 = GUICtrlCreatePic(@ScriptDir&"\data\pause.jpg", 232, 440, 49, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label3 = GUICtrlCreateLabel("By Kevzi", 408, 456, 45, 17)
GUICtrlSetColor(-1, 0xFF0000)
Global $Label4 = GUICtrlCreateLabel("Sound : ", 40, 448, 94, 17)
GUISetState()
#EndRegion ### END Koda GUI section ###

$souce = ''
$sound = 0

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
Case $Pic2
    $SourceFile = FileOpenDialog("anti yaourt",@ScriptDir&'\',"fichiers txt (*.txt)",9)
              GUICtrlSetData($Label1,""& $SourceFile)
    If $SourceFile = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

    $line = FileRead($SourceFile)
    If @error = -1 Then ExitLoop
    GUICtrlSetData($Edit1,$line)

Case $Pic1
    $SourceFile2 = FileOpenDialog("anti yahourt",@ScriptDir&'\',"fichiers mp3 (*.mp3)",9)
              GUICtrlSetData($Label2, $SourceFile2)
              If $sound = 0 Then
            $sound = _SoundOpen($SourceFile2)
             EndIf
          Case $Pic3
             $Label4 = GUICtrlCreateLabel("Sound : play ", 40, 448, 94, 17)
              _SoundPlay($sound)

          Case $Pic4
               $Label4 = GUICtrlCreateLabel("Sound : pause ", 40, 448, 94, 17)
              _SoundPause($sound)

          Case $MenuItem2
              GUI()

 EndSwitch
WEnd
FileClose($SourceFile)
_SoundClose($SourceFile2)

Func GUI()
    _IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
    $GUI = GUICreate("Anti yaourt - Internet", 540, 380, _
        (@DesktopWidth - 540) / 2, (@DesktopHeight - 380) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
GUISetState(@SW_HIDE)
_IENavigate ($oIE, "http://www.google.fr")
GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            GUISetState(@SW_HIDE)
        Case $msg = $GUI_Button_Home
            _IENavigate ($oIE, "http://www.google.fr")
        Case $msg = $GUI_Button_Back
            _IEAction ($oIE, "back")
        Case $msg = $GUI_Button_Forward
            _IEAction ($oIE, "forward")
        Case $msg = $GUI_Button_Stop
            _IEAction ($oIE, "stop")
    EndSelect
WEnd

GUIDelete()

Exit
EndFunc

les images + la source :

data.rar: (7.77 Kio) Téléchargé 218 fois

pour ceux qui ont des idées , je suis prêt à les entendre car je suis enthousiaste à l'idée de peaufiner mon petit projet

C'est pas mal, mais ce qui serait GÉNIAL, ça serait que le mot qui est entrain de se faire chanter soit surligné, comme ça on pourrait suivre même si on a arrêté de regardé quelques secondes.

ouh la ! je sais pas comment procéder ! sinon c'est vrai que c'est intéressant à faire

Eh bien il faudrait que tu trouve ( sur internet ) des fichiers qui contiennent les paroles et le moment ou elles sont dites.
Comme pour les fichiers qui gèrent les sous-titres de films.
Mais je suis pas sûre que ça existe pour les chansons.

On appel ça des "karaoké"

je me disais aussi que c'était des fichiers karaoké. si vous avez d'autres suggestions ou
bug du script , je vous écoute

AutoIt Français

[Ex] lecture fichiers texte et musique

[Ex] lecture fichiers texte et musique

Re: [Ex] lecture fichiers texte et musique

Re: [Ex] lecture fichiers texte et musique

Re: [Ex] lecture fichiers texte et musique

Re: [Ex] lecture fichiers texte et musique

Re: [Ex] lecture fichiers texte et musique