Tictacto

Télécharger le projet
Commenter

Description

TicTacTo :)
Eh bien, je voudrai absolument savoir a quel point le code es mauvais?
Trop de IF, comment faire sans? est-ce possible?
Je voudrai tout vos commentaire SVP, meme les mauvaises critiques.

Source / Exemple : 


Option Explicit
Dim Clicks As Integer
Dim test As Integer

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Clicks = 1
End Sub

Private Sub Label1_Click()

End Sub

Private Sub MM_Click()
test = Clicks And 1
If test = 1 Then
    MM.BackColor = &HFF&
Else
    MM.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub BR_Click()
test = Clicks And 1
If test = 1 Then
    BR.BackColor = &HFF&
Else
    BR.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub bm_Click()
test = Clicks And 1
If test = 1 Then
    BM.BackColor = &HFF&
Else
    BM.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub bl_Click()
test = Clicks And 1
If test = 1 Then
    BL.BackColor = &HFF&
Else
    BL.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub ml_Click()
test = Clicks And 1
If test = 1 Then
    ML.BackColor = &HFF&
Else
    ML.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub mr_Click()
test = Clicks And 1
If test = 1 Then
    MR.BackColor = &HFF&
Else
    MR.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub Timer1_Timer()
If ((TR.BackColor And TM.BackColor And TL.BackColor) = &HFF&) Or _
((MR.BackColor And MM.BackColor And ML.BackColor) = &HFF&) Or _
((BR.BackColor And BM.BackColor And BL.BackColor) = &HFF&) Or _
((BL.BackColor And MM.BackColor And TR.BackColor) = &HFF&) Or _
((BR.BackColor And MM.BackColor And TL.BackColor) = &HFF&) Or _
((BR.BackColor And MR.BackColor And TR.BackColor) = &HFF&) Or _
((BL.BackColor And ML.BackColor And TL.BackColor) = &HFF&) Or _
((BM.BackColor And MM.BackColor And TM.BackColor) = &HFF&) Then
    MsgBox "RED WON"
    Timer2.Enabled = True
    Timer1.Enabled = False
ElseIf ((TR.BackColor And TM.BackColor And TL.BackColor) = &HFF8080) Or _
((MR.BackColor And MM.BackColor And ML.BackColor) = &HFF8080) Or _
((BR.BackColor And BM.BackColor And BL.BackColor) = &HFF8080) Or _
((BL.BackColor And MM.BackColor And TR.BackColor) = &HFF8080) Or _
((BR.BackColor And MM.BackColor And TL.BackColor) = &HFF8080) Or _
((BR.BackColor And MR.BackColor And TR.BackColor) = &HFF8080) Or _
((BL.BackColor And ML.BackColor And TL.BackColor) = &HFF8080) Or _
((BM.BackColor And MM.BackColor And TM.BackColor) = &HFF8080) Then
    MsgBox "BLUE WON"
    Timer2.Enabled = True
    Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
TR.Left = TR.Left - 25
TR.Top = TR.Top - 25
MR.Left = MR.Left - 25
BR.Left = BR.Left - 25
BR.Top = BR.Top + 25
TL.Left = TL.Left + 25
TL.Top = TL.Top - 25
ML.Left = ML.Left + 25
BL.Left = BL.Left + 25
BL.Top = BL.Top + 25
TM.Top = TM.Top - 25
BM.Top = BM.Top + 25
End Sub

Private Sub tl_Click()
test = Clicks And 1
If test = 1 Then
    TL.BackColor = &HFF&
Else
    TL.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub tr_Click()
test = Clicks And 1
If test = 1 Then
    TR.BackColor = &HFF&
Else
    TR.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Private Sub tm_Click()
test = Clicks And 1
If test = 1 Then
    TM.BackColor = &HFF&
Else
    TM.BackColor = &HFF8080
End If
    Clicks = Clicks + 1
End Sub

Conclusion :


Je ne fait que debuter dans VB, c pour ca que je voudrai avoir les opinion des autres sur ce que je fait :)

-Merci :)
Télécharger le projet

Codes Sources

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.