Définir un texte en fonction de la chance!Résolu

Question

Bonjour! je suis une merde, comme &#231;a je pr&#233;viens :)

Bon enf ait je cherche depuis une heure et je trouve pas: comment puis-je d&#233;finir un texte en fonction de la chance? Voil&#224; le principe en PHP (car je fais que du PHP)de ce que je veut, si quelqu'un pouvait traduire &#231;a en code visual basic :-)

$chance=rand(1,3)
if($chance==1)
{
$texte="la chance tourne"
}
elseif($chance==1)
{
$texte="la chance tourne pas"
}
elseif($chance==3)
{
"La chance est tomb&#233;e sur trois"
}

Je sais c'est du php donc c'est tr&#232;s simple...mais quel pourrait etre son equivalent en visual basic? merci d'avance!

crenaud76 · Accepted Answer

Dim Chance as Long
Dim texte as String
Chance = int(Rnd*3)+1
Select case Chance
   Case 1
       Texte = "Texte1"
   Case 2
       Texte = "Texte2"
   Case 3
       Texte = "Texte3"
End select

Avec un petit "Randomize" quelque part dasn ton code pour &#234;tre s&#251;r que les tirages soient toujours diff&#233;rents (ou reconu comme tels)

 Christophe R

titi6061 · Answer

merci! :) Vu que t'as l'air de t'y connaitre lol :)
J'ai encore une question! si je veut mettre ce texte dans le presse papier , je fais comment? J'ai trouv&#233; la formule 

 Clipboard.Clear
Clipboard.SetText Value.Caption

Mais apr&#232;s texte je le met ou? :( j'avais pr&#233;venu je suis une merde!^^
 merci pour ton aide! :)

crenaud76 · Answer

Ben si c'est ton texte al&#233;atoire que tu veux fouttre dans le presse-papier, tu peux faire ceci ...
Dim Chance as Long

Clipboard.Clear
Chance = int(Rnd*3)+1
Select case Chance
   Case 1
       Clipboard.SetText "Texte1"
   Case 2
       Clipboard.SetText "Texte2"
   Case 3
       Clipboard.SetText "Texte3"
End select

Et ca le fait !

 Christophe R

Définir un texte en fonction de la chance!

3 réponses

Discussions similaires