Serial Kod Oluşturmak

Merhaba arkadaşlar. Bu makalemizde otomatik olarak 25 karakterli serial kod oluşturacağız. Formumuza 1 tane buton, 5 tane textbox ve 1 tane label ekleyin. Oluşturacağımız karakterleri textboxta gösterceğiz.

Şekil 1

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim karakter As String = "ABCDEFGHIJKLMNOPRSTUVYZX0123456789"

        Dim i, j, k As Integer

        Dim l As String

        For j = 0 To 4

            For k = 0 To 4

                i = CInt(Int((33 * Rnd()) + 1))

                l += Mid(karakter, i, 1)

            Next k

            l += "-"

        Next j

        'serial kodu Textboxa

        TextBox1.Text = l.Substring(0, 5)

        TextBox2.Text = l.Substring(6, 5)

        TextBox3.Text = l.Substring(12, 5)

        TextBox4.Text = l.Substring(18, 5)

        TextBox5.Text = l.Substring(24, 5)

        'veya  Label e yazdırabilirsiniz.

        Label1.Text = l.Substring(0, 29)

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle.  Bol kodlu günler. Bahadır ŞAHİN