绘图程序

开发平台：
Visual Basic

5555.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "类六边形轨迹驱动的移动件单端直到五阶停歇的平面六杆机构CUMT2007-2-2 "
   ClientHeight    =   10260
   ClientLeft      =   810
   ClientTop       =   735
   ClientWidth     =   13365
   FillColor       =   &H8000000F&
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   HasDC           =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   -12084.8
   ScaleLeft       =   -5400
   ScaleMode       =   0  'User
   ScaleTop        =   4500
   ScaleWidth      =   12514.04
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture4 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   555
      Left            =   840
      Picture         =   "5555.frx":0000
      ScaleHeight     =   555
      ScaleWidth      =   2130
      TabIndex        =   70
      Top             =   9600
      Width           =   2130
   End
   Begin VB.CommandButton Command6 
      Caption         =   "机构重置"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   6
      Top             =   1320
      Width           =   1095
   End
   Begin VB.HScrollBar HScroll4 
      Height          =   135
      Left            =   240
      Max             =   6
      Min             =   1
      TabIndex        =   11
      Top             =   9240
      Value           =   1
      Width           =   3495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H8000000F&
      ForeColor       =   &H8000000F&
      Height          =   375
      Left            =   1680
      TabIndex        =   65
      Top             =   8640
      Width           =   975
   End
   Begin VB.HScrollBar HScroll3 
      Height          =   255
      LargeChange     =   10
      Left            =   3720
      Max             =   1
      Min             =   1000
      TabIndex        =   10
      Top             =   3240
      Value           =   1
      Width           =   1125
   End
   Begin VB.CommandButton Command5 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   7
      Top             =   1320
      Width           =   1095
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   3690
      Top             =   1890
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      FileName        =   "Excel保存.xls"
      Filter          =   "microsoft excel 工作薄"
   End
   Begin VB.Frame Frame5 
      Caption         =   "设定坐标系："
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   90
      TabIndex        =   45
      Top             =   7440
      Width           =   3645
      Begin VB.HScrollBar HScroll2 
         Height          =   135
         Left            =   360
         Max             =   6
         Min             =   1
         TabIndex        =   13
         Top             =   840
         Value           =   2
         Width           =   3015
      End
      Begin VB.HScrollBar HScroll1 
         Height          =   135
         Left            =   360
         Max             =   2
         Min             =   8
         TabIndex        =   12
         Top             =   480
         Value           =   2
         Width           =   3015
      End
      Begin VB.Label Label23 
         AutoSize        =   -1  'True
         Caption         =   "y"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   47
         Top             =   720
         Width           =   105
      End
      Begin VB.Label Label22 
         AutoSize        =   -1  'True
         Caption         =   "x"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   46
         Top             =   360
         Width           =   120
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4320
      Top             =   1890
   End
   Begin VB.CommandButton Command4 
      Caption         =   "刷新"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   4
      Top             =   720
      Width           =   1095
   End
   Begin VB.Frame Frame4 
      Caption         =   "曲线选择："
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2175
      Left            =   90
      TabIndex        =   43
      Top             =   5160
      Width           =   3585
      Begin VB.CheckBox Check6 
         Caption         =   "全选"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00404000&
         Height          =   255
         Left            =   150
         TabIndex        =   63
         Top             =   1740
         Width           =   1005
      End
      Begin VB.CheckBox Check7 
         Caption         =   "加速度三次变化率"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF00FF&
         Height          =   375
         Left            =   1350
         TabIndex        =   62
         Top             =   1290
         Width           =   1935
      End
      Begin VB.CheckBox Check5 
         Caption         =   "黄线加速度二次变化率 "
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   255
         Left            =   1350
         TabIndex        =   59
         Top             =   840
         Width           =   2175
      End
      Begin VB.CheckBox Check4 
         Caption         =   "黑线加速度一次变化率"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   1320
         TabIndex        =   58
         Top             =   300
         Width           =   2175
      End
      Begin VB.CheckBox Check3 
         Caption         =   "蓝线加速度"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   120
         TabIndex        =   57
         Top             =   1320
         Width           =   1215
      End
      Begin VB.CheckBox Check2 
         Caption         =   "红线速度"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   255
         Left            =   120
         TabIndex        =   54
         Top             =   840
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         Caption         =   "绿线位移"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   240
         Left            =   120
         TabIndex        =   53
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.PictureBox Picture3 
      AutoRedraw      =   -1  'True
      DrawWidth       =   2
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3315
      Left            =   4920
      ScaleHeight     =   3255
      ScaleWidth      =   8295
      TabIndex        =   42
      Top             =   120
      Width           =   8355
      Begin VB.Line Line59 
         BorderColor     =   &H00FF00FF&
         BorderWidth     =   2
         X1              =   7770
         X2              =   8220
         Y1              =   3120
         Y2              =   3120
      End
      Begin VB.Label Label28 
         AutoSize        =   -1  'True
         Caption         =   "加速度三次变化率"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   6240
         TabIndex        =   61
         Top             =   3000
         Width           =   1440
      End
      Begin VB.Label Label30 
         AutoSize        =   -1  'True
         Caption         =   "加速度二次变化率"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   4380
         TabIndex        =   60
         Top             =   3060
         Width           =   1440
      End
      Begin VB.Line Line58 
         BorderColor     =   &H00000000&
         BorderWidth     =   2
         X1              =   3960
         X2              =   4410
         Y1              =   3120
         Y2              =   3120
      End
      Begin VB.Label Label27 
         AutoSize        =   -1  'True
         Caption         =   "加速度一次变化率"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   2580
         TabIndex        =   51
         Top             =   3060
         Width           =   1440
      End
      Begin VB.Label Label26 
         AutoSize        =   -1  'True
         Caption         =   "加速度"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   1620
         TabIndex        =   50
         Top             =   3060
         Width           =   540
      End
      Begin VB.Label Label25 
         AutoSize        =   -1  'True
         Caption         =   "速度"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   840
         TabIndex        =   49
         Top             =   3030
         Width           =   360
      End
      Begin VB.Label Label24 
         AutoSize        =   -1  'True
         Caption         =   "位移"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   60
         TabIndex        =   48
         Top             =   3030
         Width           =   360
      End
      Begin VB.Line Line57 
         BorderColor     =   &H000080FF&
         BorderWidth     =   2
         X1              =   5880
         X2              =   6240
         Y1              =   3120
         Y2              =   3120
      End
      Begin VB.Line Line56 
         BorderColor     =   &H00FF0000&
         BorderWidth     =   2
         X1              =   2220
         X2              =   2550
         Y1              =   3180
         Y2              =   3180
      End
      Begin VB.Line Line55 
         BorderColor     =   &H000000FF&
         BorderWidth     =   2
         X1              =   1230
         X2              =   1650
         Y1              =   3150
         Y2              =   3150
      End
      Begin VB.Line Line54 
         BorderColor     =   &H0000FF00&
         BorderWidth     =   2
         X1              =   420
         X2              =   840
         Y1              =   3120
         Y2              =   3120
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "主动件转动方向："
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Left            =   3030
      TabIndex        =   41
      Top             =   300
      Width           =   1695
      Begin VB.OptionButton Option1 
         Caption         =   "逆时针"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   120
         TabIndex        =   8
         Top             =   840
         Value           =   -1  'True
         Width           =   1815
      End
      Begin VB.OptionButton Option2 
         Caption         =   "顺时针"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Width           =   1455
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "对应显示数组："
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1605
      Left            =   240
      TabIndex        =   34
      Top             =   3480
      Width           =   3255
      Begin VB.TextBox Text6 
         BackColor       =   &H8000000F&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2160
         TabIndex        =   55
         Top             =   960
         Width           =   855
      End
      Begin VB.TextBox Text4 
         BackColor       =   &H8000000F&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   600
         MaxLength       =   6
         TabIndex        =   40
         Top             =   840
         Width           =   945
      End
      Begin VB.TextBox Text3 
         BackColor       =   &H8000000F&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2160
         MaxLength       =   6
         TabIndex        =   39
         Top             =   300
         Width           =   885
      End
      Begin VB.TextBox Text2 
         BackColor       =   &H8000000F&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   600
         MaxLength       =   6
         TabIndex        =   38
         Top             =   300
         Width           =   945
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         Caption         =   "R5:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1680
         TabIndex        =   56
         Top             =   960
         Width           =   375
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         Caption         =   "L0:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   37
         Top             =   840
         Width           =   345
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         Caption         =   "b:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1680
         TabIndex        =   36
         Top             =   360
         Width           =   195
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         Caption         =   "r2:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   90
         TabIndex        =   35
         Top             =   360
         Width           =   285
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "输入数据："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3135
      Left            =   120
      TabIndex        =   31
      Top             =   2040
      Width           =   3525
      Begin VB.TextBox Text7 
         BackColor       =   &H8000000F&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   600
         TabIndex        =   1
         Top             =   960
         Width           =   855
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H8000000F&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   630
         TabIndex        =   0
         Top             =   420
         Width           =   825
      End
      Begin VB.Label Label33 
         AutoSize        =   -1  'True
         Caption         =   "5≤H7≤40"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1800
         TabIndex        =   69
         Top             =   1080
         Width           =   1125
      End
      Begin VB.Label Label32 
         AutoSize        =   -1  'True
         Caption         =   "10≤r3≤40"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1770
         TabIndex        =   68
         Top             =   360
         Width           =   1155
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         Caption         =   "H7:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   44
         Top             =   960
         Width           =   375
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         Caption         =   "r3:"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   33
         Top             =   480
         Width           =   285
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         Caption         =   "设计提示K=6"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1710
         TabIndex        =   32
         Top             =   720
         Width           =   1395
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "暂停"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   5
      Top             =   720
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "转动"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "生成EXCEL"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   3
      Top             =   120
      Width           =   1095
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   6135
      Left            =   3960
      TabIndex        =   14
      Top             =   3780
      Width           =   9225
      _ExtentX        =   16272
      _ExtentY        =   10821
      _Version        =   393216
      TabHeight       =   520
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TabCaption(0)   =   "结构模型"
      TabPicture(0)   =   "5555.frx":4281
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Picture1"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "动画演示"
      TabPicture(1)   =   "5555.frx":429D
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Picture2"
      Tab(1).ControlCount=   1
      TabCaption(2)   =   "数据显示"
      TabPicture(2)   =   "5555.frx":42B9
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "ListView1"
      Tab(2).ControlCount=   1
      Begin MSComctlLib.ListView ListView1 
         Height          =   5235
         Left            =   -74700
         TabIndex        =   30
         Top             =   660
         Width           =   8745
         _ExtentX        =   15425
         _ExtentY        =   9234
         View            =   3
         MultiSelect     =   -1  'True
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         TextBackground  =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   0
      End
      Begin VB.PictureBox Picture2 
         AutoRedraw      =   -1  'True
         Height          =   5325
         Left            =   -74730
         ScaleHeight     =   5265
         ScaleWidth      =   8595
         TabIndex        =   29
         Top             =   600
         Width           =   8655
         Begin VB.Line Lz 
            BorderWidth     =   2
            X1              =   1410
            X2              =   3360
            Y1              =   5310
            Y2              =   5310
         End
         Begin VB.Line rj5 
            X1              =   1560
            X2              =   3480
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line rj4 
            X1              =   -1800
            X2              =   0
            Y1              =   1440
            Y2              =   1440
         End
         Begin VB.Line rj3 
            X1              =   1440
            X2              =   2490
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line rj2 
            X1              =   360
            X2              =   2100
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line rj1 
            X1              =   4080
            X2              =   5670
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line mf10 
            X1              =   8640
            X2              =   8640
            Y1              =   4200
            Y2              =   5040
         End
         Begin VB.Line mf9 
            X1              =   8640
            X2              =   8640
            Y1              =   3480
            Y2              =   4200
         End
         Begin VB.Line mf8 
            X1              =   8640
            X2              =   8640
            Y1              =   3240
            Y2              =   4920
         End
         Begin VB.Line mf7 
            X1              =   8640
            X2              =   8640
            Y1              =   -240
            Y2              =   1320
         End
         Begin VB.Line mf6 
            X1              =   8640
            X2              =   8640
            Y1              =   2760
            Y2              =   4440
         End
         Begin VB.Line mf5 
            X1              =   8640
            X2              =   8640
            Y1              =   2640
            Y2              =   4320
         End
         Begin VB.Line mf4 
            X1              =   8670
            X2              =   8670
            Y1              =   1560
            Y2              =   3360
         End
         Begin VB.Line mf3 
            X1              =   8640
            X2              =   8640
            Y1              =   2280
            Y2              =   3840
         End
         Begin VB.Line mf2 
            X1              =   8640
            X2              =   8640
            Y1              =   720
            Y2              =   2160
         End
         Begin VB.Line mf1 
            X1              =   8640
            X2              =   8640
            Y1              =   1800
            Y2              =   3000
         End
         Begin VB.Line base2 
            BorderWidth     =   2
            X1              =   6240
            X2              =   7440
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line base1 
            BorderWidth     =   2
            X1              =   6480
            X2              =   7680
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Shape spbk2 
            FillStyle       =   5  'Downward Diagonal
            Height          =   105
            Left            =   4560
            Top             =   5400
            Width           =   285
         End
         Begin VB.Shape spbk1 
            FillColor       =   &H80000008&
            FillStyle       =   5  'Downward Diagonal
            Height          =   105
            Left            =   3600
            Top             =   5400
            Width           =   285
         End
         Begin VB.Line Lj33 
            BorderWidth     =   2
            X1              =   360
            X2              =   2520
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lj22 
            BorderWidth     =   2
            X1              =   480
            X2              =   2520
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lj11 
            BorderWidth     =   2
            X1              =   360
            X2              =   2520
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Shape shg5 
            BorderWidth     =   3
            Height          =   135
            Left            =   0
            Shape           =   3  'Circle
            Top             =   5400
            Width           =   135
         End
         Begin VB.Shape Shj 
            BorderWidth     =   2
            Height          =   135
            Left            =   1440
            Shape           =   3  'Circle
            Top             =   5400
            Width           =   135
         End
         Begin VB.Line Lwx 
            BorderColor     =   &H000000FF&
            BorderWidth     =   2
            X1              =   360
            X2              =   2640
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L7x 
            BorderWidth     =   3
            X1              =   3960
            X2              =   5760
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L64 
            BorderColor     =   &H00000000&
            BorderWidth     =   3
            X1              =   3360
            X2              =   5160
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L63 
            BorderColor     =   &H00000000&
            BorderWidth     =   3
            X1              =   2640
            X2              =   4440
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L62 
            BorderColor     =   &H00000000&
            BorderWidth     =   3
            X1              =   3960
            X2              =   5640
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L61 
            BorderColor     =   &H00000000&
            BorderWidth     =   3
            X1              =   5640
            X2              =   7440
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L72 
            BorderWidth     =   3
            X1              =   360
            X2              =   3120
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L71 
            BorderWidth     =   3
            X1              =   600
            X2              =   2760
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lh44 
            BorderWidth     =   3
            X1              =   600
            X2              =   2520
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lh43 
            BorderWidth     =   3
            X1              =   840
            X2              =   2520
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lh42 
            BorderWidth     =   3
            X1              =   600
            X2              =   2400
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lh41 
            BorderWidth     =   3
            X1              =   720
            X2              =   2520
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Shape Shp3 
            BackColor       =   &H8000000B&
            BorderColor     =   &H00000000&
            BorderWidth     =   3
            Height          =   135
            Left            =   8520
            Shape           =   3  'Circle
            Top             =   5400
            Width           =   255
         End
         Begin VB.Line L53 
            BorderWidth     =   3
            X1              =   0
            X2              =   1440
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L52 
            BorderWidth     =   3
            X1              =   600
            X2              =   1920
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line L51 
            BorderWidth     =   3
            X1              =   840
            X2              =   1680
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Shape Sp2 
            BorderColor     =   &H000000C0&
            BorderWidth     =   3
            Height          =   375
            Left            =   4680
            Shape           =   3  'Circle
            Top             =   5400
            Width           =   255
         End
         Begin VB.Shape Sp1 
            BorderColor     =   &H00000000&
            BorderWidth     =   3
            Height          =   135
            Left            =   5520
            Shape           =   3  'Circle
            Top             =   5400
            Width           =   135
         End
         Begin VB.Shape Shp2 
            BorderWidth     =   3
            Height          =   135
            Left            =   480
            Shape           =   3  'Circle
            Top             =   5400
            Width           =   135
         End
         Begin VB.Shape Shp1 
            BorderWidth     =   3
            Height          =   135
            Left            =   120
            Shape           =   3  'Circle
            Top             =   5400
            Width           =   135
         End
         Begin VB.Line L1 
            BorderWidth     =   3
            X1              =   840
            X2              =   1560
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lj3 
            BorderWidth     =   2
            X1              =   720
            X2              =   1320
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lj2 
            BorderWidth     =   2
            X1              =   0
            X2              =   600
            Y1              =   5400
            Y2              =   5400
         End
         Begin VB.Line Lj1 
            BorderWidth     =   2
            X1              =   600
            X2              =   1200
            Y1              =   5400
            Y2              =   5400
         End
      End
      Begin VB.PictureBox Picture1 
         Height          =   5145
         Left            =   270
         ScaleHeight     =   5085
         ScaleWidth      =   8625
         TabIndex        =   15
         Top             =   780
         Width           =   8685
         Begin VB.Line Line30 
            X1              =   7770
            X2              =   8040
            Y1              =   3750
            Y2              =   3750
         End
         Begin VB.Line Line27 
            X1              =   8160
            X2              =   8400
            Y1              =   3510
            Y2              =   3510
         End
         Begin VB.Line Line26 
            X1              =   8040
            X2              =   8310
            Y1              =   3420
            Y2              =   3420
         End
         Begin VB.Line Line25 
            X1              =   7980
            X2              =   8250
            Y1              =   3330
            Y2              =   3330
         End
         Begin VB.Line Line34 
            X1              =   7740
            X2              =   7950
            Y1              =   3660
            Y2              =   3660
         End
         Begin VB.Line Line33 
            X1              =   8040
            X2              =   8220
            Y1              =   3960
            Y2              =   3960
         End
         Begin VB.Line Line42 
            BorderColor     =   &H00FF00FF&
            BorderStyle     =   5  'Dash-Dot-Dot
            X1              =   450
            X2              =   8340
            Y1              =   2520
            Y2              =   2520
         End
         Begin VB.Line Line45 
            X1              =   5190
            X2              =   5070
            Y1              =   2760
            Y2              =   2910
         End
         Begin VB.Line Line44 
            X1              =   5070
            X2              =   4950
            Y1              =   2760
            Y2              =   2880
         End
         Begin VB.Line Line43 
            X1              =   4950
            X2              =   4830
            Y1              =   2760
            Y2              =   2880
         End
         Begin VB.Line Line41 
            X1              =   1560
            X2              =   1410
            Y1              =   3660
            Y2              =   3810
         End
         Begin VB.Line Line40 
            X1              =   1500
            X2              =   1320
            Y1              =   3570
            Y2              =   3750
         End
         Begin VB.Line Line39 
            X1              =   1440
            X2              =   1230
            Y1              =   3480
            Y2              =   3660
         End
         Begin VB.Line Line38 
            X1              =   1380
            X2              =   1170
            Y1              =   3390
            Y2              =   3540
         End
         Begin VB.Line Line37 
            X1              =   1290
            X2              =   1110
            Y1              =   3270
            Y2              =   3420
         End
         Begin VB.Line Line36 
            X1              =   1230
            X2              =   1020
            Y1              =   3180
            Y2              =   3330
         End
         Begin VB.Line Line35 
            X1              =   7770
            X2              =   7860
            Y1              =   3600
            Y2              =   3600
         End
         Begin VB.Line Line29 
            X1              =   8100
            X2              =   8100
            Y1              =   6180
            Y2              =   6150
         End
         Begin VB.Line Line31 
            X1              =   7830
            X2              =   8130
            Y1              =   3810
            Y2              =   3810
         End
         Begin VB.Line Line32 
            X1              =   7950
            X2              =   8190
            Y1              =   3870
            Y2              =   3870
         End
         Begin VB.Line Line28 
            X1              =   8250
            X2              =   8490
            Y1              =   3630
            Y2              =   3630
         End
         Begin VB.Line Line24 
            BorderWidth     =   2
            X1              =   8280
            X2              =   8130
            Y1              =   3900
            Y2              =   4080
         End
         Begin VB.Line Line23 
            BorderWidth     =   2
            X1              =   7800
            X2              =   7650
            Y1              =   3510
            Y2              =   3690
         End
         Begin VB.Line Line22 
            BorderWidth     =   2
            X1              =   8370
            X2              =   8550
            Y1              =   3720
            Y2              =   3540
         End
         Begin VB.Line Line21 
            BorderWidth     =   2
            X1              =   7890
            X2              =   8040
            Y1              =   3360
            Y2              =   3180
         End
         Begin VB.Line Line20 
            BorderWidth     =   2
            X1              =   7800
            X2              =   8310
            Y1              =   3510
            Y2              =   3930
         End
         Begin VB.Line Line19 
            BorderWidth     =   2
            X1              =   7890
            X2              =   8340
            Y1              =   3390
            Y2              =   3750
         End
         Begin VB.Line Line18 
            BorderWidth     =   3
            X1              =   6780
            X2              =   8550
            Y1              =   2550
            Y2              =   4020
         End
         Begin VB.Line Line17 
            BorderWidth     =   3
            X1              =   6060
            X2              =   6270
            Y1              =   3150
            Y2              =   3330
         End
         Begin VB.Line Line16 
            BorderWidth     =   3
            X1              =   5820
            X2              =   6030
            Y1              =   3510
            Y2              =   3690
         End
         Begin VB.Line Line15 
            BorderWidth     =   3
            X1              =   6270
            X2              =   6030
            Y1              =   3360
            Y2              =   3690
         End
         Begin VB.Line Line14 
            BorderWidth     =   3
            X1              =   6060
            X2              =   5850
            Y1              =   3180
            Y2              =   3480
         End
         Begin VB.Line Line13 
            BorderWidth     =   3
            X1              =   7530
            X2              =   5730
            Y1              =   1590
            Y2              =   3840
         End
         Begin VB.Shape Shape7 
            FillColor       =   &H00808080&
            FillStyle       =   0  'Solid
            Height          =   165
            Left            =   6000
            Shape           =   3  'Circle
            Top             =   3330
            Width           =   210
         End
         Begin VB.Line Line12 
            X1              =   4830
            X2              =   5280
            Y1              =   2760
            Y2              =   2760
         End
         Begin VB.Line Line11 
            BorderWidth     =   2
            X1              =   5070
            X2              =   5130
            Y1              =   2640
            Y2              =   2790
         End
         Begin VB.Line Line10 
            BorderWidth     =   2
            X1              =   4980
            X2              =   4950
            Y1              =   2610
            Y2              =   2760
         End
         Begin VB.Shape Shape6 
            FillColor       =   &H00808080&
            FillStyle       =   0  'Solid
            Height          =   165
            Left            =   4920
            Shape           =   3  'Circle
            Top             =   2460
            Width           =   210
         End
         Begin VB.Shape Shape5 
            BorderWidth     =   3
            Height          =   3390
            Left            =   690
            Shape           =   3  'Circle
            Top             =   840
            Width           =   4275
         End
         Begin VB.Shape Shape4 
            BorderWidth     =   3
            Height          =   600
            Left            =   3570
            Shape           =   3  'Circle
            Top             =   1440
            Width           =   750
         End
         Begin VB.Line Line9 
            BorderWidth     =   3
            X1              =   2160
            X2              =   6060
            Y1              =   330
            Y2              =   3360
         End
         Begin VB.Line Line8 
            BorderWidth     =   3
            X1              =   4170
            X2              =   4050
            Y1              =   1740
            Y2              =   1920
         End
         Begin VB.Line Line7 
            BorderWidth     =   3
            X1              =   3720
            X2              =   4050
            Y1              =   1680
            Y2              =   1950
         End
         Begin VB.Line Line6 
            BorderWidth     =   3
            X1              =   3870
            X2              =   3720
            Y1              =   1500
            Y2              =   1680
         End
         Begin VB.Line Line5 
            BorderWidth     =   3
            X1              =   3870
            X2              =   4140
            Y1              =   1500
            Y2              =   1740
         End
         Begin VB.Shape Shape3 
            FillColor       =   &H00808080&
            FillStyle       =   0  'Solid
            Height          =   165
            Left            =   3870
            Shape           =   3  'Circle
            Top             =   1650
            Width           =   210
         End
         Begin VB.Line Line4 
            BorderWidth     =   3
            X1              =   2880
            X2              =   3900
            Y1              =   2490
            Y2              =   1770
         End
         Begin VB.Shape Shape2 
            BorderStyle     =   0  'Transparent
            FillStyle       =   5  'Downward Diagonal
            Height          =   135
            Left            =   2580
            Top             =   2700
            Width           =   465
         End
         Begin VB.Line Line3 
            X1              =   2580
            X2              =   3090
            Y1              =   2700
            Y2              =   2700
         End
         Begin VB.Line Line2 
            BorderWidth     =   2
            X1              =   2880
            X2              =   2985
            Y1              =   2580
            Y2              =   2715
         End
         Begin VB.Line Line1 
            BorderWidth     =   2
            X1              =   2745
            X2              =   2640
            Y1              =   2580
            Y2              =   2715
         End
         Begin VB.Shape Shape1 
            FillColor       =   &H00808080&
            FillStyle       =   0  'Solid
            Height          =   165
            Left            =   2730
            Shape           =   3  'Circle
            Top             =   2460
            Width           =   210
         End
         Begin VB.Line Line46 
            BorderColor     =   &H00FF00FF&
            BorderStyle     =   5  'Dash-Dot-Dot
            X1              =   8310
            X2              =   8010
            Y1              =   2520
            Y2              =   2610
         End
         Begin VB.Line Line47 
            BorderColor     =   &H00FF00FF&
            BorderStyle     =   5  'Dash-Dot-Dot
            X1              =   8040
            X2              =   8310
            Y1              =   2430
            Y2              =   2520
         End
         Begin VB.Line Line48 
            X1              =   2820
            X2              =   2820
            Y1              =   120
            Y2              =   3900
         End
         Begin VB.Line Line49 
            X1              =   2820
            X2              =   2790
            Y1              =   120
            Y2              =   300
         End
         Begin VB.Line Line50 
            X1              =   2820
            X2              =   2850
            Y1              =   150
            Y2              =   270
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "y"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   3000
            TabIndex        =   28
            Top             =   90
            Width           =   105
         End
         Begin VB.Label Label2 
            Caption         =   "X"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            Left            =   7890
            TabIndex        =   27
            Top             =   2640
            Width           =   315
         End
         Begin VB.Label Label3 
            Caption         =   "O1"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2160
            TabIndex        =   26
            Top             =   2280
            Width           =   255
         End
         Begin VB.Label Label4 
            Caption         =   "O5"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   4830
            TabIndex        =   25
            Top             =   2040
            Width           =   285
         End
         Begin VB.Label Label5 
            Caption         =   "1"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   225
            Left            =   3120
            TabIndex        =   24
            Top             =   1920
            Width           =   195
         End
         Begin VB.Label Label6 
            Caption         =   "5"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5670
            TabIndex        =   23
            Top             =   2670
            Width           =   345
         End
         Begin VB.Label Label7 
            Caption         =   "7"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   7410
            TabIndex        =   22
            Top             =   2760
            Width           =   285
         End
         Begin VB.Label Label8 
            Caption         =   "2"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            Left            =   4560
            TabIndex        =   21
            Top             =   1020
            Width           =   375
         End
         Begin VB.Line Line51 
            X1              =   4110
            X2              =   4500
            Y1              =   1560
            Y2              =   1260
         End
         Begin VB.Line Line52 
            X1              =   3960
            X2              =   5010
            Y1              =   1710
            Y2              =   1710
         End
         Begin VB.Label Label9 
            Caption         =   "O2"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   4980
            TabIndex        =   20
            Top             =   1500
            Width           =   375
         End
         Begin VB.Line Line53 
            X1              =   3930
            X2              =   4260
            Y1              =   1620
            Y2              =   1020
         End
         Begin VB.Label Label10 
            Caption         =   "4"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4110
            TabIndex        =   19
            Top             =   720
            Width           =   255
         End
         Begin VB.Label Label11 
            Caption         =   "3"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            Left            =   7290
            TabIndex        =   18
            Top             =   3510
            Width           =   315
         End
         Begin VB.Label Label12 
            Caption         =   "6"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   5850
            TabIndex        =   17
            Top             =   3690
            Width           =   315
         End
         Begin VB.Label Label13 
            AutoSize        =   -1  'True
            Caption         =   "类六边形轨迹驱动的移动件单端直到五阶停歇的平面六杆机构"
            BeginProperty Font 
               Name            =   "楷体_GB2312"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   240
            Left            =   960
            TabIndex        =   16
            Top             =   4680
            Width           =   6480
         End
      End
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   195
      Left            =   5280
      TabIndex        =   52
      Top             =   3480
      Width           =   7665
      _ExtentX        =   13520
      _ExtentY        =   344
      _Version        =   393216
      Appearance      =   1
      Max             =   361
   End
   Begin VB.Label Label31 
      AutoSize        =   -1  'True
      Caption         =   "原始比例"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   3840
      TabIndex        =   67
      Top             =   3600
      Width           =   840
   End
   Begin VB.Label Label29 
      AutoSize        =   -1  'True
      Caption         =   "曲线缩放"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   3840
      TabIndex        =   66
      Top             =   2880
      Width           =   840
   End
   Begin VB.Label Label19 
      AutoSize        =   -1  'True
      Caption         =   "主动件角速度"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   240
      TabIndex        =   64
      Top             =   8760
      Width           =   1080
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1
Dim H3 As Single, W3 As Single, H2 As Single, W2 As Single
Const pi = 3.1415926
Dim L01 As Single, L02 As Single, LL0 As Single, LL01 As Single, LL02 As Single, a As Integer, Lq1 As Single
Dim L611 As Single, L612 As Single, L621 As Single, L622 As Single
Dim lj As String: Dim ex As Object: Dim exwbook As Object: Dim exsheet As Object
Dim number As Integer, nn As Integer
Dim es7() As Single, eV7() As Single, eα7() As Single, eq7() As Single, eq17() As Single
Dim eq27() As Single, ej As Integer, eφ() As Single
Private Sub Command2_Click()
Command1.Caption = "继续"
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
'Excel 保存
Dim msgb As Integer, msgb0 As Integer
If ej = 0 Then
MsgBox "你没有让机构运动起来", 0, "Excel保存"
Else
msgb = MsgBox("开始保存？要想看到完整的曲线请让机构转上一周以上！", 1, "Excel 保存")
End If
Select Case msgb
    Case 1
    Set ex = CreateObject("Excel.Application")
    Set exwbook = Nothing
    Set exwbook = ex.Workbooks().Add
    Set exsheet = Nothing
    Set exsheet = exwbook.Worksheets("sheet1")
    ex.Range("a" & 1).Value = "主动件角位移:φ "
    ex.Range("b" & 1).Value = "从动件位移：S7 "
    ex.Range("c" & 1).Value = "从动件速度：V7"
    ex.Range("d" & 1).Value = "从动件加速度：α7"
    ex.Range("e" & 1).Value = "加速度一次变化率：q7 "
    ex.Range("f" & 1).Value = "加速度二次变化率：q'7 "
    ex.Range("g" & 1).Value = "加速度三次变化率：q''7"
CommonDialog1.ShowSave
lj = CommonDialog1.FileName
ProgressBar1.Visible = True
ProgressBar1.Max = ej
For number = 1 To ej
      ex.Range("a" & number + 1).Value = Format(eφ(number), "0.####")
      ex.Range("b" & number + 1).Value = Format(es7(number), "0.####")
      ex.Range("c" & number + 1).Value = Format(eV7(number), "0.####")
      ex.Range("d" & number + 1).Value = Format(eα7(number) / 10, "0.####")
      
      ex.Range("e" & number + 1).Value = Format(eq7(number) / 10, "0.####")
      ex.Range("f" & number + 1).Value = Format(eq17(number) / 80, "0.####")
      
      ex.Range("g" & number + 1).Value = Format(eq27(number) / 350, "0.####")
     ProgressBar1.Value = number
      Next number
       
  If Not Not number > ej Then
      exwbook.SaveAs lj
      ex.Quit
      number = 0
      ProgressBar1.Visible = False
  End If
Case 2
End Select
End Sub
Private Sub Command4_Click()
Command1.Caption = "继续"
Picture2.Cls: Picture3.Cls
'重画picture3的坐标
Call chengg
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command6_Click()
φ = 0
ej = 0
ReDim es7(1): ReDim eV7(1): ReDim eα7(1): ReDim eq7(1)
ReDim eq17(1): ReDim eq27(1): ReDim eφ(1)
End Sub
Private Sub Form_Activate()
Text5.Text = HScroll4.Value
SSTab1.Tab = 0
number = 0
Text2.Text = r2: Text3.Text = b: Text4.Text = L0
Text1.Text = r3: Text7.Text = H7: Text6.Text = R5
'建立picture3的坐标图
Call chengg
'建立listview1
ListView1.ColumnHeaders.Add , , "主动件ψ", , 0
ListView1.ColumnHeaders.Add , , "从动件s7", , 0
ListView1.ColumnHeaders.Add , , "从动件v7", , 0
ListView1.ColumnHeaders.Add , , "从动件α7", , 0
ListView1.ColumnHeaders.Add , , "从动件q7", , 0
ListView1.ColumnHeaders.Add , , "从动件q7'", , 0
ListView1.ColumnHeaders.Add , , "从动件q7''", , 0
End Sub
Private Sub Command1_Click()
Dim p As Boolean
nn = Fix(2 * pi / (ω1 * TI)) + 1
ej = 0
ReDim es7(1): ReDim eV7(1): ReDim eα7(1): ReDim eq7(1)
ReDim eq17(1): ReDim eq27(1): ReDim eφ(1)
'已知变量输出
r3 = Val(Text1.Text): r2 = r3 / k: b = -r2 / (k - 1)
L0 = (r3 - r2 + b) / Sin(pi / 6)
r1 = r3 - r2
H7 = Val(Text7.Text)
R5 = H7 / (1 - Cos(pi / 3))
Sp1.Width = 2 * r3 * 56.7
Sp1.Height = 2 * r3 * 56.7
Sp2.Width = 2 * r2 * 56.7
Sp2.Height = 2 * r2 * 56.7
'开始转动
SSTab1.Tab = 1
Picture2.Cls: Picture3.Cls
Timer1.Enabled = True
'未知变量输出
Text2.Text = r2: Text3.Text = b: Text4.Text = L0: Text6.Text = R5
End Sub
Private Sub Form_Load()
yy = HScroll3.Value
i = 1
ω1 = 1
'变量赋值
r3 = 30: H7 = 10: k = 6
R5 = H7 / (1 - Cos(pi / 3))
r2 = r3 / k: b = -r2 / (k - 1)
L0 = (r3 - r2 + b) / Sin(pi / 6)
r1 = r3 - r2
'控件变量赋值
Check6.Value = 1
HScroll1.Value = 4
HScroll2.Value = 2.5
Timer1.Interval = 20
TI = Timer1.Interval / 1000
H3 = Picture3.ScaleHeight
H2 = Picture2.ScaleHeight
W3 = Picture3.ScaleWidth
W2 = Picture2.ScaleWidth
'转动副的
shg5.Width = 4 * 56.7
shg5.Height = 4 * 56.7
Shj.Width = 2 * 56.7
Shj.Height = 2 * 56.7
Shp1.Width = 2 * 56.7
Shp1.Height = 2 * 56.7
Shp2.Width = 2 * 56.7
Shp2.Height = 2 * 56.7
Shp3.Width = 2 * 56.7
Shp3.Height = 2 * 56.7
Rem 建立两个图形框的坐标设计系
Picture3.Scale (-W3 * 4 / 12, H3 / 2)-(W3 * 8 / 12, -H3 / 2)
End Sub
Private Sub HScroll1_Change()
zx = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
zy = HScroll2.Value
End Sub
Private Sub Slider1_Scroll()
 Text5.Text = Slider1.Value * 10
End Sub
Private Sub HScroll3_Change()
yy = HScroll3.Value
Label31.Caption = "缩小" & yy & "倍"
End Sub
Private Sub Text1_LostFocus()
r3 = Val(Text1.Text)
If r3 < 10 Or r3 > 40 Then
Timer1.Enabled = False
MsgBox "r3为10到40的数！", 0, "机构动画"
Text1 = CStr(30)
Text1.SetFocus
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Text7_LostFocus()
H7 = Val(Text7.Text)
If H7 < 5 Or H7 > 40 Then
Timer1.Enabled = False: MsgBox "H7为5到40的数！", 0, "机构动画": Text7 = 10: Text7.SetFocus
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
ω1 = HScroll4.Value
'重画picture3的坐标
Call chengg
'定义坐标
Picture2.Scale (-W2 / zx, H2 / zy)-((zx - 1) * W2 / zx, -H2 * (zy - 1) / zy)
'各种变量
If Option1.Value = True Then
φ = φ + ω1 * TI
ElseIf Option2.Value = True Then
φ = φ - ω1 * TI
End If
If φ > 2 * pi Then φ = φ - 2 * pi
If φ < -2 * pi Then φ = φ + 2 * pi
x = r1 * Cos(φ)
y = r1 * Sin(φ)
δ = (1 - r3 / r2) * φ
xp = (r3 - r2) * Cos(φ) + b * Cos(δ)
yp = (r3 - r2) * Sin(φ) + b * Sin(δ)
m1 = Sqr((x - L0) ^ 2 + y ^ 2) + 3
m2 = m1 - 6
m0 = m1 - 3
'求θ角及β角
Q = Atn(yp / (xp - L0))
If yp > 0 And (xp - L0) > 0 Then
    θ = Q
    ElseIf (xp - L0) < 0 Then
    θ = pi + Q
    ElseIf yp < 0 And (xp - L0) > 0 Then
        θ = 2 * pi + Q
    
End If
ss = r1 * Sin(φ) / m0: sc = Sqr(1 - ss ^ 2)
xb = L0 + R5 * sc
yb = R5 * (-ss)
a = Sgn(ss)
'需求的各种变量
s67 = R5 * Sin(pi / 6 + θ - pi)
VL7 = -R5 * Sin(pi / 6 + θ - pi)
VL67 = R5 * Cos(pi / 6 + θ - pi)
αL7 = -R5 * Cos(pi / 6 + θ - pi)
αL67 = -R5 * Sin(pi / 6 + θ - pi)
qL7 = R5 * Sin(pi / 6 + θ - pi)
qL67 = -R5 * Cos(pi / 6 + θ - pi)
q1L7 = R5 * Cos(pi / 6 + θ - pi)
q1L67 = R5 * Sin(pi / 6 + θ - pi)
q2L7 = -R5 * Sin(pi / 6 + θ - pi)
q2L67 = R5 * Cos(pi / 6 + θ - pi)
'点坐标各阶导数
D1x = -r2 * (k - 1) * Sin(φ) - b * (1 - k) * Sin((1 - k) * φ)
D1y = r2 * (k - 1) * Cos(φ) + b * (1 - k) * Cos((1 - k) * φ)
D2x = -r2 * (k - 1) * Cos(φ) - b * (1 - k) ^ 2 * Cos((1 - k) * φ)
D2y = -r2 * (k - 1) * Sin(φ) - b * (1 - k) ^ 2 * Sin((1 - k) * φ)
D3x = r2 * (k - 1) * Sin(φ) + b * (1 - k) ^ 3 * Sin((1 - k) * φ)
D3y = -r2 * (k - 1) * Cos(φ) - b * (1 - k) ^ 3 * Cos((1 - k) * φ)
D4x = r2 * (k - 1) * Cos(φ) + b * (1 - k) ^ 4 * Cos((1 - k) * φ)
D4y = r2 * (k - 1) * Sin(φ) + b * (1 - k) ^ 4 * Sin((1 - k) * φ)
D5x = -r2 * (k - 1) * Sin(φ) - b * (1 - k) ^ 5 * Sin((1 - k) * φ)
D5y = r2 * (k - 1) * Cos(φ) + b * (1 - k) ^ 5 * Cos((1 - k) * φ)
'简化式子
Dig = Cos(θ) ^ 2 / (xp - L0)
Dig1 = xp - L0: Digs = Sin(θ)
Digc = Cos(θ): DigT = Tan(θ)
WL5 = Dig * (D1y - D1x * DigT)
αL5 = Dig * (D2y - D2x * DigT - D1x * WL5 * (2 / Digc ^ 2) - (2 * Digs * Dig1 / Digc ^ 3) * WL5 ^ 2)
Dg1 = Dig1 * (6 * Digs / Digc ^ 3) * WL5 * αL5
Dg2 = Dig1 * ((2 + 4 * Digs ^ 2) / Digc ^ 4) * WL5 ^ 3
Dg3 = (3 / Digc ^ 2) * D2x * WL5
Dg4 = (3 / Digc ^ 2) * D1x * αL5
Dg5 = (6 * Digs / Digc ^ 3) * D1x * WL5 ^ 2
jL5 = Dig * (D3y - Dg1 - Dg2 - D3x * DigT - Dg3 - Dg4 - Dg5)
Dg6 = 6 * Dig1 * DigT * WL5 * jL5
'j1L5 的简化
G0 = 1 / Dig1
G1 = 12 * DigT * D2x * WL5 ^ 2 + 4 * jL5 * D1x - D4y * Digc ^ 2
G2 = 8 * DigT * Dig1 * ((2 + Digs ^ 2) / Digc ^ 2) * WL5 ^ 4
G3 = 24 * D1x * DigT * WL5 * αL5
G4 = D3x * WL5 + 3 * D3x * WL5 + 6 * D2x * αL5
G5 = 6 * Dig1 * DigT * αL5 ^ 2
G6 = 12 * Dig1 * ((1 + 2 * Digs ^ 2) / Digc ^ 2) * WL5 ^ 2 * αL5
G7 = 8 * D1x * ((1 + 2 * Digs ^ 2) / Digc ^ 2) * WL5 ^ 3 + D4x * DigT
G8 = -Sin(2 * θ) * WL5
j1L5 = G0 * (G8 * (D3y - Dg1 - D3x * DigT - Dg4 - Dg2 - Dg3 - Dg6 - Dg5) - G1 - G2 - G3 - G4 - G5 - G6 - G7)
If Option1.Value = True Then
j2L5 = (j1L5 - kk) / (ω1 * TI)
ElseIf Option2.Value = True Then
j2L5 = -(j1L5 - kk) / (ω1 * TI)
End If
kk = j1L5
'从动件各个变量
s7 = R5 * Cos(pi / 6 + θ - pi) - R5 * Cos(pi / 3)
V7 = VL7 * WL5 * ω1
α7 = (αL7 * WL5 ^ 2 + VL7 * αL5) * ω1 ^ 2
q7 = (qL7 * WL5 ^ 3 + 3 * αL7 * αL5 * WL5 + VL7 * jL5) * ω1 ^ 3
q17 = (q1L7 * WL5 ^ 4 + 6 * qL7 * αL5 * WL5 ^ 2 + 4 * αL7 * jL5 * WL5 + 3 * αL7 * αL5 ^ 2 + VL7 * j1L5) * ω1 ^ 4
q27 = (q2L7 * WL5 ^ 5 + 10 * q1L7 * WL5 ^ 3 * αL5 + 15 * qL7 * αL5 ^ 2 * WL5 + 10 * qL7 * jL5 * WL5 ^ 2 + 5 * αL7 * j1L5 * WL5 + 10 * αL7 * jL5 * αL5 + V7 * j2L5) * ω1 ^ 5
'Excel 输出
If ej < nn Then
ej = ej + 1
ReDim Preserve es7(nn): ReDim Preserve eV7(nn): ReDim Preserve eα7(nn): ReDim Preserve eq7(nn)
ReDim Preserve eq17(nn): ReDim Preserve eq27(nn): ReDim Preserve eφ(nn)
eφ(ej) = φ: es7(ej) = s7: eV7(ej) = V7: eα7(ej) = α7: eq7(ej) = q7: eq17(ej) = q17: eq27(ej) = q27
End If
'画主动件
Shp1.Top = 56.7: Shp1.Left = -56.7
Shp2.Left = (r1 * 56.7) * Cos(φ) - 56.7: Shp2.Top = (r1 * 56.7) * Sin(φ) + 56.7
L1.X1 = 56.7 * Cos(φ): L1.Y1 = 56.7 * Sin(φ): L1.x2 = (r1 * 56.7 - 56.7) * Cos(φ): L1.y2 = (r1 * 56.7 - 56.7) * Sin(φ)
'画内齿轮
Sp1.Left = -r3 * 56.7: Sp1.Top = r3 * 56.7
'画行星轮
Sp2.Left = x * 56.7 - r2 * 56.7: Sp2.Top = y * 56.7 + r2 * 56.7
'画杆5
 L51.X1 = L0 * 56.7 - (r3 * 3) * 56.7 * sc: L51.Y1 = 56.7 * (r3 * 3) * ss
 L51.x2 = L0 * 56.7 - m1 * sc: L51.y2 = m1 * ss
 L52.X1 = L0 * 56.7 - m2 * sc: L52.Y1 = m2 * ss
 L52.x2 = L0 * 56.7 - 56.7 * 2 * sc: L52.y2 = 56.7 * 2 * ss
 L53.X1 = L0 * 56.7 + 56.7 * 2 * sc: L53.Y1 = 56.7 * 2 * (-ss)
 L53.x2 = L0 * 56.7 + (R5 - 1) * 56.7 * sc: L53.y2 = (R5 - 1) * 56.7 * (-ss)
 shg5.Left = L0 * 56.7 - 2 * 56.7: shg5.Top = 2 * 56.7
  
'画转动副B
Shp3.Left = xb * 56.7 - 1 * 56.7: Shp3.Top = yb * 56.7 + 1 * 56.7
'画转动副O5
Shj.Left = L0 * 56.7 - 56.7: Shj.Top = 56.7
'画滑块4
e2 = Abs(2 / ss): e1 = Abs(e2 * sc)
m11 = m1 - e1: m111 = m1 + e1
m22 = m2 - e1: m222 = m2 + e1
L01 = L0 - e2: L02 = L0 + e2
Lh41.X1 = 56.7 * (L01 - m11 * sc): Lh41.Y1 = 56.7 * m11 * ss
Lh41.x2 = 56.7 * (L01 - m22 * sc): Lh41.y2 = 56.7 * m22 * ss
Lh42.X1 = 56.7 * (L02 - m111 * sc): Lh42.Y1 = 56.7 * m111 * ss
Lh42.x2 = 56.7 * (L02 - m222 * sc): Lh42.y2 = 56.7 * m222 * ss
X1 = Lh41.X1: x2 = Lh42.X1
Y1 = Lh41.Y1: y2 = Lh42.Y1
x11 = Lh41.x2: x22 = Lh42.x2
y11 = Lh41.y2: y22 = Lh42.y2
Lh43.X1 = X1: Lh43.x2 = x2
Lh43.Y1 = Y1: Lh43.y2 = y2
Lh44.X1 = x11: Lh44.x2 = x22
Lh44.Y1 = y11: Lh44.y2 = y22
' 画杆7
x0 = xb + a * Abs(yb) / Tan(pi / 3): y0 = 0
LL0 = Sqr((x0 - xb) ^ 2 + yb ^ 2)
LL01 = LL0 - 3 * a: LL02 = LL0 + 3 * a
eq1 = 20 / Sin(pi / 6)
eq2 = 20 / Tan(pi / 6)
  
mm = (x0 - (L0 - 10 / Sin(pi / 6))) * Sin(pi / 6)
xc1 = x0 - mm * Cos(pi / 3)
yc1 = -mm * Sin(pi / 3)
 xiegc = R5 * Sin(pi / 3)
xc2 = xc1 + (xiegc + 20) * Cos(pi / 3): yc2 = yc1 + (xiegc + 20) * Sin(pi / 3)
'画杆7的斜杆
xd = xc1 + (10 + xiegc / 2) * Cos(pi / 3): yd = yc1 + (10 + xiegc / 2) * Sin(pi / 3)
xe = xc1 + (10 + xiegc / 2) / Cos(pi / 3): ye = yc1
L7x.X1 = 56.7 * xd: L7x.Y1 = 56.7 * yd
L7x.x2 = 56.7 * xe: L7x.y2 = 56.7 * ye
Lwx.X1 = 56.7 * x: Lwx.Y1 = 56.7 * y
Lwx.x2 = 56.7 * xp: Lwx.y2 = 56.7 * yp
L71.X1 = 56.7 * xc1
L71.Y1 = 56.7 * yc1
If a > 0 Then
L71.x2 = 56.7 * (xb - 3 * a * Cos(pi / 3)): L71.y2 = 56.7 * (yb - 3 * a * Sin(pi / 3))
L72.x2 = 56.7 * (xb + 3 * a * Cos(pi / 3)): L72.y2 = 56.7 * (yb + 3 * a * Sin(pi / 3))
Else
L71.x2 = 56.7 * (xb + 3 * a * Cos(pi / 3)): L71.y2 = 56.7 * (yb + 3 * a * Sin(pi / 3))
L72.x2 = 56.7 * (xb - 3 * a * Cos(pi / 3)): L72.y2 = 56.7 * (yb - 3 * a * Sin(pi / 3))
End If
L72.X1 = 56.7 * xc2: L72.Y1 = 56.7 * yc2
'画滑块6
ehc1 = 2 * a / Tan(pi / 3): ehc2 = 2 / Sin(pi / 3)
L611 = LL01 - ehc1: L612 = LL01 + ehc1
L621 = LL02 - ehc1: L622 = LL02 + ehc1
x01 = x0 - ehc2: x02 = x0 + ehc2
x611 = x01 - a * L611 * Cos(pi / 3): y611 = -a * L611 * Sin(pi / 3)
x612 = x02 - a * L612 * Cos(pi / 3): y612 = -a * L612 * Sin(pi / 3)
x621 = x01 - a * L621 * Cos(pi / 3): x622 = x02 - a * L622 * Cos(pi / 3)
y621 = -a * L621 * Sin(pi / 3): y622 = -a * L622 * Sin(pi / 3)
L61.X1 = 56.7 * x611: L61.x2 = 56.7 * x621
L61.Y1 = 56.7 * y611: L61.y2 = 56.7 * y621
L62.X1 = 56.7 * x612: L62.x2 = 56.7 * x622
L62.Y1 = 56.7 * y612: L62.y2 = 56.7 * y622
L63.X1 = 56.7 * x611: L63.x2 = 56.7 * x612
L63.Y1 = 56.7 * y611: L63.y2 = 56.7 * y612
L64.X1 = 56.7 * x621: L64.x2 = 56.7 * x622
L64.Y1 = 56.7 * y621: L64.y2 = 56.7 * y622
'画轨迹
Picture2.PSet (56.7 * xp, 56.7 * yp), vbBlue
'画曲线
hqx = (φ / (2 * pi)) * W3 * 7 / 12
If Check1.Value = 1 Then
Picture3.PSet (hqx, s7 * 56.7 / yy), vbGreen
End If
If Check2.Value = 1 Then
Picture3.PSet (hqx, V7 * 56.7 / yy), vbRed
End If
If Check3.Value = 1 Then
Picture3.PSet (hqx, α7 * 56.7 / (10 * yy)), vbBlue
End If
If Check4.Value = 1 Then
Picture3.PSet (hqx, q7 * 56.7 / (10 * yy)), vbBlack
End If
If Check5.Value = 1 Then
Picture3.PSet (hqx, q17 * 56.7 / (100 * yy)), &H80FF&
End If
If Check7.Value = 1 Then
Picture3.PSet (hqx, q27 * 56.7 / (100 * yy)), &HFF00FF
End If
If Check6.Value = 1 Then
Picture3.PSet (hqx, s7 * 56.7 / yy), vbGreen
Picture3.PSet (hqx, V7 * 56.7 / yy), vbRed
Picture3.PSet (hqx, α7 * 56.7 / (yy * 10)), vbBlue
Picture3.PSet (hqx, q7 * 56.7 / (yy * 10)), vbBlack
Picture3.PSet (hqx, q17 * 56.7 / (yy * 100)), &H80FF&
Picture3.PSet (hqx, q27 * 56.7 / (yy * 1000)), &HFF00FF
End If
'机架
Lz.X1 = L0 * 56.7: Lz.x2 = 0: Lz.Y1 = 0: Lz.y2 = 0
xje1 = 1 * 56.7 / Tan(pi / 6): xje2 = 1 * 56.7 / Sin(pi / 6)
xj1 = xe - xje2 - 20 * 56.7 * Cos(pi / 6): yj1 = -20 * 56.7 * Sin(pi / 6)
Lj1.X1 = L0 * 56.7 - 56.7 * Cos(-pi * 4 / 7): Lj1.x2 = L0 * 56.7 - 5 * 56.7 * Cos(-pi * 4 / 7)
Lj1.Y1 = 56.7 * Sin(-pi * 4 / 7): Lj1.y2 = 5 * 56.7 * Sin(-pi * 4 / 7)
Lj2.X1 = L0 * 56.7 - 56.7 * Cos(-pi * 3 / 7): Lj2.x2 = L0 * 56.7 - 5 * 56.7 * Cos(-pi * 3 / 7)
Lj2.Y1 = 56.7 * Sin(-pi * 3 / 7): Lj2.y2 = 5 * 56.7 * Sin(-pi * 3 / 7)
Lj3.X1 = L0 * 56.7 - 5 * 56.7 * Cos(-pi * 3 / 7) - 56.7: Lj3.x2 = L0 * 56.7 - 5 * 56.7 * Cos(-pi * 4 / 7) + 56.7
Lj3.Y1 = 5 * 56.7 * Sin(-pi * 3 / 7): Lj3.y2 = 5 * 56.7 * Sin(-pi * 3 / 7)
Lj11.X1 = 56.7 * Cos(-pi * 4 / 7): Lj11.x2 = 5 * 56.7 * Cos(-pi * 4 / 7)
Lj11.Y1 = 56.7 * Sin(-pi * 4 / 7): Lj11.y2 = 5 * 56.7 * Sin(-pi * 4 / 7)
Lj22.X1 = 56.7 * Cos(-pi * 3 / 7): Lj22.x2 = 5 * 56.7 * Cos(-pi * 3 / 7)
Lj22.Y1 = 56.7 * Sin(-pi * 3 / 7): Lj22.y2 = 5 * 56.7 * Sin(-pi * 3 / 7)
Lj33.X1 = 5 * 56.7 * Cos(-pi * 3 / 7) + 56.7: Lj33.x2 = 5 * 56.7 * Cos(-pi * 4 / 7) - 56.7
Lj33.Y1 = 5 * 56.7 * Sin(-pi * 3 / 7): Lj33.y2 = 5 * 56.7 * Sin(-pi * 3 / 7)
xc11 = L0 + R5 * Cos(pi / 6): yc11 = -R5 * Sin(pi / 6)
xd11 = xc11 + (xiegc / 2 + 2) * Cos(pi / 3): yd11 = yc11 + (xiegc / 2 + 2) * Sin(pi / 3)
xd12 = xc11 + (xiegc / 2 - 2) * Cos(pi / 3): yd12 = yc11 + (xiegc / 2 - 2) * Sin(pi / 3)
base1x1 = xd11 + 4 * Cos(pi / 6): base1y1 = yd11 - 4 * Sin(pi / 6)
base1x2 = xd11 + 30 * Cos(pi / 6): base1y2 = yd11 - 30 * Sin(pi / 6)
base2x1 = xd12 + 4 * Cos(pi / 6): base2y1 = yd12 - 4 * Sin(pi / 6)
base2x2 = xd12 + 30 * Cos(pi / 6): base2y2 = yd12 - 30 * Sin(pi / 6)
base1.X1 = base1x1 * 56.7
base1.Y1 = base1y1 * 56.7
base1.x2 = base1x2 * 56.7
base1.y2 = base1y2 * 56.7 '上边道路
 
base2.X1 = base2x1 * 56.7
base2.Y1 = base2y1 * 56.7
base2.x2 = base2x2 * 56.7
base2.y2 = base2y2 * 56.7 '下边到路
 'ListView1输出
ListView1.ListItems.Add i, , , , 0
ListView1.ListItems(i).Text = Format(φ, "0.####")
ListView1.ListItems(i).SubItems(1) = Format(s7, "0.####")
ListView1.ListItems(i).SubItems(2) = Format(V7, "0.####")
ListView1.ListItems(i).SubItems(3) = Format(α7, "0.####")
ListView1.ListItems(i).SubItems(4) = Format(q7, "0.####")
ListView1.ListItems(i).SubItems(5) = Format(q17, "0.####")
ListView1.ListItems(i).SubItems(6) = Format(q27, "0.####")
i = i + 1
End Sub
Public Sub chengg()
Picture3.CurrentX = 100: Picture3.CurrentY = 1500: Picture3.Print "S7/"; "V7/"; "α7"
Picture3.Line (-W3 / 4 - 650, 0)-(W3 * 7 / 12 + 300, 0)
Picture3.Line (0, H3 / 2 - 100)-(0, -H3 / 2 + 400)
Picture3.CurrentX = W3 * 7 / 12 + 100: Picture3.CurrentY = 300: Picture3.Print "φ"
cds = (H3 / 2 - 4 * 56.7) / 3
For ii = 0 To 3
Picture3.Line (0, ii * cds)-(100, ii * cds)
Picture3.Line (0, -ii * cds)-(100, -ii * cds)
Next ii
zdf = (W3 * 7 / 12) / 9
For ii = 0 To 9
Picture3.Line (ii * zdf, 100)-(ii * zdf, 0)
Picture3.CurrentX = ii * zdf - 100: CurrentY = -400: Picture3.Print 40 * ii
Next ii
For ii = 0 To 5
Picture3.Line (-ii * zdf, 100)-(-ii * zdf, 0)
Picture3.CurrentX = -ii * zdf - 100: CurrentY = -400: Picture3.Print -40 * ii
Next ii
End Sub
Private Sub HScroll4_Change()
Text5.Text = HScroll4.Value
End Sub

						