[Aide] Je suis bloqué a l'apprentissage du vb.net

Fermé

snaff02 Messages postés 16 Date d'inscription dimanche 3 octobre 2010 Statut Membre Dernière intervention 18 février 2014 - 16 févr. 2014 à 16:29
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 22 févr. 2014 à 14:31

Bonjour , je poste ici car je me suis décidé hier d'apprendre le vb.net (sur openclassroom) mais je suis resté bloqué a ce tp :

Module Module1

    Sub Main()
        'Initialisation des variables
        Dim MonTableau(50), Nombres(10), NumeroTrouve As Integer

        'Remplissage du tableau de nombres aléatoires
        For i As Integer = 0 To MonTableau.Length - 1
            MonTableau(i) = Rnd(1) * 10
        Next

        'Initialisation du tableau « Nombres » avec des 0
        For i = 0 To Nombres.Length - 1
            Nombres(i) = 0
        Next

        'Comptage
        For i = 0 To MonTableau.Length - 1
            'Entre la valeur trouvée dans une variable intermédiaire
            NumeroTrouve = MonTableau(i)
            'Ajoute 1 à la case correspondant au numéro
            Nombres(NumeroTrouve) = Nombres(NumeroTrouve) + 1
        Next

        'Affichage des résultats
        For i = 0 To Nombres.Length - 1
            Console.WriteLine("Nombre de " & i & " trouvés : " & Nombres(i))
        Next

        'Pause
        Console.Read()
    End Sub

End Module

depuis j'essaie de comprendre comment faire ce "mini-TP" mais chose qui m'est impossible , j'ai regarder dans les tutoriels précédent mais aucun ne parle de comptage j'ai donc regarder la correction pour essayer de comprendre mais résultat je n'arrive pas a comprendre plus que avant j'ai donc était voir des tutoriels sur les tableaux et sur For mais rien n'y fais s'il vous plaît aider moi j'aimerais progresser .

Je vous remercie d'avance , cordialement snaff02

A voir également:

[Aide] Je suis bloqué a l'apprentissage du vb.net
Code puk bloqué - Guide
Uptobox bloqué - Accueil - Guide services en ligne
Comment savoir si je suis bloqué sur messenger - Guide
Pavé tactile bloqué - Guide
Compte gmail bloqué - Guide

3 réponses

Réponse 1 / 3

snaff02 Messages postés 16 Date d'inscription dimanche 3 octobre 2010 Statut Membre Dernière intervention 18 février 2014
17 févr. 2014 à 19:13

Up svp

Réponse 2 / 3

snaff02 Messages postés 16 Date d'inscription dimanche 3 octobre 2010 Statut Membre Dernière intervention 18 février 2014
18 févr. 2014 à 19:12

Réponse 3 / 3

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié par Kalissi le 22/02/2014 à 14:33

Bonjour,

Voici ma façon de faire :


Module Module1

    Sub Main()
        'Initialisation des variables
        Dim MonTableau(50), Nombres(10), NumeroTrouve As Int32
        Dim Numero As New Random

        'Remplissage du tableau de nombres aléatoires
        For i As Int32 = 0 To MonTableau.Length - 1
            MonTableau(i) = Numero.Next(1, 10)
        Next

        'Initialisation du tableau « Nombres » avec des 0
        For i = 0 To Nombres.Length - 1
            Nombres(i) = 0
        Next

        'Comptage
        For i = 0 To MonTableau.Length - 1
            'Entre la valeur trouvée dans une variable intermédiaire
            NumeroTrouve = MonTableau(i)
            'Ajoute 1 à la case correspondant au numéro
            Nombres(NumeroTrouve) = Nombres(NumeroTrouve) + 1
        Next

        'Affichage des résultats
        For i = 0 To Nombres.Length - 1
            Console.WriteLine("Nombre de " & i & " trouvés : " & Nombres(i))
        Next

        'Pause
        Console.Read()
    End Sub

End Module

n.b. J'ai remplacer les types et instructions de VB6 en types et instructions de VB.Net.

K