Discussion :

[prog_deb]

voila mon script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  sub button_click(..........)
randomize()
aleo(str,tab,5)
end sub
Public Sub aleo(str As String,tableau() As Char,nbaffichage As Integer)
 
Dim nb As Integer = 0
Dim a As Integer = 0
Dim stri As Integer
stri = str.Length - 1
nb = stri - nbaffichage
While i <= stri - nb
a = CInt((8 * Rnd()) + 1)
tab(i) = str.Chars(a)
i = i + 1
End While
Dim value As String = ""
For i = 0 To tableau.Length - 1
value = value + tab(i)
Next
Me.TextBox1.Text = value
end sub

le problem est que lorsque je click sur le button charger il me donne une valeur aletoire et quand je supprime la valeur et je click a nouveau il me donne la meme valeur.pourqoui ?

[tomlev]

Vu qu'il y a un appel à Randomize à chaque fois, je pense que le problème n'est pas lié à Rnd mais au traitement que tu fais derrière... essaie de l'exécuter pas-à-pas avec le debugger pour voir ce qui ne va pas

[prog_deb]

j'ai essayé pas mal de fois mais sans resultat.
pour moi s'il marche la premier fois il doit focntionner la 2em fois non ?

[tomlev]

Ben là je comprends vraiment pas ton problème... par curiosité, je viens de tester chez moi, et j'ai bien un texte différent à chaque clic sur le bouton !