hexedit.bas

来自「数据采集系统上位机设计。包括串口通信、文本显示、曲线实时显示、数据保存、监测报警」· BAS 代码 · 共 21 行

Attribute VB_Name = "Module1"
'接收模块
'************************************
Public bytreceivebyte() As Byte    '接收到的字节
Public intreceivelen As Integer    '接收到的字节数
'显示模块
'************************************
Public strhex1 As String            '十六进制编码
Public strascii As String          'ASCII码
Public strdec As String          '十进制编码码
Public inthexwidth As Integer      '显示列数
Public intoriginx As Long          '横向原点（象素）
Public intoriginy As Integer       '纵向原点（行）
Public intline As Integer          '总行数
'显示常量
'************************************
Public Const chrwidth = 105        '单位宽度
Public Const chrheight = 2 * chrwidth  '单位高度
Public Const linemax = 16              '最大显示行数