Pb a la con VB6 - Programmation
Marsh Posté le 17-03-2002 à 17:05:10
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à, @+
Marsh Posté le 18-03-2002 à 09:08:02
Public Function Hasard(ByVal Min As Integer, ByVal Max As Integer) As Integer
Randomize
Hasard = Int(Rnd * (Max - Min + 1) + Min)
End Function
Marsh Posté le 17-03-2002 à 16:04:51
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