新建 文本文档 (6).txt

这是学习 计算方法程序设计的好教程啊。

VB6 贝赛尔曲线!


Dim x(10) As Single, y(10) As Single
Dim Num As Integer

Private Sub Command1_Click()
 Picture1.Scale (0, 0)-(640, 480)
 x(0) = 80: y(0) = 280
 x(1) = 350: y(1) = 200
 x(2) = 180: y(2) = 140
 x(3) = 200: y(3) = 200
 For i = 0 To 2
  Picture1.Line (x(i), y(i))-(x(i + 1), y(i + 1)), QBColor(13)
 Next i
 Num = 3
 Bezier Num
End Sub

Private Sub Command2_Click()
 End
End Sub
Sub Bezier(ByVal Num As Integer)
 Dim c(10) As Single, b(10) As Single, p(10) As Single, q(10) As Single
 Dim t As Single, xe As Single, ye As Single
 Dim i As Integer, j As Integer, k As Integer
 Picture1.PSet (x(0), y(0))
 For i = 0 To Num
  c(i) = 1
 Next i
 For i = 2 To Num
  For j = 1 To i - 1
   b(j) = c(j - 1) + c(j)
  Next j
  For j = 1 To i - 1
   c(j) = b(j)
  Next j
 Next i
 For i = 0 To Num * 4
  t = i / (Num * 4)
  p(0) = 1: q(0) = 1
  For j = 1 To Num
   p(j) = p(j - 1) * t
   q(j) = q(j - 1) * (1 - t)
  Next j
  For j = 0 To Num
   b(j) = p(j) * q(Num - j)
  Next j
  xe = 0: ye = 0
  For j = 0 To Num
   xe = xe + c(j) * b(j) * x(j)
   ye = ye + c(j) * b(j) * y(j)
  Next j
Picture1.DrawWidth = 1
  Picture1.Line -(xe, ye)
 Next i
End Sub