VB6 Code - Konversi Angka Dari Hexa Ke Decimal

Di bawah ini merupakan fungsi VB6 untuk mengkonversi angka dari hexadecimal ke decimal dan sebaliknya. Adapun kode untuk mengkonversi angka dari hexa ke decimal dan sebaliknya menggunakan VB6 adalah sebagai berikut:

Option Explicit

Public Function DecToHex(DecNumber)
   DecToHex = Hex(DecNumber)
End Function

Public Function HexToDec(HexNumber)
   HexToDec = Val("&H" & HexNumber)
End Function

Contoh penggunaan Konversi angka dari decimal ke hexa

Private Sub Form_Load()
   MsgBox DecToHex(120000)
End Sub

Contoh penggunaan konversi angka dari hexa ke decimal

Private Sub Form_Load()
   MsgBox HexToDec(120000)
End Sub