Index du Forum




 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Crée un tableau de nombre aléatoire

 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code
Sujet précédent :: Sujet suivant  
Auteur Message
Dayvid
Administrateur

Hors ligne

Inscrit le: 24 Oct 2012
Messages: 89
Localisation: Vienne - Poitiers (86000)
Masculin Lion (24juil-23aoû)
Point(s): 107
Moyenne de points: 1,20

MessagePosté le: Lun 30 Sep 2013 - 19:03    Sujet du message: Crée un tableau de nombre aléatoire Répondre en citant

Salut,

Voici un petit exemple pour savoir créer un tableau et y mettre des nombres aléatoires puis ensuite de lire ce même tableau:
Code:
' Code créé par Monsieur Dieppedale David le 30 Septembre 2013

Module Module1

    Sub Main()

        ' Création d'un tableau à 2 dimentions: 10 x 10 car on compte le 0.
        Dim MonTableau(9, 9) As Int64

        ' Création et initialisation de l'objet pour créer des nombres aléatoires.
        Dim GénérateurNombreAléatoire As New Random

        ' Création de la variable pour les nombres aléatoires.
        Dim NombreAléatoire As Int64 = 0

        ' Remplissage du tableau en Y.
        For Y = 0 To 9

            ' Remplissage du tableau en X.
            For X = 0 To 9

                ' Génération du nombre aléatoire entre 0 et 9999.
                NombreAléatoire = GénérateurNombreAléatoire.Next(0, 9999)

                ' Insertion du nombre aléatoire dans le tableau en X et en Y.
                MonTableau(X, Y) = NombreAléatoire

            Next

        Next

        ' Lecture du tableau en Y.
        For Y = 0 To 9

            ' Lecture du tableau en X.
            For X = 0 To 9

                ' Inscription dans la console du nombre aléatoire contenu.
                ' dans le tableau à la position actuel de X et de Y.
                Console.Write(MonTableau(X, Y))

                ' Si on est pas à la fin du tableau en X
                If X < 9 Then
                    ' Inscription d'une virgule dans la console pour séparer les nombres aléatoires.
                    Console.Write(", ")
                End If

            Next

            ' Une fois qu'on à fini de lire la ligne en X, on va à la ligne dans la console.
            Console.WriteLine()

        Next

        ' On attend que la touche entrée soit appuyée pour continuer
        Console.ReadLine()

    End Sub

End Module


Voici un autre exemple mais cette fois on calcule le temps que cella va mettre:
Code:
' Exemple réalisé par Monsieur Dieppedalle David le 20 octobre 2013.
' Note: Comme l'ont peut le voir, l'écriture ainsi que la lecture dans un tableau est ultra rapide !

Module Module1

    Sub Main()

        ' Création du tableau de nombre de 2000 x 2000.
        Dim Tableau(1999, 1999) As Integer

        ' Création de l'objet pour crée des nombres aléatoires.
        Dim GénérateurNombreAléatoire As New Random

        ' Création de la variable pour calculer le temps de départ.
        Dim Temps1 As Double = 0

        ' Création de la variable pour calculer le temps de fin.
        Dim Temps2 As Double = 0

        ' Création de la variable pour lires les nombres dans le tableau.
        Dim Nombre As Integer = 0

        Temps1 = Timer ' Récupération du temps actuel.

        ' Création d'une boucle pour remplire tous le tableau de nombres aléatoires.
        For Y = 0 To 1999 ' Lignes du tableau.

            For X = 0 To 1999 ' Colonne du tableau.

                ' Génération et écriture du nombre aléatoire dans le tableau.
                Tableau(X, Y) = GénérateurNombreAléatoire.Next(0, 999999999)

            Next

        Next

        Temps2 = Timer ' Récupération du temps actuel.

        ' Ecriture dans la console du temps que cella a mit.
        Console.WriteLine("Temps d'écriture = " & Temps2 - Temps1 & " Seconde")

        Temps1 = Timer ' Récupération du temps actuel.

        ' Création d'une boucle pour lire tous le tableau de nombres aléatoires.
        For Y = 0 To 1999 ' Lignes du tableau.

            For X = 0 To 1999 ' Colonne du tableau.

                ' Lecture du nombre aléatoire dans le tableau.
                Nombre = Tableau(X, Y)

            Next

        Next

        Temps2 = Timer ' Récupération du temps actuel.

        ' Ecriture dans la console du temps que cella a mit.
        Console.WriteLine("Temps de lecture = " & Temps2 - Temps1 & " Seconde")

        ' Attend que l'utilisateur est appuyé sur la touche "Entrée" pour continuer.
        Console.ReadLine()

    End Sub

End Module

N'hésitez pas à donner vos avis Clin d'œil / Conseil
_________________
Le respect n'est pas en option, mais une obligation !
Je serai intransigeant sur ce point-ci !

Veuillez s'il vous plait, aider les membres du mieux que vous le pouvez,
mais ne faites pas tout à leur place non plus, car ce n'est pas les aider !
La programmation est déjà assez difficile comme ça !


Revenir en haut
Publicité






MessagePosté le: Lun 30 Sep 2013 - 19:03    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com