《用vb编写的齿轮的动画全部程序》由会员分享，可在线阅读，更多相关《用vb编写的齿轮的动画全部程序（27页珍藏版）》请在金锄头文库上搜索。
1、（1 ） Private Sub Command1_Click()Unload MeLoad Form2Form2.ShowEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Timer1_Timer()Static p As Integerp = p + 1If p = 16 Thenp = 0End IfLabel1.ForeColor = QBColor(p Mod 14)Label2.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Label3.ForeCol
2、or = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Label4.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)End SubPrivate Sub Timer2_Timer()Command1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)End Sub（2 ） Private Sub Command1_Click()Command1.Visible = FalseCommand2
3、.Visible = TruePicture1.Visible = TruePicture1.ClsCommand2.Value = FalseCommand3.Value = FalseTimer1.Enabled = FalseTimer2.Enabled = False开始画第一个齿轮rb1 = 170 / 2 * Cos(PI / 9)ra1 = 190 / 2rf1 = (17 - 2 - 0.5) * 10 / 2Picture1.Scale (-120, -200)-(370, 200)画渐开线Picture1.DrawWidth = 1.2Picture1.Circle (0,
4、 0), 2, QBColor(15)rk1 = rb1i = jiao * PI / 180For a1 = 19 / 17 * i + 0 To 2 * PI + 19 / 17 * i Step 2 * PI / 17mn1 = a1 + 14 * PI / 180mm1 = a1 + 12.5 * PI / 180z21 = rf1 * Cos(mn1)z22 = rf1 * Sin(mn1)X1112 = rb1 * Cos(mm1)Y1112 = rb1 * Sin(mm1)Picture1.Line (z21, z22)-(X1112, Y1112), QBColor(15)gk
5、1 = Tan(Atn(Sqr(1 - rb1 / rk1 * rb1 / rk1) / rb1 * rk1) - Atn(Sqr(1 - rb1 / rk1 * rb1 / rk1) / rb1 * rk1) 展角与 rk 的关系b1 = a1 + gk1sb1 = PI * 10 / 2 * Cos(PI / 9) - 10 * 17 * Cos(PI / 9) * (PI / 9 - Tan(PI / 9)X1111 = rb1 * Cos(b1 - gk1)Y1111 = rb1 * Sin(b1 - gk1)画齿根圆弧For p1 = a1 - 7 * PI / 180 To a1
6、- 1 * PI / 180 Step 0.4 * PI / 180z11 = rf1 * Cos(p1)z12 = rf1 * Sin(p1)Picture1.PSet (z11, z12), QBColor(15)Next p1Picture1.Line (z11, z12)-(X1111, Y1111), QBColor(15)For rk1 = rb1 To ra1 Step 0.4gk1 = Tan(Atn(Sqr(1 - rb1 / rk1 * rb1 / rk1) / rb1 * rk1) - Atn(Sqr(1 - rb1 / rk1 * rb1 / rk1) / rb1 *
7、rk1) 展角与 rk 的关系b1 = a1 + gk1sb1 = PI * 10 / 2 * Cos(PI / 9) - 10 * 17 * Cos(PI / 9) * (PI / 9 - Tan(PI / 9)X1 = rk1 * Cos(b1)Y1 = rk1 * Sin(b1)If b1 = a1 Thenbx1 = X1By1 = Y1Picture1.PSet (bx1, By1), QBColor(15)Else Picture1.PSet (X1, Y1), QBColor(15)End IfNext rk1sb1 = PI * 10 / 2 * Cos(PI / 9) - 1
8、0 * 17 * Cos(PI / 9) * (PI / 9 - Tan(PI / 9)w1 = sb1 / rb1For rk1 = rb1 To ra1 Step 0.4gk1 = Tan(Atn(Sqr(1 - rb1 / rk1 * rb1 / rk1) / rb1 * rk1) - Atn(Sqr(1 - rb1 / rk1 * rb1 / rk1) / rb1 * rk1) 展角与 rk 的关系d1 = a1 + w1 - gk1sb1 = PI * 10 / 2 * Cos(PI / 9) - 10 * 17 * Cos(PI / 9) * (PI / 9 - Tan(PI /
9、9)X12 = rk1 * Cos(d1)Y12 = rk1 * Sin(d1)If d1 = w1 Thenbx12 = X12By12 = Y12Picture1.PSet (bx12, By12), QBColor(15)ElsePicture1.PSet (X12, Y12), QBColor(15)End IfNext rk1Next a1For k1 = 0 + 19 / 17 * i To 2 * PI + 19 / 17 * i Step 2 * PI / 17For k11 = k1 + gk11 + 4.5 * PI / 180 To k1 + sb1 / rb1 - gk
10、11 - 3.8 * PI / 180 Step 0.3 * PI / 180x111 = ra1 * Cos(k11)y111 = ra1 * Sin(k11)Picture1.PSet (x111, y111), QBColor(15)Next k11Next k1第一个齿轮结束开始画第二个齿轮rb2 = 190 / 2 * Cos(PI / 9)ra2 = (19 + 2) * 10 / 2rf2 = (19 - 2 - 0.5) * 10 / 2画渐开线Picture1.Circle (183, 0), 2, QBColor(12)For a2 = 0 + 7.88 * PI / 18
11、0 - i To 2 * PI + 7.88 * PI / 180 - i Step 2 * PI / 19mn2 = a2 - 6.5 * PI / 180mm2 = a2 - 7.5 * PI / 180z2121 = 183 + rf2 * Cos(mn2)z2222 = rf2 * Sin(mn2)X2112 = 183 + rb2 * Cos(mm2)Y2112 = rb2 * Sin(mm2)Picture1.Line (z2121, z2222)-(X2112, Y2112), QBColor(12)X2111 = 183 + rb2 * Cos(a2)Y2111 = rb2 *
12、 Sin(a2)画齿根圆弧For p2 = a2 - 6 * PI / 180 To a2 - 0.8 * PI / 180 Step 0.4 * PI / 180z111 = 183 + rf2 * Cos(p2)z121 = rf2 * Sin(p2)Picture1.PSet (z111, z121), QBColor(12) Next p2Picture1.Line (z111, z121)-(X2111, Y2111), QBColor(12)For rk2 = rb2 To ra2 Step 0.4gk2 = Tan(Atn(Sqr(1 - rb2 / rk2 * rb2 / rk
13、2) / rb2 * rk2) - Atn(Sqr(1 - rb2 / rk2 * rb2 / rk2) / rb2 * rk2) 展角与 rk 的关系b2 = a2 + gk2sb2 = PI * 10 / 2 * Cos(PI / 9) - 10 * 19 * Cos(PI / 9) * (PI / 9 - Tan(PI / 9)X2 = 183 + rk2 * Cos(b2)Y2 = rk2 * Sin(b2)If b2 = a2 Thenbx2 = X2By2 = Y2Picture1.PSet (bx2, By2), QBColor(12)ElsePicture1.PSet (X2,
14、 Y2), QBColor(12)End IfNext rk2sb2 = PI * 10 / 2 * Cos(PI / 9) - 10 * 19 * Cos(PI / 9) * (PI / 9 - Tan(PI / 9)w2 = sb2 / rb2For rk2 = rb2 To ra2 Step 0.4gk2 = Tan(Atn(Sqr(1 - rb2 / rk2 * rb2 / rk2) / rb2 * rk2) - Atn(Sqr(1 - rb2 / rk2 * rb2 / rk2) / rb2 * rk2) 展角与 rk 的关系d2 = a2 + w2 - gk2sb2 = PI *
15、10 / 2 * Cos(PI / 9) - 10 * 19 * Cos(PI / 9) * (PI / 9 - Tan(PI / 9)X22 = 183 + rk2 * Cos(d2)Y22 = rk2 * Sin(d2)If d2 = w2 Thenbx22 = X22By22 = Y22Picture1.PSet (bx22, By22), QBColor(12)ElsePicture1.PSet (X22, Y22), QBColor(12)End IfNext rk2齿根圆圆弧Next a2For k2 = 0 + 7.88 * PI / 180 - i To 2 * PI + 7.
16、88 * PI / 180 - i Step 2 * PI / 19gk22 = Tan(Atn(Sqr(1 - rb2 / ra2 * rb2 / ra2) / rb2 * ra2) - Atn(Sqr(1 - rb2 / ra2 * rb2 / rk2) / rb2 * ra2)For k22 = k2 + gk22 To k2 + sb2 / rb2 - gk2 Step 0.3 * PI / 180x222 = 183 + ra2 * Cos(k22)y222 = ra2 * Sin(k22) Picture1.PSet (x222, y222), QBColor(12)Next k22Next k2End SubPrivate Sub Command2_Click()Label1.Visible = TrueLabel2.Visible = TrueCommand4.Visible = True
