华侨大学毕业设计（论文）
[2]柏逢明，卫昱含.VB基础与RS-232C通信技术[M].北京.机械工业出版社.2014。
[3]杨添博，武威.伺服电机控制的VB设计.[J].《工程与实验》，2013年53卷第1 期：73-75。
[4]台达私服电机ASDA-A2使用手册.引自台达私服官网，
http://www.deltagreentech.com.cn/productlv4-374-164.html。 [5]龚沛曾，袁科萍，杨志强.数据库技术及应用[M].北京.高等教育出版社.2008.3。
[6]Visual Basic+SQL Server 数据库应用系统开发教程[M].北京.清华大学出版社.2012.1。
[7]李江全.Visual Basic 串口通信及测控应用实例详解[M].北京.电子工业出版社.2014.1。
[8]莫会成.微特电机[M].北京.中国电力出版社.2015.9。
[9]郭庆鼎，孙宜标，王丽梅.现代永磁电动机交流伺服系统[M].北京.中国电力出版社.2006
[10]张红莲.电机与电力拖动控制系统[M].北京.机械工业出版社.2013.9 [11]舒志兵.交流伺服运动控制系统[M].北京.清华大学出版社.2006.3 [12]寇宝泉.程树康.交流伺服电机及其控制[M].北京.机械工业出版社.2008.9 [13]金以慧.过程控制[M].北京.清华大学出版社.1993.4
致谢
毕业论文基本完成这就是说我在国立华侨大学厦门校区的本科四年将
20
直线扫描架控制系统设计
要结束。想想我的一生最值得铭记的时光能够在这样开放、美丽校园里，能在周围都是学识渊博的老师们的关注下走过绝对是一段快乐的时光。走过了四年快乐的时光，我无论实在学习上还是在思想上都收获良多。能够顺利毕业不仅必须有自身努力还与各位老师、同学和朋友的帮助、支持和鼓励是密不可分的。
写作论文是意见枯燥艰辛而又富有挑战的事情。伺服电机一直是控制界研究的热点话题，老师的谆谆诱导、同学的出谋划策及家长的支持鼓励是我坚持完成毕业设计和论文的不竭动力的源泉。在这里我必须特别要感谢我敬佩的金福江老师。从毕业设计的选题、论文的文献的采集、框架的设计、结构的布局到最终的论文定稿从内容到格式从标题到标点他都呕心沥血。没有金福江老师的细心提点、认真指导就没有我论文和毕业设计的顺利完成。 感谢信息学院自动化系的各位同学和研究生学长能和他们交流是我思路的另一个来源。最后一定要感谢我的家人还有一只支持我、鼓励我的朋友们，他们使我所做的一切更有意义，也正是因为他们给了我追求进步的力量和信念。时间的仓促及受自身专业水平的制约整篇论文肯定存在尚未发现的不足。恳请阅读此篇论文的老师、同学多予指正不胜感激。
附录一代码及解释
Option Explicit
21
华侨大学毕业设计（论文）
Dim RcrcH As Byte 'CRC校验高位 Dim RcrcL As Byte 'CRC校验低位 Dim jieshou() As Byte '接收缓存数组 Dim db As Integer '读步骤判断原cc
Dim txsb1 As Integer '通讯失败次数1原tsdk1 Dim zdds As Integer '发送步骤判断
Dim sdH As Byte '设置速度高8位 Dim sdl As Byte '设置速度低8位 Dim wyH As Byte '设置位移高8位 Dim wyL As Byte '设置位移低8位 Dim wyH1 As Byte Dim wyL1 As Byte
Private Sub Command6_Click() '转动速度设置 On Error Resume Next Text3.Enabled = True
sdH = \高八位 sdl = \低八位 zdds = 4 Call zdd
End Sub
Private Sub Form_Load()
'***************************设置文本显示颜色******************************* Dim a As Integer
Text1.ForeColor = RGB(255, 0, 0) '通讯超时字体颜色 Text2.ForeColor = RGB(255, 0, 0) '设定频率字体颜色 Text3.ForeColor = RGB(255, 0, 0) '给定频率字体颜色 Text4.ForeColor = RGB(255, 0, 0) '输出频率字体颜色
'**********************************************************
For a = 1 To 16
初
始
化
可
选
择
的
端
口
Combo1.AddItem \初始化端口号设置参数 Next a
Combo1.ListIndex = 0
'***************************设置可选择波特率******************************* Combo2.AddItem \Combo2.AddItem \Combo2.AddItem \Combo2.ListIndex = 1
'***************************设置通讯校验方式*******************************
22
直线扫描架控制系统设计
Combo3.AddItem \Combo3.AddItem \Combo3.AddItem \Combo3.ListIndex = 0
'***************************设置通讯数据位******************************* Combo4.AddItem \Combo4.AddItem \Combo4.ListIndex = 1
'***************************设置通讯停止位******************************* Combo5.AddItem \Combo5.AddItem \Combo5.ListIndex = 1
Text1.Text = 100 '默认通讯超时时间为100ms Timer2.Enabled = False Timer4.Enabled = False Timer6.Enabled = False Timer7.Enabled = False
End Sub
Private Sub Command4_Click()
Timer2.Interval = Val(Text1.Text) '通讯超时时间设置 Call COMCHONGZHI '端口设置 End Sub
Private Sub Text1_Click() '通讯超时时间输入 Load Form2 Form2.Show End Sub
Private Sub COMCHONGZHI() '通讯端口设置 On Error Resume Next
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = Mid(Combo1.Text, 4, 2) '截取Combo1.Text中的字符串，从第四位开始截两位？
MSComm1.Settings = Combo2.Text & Combo3.Text & Combo4.Text & Combo5.Text MSComm1.PortOpen = True If Err.Number <> 0 Then Load Form3 Form3.Show
Form3.Label1.Caption = \错误!通讯端口初始化失败！ \Exit Sub Else
Load Form3 Form3.Show
23
华侨大学毕业设计（论文）
Form3.Label1.Caption = \ 通讯端口打开成功!\Call du End If End Sub
Private Sub Command1_Click() '转动 zdds = 0 Call zdd End Sub
Private Sub Command2_Click() '停止 zdds = 1 Call zdd End Sub
Private Sub Command3_Click() '启动 zdds = 2 Call zdd End Sub
Private Sub zdd() '中断写取程序 Timer2.Enabled = False Timer4.Enabled = False Timer6.Enabled = True txsb1 = 0
End Sub
Private Sub Command5_Click() '位移距离设置 On Error Resume Next
wyH = \低16位高八位
wyL = \低16位低八位
wyH1 = \256) '高16位高八位
wyL1 = \高16位低八位
Print Hex(Val(Text2.Text)) Print wyH Print wyL Print wyH1 Print wyL1 zdds = 3 Call zdd
24