Merhabalar Arkadaşlar,
Benim bir Projem vardıda bu proje;
Form Load'da girilen 20 sayi arasından text1'e girilen değer kadar rasgele sayı uretecek fakat bunu yaparken aynı sayılar birbirini tekrar etmeyecek. 1 haftadır uğraşıyorum pazartesiye kadar teslim etmem gerekiyor yardımcı olursanız sevinirim ve nerede yalnış yaptığımı soylermisiniz aşağıda kodu yapıştırdım.
Bu program 1-2 sayıda calışıyor ama sayı buyuduğunde hata veriyor lutfen yardım.
Kod:
Private Sub Command1_Click() Randomize (Timer) Label1 = "" Do For n = 1 To Text1 no(n) = Int(Rnd * 20) + 1 Next n If Text1 = 1 Then sayac = sayac + 1 ElseIf Text1 = 2 Then If no(i) = no(b) Then sayac = sayac + 2 End If ElseIf Text1 1 And Text1 2 Then For i = 1 To Text1 For b = i + 1 To Text1 If no(b) = no(i) Then sayac = sayac - 1 Else sayac = sayac + 1 End If Next b Next i End If Loop Until sayac = Text1 For x = 1 To Text1 sec = sec & " " & no(x) Next x Label1 = sec End Sub Private Sub Form_Load() dizi(1) = 1 dizi(2) = 2 dizi(3) = 3 dizi(4) = 4 dizi(5) = 5 dizi(6) = 6 dizi(7) = 7 dizi(8) = 8 dizi(9) = 9 dizi(10) = 10 dizi(11) = 11 dizi(12) = 12 dizi(13) = 13 dizi(14) = 14 dizi(15) = 15 dizi(16) = 16 dizi(17) = 17 dizi(18) = 18 dizi(19) = 19 dizi(20) = 20 End Sub

__________________