[Aide] Je suis bloqué a l'apprentissage du vb.net
snaff02
Messages postés
16
Statut
Membre
-
Kalissi Messages postés 221 Statut Membre -
Kalissi Messages postés 221 Statut Membre -
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 :
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
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
Bonjour,
Voici ma façon de faire :
n.b. J'ai remplacer les types et instructions de VB6 en types et instructions de VB.Net.
K
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