Page 1 sur 1
[R] Fermeture Inputbox
Posté : dim. 09 août 2009 16:14
par JIF
Bonsoir, voilà j'ai programmé un petit programe qui test le niveau d'écoutes des fréquences admise par nos oreilles
Il ne manque plus que a corriger un petit problème. J'aimerais que lorsque l'utilisateur clique sur la croie ou sur le bouton imputbox. le scripte ce quittes. Ce qui me permettra d'enlevé cette logue phrase pour expliqué à l'utilisateur comment quitter le programme. Comment je peux structuré sa dans mon code.
Voilà un scren de mon programe.
Merci de me répondre.
Cordialement JIF,
Re: [..] Fermeture Inputbox
Posté : dim. 09 août 2009 17:59
par jumby
Si un utilisateur quitte l'inputbox (en passant par le bouton Annuler, la croix, echap...) @error sera égal à 1.
Voici un exemple :
Code : Tout sélectionner
$inputbox = InputBox('', '', '')
if @error = 1 Then
MsgBox(0, "Vous avez quitté l'inputbox", "Vous avez quitté l'inputbox")
EndIf
A toi de mettre la fonction Exit par exemple pour quitter ton programme lorsque @Error est égal à 1.
Re: [..] Fermeture Inputbox
Posté : dim. 09 août 2009 18:00
par Tlem
Il serait grand temps de faire quelques efforts sur l'orthographe car là, c'est vraiment catastrophique.
Au cas ou je ne vous aurait pas déjà donné le lien :
http://www.autoitscript.fr/forum/viewto ... =35&t=3011
En ce qui concerne vos questions, apprenez que si vous ne nous donnez pas le code ou une partie du code que vous avez écrit, il va être difficile de vous répondre car cela va générer une suite de questions inutiles.
Re: [..] Fermeture Inputbox
Posté : dim. 09 août 2009 21:40
par JIF
Merci de vos réponses. J'ai essayé de placer a différant endroit le code donner mais rien à faire, sa ne fonctionne toujours pas. Voici mon code initial.
Code : Tout sélectionner
While 1
$nombre = InputBox("Frecances", "Entrez un nombre compris entre 20 et 20000. La frecance ce jouras pendant 3 secondes. Pour quiter le programe veuilez cliqué sur l'icone du programe dans la bare de tache, puis cliqué sur Exit, puis sur le bouton cancel ou sur la croie.",'')
If (($nombre >= 20) AND ($nombre <= 20000)) Then
Beep($nombre, 3000)
Else
MsgBox(0,"Erreure", "Veuillez entrer un nombre compris entre 20 et 20000")
EndIf
Wend
Merci de me répondre.
Cordialement JIF,
Re: [..] Fermeture Inputbox
Posté : dim. 09 août 2009 21:47
par jumby
Code : Tout sélectionner
While 1
$nombre = InputBox("Frecances", "Entrez un nombre compris entre 20 et 20000. La frecance ce jouras pendant 3 secondes. Pour quiter le programe veuilez cliqué sur l'icone du programe dans la bare de tache, puis cliqué sur Exit, puis sur le bouton cancel ou sur la croie.",'')
If (($nombre >= 20) AND ($nombre <= 20000)) Then
Beep($nombre, 3000)
Else
if @error = 1 Then
exit
Else
MsgBox(0,"Erreure", "Veuillez entrer un nombre compris entre 20 et 20000")
EndIf
EndIf
Wend
Re: [..] Fermeture Inputbox
Posté : dim. 09 août 2009 22:31
par JIF
Merci de ta réponse Jumby. Sa fonctionne maintenant ! Problèmme résolut.
Cordialement JIF,