机械原理中如何用vb制作凸轮机构动画

『壹』 齿轮机构设计的vb程序怎么编，机械原理实验

'参数初始化
Dim r0%, r1%, h%, e%
Dim a1%, a01%, a2%, a02%
r0 = Val(InputBox("请输入基圆半径"))
r1 = Val(InputBox("请输入滚子半径"))
h = Val(InputBox("请输入升程"))
e = Val(InputBox("请输入偏距"))
a1 = Val(InputBox("请输入推程运回动角"))
a01 = Val(InputBox("请输入远休答止角"))
a2 = Val(InputBox("请输入回程运动角"))
a02 = Val(InputBox("请输入近休止角"))
Text1.Text = r0
Text2.Text = r1
Text3.Text = h
Text4.Text = e
Text5.Text = a1
Text6.Text = a01
Text7.Text = a2
Text8.Text = a02
Picture1.Scale (-75, 55)-(75, -55) '建立坐标系

『贰』 如何做简单的机械原理动画

简单的可以用flash，逐帧做
复杂的可以用三维软件建模做，如UG

『叁』 机械原理上机实验，用vb做一个曲柄摇杆机构动画，需要输出动画和excel表格，要求如图

我也想问一来下，像平时自我们老师叫我们做的题目（数据库，程序，表单的时候，需要在打开VFp的时候才能正常地使用数据库及程序），那既然说VFP能建立更多和更复杂的应用程序（像图书管理系统等），那么我想问这里说建立的图书管理系统可以脱离VFp而单独使用吗?x谢谢！

『肆』 怎样用VB画机械原理动画

干嘛要用VB画嘛，用CAD画简单些吧

『伍』 我在VB中画出来一个凸轮的轮廓，如何用TIME控件让它连续转动以形成动画求大神指点啊！！！

凸轮的轮廓是什么？
若是一张图片则极难
若是控件之类的则可以 x.top=x.top+1

『陆』 求 机械原理课程设计凸轮设计vb程序

'参数初始化
Dim r0%, r1%, h%, e%
Dim a1%, a01%, a2%, a02%
r0 = Val(InputBox("请输入基圆半径"))
r1 = Val(InputBox("请输入滚子半径"))
h = Val(InputBox("请输入升程"))
e = Val(InputBox("请输入偏距"))
a1 = Val(InputBox("请输入推程运动角"))
a01 = Val(InputBox("请输入远休止角"))
a2 = Val(InputBox("请输入回程运动角"))
a02 = Val(InputBox("请输入近休止角"))
Text1.Text = r0
Text2.Text = r1
Text3.Text = h
Text4.Text = e
Text5.Text = a1
Text6.Text = a01
Text7.Text = a2
Text8.Text = a02
Picture1.Scale (-75, 55)-(75, -55) '建立坐标系
Picture1.Line (0, 50)-(0, -50)
Picture1.Line (-55, 0)-(55, 0)
'初始化参数
Dim i!, j!, k!, m!, n!
Dim a!, b!, c!, d!
Const pi = 3.141592653
Dim s#(360), s1#(360)
Dim ds#(360), ds1#(360)
Dim dx#(360), dy#(360)
a = a1
b = a1 + a01
c = a1 + a01 + a2
d = 360
j = 0
For i = 0 To a '推程段
s(j) = h * ((i / a1) - Sin(2 * pi * i * pi / a1 / 180) / (2 * pi))
ds(j) = h * (1 - Cos(2 * pi * i * pi / a1 / 180)) / a1
ds1(j) = ds(j) / 2
s1(j) = s(j) / 2 '按比例定义参数值
j = j + 1
Next i
For i = (a + 1) To b '远休段
s(j) = h
ds(j) = 0
ds1(j) = 0
s1(j) = s(j) / 2
j = j + 1
Next i
For i = (b + 1) To c '回程段
s(j) = h * (1 + Cos(3 * (i - 150) * pi / 180)) / 2
ds(j) = -h * pi * Sin(3 * pi * (i - 150) / 180) / (2 * a2)
ds1(j) = ds(j) / 2
s1(j) = s(j) / 2
j = j + 1
Next i
For i = (c + 1) To d '近休段
s(j) = 0
ds(j) = 0
ds1(j) = 0
s1(j) = s(j) / 2
j = j + 1
Next i
'初始化参数'
Dim X0#, Y0#, X1#, Y1#, X2#, Y2#
Dim X11#, Y12#, X21#, Y22#
Dim e1#, r#, p#, q#, r11#
Dim s0#
'按比例定义参数值'
e1 = e / 2
r = r0 / 2
r11 = r1 / 2
s0 = Sqr(r ^ 2 - e1 ^ 2)
For i = 1 To 360
dx(i) = (ds1(i) - e) * Sin(i * pi / 180) + (s0 + s1(i)) * Cos(i * pi / 180)
dy(i) = (ds1(i) - e) * Cos(i * pi / 180) - (s0 + s1(i)) * Sin(i * pi / 180)
Next i
'输出理论、实际轮廓线图像及坐标值'
X0 = e1: Y0 = s0
For g = 2 To 360
m = g - 1
'求理论轮廓线
X2 = (s1(g) + s0) * Sin(g * pi / 180) + e1 * Cos(g * pi / 180)
Y2 = (s1(g) + s0) * Cos(g * pi / 180) - e1 * Sin(g * pi / 180)
X1 = (s1(m) + s0) * Sin(m * pi / 180) + e1 * Cos(m * pi / 180)
Y1 = (s1(m) + s0) * Cos(m * pi / 180) - e1 * Sin(m * pi / 180)
Picture1.Line (X0, Y0)-(X1, Y1) '输出理论轮廓线图
Picture1.Line (X1, Y1)-(X2, Y2)
'求实际轮廓线
p = dx(m) / Sqr(dx(m) ^ 2 + dy(m) ^ 2)
q = -dy(m) / Sqr(dx(m) ^ 2 + dy(m) ^ 2)
p1 = dx(g) / Sqr(dx(g) ^ 2 + dy(g) ^ 2)
q1 = -dy(g) / Sqr(dx(g) ^ 2 + dy(g) ^ 2)
X11 = X1 - r11 * q
Y12 = Y1 - r11 * p
X21 = X2 - r11 * q1
Y22 = Y2 - r11 * p1
Picture1.PSet (X11, Y12) '输出实际轮廓线图
Text9.Text = Text9.Text & " " & m & " " & 2 * X1 & " " & 2 * Y1 & " " & 2 * X11 & " " & 2 * Y12 & " " & vbCrLf '输出理论、实际轮廓线坐标值
X0 = X2: Y0 = Y2
Next g
End Sub

『柒』 如何制作机械原理图动画

使用flash动画。
机械原理（theory of machines and mechanisms），研究机械中机构的结构和运动，以版及机器的结构、受力、权质量和运动的学科。这一学科的主要组成部分为机构学和机械动力学。人们一般把机构和机器合称为机械。机构是由两个以上的构件通过活动联接以实现规定运动的组合体。机器是由一个或一个以上的机构组成，用来作有用的功或完成机械能与其他形式的能量之间的转换。

『捌』 用solidworks对一凸轮机构进行仿真，在动画里面凸轮能正常运动，在motion里面怎么就不行

动画里面是基于键码的动画，不能叫仿真。
在motion里面是基于运动算例的仿真，严格按照物理学运动，不能有干涉。没文件没法看，具体发文件过来我看下

『玖』 求机械原理 凸轮轮廓设计 从动件等速运动规律的VB程序

你是需要做程序设计么，那你就到云智图上去发布一个需求，上面的大神还是不少的，会有人来申请的。

『拾』 如何用solidworks画凸轮机构的仿真动画。注意，是仿真运动的动画

你给凸轮加个旋转马达就可以做动画了！前提是你的配合关系要弄好，再一个就是凸轮面要完整，可以用套合曲线完成·！！