Jeux de keno

0/5 (5 avis)

Vue 7 487 fois - Téléchargée 427 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Profitez également du keno gratuit sur le site http://kenogratuit.fr/
Si vous souhaitez jouer au keno sans avoir à télécharger de logiciel, choisissez le mode keno flash. Pour plus ample information, visitez le site http://keno-flash.com/
SnkVrt Messages postés 89 Date d'inscription vendredi 16 mars 2007 Statut Membre Dernière intervention 23 février 2010
20 nov. 2009 à 15:21
Je regrette de ne pas avoir VB.net car j'aurais volontier essayer ton jeu qui m'a l'air pas mal du tout à en voir la capture.
Pour les coms, t'en fait pas, j'ai déposé 4 sources et 3 sont restées vides bien qu'elles soient téléchargées.
On ne dépose pas pour avoir une petite tape dans le dos, mais c'est vrai qu'un petit com, ça fait plaisir et ça motive, et meme les critiques sont bonnes à prendre car ça fait progresser.
Alors au-moins vous les gars qui téléchargez, ça serait vraiment sympas de donner votre avis.
tovin Messages postés 164 Date d'inscription samedi 11 décembre 2004 Statut Membre Dernière intervention 14 août 2013 3
2 oct. 2009 à 07:45
Bonjour,
Ne soit pas désolé, c'est la pratique :
- tu dépannes un gars en répondant à sa question, surtout n'attends pas un merci qui ne viendra jamais.
- il télécharge ton logiciel, surtout n'attends pas un commentaire.
C'est le monde actuel.
A +
cs_clinik Messages postés 34 Date d'inscription vendredi 12 novembre 2004 Statut Membre Dernière intervention 1 novembre 2012
26 sept. 2009 à 15:14
722 vues, / 60 downloads / 0 comments...

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.