Yazı Font Küçült Yazı Font Büyült

Otomatik Key Olusturma  

Bu örneğimizde otomatik olarak key numaraları oluşturacağız. Ayrıca oluşturacağımız key numaralarını text dosyasına kaydedip, daha sonra text dosyasındanda yükleyebilirsiniz. Bunun için formunuza 5 adet Textbox, 4 adet Button ve 1 adet RichTextBox ekleyin. Aşağıdaki şekil gibi formunuzu oluşturun...Bahadirsa

Resim1

Şekil 1

Forma yazılacak kodlar:

Public Class Form1
    Dim i As Integer = 0, j As Integer = 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Bahadirsa Otomatik Key Oluşturma"
        Me.Width = 296
        Me.Height = 327
        Me.Left = 200
        Me.Top = 130
        Me.MaximizeBox = False
        RichTextBox1.Width = 247
        RichTextBox1.Height = 135
        RichTextBox1.ReadOnly = True
        TextBox1.MaxLength = 5
        TextBox2.MaxLength = 5
        TextBox3.MaxLength = 5
        TextBox4.MaxLength = 5
        TextBox5.MaxLength = 5
        TextBox1.ReadOnly = True
        TextBox2.ReadOnly = True
        TextBox3.ReadOnly = True
        TextBox4.ReadOnly = True
        TextBox5.ReadOnly = True
        Label1.Text = "Otomatik Key Oluşturma "
        Label2.Text = "Oluşturduğunuz Key Sayısı:" + CStr(0)
        Timer1.Enabled = True
        Timer1.Interval = 10
        Button1.Text = "Key Oluştur"
        Button2.Text = "Text Olarak Kaydet"
        Button3.Text = "Dosyadan Key Yükle"
        Button4.Text = "İçeriği Temizle"
    End Sub

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


        Dim dizi() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "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", "r", "s", "t", "u", "v", "w", "x", "y", "z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "?", "+"}
        Dim sayı() As Double = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}

        sayı(0) = (i * 300) Mod 62
        sayı(1) = ((i + 5) * 20) Mod 62
        sayı(2) = ((i * 2323) + 44) Mod 62
        sayı(3) = ((i * 15) - 23) Mod 62
        sayı(4) = ((3 * i + 45) * 4) Mod 62
        TextBox1.Text = CStr(dizi(sayı(0))) &  CStr(dizi(sayı(1))) & CStr(dizi(sayı(2))) & CStr(dizi(sayı(3))) & CStr(dizi(sayı(4)))

        sayı(5) = (i + 1234) Mod 62
        sayı(6) = ((i + 44) * 20) Mod 62
        sayı(7) = ((i * 23) + 34) Mod 62
        sayı(8) = ((i * 55) - 23) Mod 62
        sayı(9) = ((88 * i + 45) * 4) Mod 62
        TextBox2.Text = CStr(dizi(sayı(5))) & CStr(dizi(sayı(6))) & CStr(dizi(sayı(7))) & CStr(dizi(sayı(8))) & CStr(dizi(sayı(9)))

        sayı(10) = (i) Mod 62
        sayı(11) = ((i * 12) + 40) Mod 62
        sayı(12) = ((i * 999) + 1234) Mod 62
        sayı(13) = ((i * 155) - 12) Mod 62
        sayı(14) = ((i * 100 + 20) / 10) Mod 62
        TextBox3.Text = CStr(dizi(sayı(10))) & CStr(dizi(sayı(11))) & CStr(dizi(sayı(12))) & CStr(dizi(sayı(13))) & CStr(dizi(sayı(14)))

        sayı(15) = (i * 88) Mod 62
        sayı(16) = ((i * 2 + 125) * 2) Mod 62
        sayı(17) = (((i * 23) - 23) + 44) Mod 62
        sayı(18) = ((i * i) + 38) Mod 62
        sayı(19) = ((34 * i + 45 - i)) Mod 62
        TextBox4.Text = CStr(dizi(sayı(15))) & CStr(dizi(sayı(16))) & CStr(dizi(sayı(17))) & CStr(dizi(sayı(18))) & CStr(dizi(sayı(19)))

        sayı(20) = ((i * 23) + 4) Mod 62
        sayı(21) = ((i * 150) - 34) Mod 62
        sayı(22) = ((2 * i) + 44) Mod 62
        sayı(23) = ((i * 12) - 12) Mod 62
        sayı(24) = ((10 * i + 45) * 4) Mod 62
        TextBox5.Text = CStr(dizi(sayı(20))) & CStr(dizi(sayı(21))) & CStr(dizi(sayı(22))) & CStr(dizi(sayı(23))) & CStr(dizi(sayı(24)))
       
        RichTextBox1.AppendText((TextBox1.Text & "-" & TextBox2.Text & "-" + TextBox3.Text & "-" & TextBox4.Text & "-" & TextBox5.Text) & "                               ")

        j = j + 1

        Label2.Text = "Oluşturduğunuz Key Sayısı:" & CStr(j)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ‘TextBox1.MaxLength = 5
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       
            i = i + 1
            End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = "Dosya C:\bahadirsa.txt Adresine Kaydedildi..."
        RichTextBox1.SaveFile("c:\bahadirsa.txt")


       
    End Sub

  
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = "Dosya Yükleme İşlemi"
        RichTextBox1.LoadFile("C:\bahadirsa.txt")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        RichTextBox1.Clear()
    End Sub
End Class

‘ Bir sonraki makalemizde buluşmak üzere...Bahadirsa