jeu en vb 5
jeu en vb 5 - Programmation
Marsh Posté le 22-08-2001 à 19:48:40
Cherche un site qui s'appelle CI2.FR (voir sur Yahoo.fr). Il doit y avoir ce que tu cherches.
Marsh Posté le 22-08-2001 à 20:06:52
C'est un jeu que j'avais fait ya un moment... c'est dans le style de l'awalé (ou le Bantumi sur les Nokia 3310...) enfin voila je pourrai t'envoyer l'*.exe pour que tu voies les objets la ya que le code mais en entier... enfin voila ...
Option Explicit
Dim NBoule As Variant
Dim NBTas As Variant
Dim IncTas As Variant
Dim VertJoue As Boolean
Dim JauneJoue As Boolean
Dim Victoire As Integer
Dim a As Integer
Dim timing1 As Integer
Dim timing2 As Integer
Private Sub Command1_Click()
Intro.Show
Game.Hide
VertJoue = True
JauneJoue = False
If Victoire <> 0 Then
Label1.Caption = "Joueur Vert : "
Label2.Caption = "Joueur Jaune : "
End If
Shape3.Visible = False
Shape4.Visible = False
Timer1.Interval = 0
Victoire = 0
End Sub
Private Sub Form_Load()
Label1.Caption = Label1.Caption & Intro.Text1.Text
Label2.Caption = Label2.Caption & Intro.Text2.Text
Label5.Caption = "C'est au tour de " & Intro.Text1.Text & " de jouer."
VertJoue = True
JauneJoue = False
Victoire = 0
For a = 0 To 16
Tas(a).Caption = 5
Next a
Tas(8).Caption = 0
Tas(17).Caption = 0
For a = 9 To 16
Tas(a).Enabled = False
Next a
For a = 0 To 7
Tas(a).Enabled = True
Next a
Shape3.Visible = False
Shape4.Visible = False
Timer1.Interval = 0
End Sub
Private Sub Form_Terminate()
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Tas_Click(Index As Integer)
If Victoire <> 0 Then Exit Sub
If Index = 8 Or Index = 17 Then Exit Sub
If Tas(Index).Caption = 0 Then Exit Sub
'Définition des variables
NBoule = Tas(Index).Caption
NBTas = Tas(Index).Caption
Tas(Index).Caption = "0"
'Définition du joueur
If Index < 8 Then VertJoue = True
If Index > 8 Then JauneJoue = True
'Boucle de dépos de boules
For NBoule = NBTas To 1 Step -1
'Retour au début
Index = Index + 1
If VertJoue = True Then
If Index = 17 Then Index = 0
End If
If JauneJoue = True Then
If Index = 8 Then Index = 9
If Index = 18 Then Index = 0
End If
'Dépos de boules
IncTas = Tas(Index).Caption
Tas(Index).Caption = IncTas + 1
'temporisation
If Intro.Option1.Value = True Then
For timing1 = 0 To 4000
For timing2 = 0 To 6000
Next timing2
Next timing1
Game.Refresh
End If
Next NBoule
If VertJoue = True Then
If Index = 0 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(16).Caption) + 1
Tas(16).Caption = 0
End If
End If
If Index = 1 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(15).Caption) + 1
Tas(15).Caption = 0
End If
End If
If Index = 2 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(14).Caption) + 1
Tas(14).Caption = 0
End If
End If
If Index = 3 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(13).Caption) + 1
Tas(13).Caption = 0
End If
End If
If Index = 4 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(12).Caption) + 1
Tas(12).Caption = 0
End If
End If
If Index = 5 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(11).Caption) + 1
Tas(11).Caption = 0
End If
End If
If Index = 6 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(10).Caption) + 1
Tas(10).Caption = 0
End If
End If
If Index = 7 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(9).Caption) + 1
Tas(9).Caption = 0
End If
End If
End If
If JauneJoue = True Then
If Index = 9 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(7).Caption) + 1
Tas(7).Caption = 0
End If
End If
If Index = 10 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(6).Caption) + 1
Tas(6).Caption = 0
End If
End If
If Index = 11 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(5).Caption) + 1
Tas(5).Caption = 0
End If
End If
If Index = 12 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(4).Caption) + 1
Tas(4).Caption = 0
End If
End If
If Index = 13 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(3).Caption) + 1
Tas(3).Caption = 0
End If
End If
If Index = 14 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(2).Caption) + 1
Tas(2).Caption = 0
End If
End If
If Index = 15 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(1).Caption) + 1
Tas(1).Caption = 0
End If
End If
If Index = 16 Then
If Tas(Index).Caption = 1 Then
Tas(Index).Caption = 0
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(0).Caption) + 1
Tas(0).Caption = 0
End If
End If
End If
If Tas(0).Caption = 0 And Tas(1).Caption = 0 And Tas(2).Caption = 0 And Tas(3).Caption = 0 And Tas(4).Caption = 0 And Tas(5).Caption = 0 And Tas(6).Caption = 0 And Tas(7).Caption = 0 Then
For a = 0 To 16
Tas(a).Enabled = False
Next a
Tas(8).Enabled = True
Tas(17).Caption = Int(Tas(17).Caption) + Int(Tas(9).Caption) + Int(Tas(10).Caption) + Int(Tas(11).Caption) + Int(Tas(12).Caption) + Int(Tas(13).Caption) + Int(Tas(14).Caption) + Int(Tas(15).Caption) + Int(Tas(16).Caption)
For a = 9 To 16
Tas(a).Caption = 0
Next a
If Tas(8).Caption > Tas(17).Caption Then
Label5.Caption = "Le vainqueur est " & Intro.Text1.Text & " !"
Victoire = 1
Shape4.Visible = True
Else
Label5.Caption = "Le vainqueur est " & Intro.Text2.Text & " !"
Victoire = 2
Shape3.Visible = True
End If
Timer1.Interval = 300
End If
If Tas(9).Caption = 0 And Tas(10).Caption = 0 And Tas(11).Caption = 0 And Tas(12).Caption = 0 And Tas(13).Caption = 0 And Tas(14).Caption = 0 And Tas(15).Caption = 0 And Tas(16).Caption = 0 Then
For a = 0 To 16
Tas(a).Enabled = False
Next a
Tas(8).Enabled = True
Tas(8).Caption = Int(Tas(8).Caption) + Int(Tas(0).Caption) + Int(Tas(1).Caption) + Int(Tas(2).Caption) + Int(Tas(3).Caption) + Int(Tas(4).Caption) + Int(Tas(5).Caption) + Int(Tas(6).Caption) + Int(Tas(7).Caption)
For a = 0 To 7
Tas(a).Caption = 0
Next a
If Tas(8).Caption > Tas(17).Caption Then
Label5.Caption = "Le vainqueur est " & Intro.Text1.Text & " !"
Victoire = 1
Shape4.Visible = True
Else
Label5.Caption = "Le vainqueur est " & Intro.Text2.Text & " !"
Victoire = 2
Shape3.Visible = True
End If
Timer1.Interval = 300
End If
If Victoire = 0 Then
If VertJoue = True Then
If Index = 8 Then
Exit Sub
End If
If Index <> 8 Then
VertJoue = False
JauneJoue = True
Label5.Caption = "C'est au tour de " & Intro.Text2.Text & " de jouer."
For a = 9 To 16
Tas(a).Enabled = True
Next a
For a = 0 To 7
Tas(a).Enabled = False
Next a
Exit Sub
End If
End If
If JauneJoue = True Then
If Index = 17 Then
Exit Sub
End If
If Index <> 17 Then
VertJoue = True
JauneJoue = False
Label5.Caption = "C'est au tour de " & Intro.Text1.Text & " de jouer."
For a = 9 To 16
Tas(a).Enabled = False
Next a
For a = 0 To 7
Tas(a).Enabled = True
Next a
Exit Sub
End If
End If
End If
Label6.Caption = Victoire
End Sub
Private Sub Timer1_Timer()
If Victoire = 1 Then
If Shape4.FillColor = RGB(0, 0, 0) Then
Shape4.FillColor = RGB(255, 255, 0)
Exit Sub
End If
If Shape4.FillColor = RGB(255, 255, 0) Then
Shape4.FillColor = RGB(0, 0, 0)
Exit Sub
End If
End If
If Victoire = 2 Then
If Shape3.FillColor = RGB(0, 0, 0) Then
Shape3.FillColor = RGB(0, 255, 0)
Exit Sub
End If
If Shape3.FillColor = RGB(0, 255, 0) Then
Shape3.FillColor = RGB(0, 0, 0)
Exit Sub
End If
End If
End Sub
Marsh Posté le 23-08-2001 à 10:03:57
MERCI BCP
JE JETTE UN OUEIL AU CODE ET SI J AI BESION DE VOUS DEMANDERAI L EXE
Marsh Posté le 23-08-2001 à 11:22:59
Dost67 -->BEUUUH C EST CON CA MARCHE PAS 
---------------
SPTRK
Marsh Posté le 23-08-2001 à 12:38:42
Kalou ---> JE VEUX BIEN KE TU M ENVOIES L EXE ET LES IMAGES OCI CI POSSIBLE.
MERCI BCP CA VA ME SAUVER LA VIE
Marsh Posté le 23-08-2001 à 13:28:14
Voila des images des 2 feuilles...
et l'adresse de l'exe...
http://perso.club-internet.fr/raoust/Bantumi.exe
Voila...
Marsh Posté le 23-08-2001 à 13:46:03
Excuse moi j'ai inversé : l'adresse c'est http://www.c2i.fr/ .
Marsh Posté le 22-08-2001 à 14:31:12
je cherche un code de jeu en vb 5(sans active x), ca me sauverait la vie, merci d'avance
---------------
SPTRK