module1.bas

visual basic程序实现凸轮机构设计

Attribute VB_Name = "主模块"
Option Explicit

'***************************************
'
'        凸轮机构演示动画
'
'        闫海峰  2002.4.18
'
'****************************************


'Option Base 1

Public mainfrm As frm凸轮设计

Sub Main()
    r0 = 100
   δ0 = 100
   δ1 = 60
   δ2 = 100
   δ3 = 100
    h = 90
    L = 300
    δθ = 10
    r1 = 15
    e = 30
    
    Set mainfrm = New frm凸轮设计
    mainfrm.Show
    
End Sub