[R] Aide pour script

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

[R] Aide pour script

#1

Message par Kevzi »

Bonjour , j'ai crée un petit programme qui permet de lire des sons en cliquant que le bouton choisit (beatbox). le problème, c'est que dans mon programme, il n'y a que les "bruitages" qui marche et pas les "sons". vous comprendrez mieux si je vous montre la source du code:

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.6.0
 Auteur:         Kevzi

 Fonction du Script :Genéérateur de son
    Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;##################GUI1###########################################
Global $Form1 = GUICreate("BeatBoxIT_by_Kevzi", 342, 277, 337, 135)
Global $MenuItem1 = GUICtrlCreateMenu("&Menu")
Global $MenuItem2 = GUICtrlCreateMenuItem("Crédit", $MenuItem1)
GUISetCursor (0)
GUISetBkColor(0x808080)
Global $Button2b = GUICtrlCreateButton("Bruit1", 16, 16, 57, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xC0DCC0)
Global $Button3b = GUICtrlCreateButton("Bruit4", 16, 152, 57, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xA6CAF0)
Global $Button4b = GUICtrlCreateButton("Bruit3", 136, 88, 57, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x99B4D1)
Global $Button5b = GUICtrlCreateButton("Bruit2", 248, 16, 59, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xA6CAF0)
Global $Button1b = GUICtrlCreateButton("Bruit5", 264, 152, 57, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x3399FF)
;###########################################################################

;##################GUI2########################################
Global $Form2 = GUICreate("BeatBox_by_Kevzi", 341, 275, 385, 135)
Global $MenuItem1 = GUICtrlCreateMenu("&Menu")
Global $MenuItem2 = GUICtrlCreateMenuItem("Crédit", $MenuItem1)
GUISetBkColor(0x808080)
Global $Button1s = GUICtrlCreateButton("Son1", 24, 16, 57, 49, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
Global $Button2s = GUICtrlCreateButton("Son2", 248, 16, 57, 49, $WS_GROUP)
Global $Button3s = GUICtrlCreateButton("Son3", 136, 96, 57, 49, $WS_GROUP)
Global $Button4s = GUICtrlCreateButton("Son4", 24, 168, 57, 49, $WS_GROUP)
Global $Button5s = GUICtrlCreateButton("Son5", 256, 168, 57, 49, $WS_GROUP)
Global $Checkbox1 = GUICtrlCreateCheckbox("Son", 24, 232, 73, 17)
Global $Checkbox2 = GUICtrlCreateCheckbox("Bruitage", 184, 232, 57, 17)
;##########################################################################

; ########## GUI 3 ##########
$GUI1 = GUICreate("BeatBox_by_Kevzi" , 200, 200, 200, 500)
$lbl = GUICtrlCreateLabel("BeatBox", 85, 10, 120, 24)
$boutonSon = GUICtrlCreateButton("SON", 60, 90, 75, 25)
$boutonBruit = GUICtrlCreateButton("bruitage" , 60, 140, 75, 25)
; #######################################################

GUISetState(@SW_SHOW, $GUI1)



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit

    Case $boutonBruit
        MsgBox(0, "beatbox" , "affichage des bruits")
        GUISetState(@SW_SHOW, $Form1)

    Case $boutonSon
        MsgBox(0, "beatbox" , "affichage des sons")
        GUISetState(@SW_SHOW, $Form2)

    Case $Checkbox2
        MsgBox(0, "beatbox" , "masquage bruitage")
        GUISetState(@SW_HIDE, $Form1)

    Case $Checkbox1
        MsgBox(0, "beatbox" , "masquage son")
        GUISetState(@SW_HIDE, $Form2)

    Case $MenuItem2
        MsgBox(0, "beatbox" , "programme crée par Kevzi")

    Case $Button1b
        SoundPlay(@ScriptDir&"\sounds\hiphop_1.wav")

    Case $Button2b
        SoundPlay(@ScriptDir&"\sounds\hiphop_2.wav")

    Case $Button3b
        SoundPlay(@ScriptDir&"\sounds\hiphop_3.wav")

    Case $Button4b
        SoundPlay(@ScriptDir&"\sounds\hiphop_4.wav")

    Case $Button5b
        SoundPlay(@ScriptDir&"\sounds\hiphop_5.wav")

    Case $Button1s
        SoundPlay(@ScriptDir&"\souds\bongo_1.wav")

    Case $Button2s
        SoundPlay(@ScriptDir&"\souds\bongo_2.wav")

    Case $Button3s
        SoundPlay(@ScriptDir&"\souds\bongo_3.wav")

    Case $Button4s
        SoundPlay(@ScriptDir&"\souds\bongo_4.wav")

    Case $Button5s
        SoundPlay(@ScriptDir&"\souds\bongo_5.wav")

EndSwitch
WEnd
merci
Modifié en dernier par Kevzi le lun. 18 juil. 2011 16:31, modifié 2 fois.
Haut
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: [..]aide pour srcipt

#2

Message par TT22 »

Essaye à la place de SoundPlay :

Code : Tout sélectionner

$sound = _SoundOpen(Chemin\d\accès\de\ton\fichier)
_SoundPlay($sound)
_SoundClose($sound)
Edit : Et n’oublie pas #include <Sound.au3>
Cordialement,
TT22
Haut
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [..]aide pour srcipt

#3

Message par Kevzi »

désolé mais sa ne marche pas
Haut
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: [..]aide pour srcipt

#4

Message par TT22 »

Tu as bien mis le #include <Sound.au3> ?
Modifié en dernier par TT22 le lun. 18 juil. 2011 16:00, modifié 1 fois.
Cordialement,
TT22
Haut
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [..]aide pour srcipt

#5

Message par Kevzi »

oui je ne l'ai pas oublié.

edit: il n'y pas d'erreur, mais on n'entend aucun son.
Haut
Avatar du membre
aurel2108
Niveau 4
Niveau 4
Messages : 90
Enregistré le : dim. 17 juil. 2011 21:19
Status : Hors ligne

Re: [..]aide pour srcipt

#6

Message par aurel2108 »

Bonjour,

De plus, un petit Bonjour ne fait jamais de mal. ;)
Vérifie que des dossiers souds et sounds sont bien dans le dossier contenant ton script et si ils contiennent bien les fichier sons.
Sinon, est-ce que _SoundOpen retourne une erreur ou il ne joue rien ?

EDIT : Bizarre... Vérifie du côté de tes haut-parleurs, je ne vois pas d'autres explications. :/
Modifié en dernier par aurel2108 le lun. 18 juil. 2011 16:02, modifié 1 fois.
Ne rien dire même quand on sait peut dés fois être la meilleure des solutions. (aurel2108)
Haut
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: [..]aide pour srcipt

#7

Message par TT22 »

Est-ce que tu peux zipper le dossier avec touts tes sons et ton script pour nous l'envoyer (comme ça, on pourra tester dans les mêmes conditions que toi)
Cordialement,
TT22
Haut
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [..]aide pour srcipt

#8

Message par Kevzi »

excusez moi de mon impolitesse... sinon aucune erreur, c'est juste le son qu'on entend aucun son et oui, j'ai mit le bon nom du dossier. j'envoie le script compilé ?
Haut
Avatar du membre
aurel2108
Niveau 4
Niveau 4
Messages : 90
Enregistré le : dim. 17 juil. 2011 21:19
Status : Hors ligne

Re: [..]aide pour srcipt

#9

Message par aurel2108 »

Oui donne nous le zip qu'on puisse jeter un coup d'oeil. :)
Sinon, vérifie du côté de tes haut-parleurs, je ne vois pas beaucoup d'autres explications. :/

Non pas compilé, donne nous la source, c'est plus pratique. :x
Ne rien dire même quand on sait peut dés fois être la meilleure des solutions. (aurel2108)
Haut
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: [..]aide pour srcipt

#10

Message par TT22 »

Moi j'ai rien dit pour ton impolitesse :wink: mais c'est vrais que c'est dans les Règles et Mentions Légales du site autoitscript.fr.
Un sujet doit commencer par un "Bonjour", et se terminer par une formule de politesse comme "Merci d'avance".
(Règles et Mentions Légales du site autoitscript.fr.)
Cordialement,
TT22
Haut
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [..]aide pour srcipt

#11

Message par Kevzi »

mes hauts parleurs marche, car les "bruitages" marchent mais pas les "sons". Sinon, voici le zip.
Fichiers joints
script.zip
code + sons
(675.6 Kio) Téléchargé 61 fois
Haut
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: [..]aide pour srcipt

#12

Message par TT22 »

Voila, ça marche :
► Afficher le texte
Tu avais mis @ScriptDir&\souds\...
au lieu de @ScriptDir&\sounds\...

Edit : Correction de quelques oublis
Cordialement,
TT22
Haut
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [..]aide pour srcipt

#13

Message par mikell »

► Afficher le texte
J'ai essayé ça et ça marche
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Haut
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [R]aide pour srcipt

#14

Message par Kevzi »

merci de votre aide
Haut
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [..]aide pour srcipt

#15

Message par mikell »

Le "R" il faut le mettre dans la balise du premier message :wink:
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Haut
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [R]aide pour srcipt

#16

Message par Kevzi »

ok c'est rectifier
Haut
Répondre

Retourner vers « Aide Générale »