Anasayfa > Kodlar > StringToHex fonksiyonu (VB6)

StringToHex fonksiyonu (VB6)

Girilen diziyi, hexe çevirir (Dizi>Ascii>Hex)

Private Function AsciiDonusturHexe(Ascii As String) As String
Dim hexDeger As String
For heks = 1 To Len(Ascii)
hexDeger = hexDeger & Hex(Asc(Mid(Ascii, heks, heks)))
Next heks
AsciiDonusturHexe = hexDeger
End Function

Private Sub Command1_Click()
Text1 = AsciiDonusturHexe(Text1)
End Sub

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: