การแปลงเลขฐาน 10 เป็นเลขฐาน 16 และ เลขฐาน 2 เป็นเลขฐาน 16 (แนวคิดของช่าง)

เลขฐานสิบ

เลขฐานสอง

เลขฐานสิบหก

0

0000

0

1

0001

1

2

0010

2

3

0011

3

4

0100

4

5

0101

5

6

0110

6

7

0111

7

8

1000

8

9

1001

9

10

1010

A

11

1011

B

12

1100

C

13

1101

D

14

1110

E

15

1111

F

' ==============================================================
Function Decimal2HexaDecimal(Dec As Long) As String
' ==============================================================
Dim Hex As String
    ' เงื่อนไขสุดท้าย ทำจนกว่า Dec = 0 ก็ให้จบกระบวนการ (True) ออกจากวงรอบ Do ... While
    Do While (Dec > 0)
        ' Mod ด้วยอะไร ก็จะได้ค่าสูงสุด (ที่เป็นไปได้) ของตัว Mod ลบด้วย 1 เสมอ
        ' ดังนั้นเมื่อเอา 16 (ฐาน 10) มา Mod ทำให้ค่าสูงสุดที่ได้ (16 - 1) = 15 นั่นเอง
        ' เงื่อนไขในการดักค่าตั้งแต่ 10 แต่ไม่เกิน 15 เพราะ 10 แทนค่าด้วย A (ฐาน 16)
        ' 11 = B (ฐาน 16) และไปเรื่อยๆจน 15 = F (ฐาน 16)
        Select Case (Dec Mod 16)
            Case 10
                Hex = "A" & Hex
            Case 11
                Hex = "B" & Hex
            Case 12
                Hex = "C" & Hex
            Case 13
                Hex = "D" & Hex
            Case 14
                Hex = "E" & Hex
            Case 15
                Hex = "F" & Hex
            
            ' ตั้งแต่ 0 - 9 มาประมวลผลที่ตรงนี้ครับ ... (รับรองการ Mod ด้วย 16 ยังไงๆ มันก็ไม่มีค่าเกิน 15 ไปได้หรอก)
            ' สังเกตด้วยครับ ทำไมผมเอาเงื่อนไขค่าระหว่าง 0 - 9 มาวางไว้ใน Case Else .. (มันไม่มีค่าอื่นอีกแล้วเหรอ).
            Case Else
                
                ' เก็บค่าคำตอบของการหารเอาเศษ (MOD) ... เรียงลำดับให้ถูกต้องด้วยน่ะครับ
                Hex = (Dec Mod 16) & Hex
                
        End Select
        
        ' หารตัดเศษ (Div) จนกว่าจะได้ 0 ... เพื่อใช้เป็นเงื่อนไขในการวนรอบ Do ... While
        Dec = Dec \ 16
    
    Loop

    ' ส่งค่าคืนกลับในแบบ String เพราะเลขฐาน 16 มันมีตัวอักขระ A - F
    Decimal2HexaDecimal = Hex
    
End Function

' ==============================================================
' แปลงเลขฐาน 2 เป็นเลขฐาน 16 ... โดยทำการคิดเลขฐาน 2 คราวละ 4 บิต
Function Binary2HexaDecimal(BinaryBase As String) As String
' ==============================================================

Dim Count As Integer    ' นับจำนวนบิตคราวละ 4 บิต
Dim Bit As String           ' นำไปแปลงเป็นเลขฐาน 16
Dim Hex As String         ' เก็บค่าที่แปลงเป็นเลขฐาน 16 เพื่อนำมาเวียนใช้งาน
    
    
    ' เลือกมาเป็นชุดๆละ 4 บิต ต้องนับจากทางขวามือมาน่ะครับ (LSB)
    ' ในฐาน 10 ก็เหมือนไล่จากหลักพัน หลักร้อย หลักสิบ หลักหน่วย (ตามปกติชีวิตที่คุ้นเคยกับตัวเลข)
    ' Count จะลดค่าลงทีละ 4 ครับ ... นับจำนวนความยาวของจำนวนบิต แล้วลดค่าลงทีละ 4 บิต
    For Count = Len(BinaryBase) To 1 Step -4
        
        ' กรณีบืตทางซ้ายมือมันมีขนาดไม่ครบ 4 บิต ... อาศัยการเติม 0 เข้าไปซืครับ
        ' เช่น 1 0000 0001 ...
        ' การวนรอบครั้งสุดท้าย จะทำให้ค่า 1 ซึ่งเป็นบิตที่อยู่ซ้ายมือสุด (MSB) เหลือตัวเดียวโดดๆ
        ' ในกรณีที่ไม่ได้ค่าจำนวนบิตเป็น 4, 8, 12, 16, 20,  ... ไปเรื่อยๆ (การหารด้วย 4 ลงตัวพอดี)
        If Count < 4 Then
            ' ===========================================================
            ' ปรับขนาดบิตให้ครบ 4 บิต โดยเอาบิตมาเรียงกัน แล้วนับมาจากทางขวาคืนกลับมา 4 ตัว ...
            ' "0000" & "1" ... ปกติก็ได้การเรียงบิต ดังนี้  "00001"
            ' พอใช้ Right("0000" & "1", 4) ... คำตอบ คือ "0001"
            Bit = Right$("0000" & Mid$(BinaryBase, 1, Count), 4)
            ' ===========================================================
        
        Else
            
            ' ===========================================================
            ' ค่อยๆไล่หาวิธีการคิดน่ะครับ ...
            ' สมมุติหาค่า 257 (ฐาน 10) หรือ  1 0 0 0 0 0 0 0 1 (ฐาน 2)
            ' ทำให้ได้ความยาวทั้งหมด 9 บิต (Count = 9) ... ให้ลบออกด้วย 3 เพราะ ...
            ' 1 2 3 4 5 6 7 8 9 (นับหลัก)
            ' 1 0 0 0 0 0 0 0 1
            ' -----------x------- ... ผมต้องการตัดบิตขวามือ 3 บิตออก จึงทำให้ลบแล้วได้ตำแหน่ง x พอดี
            ' ดังนั้นรอบแรกเริ่ม 9 - 3 = 6 ... ให้ลองนับดูครับว่าจะเริ่มอ่านจากหลักที่ 6 พอดี นับจากซ้ายมือน่ะครับ
            ' จุดนี้สำคัญมากครับ ... ขอให้ไล่การทำงานด้วยการกด F8 ทดสอบดู
            ' เมื่อใช้ Mid$(ข้อความ, เริ่มต้นจากหลักที่, นับไป 4 ตัว) ...
            ' มันจะมีจำนวนบิตเข้ามาเท่าไร ก็ไม่มีปัญหากับแนวคิดของอดีตช่าง (หัวมัน) แบบผม ...
            Bit = Mid$(BinaryBase, Count - 3, 4)
            ' ===========================================================
        
        End If
        
        ' ได้มาครบ 4 บิตแล้วก็ทำการเปรียบเทียบค่า
        Select Case Bit
            Case "0000"
                Hex = "0"
            Case "0001"
                Hex = "1"
            Case "0010"
                Hex = "2"
            Case "0011"
                Hex = "3"
            Case "0100"
                Hex = "4"
            Case "0101"
                Hex = "5"
            Case "0110"
                Hex = "6"
            Case "0111"
                Hex = "7"
            Case "1000"
                Hex = "8"
            Case "1001"
                Hex = "9"
            Case "1010"
                Hex = "A"
            Case "1011"
                Hex = "B"
            Case "1100"
                Hex = "C"
            Case "1101"
                Hex = "D"
            Case "1110"
                Hex = "E"
            Case "1111"
                Hex = "F"
        End Select
        
        ' จัดเรียงการแสดงผล และ ส่งค่าคืนกลับไป (แบบ String)
        Binary2HexaDecimal = Hex & Binary2HexaDecimal
        
    Next
    
End Function
    

วิธีการ Debug Program