串口通讯上位机代码
需积分: 10 127 浏览量
2014-04-24
14:25:00
上传
评论
收藏 46KB DOC 举报
**********工程总定义*****
Dim mypath1 '文件所在的文件夹
Dim zitipath '字体所在路径
Dim n As Integer '文本计数用 hzLen（）
Dim j As Integer, i As Integer
Dim send1(1 To 36) As Byte '定义要发送的数组.
Dim hz As Byte '定义要标志位
Dim hzstr1() As String '从文本中取出的中文存放的一个数组
Dim jnmstr() '存储机内码
Dim address1 '存放在 hzk16 中的地址
Dim zmhp() As Byte '定义横排字存放的树组
******串口设定*****
Private Sub Form_Load()
MSComm1.Settings = "19200,N,8,1" '波特率 19200bit/s，无校验，8 位数据，1 位停止位
MSComm1.OutBufferSize = 128 '发送缓冲区大小
Text1.Text = "请在这里输入将要发送的汉字……"
'*****************标题控制区*****************
Form1.Caption = App.Path '窗体标题改为程序文件所在的路径
'********************************************
Call hzLenandstore
Label3.Caption = n
'**************************************
mypath1 = App.Path & "\" '获取文件所在目录
zitipath = mypath1 & "hzk16" '获取字库所在地址
'************************************************
Combo1.AddItem "COM1" '加载 combo
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
Combo1.AddItem "COM5"
Combo1.AddItem "COM6"
Combo1.AddItem "COM7"
Combo1.AddItem "COM8"
Combo2.AddItem "宋体"
Combo2.AddItem "仿宋"
End Sub
资源评论
