機械原理實驗VB程序

1、Private Sub Command1_Click() Dim L1, L2, L3, L4 As Double Dim s1_Degree, s2_Degree, s3_Degree, s1, s2, s3 As Double Dim w1, w2, w3 As Double Dim a1, a2, a3 As Double Dim A, B, C As Double Dim i As Integer pi = 3.1415926 L1 = Val(Text1.Text) L2 = Val(Text2.Text) L3 = Val(Text3.Text) L4 = Val(Text4.Te

2、xt) w1 = Val(Text5.Text) Text6.Text = Text6.Text & s1 & & s2 & & s3 & Chr(13) & Chr(10) Text7.Text = Text7.Text & w1 & & w2 & & w3 & Chr(13) & Chr(10) Text8.Text = Text8.Text & a1 & & a2 & & a3 & Chr(13) & Chr(10) i = 0 For s1_Degree = 0 To 360 Step 30 i = i + 1 s1 = s1_Degree * pi / 180 A = L4 - L1

3、 * Cos(s1) B = -L1 * Sin(s1) C = (A 2 + B 2 + L3 2 - L2 2) / (2 * L3) s3 = 2 * Atn(B + Sqr(A * A + B * B - C * C) / (A - C) s2 = Atn(B + L3 * Sin(s3) / (A + L3 * Cos(s3) s2_Degree = s2 * 180 / pi s3_Degree = s3 * 180 / pi w3 = w1 * (L1 * Sin(s1 - s2) / (L3 * Sin(s3 - s2) w2 = -w1 * (L1 * Sin(s1 - s3

4、) / (L2 * Sin(s2 - s3) a1 = 0 a3 = (L2 * w2 * w2 + L1 * w1 * w1 * Cos(s1 - s2) - L3 * w3 * w3 * Cos(s3 - s2) / (L3 * Sin(s3 - s2) a2 = (L3 * w3 * w3 - L1 * w1 * w1 * Cos(s1 - s3) - L2 * w2 * w2 * Cos(s2 - s3) / (L2 * Sin(s2 - s3) Text6.Text = Text6.Text & Format(s1_Degree, 0.000) & & Format(s2_Degre

5、e, 0.000) & & Format(s3_Degree, 0.000) & Chr(13) & Chr(10) Text7.Text = Text7.Text & Format(w1, 0.000) & & Format(w2, 0.000) & & Format(w3, 0.000) & Chr(13) & Chr(10) Text8.Text = Text8.Text & Format(a1, 0.000) & & Format(a2, 0.000) & & Format(a3, 0.000) & Chr(13) & Chr(10) Next s1_Degree End SubPri

6、vate Sub Command2_Click()Unload Form1End Sub Private Sub Command1_Click() Dim p1, p2, p3 As Double Dim e, rb, rr, h As Double Dim s, s0 As Double Dim x, y, x1, y1, dxdp, dydp As Double pi = 3.1415926 e = Val(Text1.Text) rb = Val(Text2.Text) rr = Val(Text3.Text) h = Val(Text4.Text) p1 = Val(Text5.Text) p2 = Val(Text6.Text) p3 = Val(Text7.Text) Text8.Text = Text8.Text & D & & x & & y & & x1 & & y1 & Chr(13) & Chr(10) s0 = Sqr(rb * rb - e * e) Dim Theat_Deg As Integer For Theat_Deg = 0 To 360 Step 30 If (Theat_Deg = 0 And Theat_Deg p1 And Theat_Deg p2 And Theat_Deg