📄 汉字代码.frm
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 0
TabIndex = 0
Top = 0
Width = 1680
End
Begin VB.Image imgTitleMinimize
Height = 195
Left = 7320
Picture = "汉字代码.frx":2AA2
Top = 480
Width = 195
End
Begin VB.Image imgTitleClose
Height = 195
Left = 7320
Picture = "汉字代码.frx":2CEC
Top = 240
Width = 195
End
Begin VB.Image imgTitleHelp
Height = 195
Left = 7320
Picture = "汉字代码.frx":2F36
Top = 0
Width = 195
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 5880
Picture = "汉字代码.frx":3180
Top = 0
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 6240
Picture = "汉字代码.frx":38CA
Top = 0
Width = 285
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 6600
Picture = "汉字代码.frx":4014
Top = 0
Width = 285
End
Begin VB.Image imgWindowBottomRight
Height = 450
Left = 6960
Picture = "汉字代码.frx":475E
Top = 0
Width = 285
End
Begin VB.Image imgTitleMain
Height = 450
Left = 5880
Picture = "汉字代码.frx":4EA8
Stretch = -1 'True
Top = 480
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 6240
Picture = "汉字代码.frx":55F2
Stretch = -1 'True
Top = 480
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 6600
Picture = "汉字代码.frx":5D3C
Stretch = -1 'True
Top = 480
Width = 285
End
Begin VB.Image imgWindowRight
Height = 450
Left = 6960
Picture = "汉字代码.frx":6486
Stretch = -1 'True
Top = 480
Width = 285
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim MyPath
Dim Fname '返回或设置所选文件的路径和文件名。
Dim txtHpp, txtSpp, txtWpp As String
Dim txtHpy, txtSpy, txtTpy As String
Private Function IntByte(strBcd As String, num As Variant) As Integer
'分解成BCD码,strBCD为0~F,num为4,3,2,1表示从高到低位
Select Case strBcd
Case "F", "f"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 1
Case 2
IntByte = 1
Case 1
IntByte = 1
End Select
Case "E", "e"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 1
Case 2
IntByte = 1
Case 1
IntByte = 0
End Select
Case "D", "d"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 1
Case 2
IntByte = 0
Case 1
IntByte = 1
End Select
Case "C", "c"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 1
Case 2
IntByte = 0
Case 1
IntByte = 0
End Select
Case "B", "b"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 0
Case 2
IntByte = 1
Case 1
IntByte = 1
End Select
Case "A", "a"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 0
Case 2
IntByte = 1
Case 1
IntByte = 0
End Select
Case "9"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 0
Case 2
IntByte = 0
Case 1
IntByte = 1
End Select
Case "8"
Select Case num
Case 4
IntByte = 1
Case 3
IntByte = 0
Case 2
IntByte = 0
Case 1
IntByte = 0
End Select
Case "7"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 1
Case 2
IntByte = 1
Case 1
IntByte = 1
End Select
Case "6"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 1
Case 2
IntByte = 1
Case 1
IntByte = 0
End Select
Case "5"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 1
Case 2
IntByte = 0
Case 1
IntByte = 1
End Select
Case "4"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 1
Case 2
IntByte = 0
Case 1
IntByte = 0
End Select
Case "3"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 0
Case 2
IntByte = 1
Case 1
IntByte = 1
End Select
Case "2"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 0
Case 2
IntByte = 1
Case 1
IntByte = 0
End Select
Case "1"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 0
Case 2
IntByte = 0
Case 1
IntByte = 1
End Select
Case "0"
Select Case num
Case 4
IntByte = 0
Case 3
IntByte = 0
Case 2
IntByte = 0
Case 1
IntByte = 0
End Select
End Select
End Function
Private Function HexBcd(int4 As Integer, int3 As Integer, int2 As Integer, int1 As Integer) As String
'将二进制转换成十六进制，并转换成字符。int4为高位，int1为低位
HexBcd = CStr(Hex(int4 * 8 + int3 * 4 + int2 * 2 + int1 * 1))
End Function
Private Function ChangeBCD(strBcd As String) As String
'将BCD码反向后的字符转换
Select Case strBcd
Case "F", "f"
ChangeBCD = "F"
Case "E", "e"
ChangeBCD = "7"
Case "D", "d"
ChangeBCD = "B"
Case "C", "c"
ChangeBCD = "3"
Case "B", "b"
ChangeBCD = "D"
Case "A", "a"
ChangeBCD = "5"
Case "9"
ChangeBCD = "9"
Case "8"
ChangeBCD = "1"
Case "7"
ChangeBCD = "E"
Case "6"
ChangeBCD = "6"
Case "5"
ChangeBCD = "A"
Case "4"
ChangeBCD = "2"
Case "3"
ChangeBCD = "C"
Case "2"
ChangeBCD = "4"
Case "1"
ChangeBCD = "8"
Case "0"
ChangeBCD = "0"
End Select
End Function
Private Function strFormat(str1 As String) As String
'字符显示格式
Select Case str1
Case "F", "f"
strFormat = "11111111"
Case "E", "e"
strFormat = "111111 "
Case "D", "d"
strFormat = "1111 11"
Case "C", "c"
strFormat = "1111 "
Case "B", "b"
strFormat = "11 1111"
Case "A", "a"
strFormat = "11 11 "
Case "9"
strFormat = "11 11"
Case "8"
strFormat = "11 "
Case "7"
strFormat = " 111111"
Case "6"
strFormat = " 1111 "
Case "5"
strFormat = " 11 11"
Case "4"
strFormat = " 11 "
Case "3"
strFormat = " 1111"
Case "2"
strFormat = " 11 "
Case "1"
strFormat = " 11"
Case "0"
strFormat = " "
End Select
End Function
Private Sub cmdAbout_Click()
If MsgBox("确定退出吗？", vbExclamation + vbYesNo, "询问") = vbYes Then
CloseBool = True
End
Else
CloseBool = False
End If
End Sub
Private Sub cmdCode_Click()
frmCode.Show vbModal
End Sub
Private Sub cmdOK_Click()
Dim Jnm, Qwm '机内码,区位码
Dim Qm, Wm
Dim JH, JL
Dim JqWz '字符所在位置
Dim fnum As Integer
Dim num_bytes
Dim bytes() As Byte
Dim bitHz
Dim ymHz
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -