---

Hej NG
Jeg er lidt ny i VB6 ,så jeg kunne godt bruge lidt hjælp.
Jeg har lavet et lille "lottoprogram" der skal finde 7 tilfældige tal .I kan
få de første linier her :

Private Sub Command1_Click()
Label1.Caption = Int(Rnd * 36 + 1)
osv.
Så langt så godt - men hvordan undgår man dubletter ; altså at tallene
forekommer mere end 1 gang ??

Mvh. Niels Kristensen

---

"Niels K." <nielsb132@yahoo.dk> skrev i en meddelelse
news:bbd96$461273c9$55184dbe$17935@news.arrownet.dk...
> Hej NG
> Jeg er lidt ny i VB6 ,så jeg kunne godt bruge lidt hjælp.
> Jeg har lavet et lille "lottoprogram" der skal finde 7 tilfældige tal .I kan få de
> første linier her :
>
> Private Sub Command1_Click()
> Label1.Caption = Int(Rnd * 36 + 1)
> osv.
> Så langt så godt - men hvordan undgår man dubletter ; altså at tallene forekommer mere
> end 1 gang ??
>
> Mvh. Niels Kristensen


Opret et nyt projekt

Lav en command button og en listbox og sæt denne kode ind

Den giver 7 unikke tal hver gang du trykker på knappen !


Private Sub Command1_Click()
List1.Clear
Dim Tal(36) As Integer, Gem As Integer, Rand As Integer, Fra As Integer
For x = 1 To 36: Tal(x) = x: Next x
For x = 36 To 1 Step -1
Rand = Int(Rnd * x) + 1
Gem = Tal(x): Tal(x) = Tal(Rand): Tal(Rand) = Gem
Next x
Fra = Int(Rnd * 30) + 1
For x = Fra To Fra + 6
List1.AddItem Tal(x)
Next x
End Sub

---

"Niels K." <nielsb132@yahoo.dk> skrev i en meddelelse
news:bbd96$461273c9$55184dbe$17935@news.arrownet.dk...
> Hej NG
> Jeg er lidt ny i VB6 ,så jeg kunne godt bruge lidt hjælp.
> Jeg har lavet et lille "lottoprogram" der skal finde 7 tilfældige tal .I kan få de
> første linier her :
>
> Private Sub Command1_Click()
> Label1.Caption = Int(Rnd * 36 + 1)
> osv.
> Så langt så godt - men hvordan undgår man dubletter ; altså at tallene forekommer mere
> end 1 gang ??
>
> Mvh. Niels Kristensen

Glemte lige at sige du skal bruge denne linie inden du bruger rnd da rnd giver et
tilfældigt tal men altid vil starte med samme tal hver gang med mindre du bruger denne
linje i dit program......den skal KUN bruges en gang

Randomize (Timer)

---

"Desserten" <FuckOff@SpamFucker.Zero> skrev i en meddelelse
news:4612875a$0$196$edfadb0f@dread11.news.tele.dk...
>
> "Niels K." <nielsb132@yahoo.dk> skrev i en meddelelse
> news:bbd96$461273c9$55184dbe$17935@news.arrownet.dk...
>> Hej NG
>> Jeg er lidt ny i VB6 ,så jeg kunne godt bruge lidt hjælp.
>> Jeg har lavet et lille "lottoprogram" der skal finde 7 tilfældige tal .I
>> kan få de første linier her :
>>
>> Private Sub Command1_Click()
>> Label1.Caption = Int(Rnd * 36 + 1)
>> osv.
>> Så langt så godt - men hvordan undgår man dubletter ; altså at tallene
>> forekommer mere end 1 gang ??
>>
>> Mvh. Niels Kristensen
>
> Glemte lige at sige du skal bruge denne linie inden du bruger rnd da rnd
> giver et tilfældigt tal men altid vil starte med samme tal hver gang med
> mindre du bruger denne linje i dit program......den skal KUN bruges en
> gang
>
> Randomize (Timer)
>
>
>Hej "desserten"
Tusind tak for hjælpen - det havde jeg aldrig selv fundet ud af !
Mvh. Niels K.

---

"Niels K." <nielsb132@yahoo.dk> skrev i en meddelelse
news:d8b72$4613f1d2$55184dbe$19342@news.arrownet.dk...
>
> "Desserten" <FuckOff@SpamFucker.Zero> skrev i en meddelelse
> news:4612875a$0$196$edfadb0f@dread11.news.tele.dk...
>>
>> "Niels K." <nielsb132@yahoo.dk> skrev i en meddelelse
>> news:bbd96$461273c9$55184dbe$17935@news.arrownet.dk...
>>> Hej NG
>>> Jeg er lidt ny i VB6 ,så jeg kunne godt bruge lidt hjælp.
>>> Jeg har lavet et lille "lottoprogram" der skal finde 7 tilfældige tal .I kan få de
>>> første linier her :
>>>
>>> Private Sub Command1_Click()
>>> Label1.Caption = Int(Rnd * 36 + 1)
>>> osv.
>>> Så langt så godt - men hvordan undgår man dubletter ; altså at tallene forekommer mere
>>> end 1 gang ??
>>>
>>> Mvh. Niels Kristensen
>>
>> Glemte lige at sige du skal bruge denne linie inden du bruger rnd da rnd giver et
>> tilfældigt tal men altid vil starte med samme tal hver gang med mindre du bruger denne
>> linje i dit program......den skal KUN bruges en gang
>>
>> Randomize (Timer)
>>
>>
>>Hej "desserten"
> Tusind tak for hjælpen - det havde jeg aldrig selv fundet ud af !
> Mvh. Niels K.

Glad for at kunne hjælpe..............