Willekeurige letters

[Klettekop]

Ik ben een spelletje aan het maken in vb.net en het gaat zo. Met een startbutton begint een timer te lopen met 60 seconden. Op het moment dat er op de button geklikt wordt, moeten er 9 willekeurige letters weergegeven worden in 9 aparte labels. Ook moet de letter "a", "e", "i" 3x meer keer voorkomen dan de andere en letter "o", "u" 2x meer voorkomen.

Ik heb dit voorlopig:
'voor een willekeurige letter per label
Dim rand As New Random
Dim letters As String

letters = ChrW(rand.Next(Asc("A"), Asc("Z") + 1))
Label1.Text = letters

'voor het starten/stoppen van timer
If Timer1.Enabled = False Then
Timer1.Start()
Btnstart.Text = "Pauzeren"
ElseIf Timer1.Enabled = True Then
Timer1.Stop()
Btnstart.Text = "Start"
End If

Ik zoek nu uit hoe de klinkers meer kans hebben om voor te komen. Enige hulp?

 

[CaptainBri]

Ik denk dat dit is wat je bedoelt:

Voordat je de letters hebt bewerkt is er kans om deze letters te genereren:

Nadat ik de letter
A 5x
D 10x
K 15x
Meer kans heb gegeven, zal de kans-string er zo uit zien (waar een random string van gemaakt word):

Je kan natuurlijk ook kleine letters gebruiken, maar ik doe het even met hoofdletters voor de duidelijkheid.

En nadat ik random letters heb gemaakt, heb ik deze letters terug gekregen:

Download het project hier: http://www.mediafire.com/?cef9wlt55lo9ned

En om voor de klinkers meer kans te genereren, voer je de functie zo uit:

ExtraLetters(New String() {"a", "e", "i", "o", "u"}, New Integer() {3, 3, 3, 2, 2})

Succes


PS. Sorry voor net ik had er nog een foutje in zitten, die is er nu uit gehaald

 

[Klettekop]

Heel erg bedankt, heeft me weer goed op weg geholpen

 

[CaptainBri]

Toppie, vraag even op opgelost zetten? (bovenaan rechtsbovenin je 1e post)