- Dit onderwerp bevat 18 reacties, 2 deelnemers, en is laatst geüpdatet op 17 jaren geleden door
.
- Berichten
Ik moet voor school een project maken waarmee ik 10 cijfers tussen de 1 en 25 moet laten verzinnen. Dit doe ik via randomize functie (logisch), maar nu werkt het allemaal wel alleen krijg ik vaak 2 dezelfde getallen, wat ook wel logisch is.
Maar ik heb al verschillende manieren geprobeerd om het op te lossen (listbox.list( ), if i = i etc)
Het wil tot nu toe niet lukken.
Heeft iemand een stukje code en/of tips zodat ik dit kan laten werken.
Code:
Private Sub start_Click()listbox.Clear ‘leeg maken nrbox
Randomize 5 ‘ Initialize random-number generator.
For i = 1 To 10 ‘loop
listbox.AddItem CInt(Rnd * 24) + 1 ‘ zet het in de list
Next
End Sub
Poeh, dat ziet er leuk uit. Je moet eigenlijk ‘n if statement maken waarin je zegt, if getal 1 = getal 2, dan loop en doe alles opnieuw. Geef anders de gehele code zodat we het kunnen testen. Poeh, dat ziet er leuk uit. Je moet eigenlijk ‘n if statement maken waarin je zegt, if getal 1 = getal 2, dan loop en doe alles opnieuw. Geef anders de gehele code zodat we het kunnen testen. Poeh, dat ziet er leuk uit. Je moet eigenlijk ‘n if statement maken waarin je zegt, if getal 1 = getal 2, dan loop en doe alles opnieuw. Geef anders de gehele code zodat we het kunnen testen. dat is de hele code, is maar super simpel programmatje heb een listbox die heet listbox
en een start button waarmee die alles doet.
en ik heb al if i = i then
gaatie weer opnieuw randomizen, maar dan komen er extra getallen bij (moeten er max 10 zijn) en komen er toch dezelfde getallen uitrollen.
dat is de hele code, is maar super simpel programmatje heb een listbox die heet listbox
en een start button waarmee die alles doet.
en ik heb al if i = i then
gaatie weer opnieuw randomizen, maar dan komen er extra getallen bij (moeten er max 10 zijn) en komen er toch dezelfde getallen uitrollen.
dat is de hele code, is maar super simpel programmatje heb een listbox die heet listbox
en een start button waarmee die alles doet.
en ik heb al if i = i then
gaatie weer opnieuw randomizen, maar dan komen er extra getallen bij (moeten er max 10 zijn) en komen er toch dezelfde getallen uitrollen.
Ik denk dat je met zo’n commando eventueel wel wat zou kunnen maken: Code:If Unique Then
colNumbers.Remove n
End IfIk denk dat je met zo’n commando eventueel wel wat zou kunnen maken: Code:If Unique Then
colNumbers.Remove n
End IfIk denk dat je met zo’n commando eventueel wel wat zou kunnen maken: Code:If Unique Then
colNumbers.Remove n
End Ifik ga het morgen ff proberen, kan je ff erbij zetten wat ze allemaal ongeveer doen 
thx
Code:
Private Sub start_Click()nrbox.Clear
Randomize ‘ Initialize random-number generator.
For i = 1 To 10
nrbox.AddItem CInt(Rnd * 24) + 1
If Unique Then
colNumbers.Remove i
End If
Nextend sub
zo doetie het nog niet, pakt die nog steeds dezelfde nummers.
thx
Private Sub start_Click()
nrbox.Clear
Randomize ‘ Initialize random-number generator.
For i = 1 To 10
nrbox.AddItem CInt(Rnd * 24) + 1
If Unique Then
colNumbers.Remove i
End If
Next
end sub
zo doetie het nog niet, pakt die nog steeds dezelfde nummers.
thx
Private Sub start_Click()
nrbox.Clear
Randomize ‘ Initialize random-number generator.
For i = 1 To 10
nrbox.AddItem CInt(Rnd * 24) + 1
If Unique Then
colNumbers.Remove i
End If
Next
end sub
zo doetie het nog niet, pakt die nog steeds dezelfde nummers.
- Je moet ingelogd zijn om een antwoord op dit onderwerp te kunnen geven.