三次Bezier曲线
- 格式:doc
- 大小:453.50 KB
- 文档页数:10
三次Bezier曲线
一、程序设计功能:
1.设计绘图窗口,能实现数据的多次输入;
2.具有多次绘图功能,能实现不同数据的绘图;
3.具有清屏功能,在画完该次图形后,清除图像并重建坐标系,
4.具有数据完整性检测功能,当数据输入不完整时,通过弹窗提示用户数据输入不完整。
二、程序设计思想:
先在草稿纸上求出三次Bezier曲线的各坐标参数前的系数表达式:
a1 = -px(0) + 3 * px(1) - 3 * px(2) + px(3)
b1 = 3 * px(0) - 6 * px(1) + 3 * px(2)
c1 = -3 * px(0) + 3 * px(1)
d1 = px(0)
a2 = -py(0) + 3 * py(1) - 3 * py(2) + py(3)
b2 = 3 * py(0) - 6 * py(1) + 3 * py(2)
c2 = -3 * py(0) + 3 * py(1)
d2 = py(0)
然后根据三次Bezier曲线的特点来定义为以u为变量的函数,然后根据取点速率的不同来绘制相应四个顶点的曲线。
三、程序代码:
Private Sub Command1_Click()
= 2
= 12 '此处定义绘制坐标系时的字体大小,因为后面程序要用到字体设置,故此处字体设置要重新声明,不可用系统默认的字体,否则再次绘制图形时,坐标由于字体过大而很难看
(-300, 300)-(300, -300) '定义PictureBox坐标系
(-300, 0)-(300, 0)
(0, 300)-(0, -300) 'VB编译系统中,其默认的是在Form(窗体)中画图,当需要在其他属性框中画图时,需要加上其对应的属性框名称
= 270: = 40: "X"
= 15: = 285: "Y"
= 9 '坐标上的数字字体小一些
For i = -280 To 280 Step 40
(i, 0)-(i, 8)
= i - 12: = -5: i
Next i
For j = -280 To -40 Step 40
(0, j)-(8, j)
= -28: = j + 10: j
Next j
For j = 40 To 280 Step 40
(0, j)-(8, j)
= -28: = j + 10: j
Next j
Dim px(4) As Double '定义控制点的x坐标的数组
Dim py(4) As Double '定义控制点的y坐标的数组
Dim a1, b1, c1, d1 As Double '定义x系数
Dim a2, b2, c2, d2 As Double '定义y系数
Dim x, y, u As Double '定义曲线中的自变量u和变量x,y
If (Not IsNumeric(Text1) Or Not IsNumeric(Text2) Or Not IsNumeric(Text3) Or Not IsNumeric(Text4) _
Or Not IsNumeric(Text5) Or Not IsNumeric(Text6) Or Not IsNumeric(Text7) Or Not IsNumeric(Text8)) Then
MsgBox "对不起!系统检测到数据输入不完整,请您输入完整后绘图。
谢谢配合!", , "友情提示"
Else
px(0) = : py(0) =
px(1) = : py(1) =
px(2) = : py(2) =
px(3) = : py(3) =
= 18 '设置字体,为显示输入的四个点设置字体大小
= px(0): = py(0): "P"; 0 'P0单独打印
For i = 0 To 2
=
(px(i), py(i))-(px(i + 1), py(i + 1)), vbGreen: "P"; i + 1 'P1,P2,P3用for循环打印
Next i
For i = 0 To 3 '绘制四个圆点,此处代码可优化,亦可用circle语句画小圆后填充颜色
= 7
(px(i), py(i))-(px(i) + 1, py(i) - 1)
Next i
a1 = -px(0) + 3 * px(1) - 3 * px(2) + px(3) '计算x和y的参数
b1 = 3 * px(0) - 6 * px(1) + 3 * px(2)
c1 = -3 * px(0) + 3 * px(1)
d1 = px(0)
a2 = -py(0) + 3 * py(1) - 3 * py(2) + py(3)
b2 = 3 * py(0) - 6 * py(1) + 3 * py(2)
c2 = -3 * py(0) + 3 * py(1)
d2 = py(0)
For u = 0 To 1 Step '每当u增加求一次x和y
x = a1 * u ^ 3 + b1 * u * u + c1 * u + d1 '求x的值
y = a2 * u ^ 3 + b2 * u * u + c2 * u + d2 '求y的值
If u = 0 Then
= x '设置画线起点
= y
Else
= 3
-(x, y), RGB(255, 0, 0)'连点成线
End If
Next u
End If
End Sub
Private Sub Command2_Click() '用于清空输入数据
= ""
= ""
= ""
= ""
= ""
= ""
= ""
= ""
End Sub
Private Sub Command3_Click() '清屏后再次绘制坐标系
= 2
= 12 '此处定义绘制坐标系时的字体大小,因为后面程序要用到字体设置,故此处字体设置要重新声明,不可用系统默认的字体,否则再次绘制图形时,坐标由于字体过大而很难看
(-300, 300)-(300, -300) '定义PictureBox坐标系
(-300, 0)-(300, 0)
(0, 300)-(0, -300) 'VB编译系统中,其默认的是在Form(窗体)中画图,当需要在其他属性框中画图时,需要加上其对应的属性框名称
= 270: = 40: "X"
= 15: = 285: "Y"
= 9
For i = -280 To 280 Step 40
(i, 0)-(i, 8)
= i - 12: = -5: i
Next i
For j = -280 To -40 Step 40
(0, j)-(8, j)
= -28: = j + 10: j
Next j
For j = 40 To 280 Step 40
(0, j)-(8, j)
= -28: = j + 10: j
Next j
End Sub
Private Sub Form_Load() '预输入数据,避免调试时多次输入数据,其随窗体运行而显示
= -260: = -230 '冒号用于多条语句并行书写,以减小代码所占空
间
= 260: = -230
= 200: = 230
= -260: = 230
End Sub
VB程序运行结果图片展示:
第三次程序设计心得
在三次Bezier曲线的程序设计中,明白了计算机对于图行处理的能力是相当强的。
对于VB而言,其能根据取点速率的不同而精确确定相应图形的图像,能很好的满足人们在日常工作中的图像需求。
在本次程序设计中花费了大量时间在程序优化上,特别是在界面美化上。
因为我始终觉得一个良好的可执行程序不仅要具有精确计算的能力及绘图能力,还应该具有良好的用户体验界面,真正让用户在使用该程序时能有愉悦爽朗的心情。
这是我认为的CAD辅助设计的本质。
在具体界面美化过程中,我查找了大量的背景图片,最后选定了一张自然风景为背景。
因为一张好的背景图片不仅能给人良好的审美愉悦感,而且能让工作者在枯燥的工作中心生美意,同时能给予人心灵的绿意。
这是我在CAD 课程中所学到的课外知识。
作为机械工作人员,不仅要具有严谨的工作思维,还要具有良好的审美观。
这样才能让我们在工作中不缺乏美感,不感到枯燥,更不会让同学及朋友觉得我们思维机械。
我所追求的是那种轻松学习,快乐工作的愉悦感。