版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

XQxkwwX

木虫 (小有名气)

(=@__@=)哪里？

应助: 0 (幼儿园)
金币: 3848.3
红花: 1
帖子: 90
在线: 136小时
虫号: 1623425
注册: 2012-02-17
性别: GG
专业: 无机非金属基复合材料

[求助] 怎么用vb编写出这个凸轮啊求最终vb文件急急急！

‘模块
Public s(71) As Double
Public v(71) As Double
Public a(71) As Double
Public s1(71), v1(71), a1(71)
Public Const pi = 3.1415926
Public δ0, δ1, δ2, δ3 '运动角参数
Public h, ω, rb, e, r, e1, r0 '升程、角速度、基圆半径等
Public Sub draw1()
n = rb / 15:r = rb / n:e1 = e / n
For i = 0 To 71 ‘按比例折算位移、速度、加速度
s1(i) = s(i) / n:v1(i) = v(i) / n:a1(i) = a(i) / n
Next i
For l = 1 To 3 '建立位移、速度、加速度坐标
Form2.Picture1.Line (62, 15 * l)-(110, 15 * l)
Form2.Picture1.Line (62, 15 + 15 * (l - 1))-(62, 15 * (l - 1) + 2)
Form2.Picture1.CurrentX = 109
Form2.Picture1.CurrentY = 15 * l + 3
Form2.Picture1.Print "δ"
Next l
……
For k = 0 To 70 '画位移、速度、加速度、线图
z = k + 1
Form2.Picture1.Line (62 + k * 0.6, 15 - s1(k))-(62 + z * 0.6, 15 - s1(z))
Form2.Picture1.Line (62 + k * 0.6, 30 - v1(k) * 30000)-(62 + z * 0.6, 30 - v1(z) * 30000)
Form2.Picture1.Line (62 + k * 0.6, 45 - a1(k) * 20)-(62 + z * 0.6, 45 - a1(z) * 20)
Next k
Form2.Picture1.Circle (35, 40), r ‘画基圆
Form2.Picture1.Circle (35, 40), e1 ‘画偏心圆
End Sub
‘窗口 1
Private Sub Command1_Click()
δ0 = Val(Text1.Text) '初始值
δ1 = Val(Text3.Text)
δ2 = Val(Text4.Text)
δ3 = Val(Text4.Text)
h = Val(Text2.Text)
ω = Val(Text9.Text)
Dim j As Integer
j = 0
'计算推程的位移、速度、加速度
If Optdengsu1.Value = True Then '等速运动
For i = 0 To δ0 Step 5
s(j) = h * i / δ0
v(j) = h * ω / δ0 * pi / 180
a(j) = 0
j = j + 1
Next i
ElseIf Optdjdj1.Value = True Then '等加速等减速
……
Next i
ElseIf Optyuxian1.Value = True Then '余弦加速度
……
Next i
ElseIf Optzhengxian1.Value = True Then '正弦加速度
……
Next i
End If
'计算远停程位移、速度
……
'计算回程的位移、速度、加速度
If Optdengsu2.Value = True Then '等速运动
……
ElseIf Optdjdj2.Value = True Then '等加速等减速
ElseIf Optyuxian2.Value = True Then '余弦加速度
……
ElseIf Optzhengxian2.Value = True Then '正弦加速度
……
End If
'近停程
……
form1.Hide
Form2.Show
End Sub
‘窗口 2
Dim r0 As Double
Private Sub cmdok2_Click()
r0 = Val(Text6.Text) '滚子半径
rb = Val(Text7.Text) '基圆半径
e = Val(Text8.Text) '偏心距
draw1
If Optzhidong.Value = True And Optjianding.Value = True Then
drawwith = 3
Form2.Picture1.Line (35, 40 - r)-(35, 5)
turnofftimer
Timer1.Interval = 250
Timer1.Enabled = True '选择直动尖顶从动件动画
ElseIf Optzhidong.Value = True And Optgunzi.Value = True Then
turnofftimer
x0 = 35+e1: y0 = 40 - SQR(r ^ 2 - e1 ^ 2)
For g = 2 To 70 ‘画理论轮廓线
m = g - 1
X2 = 35 - (s1(g) + SQR(r ^ 2 - e1 ^ 2)) * Sin(5 * g * pi / 180)+e1* Cos(5 * g * pi / 180)
Y2 = 40 - (s1(g) + SQR (r ^ 2 - e1 ^ 2)) * Cos(5 * g * pi / 180)+e1* sin(5 * g * pi / 180)
X1 = 35 - (s1(m) + SQR (r ^ 2 - e1 ^ 2)) * Sin(5 * m * pi / 180)+e1* Cos(5 * m * pi / 180)
Y1 = 40 - (s1(m) + SQR (r ^ 2 - e1 ^ 2)) * Cos(5 * m * pi / 180)+ e1*sin(5 * m * pi / 180)
Form2.Picture1.Line (x0, y0)-(X1, Y1)
Form2.Picture1.Line (X1, Y1)-(X2, Y2)
x0 = X2: y0 = Y2
Next g
Timer2.Interval = 250
Timer2.Enabled = True '选择直动滚子从动件动画
ElseIf Optzhidong.Value = True And Optpingdi.Value = True Then
turnofftimer
Timer3.Interval = 250
Timer3.Enabled = True '选择直动平底从动件动画
ElseIf Optbaidong.Value = True And Optjianding.Value = True Then
Timer4.Interval = 250
Timer4.Enabled = True '选择摆动尖顶从动件动画
ElseIf Optbaidong.Value = True And Optgunzi.Value = True Then
Timer5.Interval = 250
Timer5.Enabled = True '选择摆动滚子从动件动画
Else
Picture1.CurrentX = 20
Picture1.CurrentY = 62
Form2.Picture1.Print "重新选择"
End If
End Sub
Private Sub cmdting_Click() ‘暂停
turnofftimer
End Sub
Private Sub fanhui_Click() ‘返回
Form2.Hide
Form1.Show
End Sub
Private Sub exit_Click() ‘退出
end
End Sub
Private Sub Timer1_Timer() ‘直动滚子从动件动画
x0 = 35+e1: y0 = 40 - sqr(r ^ 2 - e1 ^ 2)
For g = 2 To 70
m = g – 1
X3=e1* Cos(5 * g * pi / 180)
Y3=-e1* Sin(5 * g * pi / 180)
X2 = 35 - (s1(g) + SQR(r ^ 2 - e1 ^ 2)) * Sin(5 * g * pi / 180)+e1* Cos(5 * g * pi / 180)
Y2 = 40 - (s1(g) + SQR (r ^ 2 - e1 ^ 2)) * Cos(5 * g * pi / 180)+e1* sin(5 * g * pi / 180)
X1 = 35 - (s1(m) + SQR (r ^ 2 - e1 ^ 2)) * Sin(5 * m * pi / 180)+e1* Cos(5 * m * pi / 180)
Y1 = 40 - (s1(m) + SQR (r ^ 2 - e1 ^ 2)) * Cos(5 * m * pi / 180)+ e1*sin(5 * m * pi / 180)
Form2.Picture1.Line (62 + g * 0.6, 15)-(62 + g * 0.6, 15 - s1(g))
Form2.Picture1.Line (X3, Y3)-(X2, Y2)
Form2.Picture1.Line (x0, y0)-(X1, Y1)
Form2.Picture1.Line (X1, Y1)-(X2, Y2)
x0 = X2: y0 = Y2
Next g
If g > 70 Then
turnofftimer
End If
End Sub
Private Sub Timer2_Timer() ‘直动滚子从动件动画
X2 = 35 - (s1(g) + SQR(r ^ 2 - e1 ^ 2)) * Sin(5 * g * pi / 180)+e1* Cos(5 * g * pi / 180)
Y2 = 40 - (s1(g) + SQR (r ^ 2 - e1 ^ 2)) * Cos(5 * g * pi / 180)+e1* sin(5 * g * pi / 180)
Form2.Picture1.Circle (X2, Y2), r0 / rb * 15
g=g+1
If g > 71 Then
turnofftimer
End If
End Sub
Private Sub Timer3_Timer() ‘直动平底从动件动画
……
End Sub
Private Sub Timer4_Timer() ‘摆动尖顶从动件动画
……
End Sub
Private Sub Timer5_Timer() ‘摆动滚子从动件动画
……
End Sub
Private Sub turnofftimer()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
End Sub

8]7V`%9PV]$CX5]XSZL745Q.jpg

回复此楼

» 猜你喜欢

逗比青年

1楼 2014-06-24 22:49:57

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

用vb编写的判断未知文件类型的小程序，分享下。已经有13人回复
求VB好教材，非计算机专业已经有5人回复
【求助】怎么让vb程序运行结束后自动退出啊已经有5人回复
【求助】vb调用外部程序，外部程序运行结束后如何在form上显示出提示信息啊~！~~ 已经有3人回复
【求助】请教VB txt文件输出如何让每个数据占用固定长度的字节~~~ 已经有4人回复
【求助】VB如何读取txt文件~~ 已经有12人回复

点击这里搜索更多相关资源

科研从小木虫开始，人人为我，我为人人

相关版块跳转我要订阅楼主 XQxkwwX 的主题更新