Rastgele string üretimi

albatros0 · 22 Ağu 2017

Arkadaşlar Vb.net ile bir şey yapıyorum ve rastgele string üretmesini sağlıyorum ama ürettiği yazının sonuna örneğin; üretilen yazı
falan yazmasını istiyorum bunu nasıl yaparım ?

Kullandığım kod bu;

Kod:

Dim k As String() = {"q", "Q", "w", "W", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "ı", "I", "o", "O", "p", "P", "ğ", "Ğ", "ü", "Ü", "a", "A", "s", "S", "d", "D", "f", "F", "h", "H", "j", "J", "k", "K", "l", "L", "ş", "Ş", "i", "İ", "z", "Z", "x", "X", "c", "C", "v", "V", "b", "B", "n", "N", "m", "M", "ö", "Ö", "ç", "Ç"}
        TextBox1.Text = ""
        For i As Integer = 0 To 14 ' üretmesi istenenden bir eksigi kadar
            Randomize()
            TextBox1.Text += k(Rnd() * 32) 'k degişkenine tamımlanan harf/sayı kadar 
        Next

Plans · 22 Ağu 2017

Kod:

Dim k As String() = {"q", "Q", "w", "W", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "ı", "I", "o", "O", "p", "P", "ğ", "Ğ", "ü", "Ü", "a", "A", "s", "S", "d", "D", "f", "F", "h", "H", "j", "J", "k", "K", "l", "L", "ş", "Ş", "i", "İ", "z", "Z", "x", "X", "c", "C", "v", "V", "b", "B", "n", "N", "m", "M", "ö", "Ö", "ç", "Ç"}
        Dim yazi As String = ""
        TextBox1.Text = ""
        For i As Integer = 0 To 14 ' üretmesi istenenden bir eksigi kadar
            Randomize()
            yazi += k(Rnd() * 32)
            TextBox1.Text = "Üretilen : " & yazi
        Next

DeSTuRSuZz_ · 22 Ağu 2017

Kod:

 var chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
        var stringChars = new char[8];
        
        var random = new Random();

        for (int i = 0; i < stringChars.Length; i++)
        {
         stringChars[i] = chars[random.Next(chars.Length)];
        } 
      

        var finalString = new String(stringChars);
        
        label1.Text = finalString;

albatros0 · 22 Ağu 2017

DeSTuRSuZz_' Alıntı:

Kod:

 var chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
        var stringChars = new char[8];
        
        var random = new Random();

        for (int i = 0; i < stringChars.Length; i++)
        {
         stringChars[i] = chars[random.Next(chars.Length)];
        } 
      

        var finalString = new String(stringChars);
        
        label1.Text = finalString;

Yalnız hocam C# değil vb.net

DeSTuRSuZz_ · 22 Ağu 2017

albatros0' Alıntı:
Yalnız hocam C# değil vb.net

Sorry,

Kod:

   Sub Main()
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To 8
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(s.Substring(idx, 1))
        Next
        Console.WriteLine(sb.ToString())
        Console.ReadKey()
    End Sub

Deneyebilirmisin

albatros0 · 22 Ağu 2017

DeSTuRSuZz_' Alıntı:

Sorry,

Kod:

   Sub Main()
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To 8
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(s.Substring(idx, 1))
        Next
        Console.WriteLine(sb.ToString())
        Console.ReadKey()
    End Sub

Deneyebilirmisin

Böyle bir hata verdi
Tıkla git

Plans' Alıntı:

Kod:

Dim k As String() = {"q", "Q", "w", "W", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "ı", "I", "o", "O", "p", "P", "ğ", "Ğ", "ü", "Ü", "a", "A", "s", "S", "d", "D", "f", "F", "h", "H", "j", "J", "k", "K", "l", "L", "ş", "Ş", "i", "İ", "z", "Z", "x", "X", "c", "C", "v", "V", "b", "B", "n", "N", "m", "M", "ö", "Ö", "ç", "Ç"}
        TextBox1.Text = ""
        For i As Integer = 0 To 14 ' üretmesi istenenden bir eksigi kadar
            Randomize()
            TextBox1.Text += k(Rnd() * 32) & " Üretilen Sayı "
        Next

Bunu denedim bu kod Her harfin arasına " Üretilen Sayı " Ekliyor Örn;

ü Üretilen Sayı ğ Üretilen Sayı U Üretilen Sayı A Üretilen Sayı P Üretilen Sayı ı Üretilen Sayı ü Üretilen Sayı D Üretilen Sayı p Üretilen Sayı p Üretilen Sayı y Üretilen Sayı w Üretilen Sayı p Üretilen Sayı q Üretilen Sayı t Üretilen Sayı

Plans · 23 Ağu 2017

albatros0' Alıntı:
Bunu denedim bu kod Her harfin arasına " Üretilen Sayı " Ekliyor Örn;

ü Üretilen Sayı ğ Üretilen Sayı U Üretilen Sayı A Üretilen Sayı P Üretilen Sayı ı Üretilen Sayı ü Üretilen Sayı D Üretilen Sayı p Üretilen Sayı p Üretilen Sayı y Üretilen Sayı w Üretilen Sayı p Üretilen Sayı q Üretilen Sayı t Üretilen Sayı

Kusura bakma dostum dalgınlığıma gelmiş bayağı saçmalamışım

buyur...

Kod:

Dim k As String() = {"q", "Q", "w", "W", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "ı", "I", "o", "O", "p", "P", "ğ", "Ğ", "ü", "Ü", "a", "A", "s", "S", "d", "D", "f", "F", "h", "H", "j", "J", "k", "K", "l", "L", "ş", "Ş", "i", "İ", "z", "Z", "x", "X", "c", "C", "v", "V", "b", "B", "n", "N", "m", "M", "ö", "Ö", "ç", "Ç"}
        Dim yazi As String = ""
        TextBox1.Text = ""
        For i As Integer = 0 To 14 ' üretmesi istenenden bir eksigi kadar
            Randomize()
            yazi += k(Rnd() * 32)
            TextBox1.Text = "Üretilen : " & yazi
        Next

albatros0 · 23 Ağu 2017

Plans' Alıntı:

Kusura bakma dostum dalgınlığıma gelmiş bayağı saçmalamışım

buyur...

Kod:

Dim k As String() = {"q", "Q", "w", "W", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "ı", "I", "o", "O", "p", "P", "ğ", "Ğ", "ü", "Ü", "a", "A", "s", "S", "d", "D", "f", "F", "h", "H", "j", "J", "k", "K", "l", "L", "ş", "Ş", "i", "İ", "z", "Z", "x", "X", "c", "C", "v", "V", "b", "B", "n", "N", "m", "M", "ö", "Ö", "ç", "Ç"}
        Dim yazi As String = ""
        TextBox1.Text = ""
        For i As Integer = 0 To 14 ' üretmesi istenenden bir eksigi kadar
            Randomize()
            yazi += k(Rnd() * 32)
            TextBox1.Text = "Üretilen : " & yazi
        Next

Teşekkür ederim

Rastgele string üretimi

albatros0

Üye

Plans

Uzman üye

DeSTuRSuZz_

Kıdemli Üye

albatros0

Üye

DeSTuRSuZz_

Kıdemli Üye

albatros0

Üye

Plans

Uzman üye

albatros0

Üye

Sosyal medya sayfalarımız