sanji2103
Messages postés3Date d'inscriptionsamedi 28 avril 2012StatutMembreDernière intervention28 avril 2012
-
28 avril 2012 à 10:58
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024
-
28 avril 2012 à 15:30
Bonjour,
je débute (en fait j'ai commencé il y a une heure), du coup je ne sais pas si je suis au bon endroit au niveau du thème !
Je souhaite déclarer un type perso, pour arriver à ça
L'ensemble des chromosomes formant ma population (c'est pour un algo génétique pour résoudre un problème d'ordonnancement). Un gène contient 5 entiers
j'ai donc créé le code suivant :
Public Structure gene
Public gene() As Integer
End Structure
Public Structure chromo
Public chromosome() As gene
End Structure
Module Module1
Dim population As chromo
Dim vecteur(5) As Integer
Dim r As Integer
Dim t As Integer
Sub Main()
population.chromosome(1).gene(1) = 1
MsgBox(population.chromosome(1).gene(1))
' For i = 1 To 5
'r = 1
' For j = 1 To 5
' population.chromosome(i).gene(j) = r
'r = r + 1
' Next
' Next
' MsgBox(population.chromosome(1).gene(3))
J'essaie donc de mettre la valeur 1 dans le premier gène (je me limite à une population de 1 pour tester). Seulement ces lignes bloquent :
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 28 avril 2012 à 11:14
Bonjour,
Tu es ici dans la section
Visual Basic 6 > Langages dérivés > VBA
Et le bout de code montré ne saurait être du VBA (ni même du VB6) !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024159 28 avril 2012 à 14:58
Bonjour,
Ce n'est pas du VBA, mais du .NET (type définit par le mot clé Structure).
Je déplace donc le message.
Sinon, peux-tu représenter plus graphiquement le lien entre les gènes et les chromosomes ?
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024159 28 avril 2012 à 15:30
Bonjour,
"Seulement ces lignes bloquent"
Dans ce cas toujours préciser le message d'erreur, il donne souvent énormément d'info.
Dans ton cas, je pense que tu ne définit pas la taille des tableaux, d'où l'erreur.
Regardes pour dimensionner les tableaus, voir l'instruction Redim ou encore utiliser List(Of T).
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site