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

snaff02 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention - 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
Téléphone bloqué code verrouillage - Guide
Pavé tactile bloqué - Guide
Comment savoir si je suis bloqué sur messenger - Guide
Compte gmail bloqué - Guide

3 réponses

Réponse 1 / 3

snaff02 Messages postés 16 Date d'inscription Statut Membre Dernière intervention

Up svp

Réponse 2 / 3

snaff02 Messages postés 16 Date d'inscription Statut Membre Dernière intervention

Réponse 3 / 3

Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention 20

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

Discussions similaires

Torrent qui se bloque

Votre réponse

Discussions similaires