Araknide

Soyez le premier à donner votre avis sur cette source.

Vue 5 403 fois - Téléchargée 256 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
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

28 déc. 2001 à 16:14
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
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

28 déc. 2001 à 16:11
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!
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

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

28 déc. 2001 à 12:52
C pas top quand meme....
fou volant13
Messages postés
55
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
2 février 2002

28 déc. 2001 à 12:45
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.