DESSINER UN TABLEAU (ET SES VALEURS...... ES-CE POSSIBLE?)

Signaler
-
Messages postés
1
Date d'inscription
mercredi 5 août 2009
Statut
Membre
Dernière intervention
19 mai 2010
-
Programmeurs, programmeuses... Bonjour

J'ai besoin de savoir comment afficher les données d'un tableau qui sont remplies de façons différentes à chaque fois que je lance l'éxécution...

-le tableau doit être carré et doit avoir un nombre de colonnes et de lignes impaires.
-On commence par remplir la case AU-DESSUS de la case centrale par 1.
-On se déplace toujours vers le N-E (haut-droite ;) )
-Si on sort du tableau par le haut on revient en bas mais une colonne en plus
-Si on sort du tableau par la droite on revient à gauche mais un ligne en moins
-Si on se trouve sur une case deja remplie on se déplace vers le N-W (haut-gauche)
Dim Dimension As Integer
Dim Ligne, Colonne, Compteur As Integer
Dim Tableau
    ReDim Tableau(1 To Dimension, 1 To Dimension)
'---------------------------
    Dimension = InputBox ("UN NOMBRE ENTIER IMPAIRE",,1)
    Ligne = ((Dimension - 1) / 2)
    Colonne = ((Dimension + 1) / 2)

    For Compteur = 1 To (Dimension) * (Dimension)
        If Colonne > Dimension Then J = 1
        If Ligne < 0 Then Ligne = Dimension
        If Tableau(Ligne, Colonne) = 0 Then
            Ligne = Ligne - 1
            Colonne = Colonne - 1
            If Colonne < 0 Then Colonne = Dimension
        If Compteur >= Dimension * Dimension Then Exit Sub
            End If
        Tableau(Ligne, Colonne) = Compteur
    Next Compteur


Le plus sadique c'est qu'une fois que le tableau est rempli je ne C plus voir quelle case a quel chiffre
je tape text1.text = tableau(1,2) il ne me le donne pas :sad)

C le plus dur parce que la case (1,1) n'est pas égale à 1 !!! Ce qui rend le tableau un peu "aléatoire" et quand je fais:
For i = 1 to Dimension
For j = 1 to Dimension
Print Tableau(i,j)
Next j
Next i

ET CA NE MARCHE PAS !!!!

Merci d'avance
[mailto: koubihack@hotmail.com]

2 réponses

Salut

Voila un exemple pour ton tableau.

sens de remplissage :

| /|
\|/ / |
| / \|/
|/ |

' Initialisation du tableau
Dim Tableau(100, 100)

' Taille du Tableau
Dimension = 100

' Remplissage du tableau
For x = 1 To Sqr(Dimension)
For y = 1 To Sqr(Dimension)
Tableau(x, y) = (y - 1) * Sqr(Dimension) + (x - 1)
Next
Next

' POur que l'on puisse ecrire sur la form
Me.AutoRedraw = True

' Lecture du Tableau
For x = 1 To Sqr(Dimension)
For y = 1 To Sqr(Dimension)
Print Tableau(x, y),
Next
Print
Next

sqr : Fonction VB qui donne racine carre d'un nombre

Note : le tableau doit etre carre : 5x5 20x20 50x50 ...
et non pas rectangle : 5x10 23x5 12x83 70x20 ...

a+

Int19h
Messages postés
1
Date d'inscription
mercredi 5 août 2009
Statut
Membre
Dernière intervention
19 mai 2010

salut je veux savoir comment faire un tableau pour afficher différent chose de différent tableau d'access
mon programme affiche dans la 1ér colonne lé numéro des sous répartiteur (numSR son nom dans l'acess) et dans la 2ém affiche le nombre des abonné qui son nom satisfaire de son débit adsl (compteur conte le nombre d'abonné à condition qu'il sont supérieur à 30) 3ém colonne même que le 2ém mai en ADSL2+
j'ai écrit ici car presque même sujet

ammouna