Problem avec randomize

Question

Bonjour, j'ai un ptit problem avec randomize, je suis a l'oeuvre de cr&#233;e un jeu a la Simon dit, et j'essaie de faire un randomize pour faire illuminer des images aleatoire, mais aussi qu'il se souvien des images illuminer pour ensuite demander a l'utilisateur de repeter la sequence. Voici un peu de mon code, je sais pas si j'ai donenr les bon code ou si y'en a trop, si ya un prob je vais faire de mon mkieux de donner les bons informations. Merci a l'avance

Option Explicit
Dim A As Variant
Dim B As Variant
Dim C As Variant
Dim D As Variant

Public Function NombreAleatoire(ByVal lnginf As Long, ByVal lngsup As Long) As Long


'Renvoie une valeur comprise entre les limites lngInf et lngSup


Randomize 'initialise le g&#233;n&#233;rateur pseudo-al&#233;atoire
lights = CInt(Int((4 * Rnd()) + 1))
A imgvert2.Visible TrueB imgrouge2.Visible TrueC imgjaune2.Visible TrueD imgbleu2.Visible True
A = 1
B = 2
C = 3
D = 4

cs_Julien39 · Answer

- Les variables osnt mal d&#233;clar&#233;es
- Ces 8 lignes ne servent pas toutes, seules les 4 dernieres sont prises en compteA imgvert2.Visible TrueB imgrouge2.Visible TrueC imgjaune2.Visible TrueD imgbleu2.Visible True
A = 1
B = 2
C = 3
D = 4

- De plus je en voit pas tellement ou tu veux en venir pour faire ce qui est d&#233;crit en commentaire j'aurais fait:

Public Function NombreAleatoire(lnginf As Long, lngsup As Long) As Long


'Renvoie une valeur comprise entre les limites lngInf et lngSup
Randomize 'initialise le g&#233;n&#233;rateur pseudo-al&#233;atoire
NombreAleatoire = fix((lngsup - lnginf) * Rnd + lnginf)

End Function

Mais ton explication n'est pas tres claire. S'il y a autre chose...

PCPT · Answer

salut,

ton topic est tronqu&#233; n'est-ce pas?



NombreAleatoire ne renvoie rien, pas de end function, des variant pour bool&#233;en/entier...



y'a souci l&#224;....

ta fonction devrait ressembler &#224; &#231;&#224; :



Public Function NombreAleatoire(ByVal lngInf As Long, ByVal lngSup As Long) As Long

    NombreAleatoire = CLng((lngSup - lngInf) * Rnd) + lngInf

End Function



le Randomize, une seule fois au Form_Load suffit.



et pour m&#233;moriser, il te faut un tableau.

PCPT · Answer

d&#233;sol&#233; Julien39, refresh....

tekila_bandita · Answer

Bonjour,
J'ai remarqu&#233; que ton code est tr&#232;s mal &#233;crit comme le dise mes camarades (lol), mais en tout cas, moi je pense que si tu veux te rappel&#233; d'une s&#233;quence d'illumination, tu devrais utiliser un tableau contenant chaque valeur que random t'a donn&#233;, et une boucle for...
En tout cas c'est ce que je ferais si jamais j'avais le probleme que j'ai cru comprendre..

The_General · Answer

Ok jvous remercie, et dsl si jai mal decrit, jsuis pas tres habille avec le clavier comme vous avez pu le constatez avec mes lignes de codes, et en ma defence, je vien tout juste de commencer de m'amuser avec VB. Merci encore, ciao


Te_Geeral

Problem avec randomize

5 réponses

Discussions similaires