Nombres aleatoire avec la methode random

Soyez le premier à donner votre avis sur cette source.

Vue 7 325 fois - Téléchargée 330 fois

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
29
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
2 octobre 2013

Merci Pwm63, vos remarques n'ont permis d'apporter les modifications necessaires, je l'espére à cette tentatives de projet. veuillez jeter un coup d'oeil si vous avez le temps.Et merci encore
Messages postés
127
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
18 mai 2016

Bonjour,

Juste 2 points de détail que j'ai relevé :

Je n'ai pas téléchargé la source, mais à la lecture de celle affichée, on dirait que même si on ne demande pas de l'aide, on l'a quand même.
Tu veux de l'aide ?
Non, merci.
Tiens !

La dernière comparaison est rigolote aussi.
C'est inférieur ?
Euuhhh, en fait, je voulais dire c'est égal ?

Mais je ne parlerai pas du fait que l'on puisse trouver la solution immédiatement après avoir lu l'aide. (ex : 30+40/2=35)

Sur ce, bonne continuation sur vb8 :)
Messages postés
29
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
2 octobre 2013

Ok je tiendrais compte de tes remarques. je vais essayer de reprendre le zip pour y installer le fichier projet (.vbprj)si il se trouve dans la source originale
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
1 le fichier du projet (.vbprj)est important pourquoi n'est il pas présent dans le zip
2 en .net on utilise pas
randomize rnd machin
mais plutot
dim r as new random
r.next(min,max)

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.