Private Sub Command1_Click a = Round(Rnd b + 1) Select Case a Case 1: Text1 = "serial1" Case 2: Text1 = "serial2" Case 3: Text1 = "serial3" . . . b sayisi kadar End Select End

arkadaşım pardon açıklama yapmayı unutmuşum. bu kod ile her butona basışında rasgele seçim yapar Private Sub Command1_Click a = Round(Rnd b + 1) ' b yerine bi sayı yaz 1 den o sayıya kadar rasgele sayı üretir Select Case a 'a değerine göre aşagıdan seçimi yapar Case 1: Text1 = "serial1" Case 2: Text1 = "serial2" Case 3: Text1 = "serial3" 'case i b sayısı kadar yapman gerekir kaç tane istiyosan End Select End

Arkdaslar Dalga Felan Gecmek Yok.. Ben Bu kod işlerinden Hiç anlamam.. ama bu kadarını Yapmam Bile Benm için Büyük bir Heyecan Dogrusu.. Arkadaslar.. işte Keygenim.. vb6 ile yaptım.. Fakat bir Sorunum var Lütfen Yardımcı Olun.. Orda Bakın Serial Olustur Kısmı Boş.. Ben ORaya 1-2 yada 3 tane Farklı Serial Eklemek istiyorum Fakat Serial Olustur tusuna Basınca Degişmesini istiyorum o ekleyecegim Serialler arasında.. Lütfen Yardım Edin.. Yarına Kadar LAsım.. Yoksa Bu kadar acele Etmezdim.. Müzikte Ekleyemedim Zaten.. Biri lütfen Acıklama Yapsın.. Resimde :Koydum..

PHP: . . . b sayisi kadar Bunlar Kırmızı Cıkıor Arkadasım Neden Hata Verior Yani..) Ayrıca Cok Saol bu Arada.. Bu arada serial Olustura tekrar Basıoyrum Fakat Degişmiyor -