Roue qui tourne Résolu

Question

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

Configuration: Windows Vista / Firefox 4.0

croumble · Accepted Answer

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

chipettescool · Answer

Tu pourrais t'exprimer mieux ?

croumble · Answer

Personne n'a une idée au moins pour commencé?

Dynamix · Answer

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?

croumble · Answer

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 :

Dynamix · Answer

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

croumble · Answer

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.

croumble · Answer

Personne ne peut m'aider?:(

Mike-31 · Answer

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.

croumble · Answer

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.

croumble · Answer

est ce que ton projet avance ? J'ai aussi la  version 2003 d'exel si sa peut t'arranger

Mike-31 · Answer

Re,

Regarde ce fichier voir si c'est ce que tu cherches

https://www.cjoint.com/?jtxDOVbJil

michel_m · Answer

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

Mike-31 · Answer

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.

croumble · Answer

Merci mais je fait quoi de cela ? Je l'utilise avec quel logiciel?

croumble · Answer

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?

Mike-31 · Answer

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

croumble · Answer

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

Mike-31 · Answer

Allez va je te fais ça pour demain matin

Dynamix · Answer

Tu as reçu mon mp croumble?

Dynamix · Answer

Bah dans tes mp :p. C'est la réponse au premier que tu m'avais envoyé.

Mike-31 · Answer

Re,

Récupére le fichier et dis moi si tu préféres les numéros sur fond blanc ou directement dans la couleur de la roue, ainsi que les numéros croissants à droite ou à gauche comme sur cette roue

https://www.cjoint.com/?jvlhjWD8u4

croumble · Answer

Directement sur la couleur de la roue.
elle est très belle celle sur le document du post précèdent.
Pour les numéros n'importe mais est t-il possible de la faire tourné dans les deux sens?

Mike-31 · Answer

Re,

Alors je te termine la roue dans la soirée. Pour le sens de rotation, je vais voir mais je ne pense pas, je ne me suis jamais posé cette question

croumble · Answer

A tu fini la roue ?

Mike-31 · Answer

Re,

Oui, oui voilà il n'y a pas le feu, nous sommes bénévoles


https://www.cjoint.com/?jwoIelccJk

Pour faire tourner le roue en sens inverse, modifie cette ligne

.Rotation = i

en ajoutant un moins devant le i

.Rotation = -i

Mike-31 · Answer

Voilà

https://www.cjoint.com/?jwqGGtijRx

croumble · Answer

Merci je t'enverrai un MP si j'ai d'autre question

Roue qui tourne

28 réponses

Discussions similaires

Newsletters