3284 connectés

FORUM HardWare.fr

Programmation

Pb a la con VB6

Recherche :

Dernière réponse
Sujet : Pb a la con VB6
Kyle_Katarn	pas mieux

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Kyle_Katarn

pas mieux

karlkox

Public Function Hasard(ByVal Min As Integer, ByVal Max As Integer) As Integer

Randomize
Hasard = Int(Rnd * (Max - Min + 1) + Min)
End Function

GeorgesV

marchi ;)

spark

En VB, t'as la fonctions RND qui te retourne un nombre 'aléatoire' entre 0 et 1.

Donc tu peux te faire une fonction qui te retourne un nombre entre 2 valeurs

Public Function Hasard(ByVal Min As Integer, ByVal Max As Integer) As Integer
Hasard = Int(Rnd * (Max - Min + 1) + Min)
End Function

Ensuite, pour tes 3 valeurs, tu te fait un tableau
comme ca :

Dim Variable(1 to 3) As String
Variable(1) = "pat"
Variable(2) = "marie"
Variable(3) = "régis"

Il te reste plus qu'a faire un

Label3.Caption = Variable(Hasard(1,3))

Voilà, @+

GeorgesV

je débute en programmation.

Comment fé t on pour afficher une variable o pif ?
style :

Private Sub Command1_Click()
variable1 = "pat"
variable2 = "marie"
variable3 = "régis"
Label3.Caption = ????

Le voudrai que label3 affiche a hasar le variable 1, 2 ou 3.

merci de m'indiker