[FONKSiYON] Rnd, Array fonksiyonlarında döngü sayısını belirlemek
#1
Selam,

Int ((200 - 150 + 1) * Rnd + 150) 150 ile 200 arasında rastgele sayı üretir..

yukarıdaki örneği Taruz hocamızın verdiği güzel örneklerden aldım. Örnekte 150-200 arasında her defasında rastgele sayı üretiyor...Burada benim yapmak istediğim; 0-9 arasında tek haneli rakam üretmek ve toplamda kaç tane rakam üreteceğini bir form üzerine koyacağım alan ile kontrol edebilmek, belirleyebilmek.
Formun adı; A, rakam üretilecek alanın adı; B ve kaç tane rakam üretileceğini yazmak istediğim alan ise C olsun. Böyle bir yapı mümkün müdür? Elinde böyle bir örnek olan var mıdır?

Teşekkür ederim...



  Alıntı
Bu mesajı beğenenler:
#2
Sayin alpertunga;

Modul tasarlayip asagidaki kodu kendi projenize adapte edebilirsiniz.


Sub gg()
Dim sayur, Muk As String, isEven As Boolean
For i = 0 To C
isEven = True
sayur = Int((9 - 1 + 1) * Rnd + 1)
If sayur And 1 Then isEven = False
If isEven = False Then
If InStr(1, Nz(Muk, 0), sayur, vbTextCompare) > 0 Then
i = i - 1
Else
MsgBox sayur: Muk = Muk & sayur
End If
Else
i = i - 1
End If
Next i
B=Muk
MsgBox Muk
End Sub



  Alıntı
Bu mesajı beğenenler:
#3
Sayın dsezgin83260 Hocam,

yazmış olduğunuz kodu kullanmak istedim ama modül tasarımını bilmediğimden kullanamadım. Ancak yapmak istediğim konuyla ilgili daha önceden yine sitemizin değerli hocaları vasıtasıyla almış olduğum bir örnek üzerinde çalışarak, acemi bir şekilde de olsa 4 basamaklı ve "HARF-HARF-RAKAM-HARF" sırasına uygun ÇAĞRI ADI üretmeyi ve tabloya kaydetmeyi başardım. Ama her defasında form üzerindeki butona tekrar tekrar basmam gerekiyor. Bir tane veya birkaç tane olsa problem değil ama benim en azından 100 civarında hatta dha fazla üretmem gerekiyor. Maalesef toplamda kaç tane üretmek istiyorsam onu bir defasında ürettirmeyi başaramadım...Forma bir alan ekleyerek bu işi yapmak istiyorum. Örneği ekledim... değerli vaktinizi alacağım ama incelemeniz mümkün müdür?

Teşekkür ederim.


Eklenti Dosyaları
.rar   CAGRIURET.rar (Boyut: 22,1 KB / İndirilme: 53)



  Alıntı
Bu mesajı beğenenler:
#4
Sayın dsezgin83260 Hocam,

Biraz uğraştım ama konuyu çözdüm nihayet. 4'lü grubu tek bir buton ile istediğim kadar üretmeyi başardım. Ek olarak sitemize de gönderiyorum. Belki faydalanmak isteyenler olabilir...


Eklenti Dosyaları
.rar   CAGRIADI_URET.rar (Boyut: 24,91 KB / İndirilme: 50)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma snapper 9 286 20-10-2023, 00:36
Son Mesaj: dsezgin
  Döngü Ile Veri Alma ates2014 5 151 26-08-2023, 01:38
Son Mesaj: halily
  [SORGU] Sınıfa Kayıtlı Aktif öğrenci Sayısını Bulmak Dcount Fonksiyonu by_hayalci 2 110 24-08-2023, 08:38
Son Mesaj: by_hayalci
  Ders Kodları Tablosundaki Alan Adlarına Göre öğrencinin Sınıfını Belirlemek .. programmer67 8 317 18-05-2023, 16:49
Son Mesaj: programmer67
  [TABLO] Tablodaki Aynı Isimlerin Sayısını Yazdırma omergenc7 13 526 26-03-2023, 13:11
Son Mesaj: dsezgin
  Döngü Ile Koşula Dayalı Klasör Içerisindeki Dosyaları Silme Mr.Midnight 2 193 19-11-2022, 22:46
Son Mesaj: alperalper
  [RAPOR] Rapor Alt Bilgisinde Rapor Alanındaki Satır Sayısını Gösterme bobili 6 318 23-02-2022, 13:37
Son Mesaj: bobili
  [VBA] Döngü yardımıyla çoklu dosya silmek iscinar 5 1.111 23-06-2021, 14:36
Son Mesaj: sacrament

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi