📄 frm凸轮设计.frm
字号:
VERSION 5.00
Begin VB.Form frm凸轮设计
Caption = "凸轮设计步骤演示 中国矿业大学机械基础与CAD中心 阎海峰 2002.5"
ClientHeight = 7035
ClientLeft = 1155
ClientTop = 900
ClientWidth = 9765
FillColor = &H00C00000&
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7035
ScaleWidth = 9765
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00800000&
FillColor = &H00C00000&
Height = 8000
Left = 0
ScaleHeight = -800
ScaleMode = 0 'User
ScaleTop = 800
ScaleWidth = 1000
TabIndex = 0
Top = 0
Width = 10000
Begin VB.CommandButton cmd设计
Caption = "设计"
Height = 375
Left = 7080
TabIndex = 13
Top = 240
Width = 975
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 50
Left = 960
Top = 0
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 480
Top = 0
End
Begin VB.CommandButton cmd继续
Caption = "动画演示"
Height = 375
Left = 6000
TabIndex = 4
Top = 240
Width = 975
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 0
Top = 0
End
Begin VB.CommandButton cmd设置
Caption = "设置"
Height = 375
Left = 3840
TabIndex = 3
Top = 240
Width = 975
End
Begin VB.CommandButton cmdReset
Caption = "复位"
Height = 375
Left = 4920
TabIndex = 2
Top = 240
Width = 975
End
Begin VB.CommandButton cmd退出
Caption = "退出"
Height = 375
Left = 8160
TabIndex = 1
Top = 240
Width = 975
End
Begin VB.Line lin基圆DT2
BorderColor = &H00FFFFFF&
Index = 0
Visible = 0 'False
X1 = 0
X2 = 108.597
Y1 = 691.115
Y2 = 642.722
End
Begin VB.Line lin基圆DT0
BorderColor = &H00FFFFFF&
Index = 0
Visible = 0 'False
X1 = 0
X2 = 108.597
Y1 = 654.82
Y2 = 606.427
End
Begin VB.Line lin凸轮DT2
BorderColor = &H0000FFFF&
Index = 0
Visible = 0 'False
X1 = 0
X2 = 108.597
Y1 = 509.641
Y2 = 582.231
End
Begin VB.Line lin凸轮DT0
BorderColor = &H0000FFFF&
Index = 0
Visible = 0 'False
X1 = 12.066
X2 = 120.664
Y1 = 485.444
Y2 = 558.034
End
Begin VB.Line lin等分DT2
BorderColor = &H00FFFFFF&
Index = 0
Visible = 0 'False
X1 = 398.19
X2 = 398.19
Y1 = 703.214
Y2 = 594.329
End
Begin VB.Line lin等分DT0
BorderColor = &H00FFFFFF&
Index = 0
Visible = 0 'False
X1 = 374.057
X2 = 374.057
Y1 = 703.214
Y2 = 594.329
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
FillColor = &H0000FFFF&
FillStyle = 4 'Upward Diagonal
Height = 615
Left = 1969
Top = 1200
Width = 255
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
FillColor = &H0000FFFF&
FillStyle = 4 'Upward Diagonal
Height = 615
Left = 2357
Top = 1200
Width = 255
End
Begin VB.Line lin从动件
BorderColor = &H0000FFFF&
BorderWidth = 3
X1 = 229.965
X2 = 229.965
Y1 = 715.312
Y2 = 333.812
End
Begin VB.Line linX
BorderColor = &H00FFFF00&
X1 = 506.787
X2 = 904.977
Y1 = 449.149
Y2 = 449.149
End
Begin VB.Line linY
BorderColor = &H00FFFF00&
X1 = 506.787
X2 = 506.787
Y1 = 630.624
Y2 = 449.149
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "δ0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 255
Left = 5400
TabIndex = 12
Top = 3720
Visible = 0 'False
Width = 615
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "δ1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 255
Left = 6240
TabIndex = 11
Top = 3720
Visible = 0 'False
Width = 615
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "δ2"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 255
Left = 7200
TabIndex = 10
Top = 3720
Visible = 0 'False
Width = 615
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "δ3"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 255
Left = 8040
TabIndex = 9
Top = 3720
Visible = 0 'False
Width = 495
End
Begin VB.Label Label0
BackStyle = 0 'Transparent
Caption = "δ"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 255
Left = 8760
TabIndex = 8
Top = 3600
Width = 495
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "S"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 255
Left = 4680
TabIndex = 7
Top = 1320
Width = 255
End
Begin VB.Label lab_t
BackStyle = 0 'Transparent
Caption = "t"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 255
Left = 8760
TabIndex = 6
Top = 3120
Width = 495
End
Begin VB.Line Line1
BorderColor = &H00FF00FF&
Visible = 0 'False
X1 = 506.787
X2 = 506.787
Y1 = 449.149
Y2 = 376.56
End
Begin VB.Line Line2
BorderColor = &H00FF00FF&
Visible = 0 'False
X1 = 458.522
X2 = 458.522
Y1 = 461.248
Y2 = 376.56
End
Begin VB.Line Line3
BorderColor = &H00FF00FF&
Visible = 0 'False
X1 = 687.783
X2 = 687.783
Y1 = 461.248
Y2 = 376.56
End
Begin VB.Line Line4
BorderColor = &H00FF00FF&
Visible = 0 'False
X1 = 784.314
X2 = 784.314
Y1 = 461.248
Y2 = 376.56
End
Begin VB.Line Line5
BorderColor = &H00FF00FF&
Visible = 0 'False
X1 = 856.712
X2 = 856.712
Y1 = 461.248
Y2 = 376.56
End
Begin VB.Line Line6
BorderColor = &H00FFFF00&
X1 = 506.787
X2 = 494.721
Y1 = 630.624
Y2 = 606.427
End
Begin VB.Line Line7
BorderColor = &H00FFFF00&
X1 = 506.787
X2 = 518.854
Y1 = 630.624
Y2 = 606.427
End
Begin VB.Line Lineh1
BorderColor = &H00FF00FF&
Visible = 0 'False
X1 = 434.389
X2 = 579.186
Y1 = 594.329
Y2 = 594.329
End
Begin VB.Line Lineh2
BorderColor = &H00FF00FF&
Visible = 0 'False
X1 = 446.456
X2 = 530.92
Y1 = 449.149
Y2 = 449.149
End
Begin VB.Label lab_h
BackStyle = 0 'Transparent
Caption = "h"
BeginProperty Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -