DÉBUT D'UN JEU EN 3D SUR VB.NET (RESSEMBLE À DOFUS)

Commentaire de benji2000 le 12/04/2008 15:38:55

on je me retrouve face a un nouveau problème , il faudrait trouver un code qui permet de nommer les cases comme avant mais de différente disposition enfin C pas facile a expliquer ...
Voilà le positionnement de mes cellules :

    C            C   C   C
  C C C            C   C
C C C C C   ->   C   C   C
  C C C            C   C
    C            C   C   C

Vue de face ->   Vue en 3D

Alors pour cette disposition j'y arrive mais le problème maintenant et qu'il faut tous leur donner un nom tel que :

    C       ->                   {0;0}
  C C C     ->          {-1;1} , {0;1} , {1;1}
C C C C C   -> {-2;2} , {-1;2} , {0;2} , {1;2} , {2;2}
  C C C     ->          {-1;3} , {0;3} , {1;3}
    C       ->                   {0;4}

Ce qui nous donnerais en 3D :

C   C   C   -> {0;0} , {1;1} , {2;2}
  C   C     ->     {0;1} , {1;2}
C   C   C   -> {-1;1}, {0;2} , {1;3}
  C   C     ->     {-1;2}, {0;3}
C   C   C   -> {-2;2}, {-1;3}, {0;4}

Voilà , je crées mes cellules sous la forme :
__________________________________________

Dim XX As Integer = 1

For Y = 0 To NbrY.Text - 1
    If XX = 0 Then
        XX = 1
    Else
        XX = 0
    End If

    For X = 0 To NbrX.Text - 1 - XX
        ReDim Preserve NoCase(NbrCases)
        NoCase(NbrCases) = New System.Windows.Forms.Label
        With NoCase(NbrCases)
            .Name = ?         <- Le problème viens d'ici ou j'ai besoin de la formule
            ....
            .Location = New Point(X * 40 + XX * 20, Y * 13) <- je les positionnes sous le format 3D
            ....
            ToolTip1.SetToolTip(NoCase(NbrCases), .Name) <- Je donnes leur nompour que celui si soit visible
            ....
            Me.Panel1.Controls.Add(NoCase(NbrCases)) <- Et pour finir j'ajoute la nouvelle cellule
            ....
        End With
        NbrCases += 1
    Next
Next
__________________________________________

Donc si j'ai la chance de tomber sur un mathématicien super doué en logique, qu'il puisse me donner ses idées...

Merci pour votre attention.