[R] Conditions d'execution et boucle

[ganesa2242]

Bonjour à tous,

voilà quelques jours que je me casse la tete sur ce script et je bloque alors que dans le fond, je pense que c'est très simple.

Je cherche à faire un radio réveil qui se connecte automatiquement sur les webradios françaises de mon choix. Je précise que je ne suis pas débile, je pourrais aussi acheter un radio-réveil mais j'habite à l'étranger et ça me manque de ne plus avoir mes radios au réveil.

Comme vous le penserez peut-etre, ce script est une grosse bidouille sachant que je ne suis pas toujours très logique.

Voici mes problèmes :
Je voudrais faire une condition qui dit que si la case "activer" est cochée, alors il execute la fonction qui va bien. En fait il ne va executer que la première fonction (concernant le réveil 1) mais pas celle concernant le réveil 2.

Je ne voudrais pas mettre la fonction exit après avoir vérifié si les champs date sont justes ou non. Je voudrais qu'il "revienne au début du script" c'est à dire qu'il me laisse modifier la date avant de refaire la vérification.

Voila pour l'instant et c'est déjà pas mal. Si vous avez des idées, je suis preneur.

Merci par avance

Jeremy

► Afficher le texte

Code : Tout sélectionner

; Includes
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#include <date.au3>



;GUI
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Radio Réveil", 500, 200, 192, 124)
GUISetBkColor(0x6FA1D9)
$OK = GUICtrlCreateButton("OK", 150, 150, 75, 25)
$Cancel = GUICtrlCreateButton("Cancel", 250, 150, 75, 25)
$Input1 = GUICtrlCreateInput(_NowCalc(), 24, 24, 113, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Input2 = GUICtrlCreateInput(_NowCalc(), 24, 84, 113, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
;$Actif1 = GUICtrlCreateCheckbox("Actif", 150, 24, 97, 17)
;GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Actif2 = GUICtrlCreateCheckbox("Actif", 150, 84, 97, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Frequence1 = GUICtrlCreateCombo("", 250, 24, 225, 25)
GUICtrlSetData (-1, "Radio Nova|RTL2|Europe2|Le Mouv'", "Radio Nova")
$Frequence2 =GUICtrlCreateCombo("", 250, 84, 225, 25)
GUICtrlSetData (-1, "Radio Nova|RTL2|Europe2|Le Mouv'", "Le Mouv'")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;###########################################################################################
;Variables
;###########################################################################################
    Global $Frequence1
    Global $ValFreq
    Global $ValFreq2
    Global $Actif2
    Global $iDateCalc2

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

            Case $OK
                    _Check1()

                    If BitAND(GUICtrlRead($Actif2),$GUI_UNCHECKED) = $GUI_UNCHECKED Then
                        Exit
                    ElseIf BitAND(GUICtrlRead($Actif2),$GUI_CHECKED) = $GUI_CHECKED Then
                    _Check2()
                    EndIf

            Case $Cancel
            Exit

        EndSwitch
    WEnd
Exit
; ###########################################################################################
;Fonction pour définir l'action à réaliser pour le réveil 1
; ###########################################################################################
Func _Check1()
        $WakeTime = GUICtrlRead($Input1)
        $iDateCalc = _DateDiff('s', _NowCalc(), $WakeTime)

                While 1
                    If $iDateCalc > 0 Then
                            $SleepTime = Number($iDateCalc*1000)
                            WinSetState ("Radio Réveil", "", @SW_HIDE)
                            sleep($SleepTime)
                            _Radio1()
                            ExitLoop

                        ElseIf $iDateCalc < 0 Then
                            MsgBox (48, "Erreur", "L'heure du réveil ne peut précéder l'heure actuelle")
                            Exitloop

                        ElseIf $iDateCalc = 0 Then
                            MsgBox (48, "Erreur", "Le format pour régler l'heure est YYYY/MM/DD HH:MM:SS")
                            Exitloop
                    EndIf
                WEnd
EndFunc

; ###########################################################################################
;Fonction pour définir l'action à réaliser si Actif est coché
; ###########################################################################################
Func _Check2()

    $WakeTime2 = GUICtrlRead($Input2)
    $iDateCalc2 = _DateDiff('s', _NowCalc(), $WakeTime2)
While 1
If $iDateCalc2 > 0 Then
    $SleepTime2 = Number($iDateCalc2*1000)
    WinSetState ("Radio Réveil", "", @SW_HIDE)
    sleep($SleepTime2)
    _Radio2()
    ExitLoop

    ElseIf $iDateCalc2 < 0 Then
    MsgBox (48, "Erreur", "L'heure du deuxième réveil n'est pas correcte.")
    ExitLoop

    ElseIf $iDateCalc2 = 0 Then
    MsgBox (48, "Erreur", "Réveil 2 : Le format pour régler l'heure est YYYY/MM/DD HH:MM:SS")
    ExitLoop
EndIf
WEnd
EndFunc




;###########################################################################################
; Fonction pour contrôler l'état d'un contrôle
;###########################################################################################
Func _IsChecked($control)
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

; ###########################################################################################
;Fonction pour choisir la fréquence1 à exécuter
; ###########################################################################################
Func _Radio1()
    $ValFreq = GUICtrlRead($Frequence1)
    Select
        Case $ValFreq = "Radio Nova"
            ShellExecute("firefox.exe", "http://www.novaplanet.com/radionova/player")


        Case $ValFreq = "RTL2"
            ShellExecute("firefox.exe", "http://radio.rtl2.fr/player.html")


        Case $ValFreq = "Europe2"
            ShellExecute("firefox.exe", "http://player.virginradio.fr/V4/virgin/index_V1.html")

        Case $ValFreq = "Le Mouv'"
            ShellExecute("firefox.exe", "http://www.lemouv.com/files/rfPlayer/player.html")

    EndSelect
EndFunc

; ###########################################################################################
;Fonction pour choisir la fréquence2 à exécuter
; ###########################################################################################
Func _Radio2()
    $ValFreq2 = GUICtrlRead($Frequence2)
    Select
        Case $ValFreq2 = "Radio Nova"
            ShellExecute("firefox.exe", "http://www.novaplanet.com/radionova/player")
            Exit

        Case $ValFreq2 = "RTL2"
            ShellExecute("firefox.exe", "http://radio.rtl2.fr/player.html")
            Exit

        Case $ValFreq2 = "Europe2"
            ShellExecute("firefox.exe", "http://player.virginradio.fr/V4/virgin/index_V1.html")
            Exit

        Case $ValFreq2 = "Le Mouv'"
            ShellExecute("firefox.exe", "http://www.lemouv.com/files/rfPlayer/player.html")
            Exit
    EndSelect
EndFunc
 

[Tlem]

IsChecked (à chercher sur le forum) et l'utilisation d'une fonction répondrons tout à fait à votre demande.

[ganesa2242]

Bonjour,

_IsChecked (que j'ai trouvé sur le forum) est déjà dans mon code. Et des fonctions, y'en a

En fait il y a une erreur dans l'utilisation que j'en fais (je pense) mais je ne sais pas où. D'où ma question...

Jeremy

[Tlem]

Pensez à utiliser les balises de code, même si vous mettez celui-ci dans un spoiler.

Pour votre problème, effectivement il ne faut pas utiliser la fonction Exit car sinon on sort du script, mais plutôt la fonction ExitLoop afin de sortir de la boucle While de votre Case $OK qui vous permettra de revenir à la boucle principale d'attente.

[ganesa2242]

Merci Thierry pour cette réponse.

Génial pour exitloop. Merci je ne connaissais pas la fonction (oui je débute, ça se sent? )

Par ahasrd, vous voyez une erreur pour la condition de la checkbox ?

Pour ma culture, c'est quoi les balises dans le code ? C'est genre ça ?

;#########
;Fonction
,#########

;#########
;Script
,#########

Merci

Jeremy

[ganesa2242]

Ca y est, c'est résolu.

Merci pour exitloop.

Je mets le code correct dans le premier post

Jeremy

[Tlem]

Pour les balises de code, cela concerne votre premier message.
Vous avez mis du code entre des balises [Spoiler] [/Spoiler], mais le code doit aussi être entouré des balises

Code : Tout sélectionner

 [/Code ].  ;)