機械原理中如何用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畫凸輪機構的模擬動畫。注意，是模擬運動的動畫

你給凸輪加個旋轉馬達就可以做動畫了！前提是你的配合關系要弄好，再一個就是凸輪面要完整，可以用套合曲線完成·！！