Jeu de cluedo

Télécharger le projet
Commenter

Description

petit jeu de cluedo que j ai commencé et que jai pas eu le temps de finir
alors si quelqu'un a des idées
pour l instant un seul crime disponible et pas de mode multijoueur

Source / Exemple : 


Private Sub Cmdask_Click()
Dim cpt, i As Integer
cpt = 0
If Cbojoueur.ListIndex = -1 Then
    MsgBox "selectionner un joueur"
    Exit Sub
End If
If Cbocrime.ListIndex = -1 Then
    MsgBox "selectionner un criminel"
    Exit Sub
End If
If Cbolocate.ListIndex = -1 Then
    MsgBox "selectionner un lieu"
    Exit Sub
End If
If Cboweapon.ListIndex = -1 Then
    MsgBox "selectionner une arme"
    Exit Sub
End If

For i = 0 To Lstcrime(Cbojoueur.ListIndex + 1).ListCount - 1
    If Lstcrime(Cbojoueur.ListIndex + 1).List(i) = Cbocrime.List(Cbocrime.ListIndex) Then
        cpt = cpt + 1
        Exit For
    End If
Next
    
For i = 0 To Lstlocate(Cbojoueur.ListIndex + 1).ListCount - 1
    If Lstlocate(Cbojoueur.ListIndex + 1).List(i) = Cbolocate.List(Cbolocate.ListIndex) Then
        cpt = cpt + 1
        Exit For
    End If
Next

For i = 0 To Lstweapon(Cbojoueur.ListIndex + 1).ListCount - 1
    If Lstweapon(Cbojoueur.ListIndex + 1).List(i) = Cboweapon.List(Cboweapon.ListIndex) Then
        cpt = cpt + 1
        Exit For
    End If
Next

MsgBox ("vous avez au moins " & cpt & " erreur(s)")

End Sub

Private Sub Cmdexit_Click()
End
End Sub

Private Sub Cmdvalid_Click()
Dim k, j, h As String
k = Lstcrime(4).List(0)
j = Lstweapon(4).List(0)
h = Lstlocate(4).List(0)

If Cbocrime.ListIndex = -1 Then
    MsgBox "selectionner un criminel"
    Exit Sub
End If
If Cbolocate.ListIndex = -1 Then
    MsgBox "selectionner un lieu"
    Exit Sub
End If
If Cboweapon.ListIndex = -1 Then
    MsgBox "selectionner une arme"
    Exit Sub
End If
If j = Trim(Cboweapon.List(Cboweapon.ListIndex)) And h = Trim(Cbolocate.List(Cbolocate.ListIndex)) And k = Trim(Cbocrime.List(Cbocrime.ListIndex)) Then
MsgBox ("vous avez gagné")
End
Else
MsgBox ("vous avez perdu")
End
End If

End Sub

Private Sub Form_Load()
Lstcrime(4).AddItem "Colonel MOUTARDE"
Lstlocate(4).AddItem "Petit salon"
Lstweapon(4).AddItem "Revolver"
Lstcrime(0).AddItem "Melle ROSE"
Lstcrime(1).AddItem "BLANCHE"
Lstcrime(2).AddItem "Mme PERVENCHE"
Lstcrime(3).AddItem "Docteur OLIVE"
Lstcrime(0).AddItem "Mademoiselle PECHE"
Lstcrime(1).AddItem "Mme PRUNNELLE"
Lstcrime(2).AddItem "Professeur VIOLET"
Lstweapon(3).AddItem "Poignard"
Lstweapon(0).AddItem "Chandelier"
Lstweapon(1).AddItem "Corde"
Lstweapon(2).AddItem "Clef anglaise"
Lstweapon(3).AddItem "Matraque"
Lstweapon(0).AddItem "Poison"
Lstweapon(1).AddItem "Fer à cheval"
Lstlocate(2).AddItem "Véranda"
Lstlocate(3).AddItem "Grand salon"
Lstlocate(0).AddItem "Cuisine"
Lstlocate(1).AddItem "Bibliothèque"
Lstlocate(2).AddItem "Jardin"
Lstlocate(3).AddItem "Salle à manger"
Lstlocate(0).AddItem "Hall"

End Sub
Télécharger le projet

Codes Sources

A voir également

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.