Exemple d'utilisation de randomize
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 [;)]
Dommage qu'il n'y est pas une section niveau 0 sinon c'est la bas que j'aurais foutu cette source...!
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
- Exemple d'utilisation de randomize
- Exemple de page d'authentification - Conseils pratiques -PHP
- Exemple de code html page d'accueil ✓ - Forum Graphisme/design
- Exemple de memo ✓ - Forum Delphi / Pascal
- Sms windev exemple - Forum Autres langages
- Exemple base de données e commerce - Forum PHP
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.