Option Strict On Module Module1 Dim Rand As New Random Sub Main() Do For x = 0 To 25 Console.WriteLine(Aleatoire) Next Console.WriteLine("q pour quitter, autre touche pour refaire...") If Console.ReadLine = "q" Then Exit Do Loop End Sub Function Aleatoire() As Integer Return Rand.Next(-10, 10) End Function End Module
Option Strict On Module Module1 Dim Rand As New Random Dim MaListe As New List(Of Integer) Sub Main() For x = 0 To Rand.Next(100) MaListe.Add(Rand.Next(-10, 10)) Next Dim alea As Integer = Rand.Next(0, MaListe.Count) Console.WriteLine("MaListe contient " & MaListe.Count.ToString & " éléments") Console.WriteLine("Je choisis maintenant le " & alea & " ème élément qui est : " & MaListe(alea).ToString) Console.ReadLine() End Sub End Module
Pour améliorer les performances, créez un Random de manière à générer une large quantité de nombres aléatoires dans le temps, au lieu de créer un nouveau Random de façon répétée pour générer un nombre aléatoire.
Sub Main() For x As Integer = 0 To 10 Dim rand As New Random Console.WriteLine(rand.Next(-10, 10)) Next Console.ReadLine() End Sub
Sub Main() Dim rand As New Random For x As Integer = 0 To 10 Console.WriteLine(rand.Next(-10, 10)) Next Console.ReadLine() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionBa faut quand même des doublon c'est utile quand même mais pas trop quoi
' Nombre pseudo aléatoires ' Nombre entiers entre maxi et mini avec un pas de 1 Dim hasard As Integer Randomize hasard = Int((maxi - mini + 1) * Rnd + mini)
cela serait beaucoup mieux pour toi d'essayer
d'écrire ton propre code
enfin fais comme tu veux
et puis le code est 100% de moi là hein, je le confirme !
' exemple fictif
Dim x as integer
x = genere_aleatoire(entier, integer, positif, 2 to 101)
MessageBox.Show(New Random().Next(-10, 10).ToString)
Au faite: je cherche à générer des nombre vraiment aléatoire, je veux dire que jamais les même séquence de nombre serais pareil
c'est pour ça que je crée une liste que je remplie de nombre aléatoire entre X et X puis que je choisie dans cette même liste
un élément aléatoirement pour en fin de compte crée ce fameux nombre aléatoire !
Module Module1 Sub Main() For i = 1 To 24 Console.WriteLine(New Random().Next(-10, 10).ToString) Next Console.ReadLine() End Sub End Module
Option Strict On Module Module1 Function Random(Minimum As Single, Maximum As Single) As Single Dim GéstionnaireAléatoire As New Random Dim MaListe As New List(Of Single) For Remplissage = 1 To GéstionnaireAléatoire.Next(100) MaListe.Add(GéstionnaireAléatoire.Next(CInt(Minimum), CInt(Maximum))) Next Return MaListe(GéstionnaireAléatoire.Next(0, MaListe.Count)) End Function Sub Main() For i = 1 To 24 Console.WriteLine(Random(-10, 10)) Next Console.ReadLine() End Sub End Module