Séance de combat rpg classic


Télécharger le projet
Commenter

Description

salut!
en cherchant sur le site je nai pas trouver de source semblable donc je la poste, ma source est une source de combat de rpg, je n'ai pas comenté le code mais il est facile a comprendre.

j'espere que sa poura aider quelqun

Source / Exemple : 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox8.Text = TextBox8.Text - 10
        Timer1.Start()
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            TextBox4.Text = TextBox4.Text - 10
            ProgressBar1.Increment(-100)
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Timer1.Stop()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       
        Timer1.Start()
        TextBox4.Text = TextBox4.Text + 20
        TextBox3.Text = TextBox3.Text - 1
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If TextBox3.Text = "0" Then
            Button3.Enabled = False
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer2.Start()
        Timer3.Start()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If TextBox8.Text = "0" Then
            Timer1.Enabled = False
            PictureBox2.Visible = True
            PictureBox1.Visible = False
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
        End If

        If TextBox4.Text = "0" Then
            Timer1.Enabled = False
            PictureBox3.Visible = True
            PictureBox1.Visible = False
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
        End If
    End Sub

Conclusion :


je suis en visual basc 2008 express édition( juste car je ne trouve pas vb6) et si vous pouvez amélioré ma source ne vous gèné pas pour le signalé

a+
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.