: Private Sub Command1_Click Me. Caption = "" kactane = 6 minim = 1 maxim = 100 Randomize For numara = 0 To kactane Me. Caption = Format(RasgeleNumara & "," & Me. Caption Next numara End Sub Private Function RasgeleNumara As Long RasgeleNumara = Rnd + taban End Function Hatasız Kod Olmaz... :)

: Tavan Sayıdan Taban sayıyı çıkartıtığınızda sonuç o oluyor. :) Random ile bu soruyu birleştiremedim daha açıklayıcı yaz Hoca yle birşey yok tavan ve taban sayılar arasında kaçtane sayı tutulacağını soruyor.

Konuda ilk yazdığında da byle sleseydin cevabı daha kolay bulurduk Randomize komutunu bir dongü içerisine bağalayın artık 5tanemi yoksa 10 tanemi yaparsınız bilmiyorum Dngüyü ona gre kurun sonra Dizi tanımlayıp 5 tane elamanı olan bunuda dngü içersinde random ile bağlayın dngü 5 tane dnerse diziye sırasyla elemanlarını aktarır sonuç olarak'ta dizideki elemanları toplatırsanır istediğiniz şey olur yanlış anlamadıysam Hatasız Kod Olmaz... :)

Müritler, arkadaşla programı yapmaya çalışıyoruz. Programın zellikleri 2 editbox var taban ve tavan sayılar yazılıyor. 3. editbox ise bu sayılar arasında kaçtane sayı tutulacağını soruyor. Fakat bu 3. editboxu yapamadık Yardımcı olursanız çok seviniriz.

: DE5TROY3R bunu yazdı: Private Sub Command1_Click Me. Caption = "" kactane = 6 minim = 1 maxim = 100 Randomize For numara = 0 To kactane Me. Caption = Format(RasgeleNumara & "," & Me. Caption Next numara End Sub Private Function RasgeleNumara As Long RasgeleNumara = Rnd + taban End Function Hocam tam araya gelmiş :| @DE5TROY3R sağolasın hocam.

Kusura bakma hocam birazda kısa olsun diye yle yazmıştım. rnek kod verebilir misin mümkünse?

Arkadaşım diyelimki A = 1 B = 28 A'dan B'yi Çıkartığında sonuç olarak 27 almazmısın ozaman buradan 27 farklı sayı tutabileceğini grürsün :) Hatasız Kod Olmaz... :)

: Arkadaşım diyelimki A = 1 B = 28 A'dan B'yi Çıkartığında sonuç olarak 27 almazmısın ozaman buradan 27 farklı sayı tutabileceğini grürsün :) Hoca iyi misin?

Tavan Sayıdan Taban sayıyı çıkartıtığınızda sonuç o oluyor. :) Random ile bu soruyu birleştiremedim daha açıklayıcı yaz Hatasız Kod Olmaz... :)

: Arkadaşım diyelimki A = 1 B = 28 A'dan B'yi Çıkartığında sonuç olarak 27 almazmısın ozaman buradan 27 farklı sayı tutabileceğini grürsün :) hoca arkadaş diyor ki birinci textboxa birinci sayiyi ikinci textboxa ikinci sayiyi yazip arasindan random sayi sectirecem. bunu pespese 5 kere yapmak istiyorum üçüncü textboxa da onu yazacam ve hesapla butonuna basacam. bu peşpeşe hesaplatmasını text3e nasıl bağlarım

Private Sub Command1_Click Me. Caption = "" kactane = 6 minim = 1 maxim = 100 Randomize For numara = 1 To kactane Me. Caption = Format(RasgeleNumara & "," & Me. Caption Next numara End Sub Private Function RasgeleNumara As Long RasgeleNumara = Rnd + taban End Function