Probleem met Array's

Thread View: be.comp.programming

7 messages

[T] Back to Threads [V] Tree View [G] Group Articles

7 total messages Started by moorii Sat, 07 Dec 2002 06:16

#6543

Author: moorii
Date: Sat, 07 Dec 2002 06:16

64 lines
2560 bytes

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

Re: Probleem met Array's

#6544

Author: Jeffrey Drooghenbroodt
Date: Sat, 07 Dec 2002 07:08

46 lines
2434 bytes

moorii wrote:

> 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

[...]

>     ' 10 woorden zoeken in het woordenboekbestand
> 
>     For Woordenzoeker = 1 To 10

Dit stuk...

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

...gooi je in een loop, die checkt of de record in kwestie al in de 
array voorkomt (en dus een dubbel zou veroorzaken). Als dat het geval 
is voer je de loop opnieuw uit, anders ga je verder.

Hoe je in dit taaltje moet loopen zul je wel in ��n of andere manual 
vinden veronderstel ik (en ik ben te moe om veel te tikken).

> Hopelijk kan iemand me wat verder helpen.

Lijkt me de simpelste oplossing (toch om uit te leggen) (-;



Slaap lekker! (o;


Jeffrey
-- 
http://www.pebbels.be/

Re: Probleem met Array's

#6545

Author: moorii
Date: Sat, 07 Dec 2002 07:27

58 lines
2858 bytes

"Jeffrey Drooghenbroodt" <jeffrey@pebbels.be> schreef in bericht
news:Xns92DD52C2896A5IIjeffrey@pebbels.be...
> moorii wrote:
>
> > 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
>
> [...]
>
> >     ' 10 woorden zoeken in het woordenboekbestand
> >
> >     For Woordenzoeker = 1 To 10
>
> Dit stuk...
>
> >         Randomize
> >
> >         GevondenRecords(Woordenzoeker) = Int((AantalRecords * Rnd)
> >         + 1)
>
> ...gooi je in een loop, die checkt of de record in kwestie al in de
> array voorkomt (en dus een dubbel zou veroorzaken). Als dat het geval
> is voer je de loop opnieuw uit, anders ga je verder.
>
> Hoe je in dit taaltje moet loopen zul je wel in ��n of andere manual
> vinden veronderstel ik (en ik ben te moe om veel te tikken).
>
> > Hopelijk kan iemand me wat verder helpen.
>
> Lijkt me de simpelste oplossing (toch om uit te leggen) (-;
>
>
>
> Slaap lekker! (o;
>
>
> Jeffrey
> --
> http://www.pebbels.be/
>

Bedankt voor de reactie.
Dat is volgens mij ook de manier om het probleem op te lossen, ik heb al
uren zitten zoeken maar ik krijg het niet goed geformuleerd in code.

Sloppel !!

moorii

Re: Probleem met Array's

#6546

Author: Zero Tolerance
Date: Sat, 07 Dec 2002 09:11

31 lines
2318 bytes

moorii wrote:

> 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
<knip code>

Ik ken geen jota van VB, maar ik kan wel een oplossing geven.

Gebruik hashes. Dan zet je als key bv de Nederlandse vertaling en als inhoud 
de Engels. Als nu een Nederlands woord 2 maal voorkomt, heb je 2 maal 
dezelfde key, dus maar 1 voorkomen.
Kan je nog uitbreiden door elk element een array te maken met de 
overeenkomstige woorden.

2 hashes maken, NL->EN en EN->NL en je bent vertrokken.
Hashes is de beste uitvinding die er bestaat :-)

-- 
Zero Tolerance
CD -> MP3 + CUE ? : Cue Creator
MP3 + CUE -> CD ? : Cue Burner
All @ http://users.pandora.be/Zero.Tolerance

Re: Probleem met Array's

#6552

Author: Ben Turner
Date: Sat, 07 Dec 2002 14:20

10 lines
1370 bytes

"Zero Tolerance" <tolerance@panodra.be> wrote in message
news:xXiI9.39220$Ti2.6454@afrodite.telenet-ops.be...

> 2 hashes maken, NL->EN en EN->NL en je bent vertrokken.
> Hashes is de beste uitvinding die er bestaat :-)


alleen jammer dat vb native geen hashes kent :)

Ben

Re: Probleem met Array's

#6557

Author: Pieter Philippaerts
Date: Sat, 07 Dec 2002 21:11

5 lines
1500 bytes

"Ben Turner" <ben@ultraworld.be> wrote in message
news:ast03b$38o$1@reader10.wxs.nl...
> alleen jammer dat vb native geen hashes kent :)

Als ik me niet vergis werkt een Collection object met hashes.

Re: Probleem met Array's

#6562

Author: Zero Tolerance
Date: Sun, 08 Dec 2002 15:24

19 lines
1723 bytes

Ben Turner wrote:

> "Zero Tolerance" <tolerance@panodra.be> wrote in message
> news:xXiI9.39220$Ti2.6454@afrodite.telenet-ops.be...
> 
>> 2 hashes maken, NL->EN en EN->NL en je bent vertrokken.
>> Hashes is de beste uitvinding die er bestaat :-)
> 
> alleen jammer dat vb native geen hashes kent :)

(komt maar amper bij van het lachen)
En dat noemen ze een "programmeertaal" ??? Waar gaat het naar toe? Djeezes 
toch. M$ blijft me verbazen.

-- 
Zero Tolerance
CD -> MP3 + CUE ? : Cue Creator
MP3 + CUE -> CD ? : Cue Burner
All @ http://users.pandora.be/Zero.Tolerance

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads