Ajouter des mots aléatoirement

Sujet résolu

10 octobre 2011 à 11:31:15

Bonjour les zéros, je me lance dans le VB.NET et je rencontre un problème: Je voudrais faire afficher, dans une "RichTextBox" des mots de façon aléatoire. Mais je ne sais pas comment faire

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HACK.Click
        'Si le bouton démarrer est enfoncé, on active le timer, on désactive ce bouton et on active RAZ
        Me.TIM_TIM.Enabled = True
        Me.HACK.Enabled = False
        Me.RAZ.Enabled = True
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

   

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PGB_TIM.Click

    End Sub

    Private Sub RAZ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAZ.Click
        'Si le bouton RAZ est enfoncé, on remet la progressbar à 0, on désactive le timer, 
        'on active le bouton démarrer et on désactive le bouton RAZ
        Me.PGB_TIM.Value = 0
        Me.TIM_TIM.Enabled = False
        Me.HACK.Enabled = True
        Me.RAZ.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TIM_TIM.Tick
        If Me.PGB_TIM.Value = 100 Then
            Me.TIM_TIM.Enabled = False
            Me.HACK.Enabled = True
        Else
            'Augmente de 1 la progressbar
            Me.PGB_TIM.Value = Me.PGB_TIM.Value + 1
        End If
    End Sub

    Private Sub MDP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MDP.Click
        Me.mdp2.Text = "thejingle857" 'JE VOUDRAIS POUVOIR METTRE ICI D'AUTRES MOTS QUE thejingle857 DE MANIÈRE ALÉATOIRE
        If Me.PGB_TIM.Value = 0 Then
            Me.mdp2.Text = ""
        End If
        If Me.PGB_TIM.Value <> 100 Then
            MsgBox("Vous devez effectuer entièrement le hack pour continuer")
            Me.mdp2.Text = ""
        End If
    End Sub

    Private Sub nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nouveau.Click
        Me.mdp2.Text = ""
        Me.ndc.Text = ""
        Me.PGB_TIM.Value = 0
        Me.TIM_TIM.Enabled = False
        Me.HACK.Enabled = True
        Me.RAZ.Enabled = False
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitter.Click
        Application.Exit()
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        MsgBox("Ce logiciel a été conçu par choups806." & Chr(10) & Chr(10)

& "Toute reproduction sans l'accord du propriétaire est passible de poursuites judic

iaires" & Chr(10) & Chr(10) & Chr(10) & "Copyright ©2011, choups806, Tout Droits Réservés.")
    End Sub
End Class

Je tiens aussi a préciser que ce n'est pas un programme de hack, malgré l’apparition du mot dans le code. C'est juste un gros fake.

Please help me !

-
Edité par Choups806 26 mai 2017 à 7:25:05

Youpi.

L1ne

10 octobre 2011 à 18:43:12

Citation : Titouan96

C'est juste un gros fake.

Ou du phishing pour les noobs. Ce que je ferai, c'est de mettre, dans un tableau de char, toutes les lettres de l'alphabet, générer un nombre aléatoire entre 0 et 25 puis afficher la lettre correspondantes à la cellule du tableau.

La réponse à tout (sauf pour les aigles)

Choups806

10 octobre 2011 à 18:57:20

Je suis absolument d'accord avec toi (pour le deuxième point) mais... On fait comment ? o_O

Je débute vraiment, même pas deux jours sans passer par la console...
Donc si tu pouvais m'indiquer la marche a suivre, je t'en serais très reconnaissant

Youpi.

L1ne

10 octobre 2011 à 19:04:45

Tu crée un tableaux char, tu génères des nombres aléatoires, puis tu y accède.

Voici plutôt un exemple (en C#), la flemme de retranscrire :

char[] alphabet = new char[] {'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
                         'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'};
Random nb = new Random();
int nombre;
nombre = nb.Next(0, 25);
textBox.Text += alphabet[nombre].ToString();

Utilises des boucles ou des conditions.

EDIT : Conversion en VB.NET

Dim alphabet As Char() = New Char() {"A", "B", "C", "D", "E", "F", _
	"G", "H", "I", "J", "K", "L", _
	"M", "N", "O", "P", "Q", "R", _
	"S", "T", "U", "V", "W", "X", _
	"Y", "Z"}
Dim nb As New Random()
Dim nombre As Integer
nombre = nb.Next(0, 25)
textBox.Text += alphabet(nombre).ToString()

La réponse à tout (sauf pour les aigles)

Choups806

10 octobre 2011 à 19:11:56

houlala merci beaucoup je test ca de suite

Edit: Non ca ne marche pas, les mots n'ont aucun sens.Et il faut appuyer une fois pour chaque lettre (5 fois pour 5 lettres ect...)

je voudrait vraiment pouvoir faire une liste de mots (de noms)

Youpi.

breizhbugs

10 octobre 2011 à 19:58:48

Eh ben tu remplaces les lettres par des mots que tu as choisi et tu mets = au lieu de += ?????? (et remplacer char par string sans doute)

** La doc, c'est comme le PQ: ça sert à se démerder tout seul **

Choups806

10 octobre 2011 à 20:17:16

ha d' accord merci

je test

Edit: merci ça marche mais un problème, on me dit que la valeur dépasse les limites du tableau en m'indiquant la dernière ligne de ce bout de code:

Dim alphabet As String() = New String() {"Theantoniodu69", "floflo965487", "kamikaze4532", _
        "thestrangeman8465", "jigsaw857469"}
        Dim nb As New Random()
        Dim nombre As Integer
        nombre = nb.Next(0, 60)
        Me.mdp2.Text = alphabet(nombre).ToString()

Youpi.

L1ne

10 octobre 2011 à 21:17:32

Normal, ton random doit être entre 0 et 4 puisque que tu n'as que 5 objets dans ton tableaux, après, tu te trouves hors de l'index du tableau. Remplaces 60 par 4.

La réponse à tout (sauf pour les aigles)

Choups806

10 octobre 2011 à 21:36:46

Merci ça fonctionne.

-
Edité par Choups806 20 décembre 2015 à 17:44:29

Youpi.