huizhi.frm

教你怎么绘制贝塞尔曲线

VERSION 5.00
Begin VB.Form huizhi 
   Caption         =   "绘制贝塞尔曲线图"
   ClientHeight    =   4890
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5775
   LinkTopic       =   "Form1"
   ScaleHeight     =   4890
   ScaleWidth      =   5775
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "结束"
      Height          =   495
      Left            =   1800
      TabIndex        =   2
      Top             =   60
      Width           =   1395
   End
   Begin VB.CommandButton Command1 
      Caption         =   "绘制曲线"
      Height          =   495
      Left            =   360
      TabIndex        =   1
      Top             =   60
      Width           =   1395
   End
   Begin VB.PictureBox Picture1 
      Align           =   2  'Align Bottom
      BackColor       =   &H00000000&
      FillColor       =   &H000000FF&
      ForeColor       =   &H000000FF&
      Height          =   4215
      Left            =   0
      ScaleHeight     =   4155
      ScaleWidth      =   5715
      TabIndex        =   0
      Top             =   675
      Width           =   5775
   End
End
Attribute VB_Name = "huizhi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'资料整理 影子 VB爱好者乐园 http://yingzi007.126.com
'绘制贝塞尔曲线
'欢迎经常访问“VB天堂”http://vbskys.yeah.net
'我的E-mail:[e-mail]
'主页内容：VB脚本、JAVA脚本、ASP学习及VB源程序、作者的自编软件及源程序、
'各种免费资源(如免费打美国长途、免费国际传真等）
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.Line -(xe, ye)
 Next i
End Sub