Hallo
Ik heb een probleem met m'n applicatie.
Er moeten 10 keer 6 verschillende cijfers tussen 1 en 42 getrokken worden.
per trekking (10 trekkingen van 6 cijfers dus) mogen er geen dubbele waarden komen.
Hier mijn code:
Mijn probleem zit 'em in het feit dat het programma soms meer of minder dan 6 cijfers op een rij (in m'n textbox) zet en ik kan maar niet vinden aan wat het kan liggen.
Ik heb een probleem met m'n applicatie.
Er moeten 10 keer 6 verschillende cijfers tussen 1 en 42 getrokken worden.
per trekking (10 trekkingen van 6 cijfers dus) mogen er geen dubbele waarden komen.
Hier mijn code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| txtOutput.Clear()
Randomize()
Dim intTrekkingnr, intAantnrs, intControle As Integer 'tellers
Dim arrLottotrekking(9, 5), getrokkennr As Integer
For intTrekkingnr = 0 To 9 '10 trekkingen
For intAantnrs = 0 To 5 '6 nummers/trekking
getrokkennr = Int(42 * Rnd() + 1) 'getal toewijzen
If intAantnrs >= 1 Then
For intControle = intAantnrs To 1 Step -1 'controleren
If getrokkennr = arrLottotrekking(intTrekkingnr, intControle) Then
intAantnrs -= 1
Exit For
End If
Next intControle
arrLottotrekking(intTrekkingnr, intAantnrs) = getrokkennr
End If
txtOutput.Text &= getrokkennr & "-".ToString
Next intAantnrs
txtOutput.Text &= vbNewLine
Next intTrekkingnr |
Mijn probleem zit 'em in het feit dat het programma soms meer of minder dan 6 cijfers op een rij (in m'n textbox) zet en ik kan maar niet vinden aan wat het kan liggen.