Nombres aleatoire avec la methode random

Télécharger le projet
Commenter

Description

cette source utilise la methode randomize et les resultats des msgbox.Je sais que cette methode est utilisée des milliers de fois mais comme je suis débutant et ce genre d'exercice me permet de maitriser peu à peu vb8

Source / Exemple : 


Public Class Form1
    Inherits System.Windows.Forms.Form
    Public y, Times As Integer
    Dim Trouver As Boolean = True
    Dim compteur As Byte
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label4.Text = "saisir un nombre entre 0 et 1000, et deviner le chiffre qui vous fera gagner"

        Randomize()
        Dim r As New Random
        y = r.Next(0, 1000)

        'y = CInt(Rnd() * 100)
        Button1.Enabled = True
        BtnFermer.Visible = False
        Nombre.Value = 0

    End Sub
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        compteur = compteur + 1
        Label2.Text = CStr(compteur) & " essai(s)"

        If Nombre.Value = y Then

            Button1.Enabled = False

            Trouver = True
            Label1.Text = " vous avez gagné"
            Label3.Text = "bravo, vous etes fort"

            BtnFermer.Visible = True
        ElseIf Nombre.Value < y Then

            Trouver = False
            'TextBox1.Text = CStr(x)
            Label1.Text = "trop petit"

            Select Case MsgBox("voulez vous de l'aide?", MsgBoxStyle.YesNo)
                Case MsgBoxResult.Yes
                    Label3.Text = " Nombre  compris entre:" & CStr(y - 5) & " et " & CStr(y + 5)
                    Label3.BackColor = Color.Beige
                Case MsgBoxResult.No
                    Label3.BackColor = Color.Indigo
                    Label3.Text = ""

            End Select
        Else
            Trouver = False
            'TextBox1.Text = CStr(x)
            Label1.Text = "Trop grand"
            Select Case MsgBox("voulez vous de l'aide?", MsgBoxStyle.YesNo)
                Case MsgBoxResult.Yes
                    Label3.Text = " Nombre compris entre:" & CStr(y - 5) & " et " & CStr(y + 5)
                    Label3.BackColor = Color.Beige
                Case MsgBoxResult.No
                    Label3.Text = " "
                    Label3.BackColor = Color.IndianRed

            End Select
        End If
        'End If
        If compteur >= 4 Then

            Me.Close()

        End If
    End Sub

   
    Private Sub BtnFermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFermer.Click
        Me.Close()
    End Sub

    
End Class

Conclusion :


Aprés maintes retouches, je me lance sur les bases de données.Aux critiques bien que acerbes quelques fois m'ont permis à me surpasser. Je tiens à vous remercier trés sincerement. Je souhaiterais entretenir avec certains des liens plus etroits de collaboration du genre télétravail et partage de projet developpé à distance certe mais n'est ce pas le but de la toile. Mon contact est pharma@orange.sn
Faire un projet en commun avec certain qui le voudrons bien, developper un projet international rentable en afrique et en europe avec un groupe heterogene formé de novice et d'initié
serait un reve interessant.
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.

Du même auteur (amsdiop)