[R] Fenêtre du début qui fait changer le script

[muwoly]

Bonjour, je ne mis connais que très peu en fenêtre sur autoit, (je ne connais que MsgBox)
J'aimerai savoir comment on fait pour que dans notre fenêtre de début, quand il y a par exemple des chiffre de 1 à 20 et que quand on choisi 1, 2, 3 etc... le sleep du script change.

J’espère que j'ai été assez clair dans ma demande ^^

Merci d'avance =D

[TommyDDR]

Hum, je ne suis pas sur de bien comprendre.

À tout hazard :

► Afficher le textecode

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui
Dim $Boutons[20]
Dim $Sleep = 0
Dim $Compteur = 0

$Gui = GUICreate("test", 120, 520)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
For $i = 0 To 19
    $Boutons[$i] = GUICtrlCreateButton("Sleep(" & ($i+1)*10 & ")", 10, 10 + $i * 25, 100, 20)
    GUICtrlSetOnEvent($Boutons[$i], "BoutonClick")
Next
GUISetState()

While(True)
    Sleep($Sleep)
    $Compteur += 1
    ToolTip("Sleep " & $Compteur)
WEnd

Func BoutonClick()
    Local $Btn
    For $i = 0 To 19
        If($Boutons[$i] = @GUI_CtrlId) Then
            $Sleep = ($i+1)*10
        EndIf
    Next
EndFunc

Func quit()
    Exit
EndFunc

[muwoly]

Non c'est pas ce que j'avais en tête, moi ce serré une casse ou on écrie un chiffre de 1 à 20 et par exemple quand on écrie 14 certain sleep passe a 10 000 et quand j'écrie 19 ça passe a 14 000, et ça pour tout les chiffre de 1 à 20. (que ce soit nous qui déterminons)

et dans un second temps, j'aimerai également faire en sorte que dans le tableau du début, il demande par exemple "Que voulez vous écrire", on écrie ce que l'on veut est ça le retranscris dans le script a l'endroit souhaiter ^^

[TT22]

Voici le script :

► Afficher le texte

Code : Tout sélectionner

_start()
Func _start()
$reponse=InputBox("Pause","Veuillez entrer un chiffre entre 1 et 20 :"); Demande que l'on entre un chiffre entre 1 et 20

If $reponse < 1 Then; Si la réponse est inférieur à 1 alors...
    MsgBox(16,"Erreur","Vous devez entrer un nombre suppérieur à 1 !"); Envoi un message d'erreur
    _start(); Retourne à Func _start()
EndIf

If $reponse > 20 Then; Si la réponse est suppérieur à 20 alors...
    MsgBox(16,"Erreur","Vous devez entrer un nombre inférieur à 20 !"); Envoi un message d'erreur
    _start(); Retourne à Func _start()
EndIf

$temps = IniRead("temps.ini","temps",$reponse,"notfound"); Lit dans le fichier ini quel nombre correspond à quel temps de pause

If $temps = "notfound" then; Si la réponse n'est pas trouvée dans le ini alors...
    MsgBox(16,"Erreur","La clée "&$reponse&" n'a pas été trouvée"); Envoi un message d'erreur
    _start(); Retourne à Func _start()
    EndIf

Sleep($temps); Fait une pause correpondant au temps
MsgBox(64,"Fin de la pause","La pause est finie !")
Exit
    EndFunc

Et il doit fonctionner avec un fichier ini :

► Afficher le texte

[temps]
1=1000
2=2000
3=3000
4=4000
5=5000
6=6000
7=7000
8=8000
9=9000
10=10000
11=11000
12=12000
13=13000
14=14000
15=15000
16=16000
17=17000
18=18000
19=19000
20=20000

Tu le modifie en fonction de ce que tu veux ( Par exemple 1=1000 signifie que si l'utilisateur rentre 1 alors la pause durera 1000 millisecondes. Si tu voulais que lorsque l'utilisateur rentre 1 la pause dure 2000 millisecondes alors tu marque : 1=2000)

[muwoly]

Merci =D c'est vraiment géniale !! je me demande comment vous trouvez le temps d'aider tout le monde!

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[muwoly]

Pardon, j'avais complètement oublier ^^'

[TT22]

je me demande comment vous trouvez le temps d'aider tout le monde!

Je pense que c'est grâce au nombre d'utilisateurs ( 3243 au moment ou j'écris ce message )

Edit :
Juste un petit truque à rajouter dans le script :

► Afficher le texte

Code : Tout sélectionner

_start()
Func _start()
$reponse=InputBox("Pause","Veuillez entrer un chiffre entre 1 et 20 :"); Demande que l'on entre un chiffre entre 1 et 20

[color=#FF0000]If @error = 1 Then; Si l'utilisateur appuie sur Cancel alors...
    Exit; On quitte le script
    EndIf[/color]

If $reponse < 1 Then; Si la réponse est inférieur à 1 alors...
    MsgBox(16,"Erreur","Vous devez entrer un nombre suppérieur à 1 !"); Envoi un message d'erreur
    _start(); Retourne à Func _start()
EndIf

If $reponse > 20 Then; Si la réponse est suppérieur à 20 alors...
    MsgBox(16,"Erreur","Vous devez entrer un nombre inférieur à 20 !"); Envoi un message d'erreur
    _start(); Retourne à Func _start()
EndIf

$temps = IniRead("temps.ini","temps",$reponse,"notfound"); Lit dans le fichier ini quel nombre correspond à quel temps de pause

If $temps = "notfound" then; Si la réponse n'est pas trouvée dans le ini alors...
    MsgBox(16,"Erreur","La clée "&$reponse&" n'a pas été trouvée"); Envoi un message d'erreur
    _start(); Retourne à Func _start()
EndIf

Sleep($temps); Fait une pause correpondant au temps
MsgBox(64,"Fin de la pause","La pause est finie !")
Exit
EndFunc

[muwoly]

Ah oui merci bien, c'était pile ce que je pensais rajouter =D