Ceyhun TOPÇUOĞLU Kişisel Web Sitesi

Randomize Kelime Üretmek VB6

randomize-image

Kelime anlamı Rastgele olan Randomize bazen gereksiz gibi görünebilir fakat kullanım alanı çok fazladır.Bu programda ürettiğimiz kelimenin uzunluğunu belirleyebiliyoruz. Ayrıca ürettiğimiz kelimeler bir ListBox’a aktarılarak orada tutuluyor.

 

 

 

 

downloadSourceyi İndirmek İçin Tıkla

 

 

Admin Hakkında
Kocaeli Üniversitesinde Mekatronik Mühendisliği hazırlık sınıfı öğrencisiyim. Nefes Doğa ve Kamp Grubu yöneticisi. #Camping #Vb.net #SolidWorks #PHP #SQL #ComputerSecurity... Ayrıntılı bilgi için tıklayın

  1. Hengen diyor ki:

    Merhaba ben bunun ile bir program yazdım Ürete tıklayınca 75 karakter olsa bile baze 62 68 72 gibi rakamlar çıkıyor, yani hep 75 çıkmıyor. Bunu nasıl hallederim?

    • Ceyhun TOPÇUOĞLU diyor ki:

      Merhaba, 75 karakter girildiğinde 75 karakter çıkması gerekiyor yinede dediğiniz gibi oluyorsa şu şekilde bir alternatif yapabiliriz.
      Üret Butonunun içini şu şekilde değiştirin;
      Dim x As Integer ‘ uzunluk girdisini fonksiyonda kullanabilmek için Integer tipinde değişken tanimliyoruz
      x = Text2.Text ‘ Tanımlanan değişkene uzunluk girdisini aktarıyoruz
      Text1.Text = rndPasswd(x) ‘ Fonksiyonu cagirip kelimemizi olusturuyoruz
      If Len(Text1.Text) = Text2.Text Then ‘Eğer oluşturulan karakter bizim istediğimiz uzunlukta ise;
      List1.AddItem Text1.Text ‘ Oluşturulan değişkeni listenize ekle
      Else ‘Değil ise
      Command1_Click ‘Tekrardan oluştur
      End If ‘Döngüden çık

  2. Abdullah Gül diyor ki:

    Bunları Alfabetik sıraya Göre Üretmesini nasıl sağlarız?

    • Ceyhun TOPÇUOĞLU diyor ki:

      Alfabetik olarak üretmek işi karıştırır fakat üretilmiş olanı alfebetik sıraya göre dizebilirisiniz. Bir for döngüsünü tüm karakterleri tarıyacak şekilde kurup hepsinin ascii kodlarını sorgulayabilirsiniz. Daha sonra bu ascii kodlarını sıralayarak düzenlenmiş bir çıktı alabilirsiniz.

Bir Yorum Yazın

Doğrulama Kodu : (Verilen işlemde boş bırakılan yeri doldurun) * Time limit is exhausted. Please reload CAPTCHA.