Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ decimal ] /
Makaleler-Article(s)
decimal ile ilgili toplam 1 makale bulundu ! (A total of 1 article(s) about decimal was(were) found in all of articles!)
| Article |
|---|
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
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 |
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.