[Visual Basic 6.0] 數值處理將數值轉成 BCD 碼

2013-11-15

摘要:[Visual Basic 6.0] 數值處理將數值轉成 BCD 碼

什麼是 BCD 碼呢 ?

BCD碼的有效數字是：0000 ~ 1001

相對的等於數字中的： 0~9

0000 = 0

0001 = 1

0010 = 2

0011 = 3

0100 = 4

0101 = 5

0110 = 6

0111 = 7

1000 = 8

1001 = 9

'# [Visual Basic 6.0] 數值處理 將數值轉成 BCD 碼
'# 0xDe

Private Sub Command1_Click()
Text2 = "" ' 清空

For I = 1 To Len(Text1)
    If IsNumeric(Mid(Text1, I, 1)) Then ' 如果是數值的話轉成 BCD 碼
        Text2 = Text2 & BCD(Mid(Text1, I, 1)) & " "
    End If
Next I
End Sub

Function BCD(N) ' 轉成 BCD 碼的副程式
ReDim Out(1 To 4)

For I = 1 To N
    Out(1) = Out(1) + 1
    For J = 1 To 4 ' 判斷是否需要進位
        If Out(J) > 1 Then
            Out(J) = 0
            Out(J + 1) = Val(Out(J + 1)) + 1
        End If
    Next J
Next I
Temp = ""
For I = 4 To 1 Step -1
    Temp = Temp & Val(Out(I))
Next I
    BCD = Temp
End Function

[Visual Basic 6.0] 數值處理將數值轉成 BCD 碼.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁