Springen naar inhoud


- - - - -
VB6

Gelijke Getallen Voorkomen In Multi Rnd



  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 28 november 2019 - 13:33

Dag
In heb  in een programma 8  keer een rnd generator.
bestaat een kort e snel formule om gelijke getallen te voorkomen tussen de 8?
Ik kan ook met vele IF..Then proberen maar misschien bestaat een betere manier.
dank U

Randomize
Text1.Text = Int(Rnd * 160) + 1
Text2.Text = Int(Rnd * 160) + 1
Text3.Text = Int(Rnd * 160) + 1
Text4.Text = Int(Rnd * 160) + 1
Text5.Text = Int(Rnd * 160) + 1
Text6.Text = Int(Rnd * 160) + 1
Text7.Text = Int(Rnd * 160) + 1
Text8.Text = Int(Rnd * 160) + 1

#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3599 berichten
    Laatst bezocht vandaag, 13:50
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 28 november 2019 - 13:52

Ik zou zeggen, stop je waarden in een array en test bij het toevoegen van een waarde in die array of het getal er nog niet instaat.

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 28 november 2019 - 14:00

ik heb geprobeerd met een array, RedThread,  maar ik kom niet uit. Te veel IF... Then dan.

Ik heb intussen zo geprobeerd en is gelukt met 3 getallen

Maar met 8 getallen .... niet.

Code:
Private Sub Command1_Click()
Dim Cijfers As String
Dim Cijfer As Integer
Randomize

For i = 0 To 2
Cijfer = Int(Rnd * 9) + 1
While InStr(1, Cijfers, Cijfer) > 0
Cijfer = Int(Rnd * 9) + 1
Wend
Cijfers = Cijfers & Cijfer
Next i

Text1.Text = Left(Cijfers, 1)
Text2.Text = Mid(Cijfers, 2, 1)
Text3.Text = Right(Cijfers, 1)
End Sub

te ingewikkeld voor 8 getallen/textboxen





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)