Toon posts:

[VB.NET] Geen dubbel in getallen die ik genereer

Pagina: 1
Acties:
  • 30 views sinds 30-01-2008

Verwijderd

Topicstarter
Hallo, ik zou in deze code hieronder ervoor willen zorgen dat er geen dubbele getallen inzitten iemand een idee?
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
'publieke variabelen declareren
    Dim statistiek(29), sortstatistiek(29), i, j, grootstegetal, kleinstegetal, positieklein, positiegroot As Integer
    Dim temp2 As String
    Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        'enkele private variablen
        Dim random As New Random
        Dim temp As String

        'grootste en kleinste getal hun maximum/minimumwaarde geven
        grootstegetal = 0
        kleinstegetal = 100

        'getallen genereren
        For i = 0 To 29
            statistiek(i) = random.Next(1, 100)
            temp = temp & statistiek(i) & vbCrLf
        Next

        'getallen uitvoeren in textbox
        txtReeks.Text = temp.ToString

        'grootstegetal bepalen en positie bepalen
        For i = 0 To 29
            If grootstegetal < statistiek(i) Then
                grootstegetal = statistiek(i)
                positiegroot = i + 1
                txtGrootstegetal.Text = grootstegetal.ToString & " Positie: " & positiegroot
            End If
        Next

        'kleinste getal bepalen en positie bepalen
        For i = 0 To 29
            If kleinstegetal > statistiek(i) Then
                kleinstegetal = statistiek(i)
                positieklein = i + 1
                txtKleinstegetal.Text = kleinstegetal.ToString & " Positie: " & positieklein
            End If
        Next
    End Sub

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Er zijn meerdere topics in dit subforum geweest die de theorie hierachter behandelen. Daarmee zou je vast in VB een oplossing kunnen bedenken ;)

Lees ook even: Programming Beleid en Overzicht van UBB-codes #tag_code

[ Voor 12% gewijzigd door BtM909 op 17-06-2007 17:37 ]

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


  • whoami
  • Registratie: December 2000
  • Laatst online: 00:54
Hallo,
Zoals je het nu post (een lap code met 'ik wil dit'), komt het over alsof je verwacht dat er hier iemand de code voor jou zou maken. Dat is de bedoeling niet van dit forum natuurlijk; we willen je best helpen, maar dan moet je het wel iets anders aanpakken:
- in eerste instantie, er niet vanuit gaan dat iemand het voor jou volledig gaat maken
- geef aan wat je zelf al geprobeerd hebt, of waar je zelf al aan gedacht hebt
- post enkel relevante code

Lees ook eens de PRG Quickstart na.

Om te voorkomen dat er geen dubbele getallen inzitten, kan je altijd gaan kijken of het getal dat je net gegenereerd hebt, al eens gegeneerd hebt, of niet.

[ Voor 8% gewijzigd door whoami op 17-06-2007 17:52 ]

https://fgheysels.github.io/


Dit topic is gesloten.