Jeux de keno

Télécharger le projet
Commenter

Description

Voilà ma première source que je poste. Elle est pratiquement terminée...

J'avais programmé un peu en VB6 et je me lance en .Net

La source n'est pas vraiment Détaillé non plus sauf que les variable sont facile a reconnaîte..

J'attend vos commentaire!

Merci

Source / Exemple : 


Public Class Form1

#Region "Declaration des variables"
    Dim NbrDeCaseChoisi As Integer
    Dim LaCaseQuiEstChoisi As String
    Dim LaCase(LaCaseQuiEstChoisi) As String
    Dim i As Integer
    Dim resultat As New ArrayList
    Dim LeNombre As Integer
    Dim varBonNombre As Double
    Dim varBadNombre As Double
    Dim CASH As Double = 1000
    Dim LaMise As Double
#End Region
#Region "Menu bar"

    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        End
    End Sub

    Private Sub NouvellePartieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouvellePartieToolStripMenuItem.Click
        Call Reset()
    End Sub
    Private Sub EffacerLaGrilleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EffacerLaGrilleToolStripMenuItem.Click
        Call OnlyResetGrid()
    End Sub
#End Region
#Region "Boutons de 1 à 80"

    Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click
        LaCaseQuiEstChoisi = 1
        Call CaseChoisi()
    End Sub

    '' Ainsi de suite jusqu'à 80..

#End Region
#Region "Function de Case choisi"
    Public Sub CaseChoisi()

        'Si le bouton n'est pas choisi.

        If NbrDeCaseChoisi < 10 Then
            If Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.MediumSlateBlue Then
                NbrDeCaseChoisi -= 1
                Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Transparent

            Else 'Si la case n'est pas déjà chosie, alors
                NbrDeCaseChoisi += 1
                Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.MediumSlateBlue
                If NbrDeCaseChoisi = 10 Then
                    Call PretAJouer()
                End If
            End If
        ElseIf NbrDeCaseChoisi = 10 Then
            Call PretAJouer()
        End If
        'Si le bouton n'est pas choisi
    End Sub
#End Region
#Region "Function de Reset"
    Private Sub Reset()
        StartBouton.Enabled = False
        btnRejouer.Enabled = False
        Resultbox.Items.Clear()
        gain.Items.Clear()
        For j = 1 To 80
            LaCaseQuiEstChoisi = j
            Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Transparent
        Next
        NbrDeCaseChoisi = 0
        varBonNombre = 0
        varBadNombre = 0
        lbon.Text = ""
        lbad.Text = ""

    End Sub
#End Region ''Fin de la fonction de Reset
#Region "Function de random"
    Public Sub Randomeur()
        CASH -= LaMise
        Randomize()
        For j = 1 To 20
Dejachoisi:
            LeNombre = CInt((Rnd() * 79) + 1)
            LaCaseQuiEstChoisi = LeNombre
            'si le nombre a déjà été donnée (sois la case est verte ou rouge)
            If Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Green Or Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Red Then
                GoTo Dejachoisi
            Else
                If Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.MediumSlateBlue Then
                    Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Green
                    Resultbox.Items.Add(LeNombre & " <- BRAVO !")
                    varBonNombre += 1
                    lbon.Text = varBonNombre & "/" & varBadNombre
                Else
                    Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Red
                    Resultbox.Items.Add(LeNombre & " <- DÉSOLÉ !")
                    varBadNombre += 1
                    lbon.Text = varBonNombre & "/" & varBadNombre
                End If
            End If
        Next
        Call GiveMoney()
    End Sub
#End Region
#Region "Function Rejouer"
    Private Sub Rejouer()
        If txtMise.Text > CASH Then
            txtMise.Text = 1
        Else
            varBonNombre = 0
            varBadNombre = 0
            For j = 1 To 80
                LaCaseQuiEstChoisi = j
                If Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Red Then
                    Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Transparent
                ElseIf Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Green Then
                    Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.MediumSlateBlue
                End If
            Next
            Resultbox.Items.Clear()
            Call Randomeur()
        End If
    End Sub
#End Region
#Region "Function Pret a jouer"
    Private Sub PretAJouer()
        For j = 1 To 80
            'Me.Controls("b" & i.ToString).Enabled = False
        Next
        StartBouton.Enabled = True
    End Sub
#End Region
#Region "Function Choix De Nombre au hasard"
    Private Sub ChoixHasard()
        Call Reset()
        For j = 1 To 10
Encore:     'label pour revenir si la case est déjà prise
            Randomize()
            LeNombre = CInt((Rnd() * 79) + 1)
            LaCaseQuiEstChoisi = LeNombre
            'si la case est déjà coché
            If Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.MediumSlateBlue Then
                GoTo Encore
                'si la case n'est pas déjà prise:
            Else
                Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.MediumSlateBlue
                Resultbox.Items.Add(LaCaseQuiEstChoisi & " <- Choix au hasard")
            End If
        Next
        'Resultbox.Sorted = True
    End Sub
#End Region
#Region "Function Verification pour argent"
    Public Sub GiveMoney()
        If varBonNombre = 1 Then
            gain.Items.Add("Désolé, 1 bon nombre.")
        ElseIf varBonNombre = 2 Then
            gain.Items.Add("Désolé, 2 bon nombre.")
        ElseIf varBonNombre = 3 Then
            gain.Items.Add("Vous gagnez votre mise.")
            CASH += LaMise
        ElseIf varBonNombre = 4 Then
            gain.Items.Add("Vous gagnez 2x votre mise.")
            CASH += (LaMise * 2)
        ElseIf varBonNombre = 5 Then
            gain.Items.Add("Vous gagnez 3x votre mise.")
            CASH += (LaMise * 3)
        ElseIf varBonNombre = 6 Then
            gain.Items.Add("Vous gagnez 4x votre mise.")
            CASH += (LaMise * 4)
        ElseIf varBonNombre = 7 Then
            gain.Items.Add("Vous gagnez 5x votre mise.")
            CASH += (LaMise * 5)
        ElseIf varBonNombre = 8 Then
            gain.Items.Add("Vous gagnez 8x votre mise.")
            CASH += (LaMise * 8)
        ElseIf varBonNombre = 9 Then
            gain.Items.Add("Vous gagnez 9x votre mise.")
            CASH += (LaMise * 9)
        ElseIf varBonNombre = 10 Then
            gain.Items.Add("!! JACKPOT !! Vous gagnez 20x votre mise.")
            CASH += (LaMise * 20)
        Else
            gain.Items.Add("Désolé, aucun bon nombre.")
        End If
        cashlabel.Text = CASH
        If CASH <= 0 Then
            Call gameover()
        End If
    End Sub
#End Region
#Region "Function OnlyResetGrid"
    Public Sub OnlyResetGrid()
        For j = 1 To 80
            LaCaseQuiEstChoisi = j
            Me.Grouptabledejeux.Controls("b" + LaCaseQuiEstChoisi).BackColor = Color.Transparent
        Next
    End Sub
#End Region
#Region "Function GAMEOVER"
    Public Sub gameover()
        MessageBox.Show("Vous n'avez plus d'argent", "GAME OVER!")
        btnRejouer.Enabled = False
        btnChoixHasard.Enabled = False
        btnReset.Enabled = False
    End Sub
#End Region
#Region "Autres boutons"
    Private Sub StartBouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartBouton.Click
        btnRejouer.Enabled = True
        StartBouton.Enabled = False

        Call Randomeur()
    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        btnRejouer.Enabled = True
        Call Reset()
    End Sub

    Private Sub btnRejouer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRejouer.Click
        Call Rejouer()
    End Sub

    Private Sub btnChoixHasard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChoixHasard.Click
        Call ChoixHasard()
        StartBouton.Enabled = True

    End Sub

    Private Sub datetimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datetimer.Tick
        DateLabel.Text = Date.Now
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Reset()
        DateLabel.Text = Date.Now
    End Sub

    Private Sub txtMise_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMise.TextChanged
        If txtMise.Text <= 0 Then
            txtMise.Text = 1
        ElseIf txtMise.Text > CASH Then
            txtMise.Text = 1
        End If
        LaMise = txtMise.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call OnlyResetGrid()
    End Sub
    #End Region
End Class
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.