Autoit : fonction et while
Fermé
hexomon
Messages postés
60
Date d'inscription
vendredi 2 juin 2006
Statut
Membre
Dernière intervention
21 décembre 2022
-
26 sept. 2014 à 12:02
netsoftnet Messages postés 125 Date d'inscription jeudi 3 janvier 2013 Statut Membre Dernière intervention 18 janvier 2016 - 8 févr. 2015 à 19:54
netsoftnet Messages postés 125 Date d'inscription jeudi 3 janvier 2013 Statut Membre Dernière intervention 18 janvier 2016 - 8 févr. 2015 à 19:54
A voir également:
- Autoit while 1
- Autoit - Télécharger - Divers Utilitaires
- Error code 1309 mac while copying ✓ - Forum MacOS
- Autoit @error ✓ - Forum Virus
- While fscanf ✓ - Forum C
- Factorielle python while ✓ - Forum Programmation
2 réponses
netsoftnet
Messages postés
125
Date d'inscription
jeudi 3 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2016
32
Modifié par netsoftnet le 1/02/2015 à 20:01
Modifié par netsoftnet le 1/02/2015 à 20:01
Salut
Global $s = 1
Func QuelChiffre()
If $Jour= "e" Or $Jour = "E" Then
Exit
ElseIf $Chiffre_hasard > $Jour Then
MsgBox(0,"hexomon Jeux 2015 v1","Trop petit")
ElseIf $Chiffre_hasard < $Jour Then
MsgBox(0,"hexomon Jeux 2015 v1","Trop grand")
ElseIf $Chiffre_hasard = $Jour Then
TrayTip("hexomon Jeux 2015 v1"," B R A V O ",5000)
Beep(Random(500,2000,1),Random(50,500,1))
Beep(Random(500,2000,1),Random(500,1000,1))
$s=1
Sleep(2000)
EndIf
EndFunc
While 1
If $s=1 Then
Global $Chiffre_hasard=Random(1, 10, 1)
Global $s=0
EndIf
Global $Jour = InputBox("hexomon Jeux 2015 v1", "Quel est votre chiffre ? 1 a 10 "&@CRLF&"(Tapper E pour Fermer Le Jeux)")
QuelChiffre ()
WEnd
Bonne Chance :)
Global $s = 1
Func QuelChiffre()
If $Jour= "e" Or $Jour = "E" Then
Exit
ElseIf $Chiffre_hasard > $Jour Then
MsgBox(0,"hexomon Jeux 2015 v1","Trop petit")
ElseIf $Chiffre_hasard < $Jour Then
MsgBox(0,"hexomon Jeux 2015 v1","Trop grand")
ElseIf $Chiffre_hasard = $Jour Then
TrayTip("hexomon Jeux 2015 v1"," B R A V O ",5000)
Beep(Random(500,2000,1),Random(50,500,1))
Beep(Random(500,2000,1),Random(500,1000,1))
$s=1
Sleep(2000)
EndIf
EndFunc
While 1
If $s=1 Then
Global $Chiffre_hasard=Random(1, 10, 1)
Global $s=0
EndIf
Global $Jour = InputBox("hexomon Jeux 2015 v1", "Quel est votre chiffre ? 1 a 10 "&@CRLF&"(Tapper E pour Fermer Le Jeux)")
QuelChiffre ()
WEnd
Bonne Chance :)
hexomon
Messages postés
60
Date d'inscription
vendredi 2 juin 2006
Statut
Membre
Dernière intervention
21 décembre 2022
1
8 févr. 2015 à 17:49
8 févr. 2015 à 17:49
Je vais tester ça, merci beaucoup :))))) !
netsoftnet
Messages postés
125
Date d'inscription
jeudi 3 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2016
32
8 févr. 2015 à 19:54
8 févr. 2015 à 19:54
derien hexomon :)