Simuler un lancé de dé

Bonjour à tous,

Après recherche je n'ai pas trouvé de sujet similaire sur le site, en VB .NET du moins. Et mes recherches sur le net se sont révélées infructueuses. :?

Donc voici mon problème : je code actuellement un petit jeu de rôle, et j'en suis au tout début. Je bloque sur un truc tout bête, mais la solution m'échappe toujours. Comment simuler simplement un lancé de dé ??? :aie:

J'ai essayé avec le bout de code suivant :

Code:

---

1 2 3 4

resultat as integer() Randomize() resultat = CInt(Int((6 * Rnd()) + 1))

---

Cependant la 3e ligne est soulignée après le "=" et une erreur me dit qu'il est impossible de mettre en integer un tableau à 1 dimension de integer. J'ai pourtant bien transformé le type je pense. :(

Voilà, est-ce que ce code peut être réparé ? ou est-ce que je fais fausse route, et il y a une autre solution qui fonctionne pour simuler un lancé de dé ?

Merci d'avance d'avoir tout lu, et surtout de me répondre. :ccool:

Cordialement.

essai cela

Code:

---

1 2 3 4 5

dim resultat as integer Dim random As New Random()   resultat = random.next(1,7)

---

Sur vb.net random est devenu apparement une classe a part entière.

petite correction sur la plage ( 1,7)

Code:

---

resultat = CInt(6 * Rnd() + 1)

---

Merci pour les réponses. J'essaie ça dès que possible et je vous tiens au courant !

Cordialement

C'est bon, cette solution fonctionne, j'ai pu créer mon simulateur de lancé de dé.

Merci à vous.

Cordialement.