VB.Net Hexadecimal Fonksyonu

Public Function Heks(ByVal sayi As Integer)
Dim Sonuc As String = ""
Dim Cevap As Integer = 0
Dim Basamak As Integer = 1
Dim ISlem As Double = 0
Dim Bitis As Boolean = False
Dim Issayi As Integer = sayi
While Bitis = False
ISlem = (16 ^ (Basamak + 1))
If ISlem > Issayi Then
ISlem = Issayi / (16 ^ Basamak)
Dim ara() As String
ara = Microsoft.VisualBasic.Strings.Split(ISlem, ",")
ISlem = ara(0)
Cevap = Issayi - (ISlem * (16 ^ Basamak))
Sonuc &= donustur(ISlem)
Issayi = Cevap
If Cevap <>
Bitis = True
Sonuc &= donustur(Cevap)
Else
Basamak = 1
End If
Else
Basamak += 1
End If
End While
Return Sonuc
End Function
Function Donustur(ByVal yazi As String)
Dim donen As String = yazi
donen = Microsoft.VisualBasic.Strings.Replace(donen, 10, "A")
donen = Microsoft.VisualBasic.Strings.Replace(donen, 11, "B")
donen = Microsoft.VisualBasic.Strings.Replace(donen, 12, "C")
donen = Microsoft.VisualBasic.Strings.Replace(donen, 13, "D")
donen = Microsoft.VisualBasic.Strings.Replace(donen, 14, "E")
donen = Microsoft.VisualBasic.Strings.Replace(donen, 15, "F")
Return donen
End Function

Kullanım: Msgbox(Heks(1907))