Visual Basic - Basic - PicBasic ve Türevleri
VB6 İle Randım Sayı Seçme Programı (Soru)
VB6 İle Randım Sayı Seçme Programı (Soru)
-
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.
-
Tavan Sayıdan Taban sayıyı çıkartıtığınızda sonuç o oluyor. :) Random ile bu soruyu birleştiremedim daha açıklayıcı yaz
-
sezeruludag bunu yazdı:
-----------------------------
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. -
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 görürsün :)
-
sezeruludag bunu yazdı:
-----------------------------
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 görürsün :)
-----------------------------
Hoca iyi misin? -
sezeruludag bunu yazdı:
-----------------------------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 görü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 -
Konuda ilk yazdığında da böyle söleseydin cevabı daha kolay bulurduk
Randomize komutunu bir dongü içerisine bağalayın artık 5tanemi yoksa 10 tanemi yaparsınız bilmiyorum Döngüyü ona göre kurun sonra Dizi tanımlayıp 5 tane elamanı olan bunuda döngü içersinde random ile bağlayın döngü 5 tane dönerse diziye sırasyla elemanlarını aktarır sonuç olarak'ta dizideki elemanları toplatırsanır istediğiniz şey olur yanlış anlamadıysam
-
Private Sub Command1_Click() Me.Caption = "" kactane = 6 minim = 1 maxim = 100 Randomize For numara = 1 To kactane Me.Caption = Format(RasgeleNumara(minim, maxim)) & "," & Me.Caption Next numara End Sub Private Function RasgeleNumara(ByVal taban As Long, ByVal tavan As Long) As Long RasgeleNumara = Rnd * (tavan - taban) + taban End Function
-
Kusura bakma hocam birazda kısa olsun diye öyle yazmıştım.
Örnek kod verebilir misin mümkünse?
-
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(minim, maxim)) & "," & Me.Caption Next numara End Sub Private Function RasgeleNumara(ByVal taban As Long, ByVal tavan As Long) As Long RasgeleNumara = Rnd * (tavan - taban) + taban End Function
----------------------------- -
sezeruludag bunu yazdı:
-----------------------------
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(minim, maxim)) & "," & Me.Caption Next numara End Sub Private Function RasgeleNumara(ByVal taban As Long, ByVal tavan As Long) As Long RasgeleNumara = Rnd * (tavan - taban) + taban End Function
-----------------------------
-----------------------------
Hocam tam araya gelmiş :|@DE5TROY3R
sağolasın hocam.