Définir un texte en fonction de la chance!

[Résolu]
Signaler
Messages postés
20
Date d'inscription
jeudi 1 janvier 2004
Statut
Membre
Dernière intervention
30 mai 2005
-
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
Bonjour! je suis une merde, comme ça je préviens :)

Bon enf ait je cherche depuis une heure et je trouve pas: comment puis-je définir un texte en fonction de la chance? Voilà le principe en PHP (car je fais que du PHP)de ce que je veut, si quelqu'un pouvait traduire ç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ée sur trois"
}

Je sais c'est du php donc c'est très simple...mais quel pourrait etre son equivalent en visual basic? merci d'avance!

3 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
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 être sûr que les tirages soient toujours différents (ou reconu comme tels)

Christophe R
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
20
Date d'inscription
jeudi 1 janvier 2004
Statut
Membre
Dernière intervention
30 mai 2005

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é la formule

Clipboard.Clear
Clipboard.SetText Value.Caption

Mais après texte je le met ou? :( j'avais prévenu je suis une merde!^^
merci pour ton aide! :)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Ben si c'est ton texte alé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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci