Page 1 sur 1
[R] Fenêtre du début qui fait changer le script
Posté : jeu. 23 juin 2011 20:05
par 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
Re: [...] Fenêtre du début qui fait changer le script
Posté : jeu. 23 juin 2011 20:27
par 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
Re: [...] Fenêtre du début qui fait changer le script
Posté : jeu. 23 juin 2011 20:49
par 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 ^^
Re: [...] Fenêtre du début qui fait changer le script
Posté : jeu. 23 juin 2011 21:59
par 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)
Re: [...] Fenêtre du début qui fait changer le script
Posté : jeu. 23 juin 2011 22:19
par muwoly
Merci =D c'est vraiment géniale !! je me demande comment vous trouvez le temps d'aider tout le monde!
Re: [...] Fenêtre du début qui fait changer le script
Posté : jeu. 23 juin 2011 23:41
par Tlem
N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.
Re: [R] Fenêtre du début qui fait changer le script
Posté : ven. 24 juin 2011 00:17
par muwoly
Pardon, j'avais complètement oublier ^^'
Re: [...] Fenêtre du début qui fait changer le script
Posté : ven. 24 juin 2011 08:56
par TT22
muwoly a écrit :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
Re: [R] Fenêtre du début qui fait changer le script
Posté : ven. 24 juin 2011 10:42
par muwoly
Ah oui merci bien, c'était pile ce que je pensais rajouter =D