直线的绘制实习报告
【网学提醒】：本文主要为网上学习者提供直线的绘制实习报告，希望对需要直线的绘制实习报告网友有所帮助，学习一下吧!
资料包括： 论文(8页3429字) 源码
说明：
[摘要]
现在的计算机能够完成非常复杂的图形，但图形无论多么复杂，它都是由最基本图形组合而成的。因此，学习和掌握基本图形的生成算法是非常重要的。
直线的绘制以及线形，线色和线宽的处理是生成复杂图形的基础。
[关键字]
图象特效 线型 象素
[引言]
在数学上，理想的直线是没有宽度的，是由无数个点构成的集合，我们要生成的直线是显示器绘制直线，它只能在显示器所给定的有限个像素组成的矩阵中确定最佳逼近于该直线的一组像素，并且按扫描线顺序对这些像素进行写操作。
1．课程设计的目的和意义
此次软件设计的题目是“直线的绘制”，虽然所涉及的内容并不是很多，可是对于我们把理论知识转变为实际的经验，那是一次好的实习过程，并且对于我们提高软件设计能力也是有很大帮助的，对此，我认为这次的软件设计是及有意义的。
2．要求和任务
设计一个基于Windows环境的简单图形编辑软件,名称：DrawLine。支持基本的直线绘制功能和较多的处理功能，使用户可在该软件平台的支持下，用交互方式进行图片建立、打开保存、图象特效处理,图象绘制等操作。
系统，主要功能有：画直线
3．算法及实现代码
Dim paintnow As Boolean
Dim x1, y1, x2, y2
Dim i
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
If Textkuan.Text = 1 Then
If Combo1.ListIndex = -1 Then
DrawStyle = 0
Else
DrawStyle = Combo1.ListIndex
End If
Else
DrawStyle = 0
DrawWidth = Textkuan.Text
End If
ForeColor = QBColor(i)
Line (X, Y)-(X, Y), QBColor(i)
PSet (X, Y), Curbkcolor
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
''取坐标
x2 = X
y2 = Y
If x1 > x2 Then
maxx = x1
minx = x2
Else:
maxx = x2
minx = x1
End If
If y1 > y2 Then
maxy = y1
miny = y2
Else:
maxy = y2
miny = y1
End If
If maxx - minx > maxy - miny Then
r = maxx - minx
Else: r = maxy - miny
End If
If Button = 1 Then
Line (x1, y1)-(x2, y2), QBColor(i)
End If
If Button = 2 Then
Line (x1, y1)-(x2, y2), QBColor(i)
End If
End Sub
Private Sub Label3_Click()
i = 4
End Sub
Private Sub Label4_Click()
i = 1
End Sub
Private Sub Label5_Click()
i = 2
End Sub
Private Sub Label7_Click()
i = 11
End Sub
Private Sub Label8_Click()
i = 6
End Sub
Private Sub ruanjian_Click()
Form2.Show
End Sub
Private Sub Textkuan_Change()
DrawWidth = Textkuan.Text
End Sub
Private Sub Frame1_Click()
Form1.Hide
Load Form3
Form3.Show
Unload Form1
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Image1_Click()
Unload Me
End Sub
目录：
1．课程设计的目的和意义
2．要求和任务
4．所采用的技术和方法（附特色代码）
3．算法及实现代码
5．总结
作者点评：
由于对图象的处理本来就很感兴趣，所以这是我大学里面喜欢的一个实验设计，也是我第一个在实验里完成的windows程序。准备阶段花了很多时间搜集各种图象编辑软件设计的资料，本来打算用Visual C++来做的。但是无奈自己Visual C++水平实在有限。所以转为用Visual Basic来做，由于Visual Basic对控件的良好封装。所以界面和操作流程的设计方面并没有花去我太多的时间，甚至大部分的画图功能都可以轻松实现，让我可以把主要的精力放在图象处理的算法设计上，我想这也更好地达到了这个实验的锻炼目的吧。
资料包括： 论文(8页3429字) 源码
说明：
[摘要]
现在的计算机能够完成非常复杂的图形，但图形无论多么复杂，它都是由最基本图形组合而成的。因此，学习和掌握基本图形的生成算法是非常重要的。
直线的绘制以及线形，线色和线宽的处理是生成复杂图形的基础。
[关键字]
图象特效 线型 象素
[引言]
在数学上，理想的直线是没有宽度的，是由无数个点构成的集合，我们要生成的直线是显示器绘制直线，它只能在显示器所给定的有限个像素组成的矩阵中确定最佳逼近于该直线的一组像素，并且按扫描线顺序对这些像素进行写操作。
1．课程设计的目的和意义
此次软件设计的题目是“直线的绘制”，虽然所涉及的内容并不是很多，可是对于我们把理论知识转变为实际的经验，那是一次好的实习过程，并且对于我们提高软件设计能力也是有很大帮助的，对此，我认为这次的软件设计是及有意义的。
2．要求和任务
设计一个基于Windows环境的简单图形编辑软件,名称：DrawLine。支持基本的直线绘制功能和较多的处理功能，使用户可在该软件平台的支持下，用交互方式进行图片建立、打开保存、图象特效处理,图象绘制等操作。
系统，主要功能有：画直线
3．算法及实现代码
Dim paintnow As Boolean
Dim x1, y1, x2, y2
Dim i
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
If Textkuan.Text = 1 Then
If Combo1.ListIndex = -1 Then
DrawStyle = 0
Else
DrawStyle = Combo1.ListIndex
End If
Else
DrawStyle = 0
DrawWidth = Textkuan.Text
End If
ForeColor = QBColor(i)
Line (X, Y)-(X, Y), QBColor(i)
PSet (X, Y), Curbkcolor
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
''取坐标
x2 = X
y2 = Y
If x1 > x2 Then
maxx = x1
minx = x2
Else:
maxx = x2
minx = x1
End If
If y1 > y2 Then
maxy = y1
miny = y2
Else:
maxy = y2
miny = y1
End If
If maxx - minx > maxy - miny Then
r = maxx - minx
Else: r = maxy - miny
End If
If Button = 1 Then
Line (x1, y1)-(x2, y2), QBColor(i)
End If
If Button = 2 Then
Line (x1, y1)-(x2, y2), QBColor(i)
End If
End Sub
Private Sub Label3_Click()
i = 4
End Sub
Private Sub Label4_Click()
i = 1
End Sub
Private Sub Label5_Click()
i = 2
End Sub
Private Sub Label7_Click()
i = 11
End Sub
Private Sub Label8_Click()
i = 6
End Sub
Private Sub ruanjian_Click()
Form2.Show
End Sub
Private Sub Textkuan_Change()
DrawWidth = Textkuan.Text
End Sub
Private Sub Frame1_Click()
Form1.Hide
Load Form3
Form3.Show
Unload Form1
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Image1_Click()
Unload Me
End Sub
目录：
1．课程设计的目的和意义
2．要求和任务
4．所采用的技术和方法（附特色代码）
3．算法及实现代码
5．总结
作者点评：
由于对图象的处理本来就很感兴趣，所以这是我大学里面喜欢的一个实验设计，也是我第一个在实验里完成的windows程序。准备阶段花了很多时间搜集各种图象编辑软件设计的资料，本来打算用Visual C++来做的。但是无奈自己Visual C++水平实在有限。所以转为用Visual Basic来做，由于Visual Basic对控件的良好封装。所以界面和操作流程的设计方面并没有花去我太多的时间，甚至大部分的画图功能都可以轻松实现，让我可以把主要的精力放在图象处理的算法设计上，我想这也更好地达到了这个实验的锻炼目的吧。