[R] Mise a niveau des nombres aléatoire en temps réel

[loockys]

Bonjour tout le monde.

(Mise a niveau des nombres aléatoire en temps réel)
Pour ceux qui n'auraient pas compris ma phrase, je vous donne un petit indice.

Je cherche à créer un programme,
qui me permet d'utiliser un objet virtuel de niveau +0 et de les additionner à des nombres aléatoires dans un temps réel grâce à une boucle infinie.

j'espère être compris, d'avance merci pour votre aide précieuse

► Afficher le texte

Code : Tout sélectionner

While 1
    Sleep(1000)
$Chiffre_aleatoire = Random(1,6,1)
MsgBox(0,"Forg","Félicitation +" & $Chiffre_aleatoire)

$Resultat = 0
MsgBox(0,"Forg","Votre objet est maintenant de niveau +" & $Resultat)

WEnd

[sylvanie]

Bonjour
J'avoue que la demande me paraît flou, car pour moi j'ai l'impression qu'il suffit simplement d'additionner ...

► Afficher le texte

Code : Tout sélectionner

$Resultat = 0
While 1
    Sleep(1000)
    $Chiffre_aleatoire = Random(1, 6, 1)
    MsgBox(0, "Forg", "Félicitation +" & $Chiffre_aleatoire)

    $Resultat += $Chiffre_aleatoire
    MsgBox(0, "Forg", "Votre objet est maintenant de niveau +" & $Resultat)

WEnd
 

[jchd]

Plus abscons, tu meurs.

Quel est le but, en français ?

[loockys]

Merci de ton aide Sylvanie.
Je ne savais pas qu'on pouvait addition deux variables dans une boucle de cette façon (+=) et je ne vous cacherais pas que j'en aie fais des recherches pour trouver une solution à mon programme.

Plus abscons, tu meurs.
Quel est le but, en français ?

Salut jchd
Mon but est de créer un programme du divertissement du clique.
Exemple de l'image:

Malheureusement je bloque encore malgré la petite astuce de Sylvanie.

► Afficher le texte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 555, 170, 192, 124)
GUISetFont(8, 400, 0, "Pristina")
GUISetBkColor(0xA6CAF0)
$Craft = GUICtrlCreateButton("Lancer la mise a niveau", 21, 16, 513, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
$Label1 = GUICtrlCreateLabel("L'objet est maintenant +", 64, 120, 288, 48)
GUICtrlSetFont(-1, 25, 800, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("0", 360, 112, 41, 56)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Progress1 = GUICtrlCreateProgress(21, 88, 513, 25)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Craft
_Start()

EndSwitch

WEnd



Func _Start()
$Resultat = 0
For $1 = 0 To 100 Step 1
GUICtrlSetData($Progress1,$1)
Next

$Chiffre_aleatoire = Random(1,6,1)
Sleep(500)
MsgBox(0,"Forgeron","Félicitation + " & $Chiffre_aleatoire)

$Resultat += $Chiffre_aleatoire
GUICtrlSetData($Label2,$Resultat)

EndFunc

[zeshrek]

Je ne savais pas qu'on pouvait addition deux variables dans une boucle de cette façon (+=) et je ne vous cacherais pas que j'en aie fais des recherches pour trouver une solution à mon programme.

Le fait d'utiliser '+=" n'est qu'une facon d'optimiser son code, il était tout aussi possible d'écrire :

Code : Tout sélectionner

$Resultat = $Resultat + $Chiffre_aleatoire

Mon but est de créer un programme du divertissement du clique.

Je Igor, Europe de l'Est, pas compris. Toi répete s'il vous plait ?

[loockys]

Je Igor, Europe de l'Est, pas compris. Toi répete s'il vous plait ?

Je n'est pas envie d'ouvrir de débats racial et je m'abstiendrais. sans commentaires.
Avez vous d'autres solutions constructif a offrir pour le poste s'il vous plait ?

[Iste]

De mon coté j'ai toujours pas compris ce qu'il fallait faire.
Et je ne pense pas etre le seul...

Aussi, je vous invite a bien vouloir nous décrire plus efficacement ce que vous souhaitez.

[zeshrek]

Ce n'était qu'une facon de formuler ma requete, pas du tout du racisme (mikell, y a pas que moi qui bloque sur le 2nd degré on dirait...)

Mais bon, malgré tout, j'aimerai vraiment aider en apportant une réponse a la question, le truc c'est que je ne comprend pas de quoi on parle dans ce topic.
Franchement, un programme "qui me permet d'utiliser un objet virtuel de niveau +0 et de les additionner à des nombres aléatoires" je suis perplexe.
Qu'est ce qu'un objet virtuel de niveau +0 ?
Tu parles de 'les additionner" mais que représente ce 'les' ? le programme ? l'objet virtuel ? le niveau +0 ?

A priori si ce qu'a compris sylvanie est juste, tu voulais juste ajouter un nombre aléatoire a une valeur. Avoue que c'est vachement plus simple dit comme ca que comme tu l'avais présenté !

Et quand on te dit que c'est abscon, tu penses éclaircir les choses en disant que tu veux faire "un programme du divertissement du clique"
Tu trouves que le clique (clic ? double clic ? droit ou gauche ?) est trop obstiné par son boulot, et qu'il faut le divertir ? Mais alors quel type de divertissement ? lui faire regarder la tv ? lire un bouquin ? l'emmener dans un parc de loisir ?

Bref, est ce que tu pourais reformuler ta demande de facon a ce qu'elle soit compréhensible ?

[sylvanie]

A la vue du code je pense que le 2eme problème est juste le fait que le tirage au sort doit être fait dans la boucle "for" sinon on remplit juste la progress bar sans rien faire de plus puis après on fait 1 tirage unique.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 555, 170, 192, 124)
GUISetFont(8, 400, 0, "Pristina")
GUISetBkColor(0xA6CAF0)
$Craft = GUICtrlCreateButton("Lancer la mise a niveau", 21, 16, 513, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
$Label1 = GUICtrlCreateLabel("L'objet est maintenant +", 64, 120, 288, 48)
GUICtrlSetFont(-1, 25, 800, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("0", 360, 112, 141, 56)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Progress1 = GUICtrlCreateProgress(21, 88, 513, 25)
GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Craft
            _Start()

    EndSwitch

WEnd



Func _Start()
    $Resultat = 0
    For $ind = 0 To 100 Step 1
        GUICtrlSetData($Progress1, $ind)
        $Chiffre_aleatoire = Random(1, 6, 1)
        Sleep(500)
        ConsoleWrite( "Félicitation + " & $Chiffre_aleatoire&@CRLF)
        $Resultat += $Chiffre_aleatoire
        GUICtrlSetData($Label2, $Resultat)
    Next

EndFunc   ;==>_Start
 

Au passage j'ai changer votre indice $1 par $ind car il n'est pas vraiment judicieux de faire commencer un nom de variable par un chiffre (c'est même interdit dans certains langage)

[loockys]

Bref, est ce que tu pourais reformuler ta demande de facon a ce qu'elle soit compréhensible ?

Oui bien sûr, je cherche à créer un programme de divertissement qui nous permet d'améliorer un objet virtuel avec des échecs et des réussites.
Mais pour le moment j'essaye de comprendre la fonction de l'addition sur mon programme en utilisant le bouton de lancement.

Au passage j'ai changer votre indice $1 par $ind car il n'est pas vraiment judicieux de faire commencer un nom de variable par un chiffre (c'est même interdit dans certains langage)

Merci de l'info Sylvanie.

Il y a un léger petit problème, je ne veux pas que le programme tourne en boucle

[sylvanie]

Je ne sais pas si on peut appeler ça un problème car comme souligné par plusieurs messages, la demande initiale n'est pas vraiment des plus précises (voir claire )

Là encore je vais anticiper, je présume donc que :

- vous voulez un incrément aléatoire à votre variable à chaque fois que le bouton est pressé
- au passage la progress bar augmente de 1% ce qui nous donne jusqu'à 100 clicks possibles

est ce cela ?

[mikell]

Je Igor, Europe de l'Est, pas compris. Toi répete s'il vous plait ?

Je n'est pas envie d'ouvrir de débats racial et je m'abstiendrais. sans commentaires.

Ce n'est pas le genre de remarque à faire à un ogre !
@l'ogre, pas de pot, loockys est un européen de l'est....

@loockis, je comprends en gros le but du script mais qu'entendez-vous exactement par objet virtuel ?

[loockys]

- vous voulez un incrément aléatoire à votre variable à chaque fois que le bouton est pressé

Oui.

- au passage la progress bar augmente de 1% ce qui nous donne jusqu'à 100 clicks possibles

Non, la progress bar reste une animation

@loockys, je comprends en gros le but du script mais qu'entendez-vous exactement par objet virtuel ?

Mon objet virtuel peut être une arme par exemple.

[sylvanie]

et bien voilà
il faut passer l'animation de la progressbar avec un adlibregister pour ne pas bloquer l'accès aux controles de la gui à cause de la boucle FOR dans laquelle on est "prisonnier"

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 555, 170, 192, 124)
GUISetFont(8, 400, 0, "Pristina")
GUISetBkColor(0xA6CAF0)
$Craft = GUICtrlCreateButton("Lancer la mise a niveau", 21, 16, 513, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
$Label1 = GUICtrlCreateLabel("L'objet est maintenant +", 64, 120, 288, 48)
GUICtrlSetFont(-1, 25, 800, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("0", 360, 112, 141, 56)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Progress1 = GUICtrlCreateProgress(21, 88, 513, 25)
GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###
AdlibRegister("update_bar",1000)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Craft
            _Start()

    EndSwitch

WEnd

Func update_bar()
    Static Local $ind=0
    GUICtrlSetData($Progress1, $ind)
    $ind=Mod($ind+1,100)
EndFunc

Func _Start()
    Static Local $Resultat = 0
    $Chiffre_aleatoire = Random(1, 6, 1)
    Sleep(500)
    ConsoleWrite( "Félicitation + " & $Chiffre_aleatoire&@CRLF)
    $Resultat += $Chiffre_aleatoire
    GUICtrlSetData($Label2, $Resultat)
EndFunc   ;==>_Start

 

[jchd]

Crotte de caniche, c'est encore pour une de ces saloperies de jeux.

[loockys]

et bien voilà, il faut passer l'animation de la progressbar avec un adlibregister pour ne pas bloquer l'accès aux controles de la gui à cause de la boucle FOR dans laquelle on est "prisonnier"

Encore merci pour tes anticipations Sylvanie, au moins mon programme avance.
La progressbar ne me conviens pas elle se active toute seule et j'ai pris soigne de la remplacé par une autre et je ne sais pas si elle ne va pas me causer d'autres problèmes plus tard et j'ai aussi remplacer le message console par un msgbox.

Crotte de caniche, c'est encore pour une de ces saloperies de jeux.

Exprimez vous car, j'ai l'impression d'être un hors-la loi en lisant votre message.
Je compte aller plus loin avec mon programme et de le finir si le forum me le permet.

Mais pour le moment j'essaye de comprendre la fonction de l'addition sur mon programme en utilisant le bouton de lancement.

"Oui je me parle a moi même" ça c'est fait


Le but de ce programme est de créer un logiciel de divertissement qui nous permet d'améliorer un objet virtuel avec des échecs et des réussites par des simples clique.
En ce moment oû je vous écris, je cherche amélioré une progressbar qui suit son animation normal quand j'emploie le bouton de lancement.
PS: quand je lance le bouton de lancement la progressbar suit bien son court mais quand je recommence a utilise le bouton de lancement la progressbar reste bloquer.

Avez vous des suggestions d'avance merci.

► Afficher le texte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 555, 170, 192, 124)
GUISetFont(8, 400, 0, "Pristina")
GUISetBkColor(0xA6CAF0)
$Craft = GUICtrlCreateButton("Lancer la mise a niveau", 21, 16, 513, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
$Label1 = GUICtrlCreateLabel("L'objet est maintenant +", 64, 120, 288, 48)
GUICtrlSetFont(-1, 25, 800, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("0", 360, 112, 141, 56)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Progress1 = GUICtrlCreateProgress(21, 88, 513, 25)
GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Craft
GUICtrlSetData($Progress1,100)
_Start()


EndSwitch

WEnd

Func Progressbar()
$v1 = GUICtrlRead($Progress1)
If $v1 < 100 Then $v1 += 9
GUICtrlSetData($Progress1, $v1)

EndFunc

Func _Start()

Static Local $Resultat = 0
$Chiffre_aleatoire = Random(1, 6, 1)
Sleep(500)
MsgBox(0,"Forgeron","Félicitation + " & $Chiffre_aleatoire&@CRLF)
$Resultat += $Chiffre_aleatoire
GUICtrlSetData($Label2, $Resultat)
EndFunc

[mikell]

Je ne vois pas bien ce que vous voulez faire avec votre progressbar mais peut-être ça ?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 555, 170, 192, 124)
GUISetFont(8, 400, 0, "Pristina")
GUISetBkColor(0xA6CAF0)
$Craft = GUICtrlCreateButton("Lancer la mise a niveau", 21, 16, 513, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
$Label1 = GUICtrlCreateLabel("L'objet est maintenant +", 64, 120, 288, 48)
GUICtrlSetFont(-1, 25, 800, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("0", 360, 112, 141, 56)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Progress1 = GUICtrlCreateProgress(21, 88, 513, 25)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Craft
;GUICtrlSetData($Progress1,100)
_Start()

EndSwitch

WEnd

Func Progressbar()
$v1 = GUICtrlRead($Progress1)
If $v1 < 100 Then $v1 += 9
GUICtrlSetData($Progress1, $v1)
EndFunc

Func _Start()
Static Local $Resultat = 0
$Chiffre_aleatoire = Random(1, 6, 1)
Sleep(100)
For $i = 0 To 100 step 2
GUICtrlSetData($Progress1,$i)
Sleep(1)
Next

MsgBox(0,"Forgeron","Félicitation + " & $Chiffre_aleatoire&@CRLF)
$Resultat += $Chiffre_aleatoire
GUICtrlSetData($Label2, $Resultat)
For $i = 100 To 0 step -4
GUICtrlSetData($Progress1,$i)
Sleep(1)
Next
EndFunc 
 

[sylvanie]

ah ok !! la progress bar est censée représenter un temps de réalisation factice de l'opération après le click ... On va y arriver !!!

[mikell]

En fait, la demande manque de précision et on ne sait pas vraiment comment la progress bar est censée se comporter, donc on en est réduit aux hypothèses...

@loockys
Si c'est pour du divertissement je suppose qu'une msgbox personnalisée peut vous intéresser...

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 555, 170, 192, 124)
GUISetFont(8, 400, 0, "Pristina")
GUISetBkColor(0xA6CAF0)
$Craft = GUICtrlCreateButton("Lancer la mise a niveau", 21, 16, 513, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
$Label1 = GUICtrlCreateLabel("L'objet est maintenant +", 64, 120, 288, 48)
GUICtrlSetFont(-1, 25, 800, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("0", 360, 112, 141, 56)
GUICtrlSetFont(-1, 30, 400, 0, "Pristina")
GUICtrlSetColor(-1, 0x000080)
$Progress1 = GUICtrlCreateProgress(21, 88, 513, 25)
GUISetState(@SW_SHOW)

Global $box, $ok

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Craft
        _Start()
EndSwitch
WEnd


Func _Start()
Static Local $Resultat = 0
$Chiffre_aleatoire = Random(1, 6, 1)
Sleep(500)
For $i = 0 To 100 step 2
GUICtrlSetData($Progress1,$i)
Sleep(1)
Next
_MsgBoxPerso("Forgeron","Félicitation + " & $Chiffre_aleatoire&@CRLF)

$Resultat += $Chiffre_aleatoire
GUICtrlSetData($Label2, $Resultat)
For $i = 100 To 0 step -4
GUICtrlSetData($Progress1,$i)
Sleep(1)
Next
EndFunc 

Func _MsgBoxPerso($titre, $texte)
Local $w = 180, $h = 80
$box = GUICreate($titre, $w, $h, -1, -1)
GUISetBkColor(0xA6CAF0)
$ok = GUICtrlCreateButton("OK", ($w/2)-30, $h-30, 60, 25)
Local $lab = GUICtrlCreateLabel($texte, 0, 10, $w, $h, $SS_CENTER)
GUICtrlSetFont(-1, 20, 800, 0, "Pristina")
GuiCtrlSetState($ok, $GUI_FOCUS)
GuiSetState()
While 1
$msg = GUIGetMsg(1)
If $msg[1] = $box Then 
    Switch $msg[0]
        Case $ok, $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
EndIf
WEnd
GuiDelete($box)
EndFunc
 

[jchd]

@loockys

Hors la loi ? Non, du moins apparemment pas sur ce forum. De toute façon je ne modère pas ici, donc ce point de vue ne me concerne pas.

Maintenant, et à titre personnel, je trouve regrettable à tout le moins qu'AutoIt se récupère une image déplorable d'outil de "bidouillage pour tricher à des jeux (multi-joueurs ou non)" ou "réalisation de nuisibiels ou nociviels pour débutants" aux yeux de nombre d'acteurs et de décideurs.

Il suffit de consulter ceci ou encore celà pour s'en rendre compte.

La conséquence en est qu'AutoIt est rigoureusement interdit d'emploi dans de nombreuses entreprises, les exécutables qu'il produit flingués à vue par plusieurs anti-virus (en général merdiques et très répandus) et tout CV mentionnant AutoIt suspect pour --voire illico poubellisé par-- de plus en plus de gens.

C'est bien dommage car c'est justement grâce aux contributions de nombreuses personnes désireuses d'améliorer l'efficacité de leur travail, donc essentiellement en entreprises, qu'AutoIt propose aujourd'hui une palette d'UDFs stables aussi incroyablement riche et permet de s'attaquer aisément à une si grande variété de situations et de problématiques.

Voilà pourquoi je considère que tout ce qui renforce par page rank ou mot-clé l'association entre AutoIt et "jeux" ou "malware" est une crotte de caniche, au moins. J'ai bien écrit "ce qui" et non pas "ceux qui".
Malheureusement, le besoin d'explication de ma remarque aura pour effet non désiré de contribuer un peu, lui-aussi, à ces associations non désirables...