Exemple d'utilisation de randomize

Soyez le premier à donner votre avis sur cette source.

Vue 2 927 fois - Téléchargée 253 fois

Description

Ptite source que j'ai fait a l'arache suite a une question sur le forum .... Et allé pas critiquer tel que je vous connais....
Allé A++ et bonne prog a tous ;)

DeAtH_-_CrAsH [;)]

Source / Exemple :


Private Sub Command1_Click()
With cdl
    .DialogTitle = "Ouvrir le fichier texte..."
    .Filter = "Fichier texte(*.txt)|*.txt"
    .FilterIndex = 0
    .ShowOpen
End With

rtb.LoadFile (cdl.FileName)

End Sub

Private Sub Command2_Click()
If rtb.Text = vbNullString Then Exit Sub
Dim MyTab() As String
MyTab() = Split(rtb.Text, " ")
a = UBound(MyTab)
b = 0
While b < 1
Randomize
i = Int(Rnd * a) + 2
If i <= a And MyTab(i) <> vbNullString Then
Text1.Text = MyTab(i)
b = 3
End If
Wend
End Sub

Conclusion :


Dommage qu'il n'y est pas une section niveau 0 sinon c'est la bas que j'aurais foutu cette source...!

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
ouin boff... non sans farce pas mal ta source

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.