Difficulté avec les tableaux visual basic.
Résolu/Fermé
kingston2
Messages postés
126
Date d'inscription
samedi 19 septembre 2009
Statut
Membre
Dernière intervention
27 mai 2015
-
14 oct. 2014 à 21:07
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 22 oct. 2014 à 20:32
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 22 oct. 2014 à 20:32
A voir également:
- Difficulté avec les tableaux visual basic.
- Visual basic download - Télécharger - Langages
- Visual click avis ✓ - Forum Consommation et internet
- Visual paradigm - Télécharger - Gestion de données
- Tableaux croisés dynamiques - Guide
- Visual basic mac ✓ - Forum MacOS
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
15 oct. 2014 à 08:38
15 oct. 2014 à 08:38
Bonjour,
Comment définir un nombre pair en VB?
Tout simplement grâce à l'opérateur Mod.
Mod retourne le reste de la division de deux nombres.
Un nombre pair est un nombre qui, divisé par 2, ne donne pas de reste. Donc, si le reste de la division de ton nombre par 2 est égal à 0, ton nombre est pair. S'il est différent de 0, il est impair.
En code cela donne :
Comment définir un nombre pair en VB?
Tout simplement grâce à l'opérateur Mod.
Mod retourne le reste de la division de deux nombres.
Un nombre pair est un nombre qui, divisé par 2, ne donne pas de reste. Donc, si le reste de la division de ton nombre par 2 est égal à 0, ton nombre est pair. S'il est différent de 0, il est impair.
En code cela donne :
Dim monNombre As Integer
Console.WriteLine("entrez une note:")
monNombre = Console.ReadLine()
If monNombre Mod 2 = 0 Then
Console.WriteLine("Nombre pair")
Else
Console.WriteLine("Nombre impair")
End If
kingston2
Messages postés
126
Date d'inscription
samedi 19 septembre 2009
Statut
Membre
Dernière intervention
27 mai 2015
15 oct. 2014 à 17:17
15 oct. 2014 à 17:17
ah ok c'est clair maintenant . Mais pour l'intégrer à un tableau , est-ce que je dois ajuster le code ?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
15 oct. 2014 à 18:16
15 oct. 2014 à 18:16
Tu dois :
- remplir une variable tableau avec 10 valeurs numériques
- boucler sur cette variable et regarder les nombres pairs et impairs
- les nombres pairs tu les stocke dans une variable tableau, les nombres impairs dans une autre
- tu affiches les résultats...
Pour compter le nombre de valeur, base toi sur UBound...
- remplir une variable tableau avec 10 valeurs numériques
- boucler sur cette variable et regarder les nombres pairs et impairs
- les nombres pairs tu les stocke dans une variable tableau, les nombres impairs dans une autre
- tu affiches les résultats...
Pour compter le nombre de valeur, base toi sur UBound...
kingston2
Messages postés
126
Date d'inscription
samedi 19 septembre 2009
Statut
Membre
Dernière intervention
27 mai 2015
15 oct. 2014 à 18:37
15 oct. 2014 à 18:37
Sub Main()
'déclaration des variables
Dim tabvaleurs(9)
Dim index As Integer = 0
Dim tabcompteurpair(9) As Integer
'Remplissage du tableau
For index = 0 To tabvaleurs.Count - 1
Console.WriteLine("Entrez une valeur:")
tabvaleurs(index) = Console.ReadLine()
Next
'déterminer chiffres pairs/impairs
End Sub
J'ai fait ça jusqu'à maintenant. Je ne sais pas comment faire pour relier les IF pairs et impairs au valeurs du tableau.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 16/10/2014 à 08:38
Modifié par pijaku le 16/10/2014 à 08:38
Tu ne va pas reboucler sur toutes les valeurs. Profite donc de ta boucle pour faire ton test :
EDIT : erreur de copié-collé... Le bon code serait :
For index = 0 To tabvaleurs.Count - 1
Console.WriteLine("Entrez une valeur:")
tabvaleurs(index) = Console.ReadLine()
If monNombre Mod 2 = 0 Then
'ICI tu alimentes une variable tableau Pair()
'en utilisant l'instruction ReDim et le mot clé Preserve
Else
'ICI tu alimentes une variable tableau Impair()
'en utilisant l'instruction ReDim et le mot clé Preserve
End If
Next
EDIT : erreur de copié-collé... Le bon code serait :
For index = 0 To tabvaleurs.Count - 1
Console.WriteLine("Entrez une valeur:")
tabvaleurs(index) = Console.ReadLine()
If tabvaleurs(index) Mod 2 = 0 Then 'Erreur ICI Hoouuuu!!!
'ICI tu alimentes une variable tableau Pair()
'en utilisant l'instruction ReDim et le mot clé Preserve
Else
'ICI tu alimentes une variable tableau Impair()
'en utilisant l'instruction ReDim et le mot clé Preserve
End If
Next
kingston2
Messages postés
126
Date d'inscription
samedi 19 septembre 2009
Statut
Membre
Dernière intervention
27 mai 2015
22 oct. 2014 à 02:01
22 oct. 2014 à 02:01
je n'ai pas encore appris les termes redim , et preserve
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
22 oct. 2014 à 07:34
22 oct. 2014 à 07:34
Bonjour,
Alors utilises 2 variables de type String.
Mais je te recommande vivement de te pencher sur ReDim, Preserve, UBound, LBound. Ce sont vraiment les bases pour travailler avec des variables tableaux.
Ensuite, dans cette procédure, tu laisses le choix à l'utilisateur de saisir lui même les nombres. Ils pourraient être déterminés aléatoirement par la procédure elle même. Pour cela, regarde du côté de Randomize. Si tu veux un exemple n'hésite pas.
Alors utilises 2 variables de type String.
Sub Main()
'déclaration des variables
Dim tabvaleurs(9)
Dim index As Integer = 0
Dim NombresPairs As String
Dim NombresImpairs As String
Dim CptPair As Integer
Dim CptImpair As Integer
'Remplissage du tableau
'La boucle
For index = 0 To tabvaleurs.Count - 1
'le remplissage du tableau
Console.WriteLine("Entrez une valeur:")
tabvaleurs(index) = Console.ReadLine()
'déterminer chiffres pairs/impairs
If tabvaleurs(index) Mod 2 = 0 Then
'Traitement nombres pairs
NombresPairs = NombresPairs & Chr(13) & tabvaleurs(index)
CptPair = CptPair + 1
Else
'Traitement nombres impairs
NombresImpairs = NombresImpairs & Chr(13) & tabvaleurs(index)
CptImpair = CptImpair + 1
End If
Next
'affichage du résultat
Console.WriteLine("le nombre de chiffre pairs est de " & CptPair & ". Il s'agit de : " & NombresPairs)
Console.WriteLine("le nombre de chiffre impairs est de " & CptImpair & ". Il s'agit de : " & NombresImpairs)
End Sub
Mais je te recommande vivement de te pencher sur ReDim, Preserve, UBound, LBound. Ce sont vraiment les bases pour travailler avec des variables tableaux.
Ensuite, dans cette procédure, tu laisses le choix à l'utilisateur de saisir lui même les nombres. Ils pourraient être déterminés aléatoirement par la procédure elle même. Pour cela, regarde du côté de Randomize. Si tu veux un exemple n'hésite pas.