[R] Problème text & musique AdlibRegister

[Ghost911]

bonjour alors voila j'ai un petit problème avec AdlibRegister j’arrive pas à faire marcher 2 fonctions en même temps si je mais musique plus le texte sa se bloque et arête de défiler j'aimerais faire fonctionner les 2 en même temps en fond de tache si possible : D ( AdlibRegister("PlayIntro",0) + AdlibRegister("_MoveLabel",25) )

[mikell]

AdlibRegister("PlayIntro",0)

Tu lances ta fonction toutes les 0 millisecondes ?

[Ghost911]

non si tu regardes la fonction ya une condition, avec un timer seul moyen que j'ai trouvé pour répéter le morceau en boucle sinon ya un décalage a l'initialisation entre la gui qui démarre & le son .....

[mikell]

Bah ça marche ^^

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
global $SoundFlag=1,$SoundOpen=0, $iX
Global $MyTextLabel = "Welcome to ????????? By ghost911"

$Form1 = GUICreate("Form1", 275, 67, 606, 540)
$Label1 = GUICtrlCreateLabel("Label1", -100, 24, 50, 17)
Global $hleLabelHandle = GUICtrlGetHandle($Label1)
GUISetState(@SW_SHOW)

SoundPlay ("Sound\Intro.mp3",0)
Sleep(100)
AdlibRegister("_MoveLabel",25)
AdlibRegister("son", 58000)


GUISetOnEvent($GUI_EVENT_CLOSE, "Guiclosed")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "GuiMinimize")

Func son()
SoundPlay ("Sound\Intro.mp3",0)
EndFunc


While 1
Sleep (5)
WEnd

Func GuiMinimize ()
    GUISetState ($GUI_EVENT_MINIMIZE,$Form1)
EndFunc

Func Guiclosed ()
For $i_trans = 255 To 0 Step -5
WinSetTrans ($Form1, "", $i_trans)
sleep (40)
Next
    Exit
EndFunc

Func _MoveLabel()
    $iX += 1
    WinMove($hleLabelHandle,"", $iX, 24)
        ;GUICtrlSetData($Label1,$MyTextLabel)
    If $iX > 280 Then $iX = -50
EndFunc

[Ghost911]

Merci beaucoup enfaîte le problème viens d'ou ?

[Ghost911]

une dernière question comment je pourrai faire avec le son pour le coupé a tout moment en temps réel avec une checkbox & pouvoir le remette en re-cliquant dessus ? ( sans coupé le texte qui défile )

[Arkenix]

Bonjour,

Je pense que quelque chose du genre fonctionnerais :

Code : Tout sélectionner

 If _SoundStatus($mp3) = "stopped" And GUICtrlRead($Macheckbox) = 4 Then
 _SoundPlay($mp3)
 ElseIf _SoundStatus($mp3) = "playing" And GUICtrlRead($Macheckbox) = 1 Then
    _SoundStop($mp3)
 EndIf

EDIT : ne pas oublier le

Code : Tout sélectionner

#include <Sound.au3>

[mikell]

Comme ton mp3 fait 58 secondes, faut utiliser AdlibRegister("PlayIntro", 58000) pour le faire tourner en boucle
Le son et le défilement du texte sont indépendants, tu peux gérer le son avec les fonctions _SoundPause , _SoundResume , etc

[Ghost911]

ok merci nickel mais le son démarre directement avec la gui ou une fois que la gui démarre faut patienter 58 seconde pour l'entendre ? ?

[mikell]

Hum si tu avais fait des tests avec le code que j'ai mis tu aurais eu ta réponse en 2 secondes

Code : Tout sélectionner

SoundPlay ("Sound\Intro.mp3",0)
AdlibRegister("son", 58000)

[Ghost911]

Merci pour votre aide précieuse

[Ghost911]

désolé de vous déranger à nouveau j'ai remis un nouveau script avec un problème j’arrive pas à faire tourner le son en boucle sans blocage de tout le script je comprends pas ... une petite idée svp ?

[mikell]

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>

Opt("GUIOnEventMode", 1)
Global $Titre = "MyAPP v 1.0 by ghost911",$SoundFlag=1,$SoundIntro="Sound\Intro.mp3"
Global $MyTextLabel = $Titre
Global $iX

$Form1_1 = GUICreate($Titre, 424, 512, -1,-1)
GUISetBkColor(0xFFFFFF)
$Tab1 = GUICtrlCreateTab(0, 0, 425, 465)
$TabSheet1 = GUICtrlCreateTabItem("Security :")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Sound = GUICtrlCreateCheckbox("Sound", 8, 432, 97, 17)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
$Label1 = GUICtrlCreateLabel("", -40, 469, 600, 20)
Global $hleLabelHandle = GUICtrlGetHandle($Label1)
GUISetState(@SW_SHOW)

CheckSoundIsActive()
AdlibRegister("_MoveLabel",25)
GUICtrlSetOnEvent($Sound,"CheckBoxIntro")
GUISetOnEvent($GUI_EVENT_CLOSE, "Guiclosed")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "GuiMinimize")

While 1
CheckSoundIsActive()
Sleep (10)
WEnd

;=======================================

Func _MoveLabel()
    $iX += 1
    WinMove($hleLabelHandle,-100, 450 - $iX / 2, 469)
        GUICtrlSetData($Label1,$MyTextLabel)
    If $iX > 2000 Then $iX = 0
EndFunc

Func PlayingSoundIntro()
     _SoundPlay($SoundIntro,0)
EndFunc

Func CheckBoxIntro()
If _SoundStatus($SoundIntro) = "stopped" And GUICtrlRead($Sound) = 1 Then
_SoundPlay($SoundIntro,0)
AdlibRegister ("PlayingSoundIntro",58000)
 IniWrite ( "Config.bin", "Sound", "Play",GUICtrlRead ($Sound))
 $SoundFlag=1
ElseIf _SoundStatus($SoundIntro) = "playing" And GUICtrlRead($Sound) = 4 Then
     AdlibUnRegister ("PlayingSoundIntro")
    _SoundStop($SoundIntro)
      IniWrite ( "Config.bin", "Sound", "Play",GUICtrlRead ($Sound))
      $SoundFlag=0
 EndIf
    EndFunc

Func CheckSoundIsActive()
If IniRead("Config.bin", "Sound", "Play", "NotFound") = "1" Then
GUICtrlSetState($Sound, $GUI_CHECKED)
$SoundFlag=1
CheckBoxIntro ()
Else
$SoundFlag=0
EndIf
EndFunc

Func GuiMinimize ()
    GUISetState ($GUI_EVENT_MINIMIZE,$Form1_1)
EndFunc

Func Guiclosed ()
For $i_trans = 255 To 0 Step -5
WinSetTrans ($Form1_1, "", $i_trans)
sleep (40)
Next
    Exit
EndFunc
 

Mais sérieux, faudrait faire un effort sur l'organisation du script : les includes en haut, puis les déclarations de variables, puis la gui, puis les accessoires, puis la boucle principale, et les fonctions en bas... ça serait plus lisible

[Ghost911]

merci mikell