[R] Fermeture Inputbox

[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,

[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.

[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.

[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,

[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

[JIF]

Merci de ta réponse Jumby. Sa fonctionne maintenant ! Problèmme résolut.

Cordialement JIF,