การแปลงเลขฐาน 16 เป็นเลขฐาน 2 และ เลขฐาน 10 - VB6

' #######################################################
' ฟังค์ชั่นการแปลงเลขฐาน 16 เป็นเลขฐาน 10 โดยใช้สมการ
' โดยที่มีการรับค่าชุดเลขฐาน 16 เข้ามา (String) แล้วคืนค่ากลับเลขฐาน 10 กลับไป
' #######################################################
Function HexToDecimal(Hex As String) As Double
    Dim i As Integer
    ' เก็บค่าเลขฐาน 10 เป็นตัวแปรแบบ Double มีขนาด 8 ไบต์
    ' หากกำหนดแบบ Long จะได้ค่าเลขฐาน 10 ไม่เกิน 2,147,483,647 ค่า
    Dim Dec As Double
    
    ' ตรวจสอบว่าหลักนั้นมีค่า A - F หรือไม่ หากใช่ต้องเปลี่ยนเป็นเลขฐาน 10 ก่อน
    ' เช่น A = 10, B = 11, C = 12 , ... F = 15
    Dim Hex2Dec As Byte
    
    ' ตัวแปรกำหนดค่าเลขยกกำลังของแต่ละหลัก จาก 0, 1, 2, 3 ... ไปเรื่อยๆจนครบจำนวนหลักฐาน 16
    Dim HexWeight As Byte
    
    ' เริ่มต้นให้เป็น 0 เพราะต้องให้ 16 ยกกำลัง 0 และ เพิ่มขึ้นทีละ 1 จนกว่าจะครบจำนวนจำนวนหลัก
    HexWeight = 0
    
    ' เป็นการคำนวณหาจากหลักขวามือสุด ไปทางหลักซ้ายมือสุด
    ' ลดค่าความยาวของเลขฐาน 16 ลงครั้งละ 1 หลัก
    ' โดยปกติเรามักจะถนัดอ่านจากซ้ายไปขวา ทำให้เขียนโปรแกรมได้ง่ายขึ้น ... พอเจอแบบนี้อาจงงกัน
    ' ยกตัวอย่างเช่น A3F (มีความยาว = 3) ... ต้องลองทำการ Debug Program ดูด้วยน่ะครับ
    ' รอบแรก i จะอ่านค่าเริ่มต้นได้ 3 นั่นคือคำสั่ง Mid$(Hex, 3, 1) ก็อ่านค่าได้หลักที่ 3 (1 ตัว) คือ F
    ' รอบที่สอง i จะถูกลดค่าลง 1 (เหลือ 2) นั่นคือคำสั่ง Mid$(Hex, 2, 1) ก็จะอ่านค่าในหลักที่ 2 (1 ตัว) คือ 3
    ' รอบที่สาม i จะถูกลดค่าลง 1 (เหลือ 1) นั่นคือคำสั่ง Mid$(Hex, 1, 1) ก็จะอ่านค่าในหลักที่ 1 (1 ตัว) คือ A
    For i = Len(Hex) To 1 Step -1
    
        ' ทดสอบหาค่าตัวอักษร A - F ที่แทนเลขฐาน 10 ระหว่าง 10 - 15 ก่อน
        Select Case Mid$(Hex, i, 1)
            Case "A"
                Hex2Dec = 10
            Case "B"
                Hex2Dec = 11
            Case "C"
                Hex2Dec = 12
            Case "D"
                Hex2Dec = 13
            Case "E"
                Hex2Dec = 14
            Case "F"
                Hex2Dec = 15
            Case Else
            
                ' หากเป็นค่า 0 - 9 ก็ใช้ค่าของตัวมันเองไปเลย (เพราะเท่ากับ ฐาน 10 อยู่แล้ว)
                Hex2Dec = Mid$(Hex, i, 1)
                
        End Select
        
        ' ตรวจสอบว่าหลักนั้นเป็น 0 หรือไม่ หากใช่ให้ข้ามไปเลย เพราะ 0 คูณกับอะไรก็ได้ 0 เสมอ
        If Hex2Dec <> 0 Then Dec = Dec + ((16 ^ HexWeight) * Hex2Dec)
        
        ' เพิ่มค่าเลขยกกำลังขึ้นอีก 1
        HexWeight = HexWeight + 1
        
    Next
    
    ' ส่งค่ากลับผ่านชื่อฟังค์ชั่นตัวมันเอง
    HexToDecimal = Dec

End Function

' #######################################################
' การเรียกใช้งาน
' #######################################################
Private Sub Form_Load()
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

    ' เรียกใช้ฟังค์ชั่นโดยการคำนวณหาค่าเลขฐาน 10 จากสมการโดยตรง
    MsgBox HexToDecimal("FED0")
    
End Sub

Private Sub cmdConvert_Click()
    Dim i As Integer
    
    txtBinary.Text = ""
    txtDecimal.Text = ""
    
    If Trim$(txtHexadecimal.Text) = "" Or Len(Trim$(txtHexadecimal.Text)) = 0 Then Exit Sub
    
    ' #######################################################
    ' การแปลงเลขฐาน 16 (HexaDecimal) ให้กลายเป็นเลขฐาน 2 (Binary)
    ' #######################################################
    
    ' การเปรียบเทียบค่าเลขฐาน 16 ทีละหลัก นับจากทางขวามือสุดไปทางซ้ายมือสุด
    ' แล้วนับถอยหลังไปทีละ 1 หลัก (Step - 1)
    ' อาศัยหลักการง่ายๆ คือ เปรียบเทียบค่าของเลขฐาน 16 ทีละหลัก (ขวาไปซ้าย)
    ' เพราะแต่หลักของเลขฐาน 16 จะแทนเลขฐาน 2 ได้ขนาด 4 บิต
    For i = Len(txtHexadecimal.Text) To 1 Step -1
        Select Case Mid$(txtHexadecimal, i, 1)
            Case "0"
                txtBinary.Text = "0000" & txtBinary.Text
            Case "1"
                txtBinary.Text = "0001" & txtBinary.Text
            Case "2"
                txtBinary.Text = "0010" & txtBinary.Text
            Case "3"
                txtBinary.Text = "0011" & txtBinary.Text
            Case "4"
                txtBinary.Text = "0100" & txtBinary.Text
            Case "5"
                txtBinary.Text = "0101" & txtBinary.Text
            Case "6"
                txtBinary.Text = "0110" & txtBinary.Text
            Case "7"
                txtBinary.Text = "0111" & txtBinary.Text
            Case "8"
                txtBinary.Text = "1000" & txtBinary.Text
            Case "9"
                txtBinary.Text = "1001" & txtBinary.Text
            Case "A"
                txtBinary.Text = "1010" & txtBinary.Text
            Case "B"
                txtBinary.Text = "1011" & txtBinary.Text
            Case "C"
                txtBinary.Text = "1100" & txtBinary.Text
            Case "D"
                txtBinary.Text = "1101" & txtBinary.Text
            Case "E"
                txtBinary.Text = "1110" & txtBinary.Text
            Case "F"
                txtBinary.Text = "1111" & txtBinary.Text
        End Select
    Next
    
    ' #######################################################
    ' การแปลงเลขฐาน 2 (Binary) ให้กลายเป็นเลขฐาน 10 (Decimal)
    ' #######################################################
    ' เก็บค่าเลขฐาน 10 เป็นตัวแปรแบบ Double มีขนาด 8 ไบต์
    ' หากกำหนดแบบ Long จะได้ค่าเลขฐาน 10 ไม่เกิน 2,147,483,647 ค่า ...
    ' หากเราป้อนค่าฐาน 16 = FFFFFFFF จะทำให้เกิด Overflow (มีค่าเกินที่ตัวแปรจะรับได้)
    Dim Dec As Double
    
    ' ตัวแปรกำหนดค่าเลขยกกำลังของบิตแต่ละหลัก จาก 0, 1, 2, 3 ... ไปเรื่อยๆจนครบจำนวนบิต
    Dim BitWeight As Integer
    ' เริ่มต้นให้เป็น 0 เพราะต้องให้ 2 ยกกำลัง 0 และ เพิ่มขึ้นทีละ 1 จนกว่าจะครบจำนวนบิต
    'BitWeight = 0
    
    ' เป็นการคำนวณหาจากบิตขวามือสุด (LSB - Least Significant Bit หรือ บิตนัยสำคัญต่ำสุด)
    ' ไปทางบิตซ้ายมือสุด (MSB - Most Significant Bit หรือ บิตนัยสำคัญสูงสุด)
    ' ลดค่าความยาวจากทางขวาของเลข Binary มาทางซ้ายลงครั้งละ 1
    For i = Len(txtBinary.Text) To 1 Step -1
        ' หาน้ำหนักประจำหลักจากบิตขวามือสุด (LSB) ไปยังบิตซ้ายมือสุด (MSB)
        ' โดยการให้ 2 ยกกำลังตั้งแต่ 0 และ เพิ่มค่าขึ้น 1 ไปเรื่อยๆ จนกว่าจะครบจำนวนบิต
        ' จากนั้นคูณเข้ากับค่าบิต นั่นคือ ค่า 0 หรือ 1 เท่านั้น แล้วรวมค่าแต่ละบิตที่ได้ทั้งหมด
        ' เช่น 1011 ก็จะได้ (2^3 x 1) + (2^2 x 0) + (2^1 x 1) + (2^0 x 1)
        
        ' แบบนี้เป็นการคำนวณหาหมดทุกๆบิต
        ' Dec = Dec + ((2 ^ BitWeight) * Mid$(txtBinary.Text, i, 1))
        
        ' หรือ ตรวจสอบว่าบิตนั้นเป็น 0 หรือไม่ หากใช่ให้ข้ามไปเลย เพราะ 0 คูณกับอะไรก็ได้ 0 เสมอ
        If Mid$(txtBinary.Text, i, 1) <> 0 Then Dec = Dec + ((2 ^ BitWeight) * Mid$(txtBinary.Text, i, 1))
        
        ' เพิ่มค่าเลขยกกำลังขึ้นอีก 1
        BitWeight = BitWeight + 1
    Next
    
    ' #######################################################
    ' กรณีที่ไม่ใช้สมการ แต่ใช้น้ำหนักของแต่ละบิตคูณ 2 ต่อเนื่องจากบิตขวาไปซ้าย เช่น
    ' คูณ 2 เท่ามาเรื่อยๆ ... 1024 512 256 128 64 32 16 8 4 2 1
    'BitWeight = 1
    'For i = Len(txtBinary.Text) To 1 Step -1
    '    Dec = Dec + (BitWeight * Mid$(txtBinary.Text, i, 1))
    '    BitWeight = BitWeight * 2
    'Next
    ' #######################################################
    
    ' แสดงผลเลขฐาน 10 ใน TextBox
    txtDecimal.Text = Dec
    
    ' เรียกใช้ฟังค์ชั่นโดยการคำนวณหาค่าเลขฐาน 10 จากสมการโดยตรง
    MsgBox HexToDecimal(txtHexadecimal.Text)
    
End Sub

Private Sub Form_Load()
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
    txtHexadecimal.Text = ""
    txtBinary.Text = ""
    txtDecimal.Text = ""
    
End Sub

Private Sub txtHexadecimal_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        Call cmdConvert_Click
    Else
        ' ตรวจสอบการกดคีย์ให้รับได้เฉพาะค่า 0 - 9 และ A - F เท่านั้น
        KeyAscii = CheckHexaDecimal(KeyAscii)
    End If
End Sub

' #######################################################
' ฟังค์ชั่นตรวจสอบการกดคีย์ให้รับได้เฉพาะค่า 0 - 9 และ A - F เท่านั้น
' #######################################################
Function CheckHexaDecimal(Index As Integer)
    Select Case Index
        ' ASCII Code 48 - 57 คือ ตัวอักขระ 0 - 9
        ' ASCII Code 65 - 70 คือ ตัวอักขระ A - F
        Case 48 To 57, 65 To 70
        Case 8, 13
        Case Else
            Index = 0
    End Select
    CheckHexaDecimal = Index
End Function