texte aleatoire

Question

Bonjour,
Voila un petit problème, j'ai un peu honte,
je n'arrive pas a sortir  dans un text un résultat aléatoire
je m'explique :

j'ai par ex :
un champs txtIci (qui est vide)
avec l'evenement clic et randomize timer je voudrais que dans txtIci on voit "Salut" ou "Souris" ca dépend du randomize !
voila dsler de demander de l'aide pour un probleme aussi bete je n'ai pas de probleme avec des nombres aleatoires mais la vois pas !!

Renfield · Answer

Randomize Timer
        TxtIci.Text =  IIf(Rnd > 0.5, "souris", "salut")


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

pcpunch · Answer

Ou encore!!!! sans timer!!

Dim Txt(0 To 1) As String

Private Sub Command1_Click()
Randomize
Text1 = Txt(Int(Rnd * 2))
End Sub

Private Sub Form_Load()
Txt(0) = "souris"
Txt(1) = "salut"
End Sub

Renfield · Answer

Amusant....

il n'y a pas de timer dans mon code, a quoi bon ??

Timer est une variable qui change toutes les secondes, c'est normallment le nombre de secondes depuis le demarrage de Windows (a verifier...). C'est le parametre optionnel de la procedure Randomize

l'avantage toutefois de cette facon de faire, c'est que l'on peut très facilement le modifier pour un tableau plus ou moins grand....

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_irodieum · Answer

UN SEUL MOT

MERCIS

  :big)

Texte aleatoire

4 réponses

Discussions similaires