form3.frm

很好的齿轮－五杆机构随参数变化的动态轨迹曲线以及速度和加速度曲线

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H80000009&
   Caption         =   "c点位置曲线"
   ClientHeight    =   6960
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6300
   LinkTopic       =   "Form3"
   ScaleHeight     =   6960
   ScaleWidth      =   6300
   StartUpPosition =   1  '所有者中心
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command2 
      Caption         =   "生成坐标"
      Height          =   375
      Left            =   10440
      TabIndex        =   7
      Top             =   120
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   270
      Left            =   10560
      TabIndex        =   5
      Text            =   "Text2"
      Top             =   2280
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   10560
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   1920
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   375
      Left            =   10440
      TabIndex        =   2
      Top             =   1080
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "生成曲线"
      Height          =   375
      Left            =   10440
      TabIndex        =   1
      Top             =   600
      Width           =   1095
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000009&
      Height          =   10000
      Left            =   120
      ScaleHeight     =   9945
      ScaleMode       =   0  'User
      ScaleWidth      =   10200
      TabIndex        =   0
      Top             =   120
      Width           =   10000
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000009&
      Caption         =   "鼠标坐标为：           X＝                    Y＝   "
      Height          =   1095
      Left            =   10320
      TabIndex        =   6
      Top             =   1560
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000009&
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   10200
      Width           =   14655
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Picture1.DrawWidth = 2
bi = Val(Form2.Text1.Text)
linkages.getvalue

Dim i, j As Long
Dim t1, t2 As Double
Do While i < linkages.num + 1
         i = i + 1
         linkages.jisuan
        
         linkages.Y1 = linkages.Y1 + linkages.BJ '角度1＝初始角度＋步进角度
         linkages.Y4 = linkages.Y4 - linkages.BJ * linkages.RAB
         
         'Picture1.PSet (Me.Picture1.Width / 2 + linkages.XC * 200, Me.Picture1.Height / 2 + linkages.YC * 200), RGB(0, 0, 255)
         Picture1.Scale (-10 * bi, 10 * bi)-(10 * bi, -10 * bi)
         Picture1.PSet (linkages.XC, linkages.YC)
         If t1 = 0 Then
         t1 = linkages.XC
         t2 = linkages.YC
         End If
         Picture1.Line (linkages.XC, linkages.YC)-(t1, t2) '利用直线来画出来曲线
         t1 = linkages.XC '第二次画线的时候前点为前面的点
         t2 = linkages.YC
        
l1: Loop

 
End Sub




Private Sub Command2_Click()
Me.Picture1.Cls
Picture1.DrawWidth = 1
bi = Val(Form2.Text1.Text)
zuobiao
End Sub

Private Sub Command3_Click()
  Unload Me
End Sub
Private Sub Form_Load()
Me.Label1.Caption = "连杆AB长度：" & linkages.Text1.Text & "；连杆BC长度：" & linkages.Text2.Text & "；连杆CD的长度：" & linkages.Text3.Text & "；连架杆DE的长度：" & linkages.Text4.Text & "；机架AE的长度：" & linkages.Text5.Text & "；齿轮的传动比：" & linkages.Text6.Text & "；初始角θ：" & linkages.Text7.Text & "；初始角φ：" & linkages.Text8.Text

End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y
End Sub
Private Sub zuobiao()
    '位置画坐标
    Dim i As Long
    Form3.Picture1.Scale (-10 * bi, 10 * bi)-(10 * bi, -10 * bi)
    For i = 0 To 36 * bi Step bi
    Me.Picture1.Line (i - 9 * bi, -9 * bi)-(i - 9 * bi, 9 * bi), QBColor(7)
    Next i
    For i = 0 To 36 * bi Step bi
    Me.Picture1.Line (-9 * bi, i - 9 * bi)-(9 * bi, i - 9 * bi), QBColor(7)
    Next i
    Form3.Picture1.Line (-9.5 * bi, 0)-(9.5 * bi, 0)
    Picture1.Print "Xc"
    Form3.Picture1.Line (0, -9.5 * bi)-(0, 9.5 * bi)
     Picture1.Print "Yc(且每格：" & bi & "个单位)"
    Form3.Picture1.Line (0, -0.1)-(0, 0)
    Picture1.Print ""
End Sub