🚀 go-pugleaf

Ik ben nog niet zo lang bezig met programmeren en heb volgend probleem.
Ik heb een *.dat bestand dat woorden bevat, nederlandse en hun engelse
vertaling.

Ik heb nu code geschreven die willekeurig 10 woorden neemt uit dat *.dat
bestand en in een array plaatst. Dat lukt allemaal. Die woorden komen dan op
een form te staan. Maar mijn probleem is dat ik soms woorden dubbel heb en
dat krijg ik er niet uit.
Ik weet wat ik moet doen maar ik krijg het niet in code geformuleerd.
de code die ik tot nu toe heb om die 10 woorden willekeurig te kiezen is de
volgende

Dim Woordenzoeker               As Integer

Dim GevondenRecords(1 To 10)    As Integer

Private Type Woord

    strEngels                   As String * 20

    strNederlands               As String * 20

End Type



Private Sub TestEngelsNederlands()



    Timer1.Enabled = True

    EnableDisableButtons True, False, False

    lblTest.Caption = "Test Engels / Nederlands"



    ' 10 woorden zoeken in het woordenboekbestand

    For Woordenzoeker = 1 To 10

        Randomize

        GevondenRecords(Woordenzoeker) = Int((AantalRecords * Rnd) + 1)

        ' de woorden worden opgeslaan in de array GevondenRecords

        Get #1, GevondenRecords(Woordenzoeker), HuidigWoord

        txtNederlands(Woordenzoeker - 1).Enabled = True

        txtOplossing(Woordenzoeker - 1) = HuidigWoord.strNederlands

        txtEngels(Woordenzoeker - 1) = HuidigWoord.strEngels

    Next Woordenzoeker

End Sub

Hopelijk kan iemand me wat verder helpen.
TIA

moorii