Archief - [PROG]VB array met random

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
_

_DKsissor_

Legacy Member
Ik heb een array aangemaakt met 26 getallen van 1 tot en met 26.
Maar hoe kan ik er nu voor zorgen dat die de niet unieke getallen vervangt door een ander getal dat er nog niet instaat.
Kwil dus eigeiljk een array die random is en gaat van 1 tot 26.
En het geluk dat mn random allemaal verschillende getallen maakte hebk nog neit gehad :p
t

tha_rippa1be

Legacy Member
ik denk dat des hetgeen is dat ge bedoelt?
Code: 
 Randomize()
        Dim i As Integer
        Dim j As Integer
        Dim arr(0 To 25) As Integer
        Dim gevonden As Boolean
        Dim getal As Integer

        While i < 26
            getal = Int(Rnd() * 26 + 1)
            j = 0
            gevonden = False
            While j < i And gevonden = False
                If arr(j) = getal Then
                    gevonden = True
                End If
                j = j + 1
            End While
            If gevonden = False Then
                arr(i) = getal
                i = i + 1
            End If
        End While
de getallen 1 - 26 worden op willekeurige plaatsen in een array gezet
_

_DKsissor_

Legacy Member
als ik nu wil dat er uit een willekeurige array met nummertjes elk nummer aan een button wordt gevoegd met behulp van de ienumerator. Hoe kan ik er dan voor zorgen dat dit nummertje in de tagwaarde vd button komt .
Tis dus zo dat elke button een waarde krijgt en naargelang er op geklikt wordt gaat hij iets laten doen met het element met dezelfde tag.
j = 0
Dim ie As IEnumerator
ie = Me.Controls.GetEnumerator()
ie.MoveNext() 'doorlopen van een enumerator
While (ie.MoveNext <> False And ie.Current().GetType().Name.Equals("PictureBox") And ie.Current().GetType().GetProperty("Tag").GetValue(ie.Current(), Nothing) <> array(j))
ie.MoveNext()
j = j + 1
End While
ie.Current().GetType().GetProperty("Tag").SetValue(ie.Current, array(j), Nothing)
Klik om te vergroten...
zoiets heb ik voorlopig , was deels gegeven code bij. Maark vraag me af zorgt hij met deze code al dat elk element in de array aan een button gegeven wordt
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan