sayı üretmek

[omerceri]

rastgele, değişen aralıkta ve değişen sayıda ve de birbirinden faklı sayı üretmek istiyorum
değişen aralıklarda değişen sayıda sayı ürettim ama birbirinden farklı olmasını sağlıyamıyorum

 

[omerceri]

sorum ilgili yaptığım çalışma

 

[iggydarsa]

Selam,

Kod'unuza birseyler ekledim ve calisti, umarim sizin bilgisayarinizdada calisir.

Kodunuzun degistirilmis hali soyledir:

Private Sub bas_Click()
Set c = Controls("aralik")
Dim buldum As Boolean
buldum = False
Dim rakkam As Integer
Dim i As Long

sonu = sayi - 1
tekrar = 1
ReDim dizi(sonu)
dizi(0) = Int((c.Value * Rnd) + 1)

While tekrar <= sonu
buldum = False
rakkam = Int&#40;&#40;c.Value * Rnd&#41; + 1&#41;
For i = 0 To tekrar - 1
    If dizi&#40;i&#41; = rakkam Then
        buldum = True
        Exit For
    End If
Next i

If Not buldum Then
    dizi&#40;tekrar&#41; = rakkam
    tekrar = tekrar + 1
End If
Wend

For i = 0 To sonu
a = a & "&#58;" & dizi&#40;i&#41;
Next

sonuc.Caption = Mid&#40;a, 2&#41;
End Sub

 

[omerceri]

sağolun cevap verdiğiniz için ama sonsuz döngüye giriyor.

 

[iggydarsa]

dusunebildigim tek sonsuz donguye girebilme ihtimali eger "aralik"a girilen rakam "sayi"dan kucukse... onun icin kod'un baslarinda bir if satiri koymalisiniz:

if aralik.value >= sayi.value then
' isleme basla
else
exit sub
end if