[Ex] lecture fichiers texte et musique

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

[Ex] lecture fichiers texte et musique

#1

Message par Kevzi »

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 :
2011-09-07_152558.png
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é 196 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
Avatar du membre
TT22
Membre émérite
Membre émérite
Messages : 1566
Enregistré le : lun. 18 avr. 2011 15:21
Localisation : La Quatrième Dimension
Status : Hors ligne

Re: [Ex] lecture fichiers texte et musique

#2

Message par TT22 »

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.
Cordialement,
TT22
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] lecture fichiers texte et musique

#3

Message par Kevzi »

ouh la ! je sais pas comment procéder ! sinon c'est vrai que c'est intéressant à faire
Avatar du membre
TT22
Membre émérite
Membre émérite
Messages : 1566
Enregistré le : lun. 18 avr. 2011 15:21
Localisation : La Quatrième Dimension
Status : Hors ligne

Re: [Ex] lecture fichiers texte et musique

#4

Message par TT22 »

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.
Cordialement,
TT22
Avatar du membre
Iste
Niveau 11
Niveau 11
Messages : 1870
Enregistré le : jeu. 04 déc. 2008 14:21
Localisation : 76
Status : Hors ligne

Re: [Ex] lecture fichiers texte et musique

#5

Message par Iste »

On appel ça des "karaoké"
Signez ici
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] lecture fichiers texte et musique

#6

Message par Kevzi »

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