Normal Veriyi Hexadecimal e Çevirme

Bu örneğimizde TextBox a girilen normal karakterleri hexadecimal karşılığı veriye çevireceğiz. Formunuza 2 adet TextBox ve 2 adet Label yerleştirin.Aşağıdaki Şekil 1 deki gibi formunuzu tasarlayın...Bahadirsa

Şekil 1

Forma yazılacak kodlar:

Public Class Form1

    Private Sub btnCevir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCevir.Click
        TextBox2.Text = ""
        Dim i As Integer
        For i = 1 To Len(TextBox1.Text)
            Dim j As String
            j = Mid$(TextBox1.Text, i, 1)
            TextBox2.Text = TextBox2.Text + Hex(Asc(j)) + " "
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "Hexadecimal e Çevirme...Bahadirsa"
            .MaximizeBox = False
        End With
    End Sub
End Class

‘Faydalı olması dileğiyle. Bir sonraki makalede buluşmak üzere...Bahadirsa