工程背景下的单片机原理及系统设计课后答案-习题答案5.pdfVIP

第五章 训练题 5-1 1 个 24×24 点阵汉字的字模，需要用多少字节的存储单元？说明计算根据。 解：一行 24 个点需要 3 个字节存放，则 24 行需要 3×24=72 字节。 5-2 编写 Visual Basic 程序，实现字符或汉字的点阵字模数据的提取。 解：参考 Visual Basic 程序界面如下图所示： 参考 Visual Basic 程序如下： Private Sub Command1_Click() Text2.Text = 转换之前先清要输出的 区位码、偏移量、字模数据 这三个文本框。 Text3.Text = Text4.Text = If (Text1.Text = ) Then 判断输入信息文本框中内容是否为空?为空时输出提示信息? Text1.SetFocus Mess = MsgBox(请您输入显示信息, vbCritical + vbOKOnly, 提示框) Else 不为空时进行字模转换 Dim F, i, j, k As Integer 定义各变量 Dim L1, R1 As Integer Dim InputStr(1 To 1000), qwl, qwr, pyl As String Dim A As String Dim bytes(32) As Byte 存放全部字模数据的动态数组。 Dim td As String Dim num_bytes As Integer 33 Dim m, n As Integer Dim b(1 To 3200) As Integer A = Text1.Text A = StrConv(A, vbWide) vbwide 为将字符串中单字节字符转成双字节字符。 lenth = Len(A) 取得输入显示信息文本框中字符的个数（长度） ReDim dzsu(1 To lenth, 1 To 32) 重新定义“字模数据”动态数 组变量的维数，并为他们重新分配内存空间。 For i = 1 To lenth lenth 个中英文字符循环转换过程。 InputStr(i) = Mid(A, i, 1) 提取第 i 个中英文字符的内码。 F = Hex(Asc(InputStr(i))) L1 = CInt(H + Mid(F, 1, 2)) 内码高字节 R1 = CInt(H + Mid(F, 3, 2)) 内码低字节 qwr = Trim$(Str$((R1 - 160))) 内码低字节转换成位码 qwl = Trim$(Str$((L1 - 160))) 内码高字节转换成区码 If L1 = 169 Then 目的是为了使输出的字模数据一致用一个2 位的数字表示 qwl = 0 qwl End If If R1 = 169 Then qwr = 0 qwr End If If i Mod 8 = 0 Then 进行 Mod 求余数运算时。 qwr = qwr + Chr$(13) + Chr$(10) 如果被 8 整除，则换行输出 End If Text2.Text = Text2.Text + qwl + qwr + 得到区位码，在文本 Text2 中输出 location = (94 * (L1