Araknide
Description
un petit jeux strategie rigolot
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
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
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.