Roue qui tourne

Résolu
croumble -  
Bonjour,

J'aimerai crée un petit programme ou il y aurait une roue qui tourne avec des numéro et la roue s'arreterai de façon aléatoire. Tout conseil sera le bien venu



--
Google est ton ami !! Faire des recherche avant de poser vos questions
Penser a mettre vos sujet en résolu !!

28 réponses

Résumé de la discussion

Une demande porte sur la création d'une roue qui tourne avec des numéros et s'arrête aléatoirement, en configuration Windows Vista et Firefox 4.0, afin de proposer une solution logicielle simple. Plusieurs échanges décrivent des méthodes pour faire tourner la roue et déterminer un arrêt aléatoire, en évoquant des outils possibles comme VBExpress2008 et des approches liées à Excel 2007 pour les numéros 1 à 16. Des conseils techniques émergent, notamment sur l'inversion du sens de rotation en ajustant une ligne de code, et des ressources externes proposent des exemples et des options complémentaires.

Bobot (l’IA à votre service)
  1. croumble Auteur
    Le programme ferait tourné une roue (qu'il faut créée) et cette roue s'arreterait sur un numéro de façon aléatoire . Je pense avoir été clair si se n'est pas le cas dite le moi.
    J'aimerai savoir quel logiciel utilisé ( possible avec VBexpress2008?) et comment commencé.
    3. Dynamix
      Bah tout dépend ce que tu veux utiliser, tu peux faire ça avec à peu près tous les langages de programmation.

      Tu connais un langage en particulier?
      2. croumble Auteur
        J'utilise VBexpress2008 . Mais avec votre aide je peux changé
        Google est ton ami !! Faire des recherche avant de poser vos questions
        Penser a mettre vos sujet en résolu !! Merci Si vous savez pas faire :
        1. Dynamix
          Apprends le langage qui te botte bien et quand tu as les connaissances nécessaires tu pourras alors envisager de faire ce programme.

          Là tu brûles les étapes :p
          1. croumble Auteur
            Oui le langage je l'ai appris a l'aide du coach VB mais toutes les fonction ne sont pas exposé et c'est pour cela que je suis venu ici . Je demande de vrai conseil concernant mon programme et pas ma façon de faire. J'aimerai bien avoir un début de programme ou un exemple c'est comme sa que je pense progresser.
            1. croumble Auteur
              Personne ne peut m'aider?:(
              1. croumble Auteur
                J'aurai vraiment eu besoin de vous...
            2. Mike-31
              Salut,

              Patiente un peu j'ai un code, mais quel est ta version Excel
              et sur la roue tu souhaites les numéros de combien à combien

              Je te prépare quelque chose dans la soirée
              A+
              Mike-31

              Une période d'échec est un moment rêvé pour semer les graines du savoir.
              1. croumble Auteur
                Merci beaucoup j'ai la version 2007 d'exel. Les numéros doivent aller de 1 a 16.
                Si tu a d'autre question n'hésite surtout pas.
                1. croumble Auteur
                  est ce que ton projet avance ? J'ai aussi la version 2003 d'exel si sa peut t'arranger
                  1.  Mike-31
                    Re,

                    Regarde ce fichier voir si c'est ce que tu cherches

                    https://www.cjoint.com/?jtxDOVbJil
                    1. lermite222 Contributeur
                      Bonjout Mike,
                      Nickel :-(
                      Mais pourrais-tu expliquer à quoi sert...le For / next 
                          For j = 1 To 1
    m = Int(Rnd() * 5 + 1)
    Next j

                      Sôrement une raison mais je ne la vois pas !
                      Merci
                      A+
                    2. Mike-31
                      Salut Lermite

                      C'est un tirage d'un numéro aléatoire de un à 5 pour le nombre de rotation de la roue

                      Cordialement
                      Mike-31
                    3. lermite222 Contributeur
                      Ca j'avais bien compris, mais le for : next , d'après moi y sert à rien ??
                    4. Mike-31
                      Re,
                      Excuse je n'avais pas compris, tout à fait, comme la fonction Randomize peut être utilisée qu'une seule fois. Volontairement j'ai préféré séparer le code en trois boucle For ce qui me semblait plus facile à comprendre et surtout à expliquer. De même pour le tirage aléatoire il suffit de coller dans le code ces deux lignes pour voir en N2 et N5 par exemple l'angle de rotation et le nombre de rotation de la roue.
                      [N2] = m
                      [N5] = n

                      Pour ne pas répondre en MP sur le code, je vais l' expliquer dans un post
                      Cordialement
                      Mike-31
                  2. michel_m Contributeur
                    Bonjour à tous

                    Ci joint un exercice d'initiation à VBA (XL2000) "bandit Manchot" qui pourra peut-^tre te fournir une piste
                    les algos:
                    http://www.cijoint.fr/cjlink.php?file=cj201009/cijxQ9ZJ3k.zip
                    la maquette
                    http://www.cijoint.fr/cjlink.php?file=cj201009/cijEoZQgtT.zip
                    1. Mike-31
                      Pour ne pas expliquer mon code en MP et que chacun en profite

                      Private Sub CommandButton2_Click()
                      Dim i,m, n As Integer
                      Randomize 'fonction générateur de nombre aléatoire
                      For i = 1 To 1 'nombre de numéro tiré, ici 1 sur 1 parce qu'un seul suffit cela pourrait être 1 To 6 par exemple si l'on en souhaite six
                      n = Int(Rnd() * 360) 'un tour complet de la roue fait 360 °, pour permettre à la roue de s'arrêter aléatoirement sur un angle, il faut donner une valeur Maxi à la fonction Randomize. on peut fausser le tirage en ajoutant + une valeur (*360+2)
                      m = Int(Rnd() * 5 + 4) 'renseigne la fonction Radomize sur la valeur maximale à ne pas dépasser lors du tirage aléatoire, qui sera utilisé pour le nombre de tours de la roue. Pour ne pas que le nombre de tours soit trop important j'ai limité ce nombre à 5. Radomize tirera aléatoirement une valeur égale ou inférieure à 5. J'ai rajouté +5 de sorte que si la valeur aléatoire est 1 et un angle de 1 la roue ne tournera pas et le déplacement sera pratiquement invisible alors qu'en ajoutant +5 la roue fera au minimum 4 tours vu que le cinquième sera de 1° . Si la valeur maximale était de 10 par exemple et que je rajoutais +5 le nombre de tours pourrait être de 15 ce qui me semble excessif
                      Next i 'fin de gestion des rotation, sortie de la boucle
                      With ActiveSheet.Shapes("Image 14") 'gestion de l'image ou de la forme à mettre en rotation
                      For i = 0 To n * m Step 10 'application de la rotation et angle de la roue
                      Application.Wait Time:=Now() + 0.0000001 'réglage de la vitesse de rotation en utilisant le cadencé de l'ordinateur (l'heure). plus la valeur est petite plus la roue tourne vite, exemple avec +0.00001 la rotation de la roue est de 1° par cadencé alors qu'avec + 0.0000001 la rotation est rapide. ces valeurs ne sont pas obligatoire et la roue tournera suivant le cadencé de l'ordi
                      .Rotation = i 'application de la rotation
                      Next 'sortie de la boucle rotation
                      End With
                      End Sub

                      La fonction Radomize aurait pu être remplacée en utilisant des formules et la fonction ALEA ce qui aurait permis de paramétrer les angles de rotation en degré par pas de 5 ou de 10 voire 25 etc ainsi que le nombre de tours

                      A+
                      Mike-31

                      Une période d'échec est un moment rêvé pour semer les graines du savoir.
                      1. croumble Auteur
                        Merci mais je fait quoi de cela ? Je l'utilise avec quel logiciel?
                        1. croumble Auteur
                          A pardon j'avais pas vu ton post du dessus....
                          C'est exactement cela qu'il me faut mais par contre la roue est floue... Comment puis je la modifie ou ou est ce qu'il faut mettre le fichier image avec la roue?
                          1. Mike-31
                            Re,

                            Je l'ai faite rapidement à partir d'un graphique, puis capture écran et retouchée avec un logiciel de dessin.

                            Si tu me laisse un peu de temps je te la referai, ou tu en fais une que tu scannes, ensuite je te dirai comment la paramétrer
                            1. croumble Auteur
                              Apparemment tu as l'air plus équipé que moi alors si tu le faire sa m'arrangerai. J'essaie de mon coté et si je trouve je te dirai mais je ne dit pas non a ton aide
                              • 1
                              • 2

                              Discussions similaires

                              Mac en rade... Roue qui tourne tout le temps
                              Flomacyr

                              3 réponses
                              la roue qui tourne encore et encore ...
                              Cldms

                              10 réponses
                              les heures en centiemes
                              chanchan

                              33 réponses
                              Conversion des centièmes d'heures en heures
                              Mouah40

                              4 réponses
                              Écran noir et roue qui tourne
                              Valedo02

                              4 réponses