comment faire un puissance 4??

Question

Comment faire en VB6 pour dire ou le pion sera selon la colonne de la grille choisie svp ??
Meci d'avance.
 
Voici le programme actuel, si vous pouvez nous aider : 

Private Sub boutonPion_Click(Index As Integer)


If (Index = Colonne) Then
  casesrouges.Visible = True


End If


End Sub


 


Private Sub Form_Load()



Dim Colonne As Integer
Dim Ligne As Integer
Dim Index As Integer
Dim Index2 As Integer



casesrouges.Visible = False
casesjaunes.Visible = False


' Tableau + Boutons


'Origine   tableau Top = 1320
'Origine   tableau Left = 240
'Origine bouton Top = 960
'Origine bouton Left = 240



For Colonne = 0 To 6


        Index2 = Colonne + 1
        Load boutonPion(Index2)
        boutonPion(Index2).Top = 960
        boutonPion(Index2).Left = 480 + 940 * Colonne
        boutonPion(Index2).Visible = True
        
    For Ligne = 0 To 6
        Index = Colonne + Ligne * 7 + 1
        Load casesvides(Index)
        casesvides(Index).Top = 1320 + 960 * Ligne
        casesvides(Index).Left = 240 + 940 * Colonne
        casesvides(Index).Visible = True
        
    Next Ligne
 Next Colonne
 End Sub

cs_Jack · Answer

Salut
Des appli du jeu 'Puissance 4', il y en a &#224; la pelle sur le site : Lis les codes !

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Gobillot · Answer

diff&#233;rentes solutions.

tester directement le contenu de la case:
http://www.vbfrance.com/code.aspx?id=2779

ou travailler en table:

http://www.vbfrance.com/code.aspx?id=24408

Daniel

Comment faire un puissance 4??

2 réponses

Discussions similaires