Araknide

Soyez le premier à donner votre avis sur cette source.

Vue 5 294 fois - Téléchargée 247 fois

Description

un petit jeux strategie rigolot

Source / Exemple :


siv vous voulez mais :
Dim tour As Boolean
Dim nbr As Integer
Private Sub Command1_Click()
For a = 0 To 143
Image2(a).Picture = LoadPicture()

Next
Label1.Caption = "0"
Label2.Caption = "0"
nbr = 0
tour = True
Image4.Picture = Image1(0).Picture
End Sub

Private Sub Form_Load()
tour = True
For a = 0 To 143
Image2(a).Picture = Image1(0).Picture
Image2(a).Height = Image1(0).Height
Image2(a).Width = Image1(0).Width
Image2(a).Picture = Me.Picture

Next
Image4.Picture = Image1(0).Picture
nbr = 0
End Sub

Private Sub Image2_Click(Index As Integer)
If nbr = 99 Then

For a = 0 To 143
If Image2(a).Picture = Image1(0).Picture Then Label2.Caption = Label2.Caption + 1
Next
Label1.Caption = 100 - Label2.Caption
If Label1.Caption > Label2.Caption Then MsgBox "les Rouges gagnent !!!", vbOKOnly, "and the winner is...TA DA !!!" Else MsgBox "les Jaunes gagnent !!!", vbOKOnly, "and the winner is...TA DA !!!"
If Label1.Caption = Label2.Caption Then MsgBox "EGALITE!!!", vbOKOnly, "INCROYABLE !!!"
End If

If Image2(Index).Picture <> Me.Picture Then

Else
nbr = nbr + 1
If tour = True Then Image2(Index).Picture = Image1(0).Picture: tour = False: Image4.Picture = Image3.Picture: Image2(Index).MouseIcon = Image3.Picture Else Image4.Picture = Image1(0).Picture: Image2(Index).Picture = Image3.Picture: tour = True: Image2(Index).MouseIcon = Image2(0).Picture

'***********************************************************************************************
If tour = True And Image2(Index + 1).Picture = Image1(0).Picture Then Image2(Index + 1).Picture = Image3.Picture
If tour = True And Image2(Index - 1).Picture = Image1(0).Picture Then Image2(Index - 1).Picture = Image3.Picture

If tour = True And Image2(Index + 11).Picture = Image1(0).Picture Then Image2(Index + 11).Picture = Image3.Picture
If tour = True And Image2(Index + 12).Picture = Image1(0).Picture Then Image2(Index + 12).Picture = Image3.Picture
If tour = True And Image2(Index + 13).Picture = Image1(0).Picture Then Image2(Index + 13).Picture = Image3.Picture
If tour = True And Image2(Index - 11).Picture = Image1(0).Picture Then Image2(Index - 11).Picture = Image3.Picture
If tour = True And Image2(Index - 12).Picture = Image1(0).Picture Then Image2(Index - 12).Picture = Image3.Picture
If tour = True And Image2(Index - 13).Picture = Image1(0).Picture Then Image2(Index - 13).Picture = Image3.Picture
'If tour = True And Image2(Index - 12).Picture = Image1(0).Picture Then Image2(Index - 12).Picture = Image3.Picture
'***********************************************************************************************
If tour = False And Image2(Index + 1).Picture = Image3.Picture Then Image2(Index + 1).Picture = Image1(0).Picture
If tour = False And Image2(Index - 1).Picture = Image3.Picture Then Image2(Index - 1).Picture = Image1(0).Picture

If tour = False And Image2(Index + 11).Picture = Image3.Picture Then Image2(Index + 11).Picture = Image1(0).Picture
If tour = False And Image2(Index + 12).Picture = Image3.Picture Then Image2(Index + 12).Picture = Image1(0).Picture
If tour = False And Image2(Index + 13).Picture = Image3.Picture Then Image2(Index + 13).Picture = Image1(0).Picture
If tour = False And Image2(Index - 11).Picture = Image3.Picture Then Image2(Index - 11).Picture = Image1(0).Picture
If tour = False And Image2(Index - 12).Picture = Image3.Picture Then Image2(Index - 12).Picture = Image1(0).Picture
If tour = False And Image2(Index - 13).Picture = Image3.Picture Then Image2(Index - 13).Picture = Image1(0).Picture
'If tour = False And Image2(Index - 12).Picture = Image3.Picture Then Image2(Index - 6).Picture = Image1(0).Picture
End If

End Sub

Private Sub Image2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2(Index).MouseIcon = Image4.Picture

End Sub
rien de bien nouveaux

Conclusion :


a vous de le modifier l'ameliorer ou rajouter des trucs ki vous inspirent
le tout c'est de me faire part des modifications apportés pour ke je m'amuse avec votre version

Codes Sources

Ajouter un commentaire Commentaires
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

Jai compris :P

faut mettre les jetons, quand un jeton adverse est à coté de mes jetons, ils change pour lui...

quand il reste pu de careaux vides... le plus gros nombre de jetons gagne!!
c simple! lol
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

mi jme dmande a koi sa sert de mettre le code quand ya un zip... faut créer manuellement les controls...

pi le jeu tu pourrais expliquer... jcomprend po!
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

Image2(a).Picture = LoadPicture() <---- ca doit pas etre une belle image ca!
Messages postés
55
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
2 février 2002

C pas top quand meme....
Messages postés
55
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
2 février 2002

Vire moi le code tout de suite car ca sert strictement a rien!
Met que le zip quand ya des images...

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.