MACHINE À SOUS
cs_sofiane2
Messages postés
23
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
1 mai 2013
-
31 juil. 2012 à 02:33
cs_alpha5 Messages postés 74 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 24 mars 2013 - 9 août 2012 à 18:44
cs_alpha5 Messages postés 74 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 24 mars 2013 - 9 août 2012 à 18:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/54478-machine-a-sous
https://codes-sources.commentcamarche.net/source/54478-machine-a-sous
9 août 2012 à 18:44
j'ai essayé cela fonctionne très bien
mais je ne change pas ma source
merci
1 août 2012 à 14:12
Tu peux aussi t'inspirer de cette source (assez proche) :
http://www.vbfrance.com/code.aspx?ID=54444
Sinon, en .NET :
En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
1 août 2012 à 08:28
j'essairai pour voir si ça marche mieux.
31 juil. 2012 à 10:22
Dim rand As New Random
TextBox1.Text = Chr(rand.Next(Asc("a"), Asc("z") + 1))
TextBox2.Text = Chr(rand.Next(Asc("a"), Asc("z") + 1))
TextBox3.Text = Chr(rand.Next(Asc("a"), Asc("z") + 1))
31 juil. 2012 à 02:33
'''''''''''''
voici une fonction plus simple pour avoir des lettres aleatoire ''''''
''''''''''''''''''''''''''''''''''''''''''''''''
Function letterX(ByVal MaxLettre As Integer) As String
Dim rand As New Random
Dim lettre As String
Dim builder As New System.Text.StringBuilder
For x = 1 To MaxLettre
lettre = Chr(rand.Next(Asc("a"), Asc("z") + 1))
lettre = builder.Append(lettre).ToString
Next
Return lettre
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(letterX(3))
End Sub