Rastgele karakter oluşturma

[k0081]

Merhaba arkadaşlar;

Textbox1 45 yazdığımda akabinde tamam butonuna bastığımda, textbox2 ye 45 karakterli rastgele bir harf serisini nasıl oluşturabilirim.?


yardımcı arkadaşa şimdiden teşekkürler.

 

[mgurten]

Private Sub CommandButton1_Click()
Dim a
TextBox2.Text = ""
For a = 1 To TextBox1.Text
TextBox2.Text = TextBox2.Text + Chr$(Int((26 * Rnd) + 65))
Next a
End Sub

 

[ExcelF1]

Alternatif olsun. Kulağı uzun yoldan tutma yöntemi

 

[k0081]

mgurten & ExcelF1

çok teşekkürler arkadaşlar, Tamamdır..

 

[k0081]

mgurten & ExcelF1

çok teşekkürler arkadaşlar, Tamamdır..

Private Sub CommandButton1_Click()
Dim a
TextBox2.Text = ""
For a = 1 To TextBox1.Text
TextBox2.Text = TextBox2.Text + Chr$(Int((26 * Rnd) + 65))
Next a
End Sub

bu kodu kullandığımda bazen aynı karakterler denk gelebiliyor.,,,

Aynı karakterlerin denk gelmemesi için kodu nasıl değiştirmeliyiz ?

Not : Sayılarda olabilir. Sayılar denk gelirse bu sefer büyük/küçük harf ile atlatılabilir.

 

[ÖmerBey]

Aynı karakterler peş peşe mi gelmeyecek yoksa hiç mi yer almayacak?

 

[k0081]

Aynı karakterler peş peşe mi gelmeyecek yoksa hiç mi yer almayacak?

Hiç yer almayacak.

Gerekli olursa diye söyleyeyim textbox1 maksimum 750 sayısı girilecek...

 

[veyselemre]

bazen aynı karakterler denk gelebiliyor.,,,

Aynı karakterlerin denk gelmemesi için kodu nasıl değiştirmeliyiz ?

Not : Sayılarda olabilir. Sayılar denk gelirse bu sefer büyük/küçük harf ile atlatılabilir.

Function rastgeleUret(Optional uzunluk = 1)

    ptrn = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
    uz = Len(ptrn)
    If uzunluk > uz Then uzunluk = uz
    For i = 1 To uz
        ii = WorksheetFunction.RandBetween(1, uz)
        a1 = Mid(ptrn, i, 1)
        a2 = Mid(ptrn, ii, 1)
        ptrn = Replace(ptrn, a1, ".")
        ptrn = Replace(ptrn, a2, a1)
        ptrn = Replace(ptrn, ".", a2)
    Next i
    bas = WorksheetFunction.RandBetween(1, uz - uzunluk + 1)
    rastgeleUret = Mid(ptrn, bas, uzunluk)

End Function

Fonksiyonu modüle ekleyip, aşağıdaki gibi kullanabilirsiniz.

Private Sub CommandButton1_Click()
    TextBox2.Text = rastgeleUret(CInt(TextBox1.Text))
End Sub

 

[veyselemre]

Hiç yer almayacak.

Gerekli olursa diye söyleyeyim textbox1 maksimum 750 sayısı girilecek...

750 tane karekter var mı ki?

 

[ÖmerBey]

Aşağıdaki kodları deneyiniz, karakteri isteğinize göre düzenleyebilirsiniz. Tekrar olmayacağı için textbox1'e en fazla karakter sayısı kadar sayı girebilirsiniz.

Private Sub CommandButton1_Click()
Dim a As Byte, k As String
krk = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
            "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", _
            "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
TextBox2.Text = ""
If TextBox1.Value > UBound(krk) + 1 Then
    MsgBox "En fazla " & UBound(krk) + 1 & " değer girebilirsiniz.", vbCritical
    Exit Sub
End If
Randomize
For a = 1 To TextBox1.Value
    k = krk(Int((UBound(krk) + 1) * Rnd))
    If InStr(1, TextBox2.Text, k) = 0 Then
        TextBox2.Text = TextBox2.Text + k
    Else
        a = a - 1
    End If
Next a
End Sub

 

[k0081]

750 tane karekter var mı ki?

Yok ama sayılarla birleşirse, + büyük küçük harf kombinasyonunu ta kararsak olur.

 

[veyselemre]

Yok ama sayılarla birleşirse, + büyük küçük harf kombinasyonunu ta kararsak olur.

Bill Gates de gelse 750 taneyi çıkartamaz en fazla 230 civarı sembollerle bulabilirsiniz.

 

[k0081]

Bill Gates de gelse 750 taneyi çıkartamaz en fazla 230 civarı sembollerle bulabilirsiniz.

Hesap yaptırmadım, Belki abartmış da olabilirim.

 

[k0081]

Veysel emre;

Hesap yaptırmadım, Belki abartmış da olabilirim.

Şimdi şöyle bir örnek verelim;

Şu anda 62 karakter göre işlem var.
bu 62 karakerin her birinin üzerine ² simgesini ekleyelim : 62+62 = 124 yapar.
bu 62 karakerin her birinin üzerine ³ simgesini ekleyelim : 124+62 = 186 yapar.
bu 62 karakerin her birinin üzerine ¹ simgesini ekleyelim : 186+62 = 248yapar.
bu 62 karakerin her birinin üzerine ° simgesini ekleyelim : 248+62 = 310 yapar.
bu 62 karakerin her birinin üzerine ½ simgesini ekleyelim : 310+62 = 372 yapar.
bu 62 karakerin her birinin üzerine ® simgesini ekleyelim : 372+62 = 434 yapar.
bu 62 karakerin her birinin üzerine © simgesini ekleyelim : 434+62 = 496 yapar.
....
...
http://s2.dosya.tc/server7/gmy8uc/hesap.jpg.html

yani böyle devam edebilir... her harfin yanına bir sembol eklenip yeni bir karakter oluşturulmuş olur. Saygılarımla.

 

[k0081]

ÖmerBey

Hocam çok teşekkürler, Tamamdır. elinize sağlık.

 

[k0081]

veyselemre;


Hocam çok teşekkürler, Tamamdır. elinize sağlık.

 

[ÖmerBey]

ÖmerBey

Hocam çok teşekkürler, Tamamdır. elinize sağlık.

Rica ederim, ama sizin 14 numaralı mesajdaki örneğe göre tamam olmaz bilginiz olsun da...
İyi çalışmalar.

 

[k0081]

Rica ederim, ama sizin 14 numaralı mesajdaki örneğe göre tamam olmaz bilginiz olsun da...
İyi çalışmalar.

Evet sizin kod üzerinde denedim, olmuyor... çalışmıyor...