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
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.
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
- Caserandom code
- Case random code - Meilleures réponses
- Case random - Meilleures réponses
- Problème : nombres aléatoires random ✓ - Forum - ASM
- Remplir un tableau avec des nombres aléatoires distincts en c ✓ - Forum - C
- Java nombre aléatoire entre 1 et 100 - Forum - Java
- Initialiser un tableau avec des données aléatoires, tout en ayant des conditions ✓ - Forum - C
- Générateur nombre aléatoire sans remise ✓ - Forum - C / C++ / C++.NET
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
-
3275
- Date d'inscription
- jeudi 3 avril 2008
- Statut
- Membre
- Dernière intervention
- 14 septembre 2014
42 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.