Arkadaslar VBS de 5 haneli birbirinden tamamen farklıolacak sekilde 20 tane sayı uretmesi icin bir yazılabilir mi?
Tesekkurler......
şole yapabilirsin
örneğin textbox1.text<>textbox2 ye
gbisinden bi mantktan gidebilirsin istrsn
Arkadaşlar haklı fakat <> ın yanında küçük bir algoritma üretebilirsin...
Zaten visualbasic algoritma kurmak için en uygun dildir...
Keygenlerin çoğu vb ile yazılır...
Bak arkadaşım ben sana 5 haneli 20 tane rakamları rastgele seçecek bir kod yazdım ama sadece 5 haneli değil diğer 4-3-2-1
haneli rakamlarda çıkara bilir ben aralık mesela 1 ila 10 arasında seçilsin şeklindeki kodu bilmiyorum
eğer bu kod işine yararsa ne mutlu bana :)
Şimdi bir buton yap sonra toolbox ta labele bir kez tıkla az birşey büyük bir şekilde programına çiz bunu aynı şekilde 20 kere yap sonra
labellerin propertiesteki name yi değiştirme, text boş kalsın yani text teki herşeyi sil
labellerin TextAlign özelliğini MiddleCenter olarak değiştir.Sonra butona iki kere tıkla aşağıdaki
kodları yaz:(Private Sub Button1_Click ile başlayan kod zaten üstte olması lazım)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = CStr(Int(Rnd() * 99999)) 'pick numbers
Label2.Text = CStr(Int(Rnd() * 99999))
Label3.Text = CStr(Int(Rnd() * 99999))
Label4.Text = CStr(Int(Rnd() * 99999))
Label5.Text = CStr(Int(Rnd() * 99999))
Label6.Text = CStr(Int(Rnd() * 99999))
Label7.Text = CStr(Int(Rnd() * 99999))
Label8.Text = CStr(Int(Rnd() * 99999))
Label9.Text = CStr(Int(Rnd() * 99999))
Label10.Text = CStr(Int(Rnd() * 99999))
Label11.Text = CStr(Int(Rnd() * 99999))
Label12.Text = CStr(Int(Rnd() * 99999))
Label13.Text = CStr(Int(Rnd() * 99999))
Label14.Text = CStr(Int(Rnd() * 99999))
Label15.Text = CStr(Int(Rnd() * 99999))
Label16.Text = CStr(Int(Rnd() * 99999))
Label17.Text = CStr(Int(Rnd() * 99999))
Label18.Text = CStr(Int(Rnd() * 99999))
Label19.Text = CStr(Int(Rnd() * 99999))
Label20.Text = CStr(Int(Rnd() * 99999))
Beep()
End Sub
Bu kodları yazdıktan sonra programının görüntüsüne gel sonra programındaki boş bir yere 2 kere tıkla aşağıdaki
kodları yaz:(Private Sub Form1_Load ile başlayan kod zaten üstte olması lazım)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub
End Class
Bu kadar sonra f5 e bas test et programını eğer işine yaradıysa sadece bir teşekkür etmen yeter ;)
Tabi bu kod sadece Visual Basic'de işe yarar.
Biraz geç gördüm cevabını. Çok teşekkürler yazdığın kodun için...iyi çalışmalar dileğiyle......
