Pb a la con VB6

Pb a la con VB6 - Programmation

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

Reply

Marsh Posté le 17-03-2002 à 16:04:51   

Reply

Marsh Posté le 17-03-2002 à 16:23:16    

up

Reply

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à, @+

Reply

Marsh Posté le 17-03-2002 à 17:10:02    

marchi ;)

Reply

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

Reply

Marsh Posté le 18-03-2002 à 09:15:01    

pas mieux

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed