Dim sayi As Integer sayi = Rnd (16) Text1 = sayi Merhaba. sayi = Rnd (16), 0 ile 16 rakamları arasın da sayı üretmek, Text1 = sayi, üretilen sayıları text1 e yazdırmak. Buraya kadar herşey normal fakat benim istediğim 16 tane text olup butona bastığım da hiç biri birbirine benzemeden 0 dan 16 y kadar farklı türde textlere sayı eklemesi. Yani: Text1 = "9" Text2 = "11" Text3 = "2" gibi. Yardım edebilecek varmı acaba.

Dim sayi As Integer sayi = Rnd (16) Text1 = sayi Buna hiç gerek yokmuş meğerse aşağıda ki şekil de istediğimi yaptım yinede teşekkürler. Text1 = Int(Rnd 16) Text2 = Int(Rnd 16) Text3 = Int(Rnd 16) Text4 = Int(Rnd 16) Text5 = Int(Rnd 16) Text6 = Int(Rnd 16) Text7 = Int(Rnd 16) Text8 = Int(Rnd 16) Text9 = Int(Rnd 16) Text10 = Int(Rnd 16) Text11 = Int(Rnd 16) Text12 = Int(Rnd 16) Text13 = Int(Rnd 16) Text14 = Int(Rnd 16) Text15 = Int(Rnd 16) Text16 = Int(Rnd 16)

bu sekilde programla mantigi icin hicbir zaman iyi degildir...3 satirdada bu yapmak istedigini yaparsin...

bi gariplik var gibi sanki ama anlamadım :S Private Sub Command1_Click For i = 0 To 15 Text1. Item = Rnd (16) Next i End Sub Text1. Item = Rnd (16) bu belki farklı olabilir ama 10 da yapsam bu şekil Buda benim yaptığım Text1 = Int(Rnd 16) Text2 = Int(Rnd 16) Text3 = Int(Rnd 16) Text4 = Int(Rnd 16) Text5 = Int(Rnd 16) Text6 = Int(Rnd 16) Text7 = Int(Rnd 16) Text8 = Int(Rnd 16) Text9 = Int(Rnd 16) Text10 = Int(Rnd 16) Text11 = Int(Rnd 16) Text12 = Int(Rnd 16) Text13 = Int(Rnd 16) Text14 = Int(Rnd 16) Text15 = Int(Rnd 16) Text16 = Int(Rnd 16) -

o 3 satırda nasıl yapılacak biraz detaylı anlatırsan belki yapabilirim yardımcı olurmusun

For i = 0 To 15 Text1. Item = Rnd (10) Next i 16 tane text1 in olsun ayni isimde bu sayede yaparsin, sanirim fuujin in bahsettigi temiz kodda bu oluyor

Rnd (16) bu kismi int icine alirsan bir gariplik olmaz..

Text1. Item = Int(Rnd 16) Teşekkürler kardeş oldu