機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：22 大?。?20.29KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)_第1頁

已閱讀1頁，還剩21頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　目錄　　第一章　　1-1：摘要………………………………………………3　　1-2：前言………………………………………………3　　第二章&l

2、t;/p>　　2-1：設(shè)計(jì)題目…………………………………………4　　2-2：運(yùn)動方案的擬定與比較…………………………4　　2-3：機(jī)械運(yùn)動簡圖……………. ……………………… 6 　　2-4：機(jī)構(gòu)結(jié)構(gòu)分析……. ……. ……. ……. ……. ……7<p

3、>　　2-5: 機(jī)構(gòu)運(yùn)動分析…………………………………. …8　　第三章　　3-1：參考文獻(xiàn)…………………………………………10　　3-2：致謝………………………………………………10　　3-3：附錄</

4、b>　　附錄（一）：程序框圖……………………………11　　附錄（二）：VB程序代碼………………………11　　附錄（三）：曲線圖及程序運(yùn)行截圖……………19　　第一章

5、1-1：摘要　　中文摘要：　　本文通過擬定機(jī)械運(yùn)動方案、按照機(jī)械的幾何、運(yùn)動、動力、軌跡等性能要求進(jìn)行低副運(yùn)動機(jī)構(gòu)、運(yùn)動尺寸的設(shè)計(jì)，所選擇的機(jī)構(gòu)是曲柄滑塊機(jī)構(gòu)，并對起進(jìn)行運(yùn)動分析和動態(tài)靜力分析及利用計(jì)算機(jī)（VB）完成機(jī)械運(yùn)動方案和機(jī)構(gòu)運(yùn)動簡圖的繪制。通過課程設(shè)計(jì)進(jìn)一步鞏固和加深機(jī)械原理課程的理論知

6、識；培養(yǎng)解決實(shí)際工程問題的能力，掌握機(jī)械運(yùn)動、動力分析和設(shè)計(jì)的基本方法，進(jìn)一步提高學(xué)生的工程設(shè)計(jì)能力。　　英文摘要：　　This paper is the crank organization of slide block through decide mechanical sport scheme and, acc

7、ording to the performances such as locus, sport, power and the geometry of machinery, asking the organization that lows associate sport organization and the design of sport size and selects , completes mechanical sport s

8、cheme for rising to carry out sport analysis and development quietly force analysis and using computer ( VB ) with organization kinematic diagram draw. Through course design, streng　　1-2：前言&

9、lt;/b>　　機(jī)械原理是一門以機(jī)器和機(jī)構(gòu)為研究對象的學(xué)科.機(jī)械原理課程設(shè)計(jì)是使學(xué)生較全面的、系統(tǒng)鞏固和加深機(jī)械原理課程的基本原理和方法的重要環(huán)節(jié)，是培養(yǎng)學(xué)生“初步具有確定機(jī)械運(yùn)動方案，分析和設(shè)計(jì)機(jī)械的能力”及“開發(fā)創(chuàng)新能力”的一種手段。我們將從機(jī)構(gòu)的運(yùn)動學(xué)以及機(jī)器的動力學(xué)入手,研究機(jī)構(gòu)運(yùn)動的確定性和可能性,并進(jìn)一步討論的組成原理.,從幾何的觀點(diǎn)來研究機(jī)構(gòu)各點(diǎn)的軌跡、位移、速度和加速度的求

10、法,以及按已知條件來設(shè)計(jì)新的機(jī)構(gòu)的方法.　　第二章　　2-1、設(shè)計(jì)題目　　1、設(shè)計(jì)一物料往復(fù)運(yùn)送機(jī)構(gòu)　　2、設(shè)計(jì)條件和要求<p&

11、gt;　　如圖（1），將物料由A位置推送到B位置　　圖（1）　　已知最大行程H=60mm ，無急回特性要求。　　2-2、運(yùn)動方案的擬定與比較　　1、凸輪機(jī)構(gòu)

12、;　　圖（2）　　原理和特點(diǎn)：　　一般以凸輪為主動件，作連續(xù)的回轉(zhuǎn)運(yùn)動或平移運(yùn)動，其輪廓曲線的形狀取決于從動件的運(yùn)動規(guī)律。只需設(shè)計(jì)適當(dāng)?shù)耐馆嗇喞?，便可使從動件得到任意的預(yù)期運(yùn)動，而且結(jié)構(gòu)簡單、緊湊、設(shè)計(jì)方便，因而在自動機(jī)床、輕工機(jī)械、紡織機(jī)械、印刷機(jī)械、食品機(jī)械、包裝機(jī)械和機(jī)電

13、一體化產(chǎn)品中得到了廣泛運(yùn)用。　　但是它的從動件與凸輪間為點(diǎn)線接觸，易磨損，只適用于傳力不大的場合；再者凸輪加工比較困難；最后凸輪從動件的行程不能過大，否則會使凸輪變得笨重。　　曲柄滑塊機(jī)構(gòu)　　圖（3）<p&g

14、t;　　原理和特點(diǎn)：　　當(dāng)曲柄整周回轉(zhuǎn)時(shí)，滑塊往復(fù)移動。對心曲柄滑塊機(jī)構(gòu)的滑塊最大　　行程s為曲柄長度的兩倍，若增加曲柄長度，可以增大行程。　　偏置的曲柄滑塊機(jī)構(gòu)具有急回特性，當(dāng)曲柄長度或偏心距增大時(shí)，　　急回特性顯著，而連桿長度減小

15、時(shí)，急回特性減緩。 　　其優(yōu)點(diǎn)是制造簡單，能適合于各種場合的受力，潤滑簡單，維修方便。常應(yīng)用于手動沖孔鉗、車門啟閉機(jī)構(gòu)等。 　　正弦機(jī)構(gòu)　　圖（4）　　原理和特點(diǎn)：</

16、b>　　以連桿為主動件，帶動移動導(dǎo)桿相對固定滑塊上下往復(fù)運(yùn)　　動。能實(shí)現(xiàn)較復(fù)雜的運(yùn)動，但是制造比較麻煩，結(jié)構(gòu)往往比較　　大，不適合在小場合運(yùn)用。主要運(yùn)用于大型的抽水機(jī)。　　由此可選出最優(yōu)方案：曲柄滑塊機(jī)構(gòu)。　　2-3、機(jī)械運(yùn)

17、動簡圖　　該裝置是用曲柄滑塊機(jī)構(gòu)做成的,將曲柄的轉(zhuǎn)動轉(zhuǎn)化為往復(fù)移動,在本次研究中采用的是對心曲柄滑塊機(jī)構(gòu),偏心距等于零,導(dǎo)路中心通過曲柄轉(zhuǎn)動中心.最終起到將物料移動的作用. 　　圖（5）　　圖（6）

18、;　　如圖（5）、圖（6）所示，即為機(jī)構(gòu)運(yùn)動時(shí)物料的運(yùn)動過程。　　2-4、機(jī)構(gòu)結(jié)構(gòu)分析　　圖（7）　　圖中桿AB為一曲柄，以AB為原動件，帶動滑塊移動，從而實(shí)現(xiàn)將物料從a位置送到b位置. (附VB動畫演示)　　機(jī)構(gòu)綜

19、合分析：　　此機(jī)構(gòu)是通過電機(jī)帶動曲柄AB做整周轉(zhuǎn)動,帶動BC做如圖所示曲線的擺動,從而使滑塊C沿機(jī)架做往復(fù)的移動.　　活動構(gòu)件N=3,低副PL=4,高副=0.所以此機(jī)構(gòu)的自由度F=3x3-2x4=1.　　此機(jī)構(gòu)取e=0為對心曲柄滑塊機(jī)構(gòu).　　機(jī)構(gòu)各桿尺

20、寸確定: 根據(jù)任務(wù)需求,H=60mm,而H=2L1(AB桿),所以L1=30mm。L2(BC桿)的長度可任意取值,但根據(jù)驅(qū)動力的要求L2=120mm.　　2-5、機(jī)構(gòu)運(yùn)動分析　　1、位置分析:　　如圖（7）所示,該機(jī)構(gòu)的閉矢量方程式為:

21、;　?。?）　　展開后分別取虛部和實(shí)部得:　　即: 　?。?）　?。?）<

22、;b>　　3、速度分析　　將式(1)對時(shí)間求導(dǎo)得　?。?） 　　兩邊乘以后,展開取實(shí)部得　?。?） 　　將式(4)展開后取虛部得:</

23、p>　　即:　?。?）　　4、加速度分析　　將式(4)對時(shí)間求導(dǎo)得　?。?）</p&g

24、t;　　兩邊乘以 ,展開后取實(shí)部得:　?。?0）　　將(g)展開后取虛部得:　?。?1）　　在某種情況下,例如在計(jì)算往復(fù)原動機(jī)慢性力的平衡時(shí),只需知道滑塊近似加速度時(shí),便

25、可按下面方法來計(jì)算求解。　　由式（2）得　　式中為曲柄與連桿長度之比,由　　利用利用牛頓二項(xiàng)式定理展開成級數(shù)得:　　這個(gè)級數(shù)收斂得很快,當(dāng)時(shí),取其前兩項(xiàng)便可準(zhǔn)確到小數(shù)點(diǎn)后三位數(shù)字.因此將　　代

26、入式（3），經(jīng)整理后得距離的近似值為　　在將上式對時(shí)間求導(dǎo),測得速度和加速度的近似值為:　　第三章　　3-1、參考文獻(xiàn)　　1.《機(jī)械原理與設(shè)計(jì)課程設(shè)計(jì)》王三民主編機(jī)械工業(yè)出版社公開出版 20

27、05年。　　2.《機(jī)械原理》（第七版）鄭文緯吳克堅(jiān)主編高等教育出版社公開出版 1997年。　　3.《Visual Basic 6.0入門與提高》王欽編著人民郵電出版社公開出版 2002年。　　4.《Visual Basic程序設(shè)計(jì)》王漢新編著科學(xué)出版社公開出版 2002年。

28、　　3-2、　　致謝　　此次課程設(shè)計(jì)使我對機(jī)械原理的學(xué)習(xí)有了更深的了解，以前很多不明白之　　處，在課程設(shè)計(jì)中得到了解決為以后的學(xué)習(xí)打下了基礎(chǔ)。　　此次課程設(shè)計(jì)徐建生老師提供了

29、很多資料和給予了大力的幫助，在此表示真　　誠的感謝。　　由于水平有限，不足之處肯定在所難免，希望指導(dǎo)老師們繼續(xù)給予幫助和　　見諒。　　3-3：附錄</p

30、>　　附錄（1）：　　程序框圖：　　附錄（2）：　　VB程序代碼：　　子程

31、序：　　Private Sub Label4_Click()　　Form2.Show　　End Sub　　Private Sub Label5_Click()<b&g

32、t;　　End　　End Sub　　主程序：　　Dim t1 As Double　　Const pi = 3.14159　　Priva

33、te Sub Command1_Click()　　Timer2.Enabled = True　　Timer1.Enabled = False　　Timer2.Interval = 100　　End Sub<

34、;p>　　Private Sub Command2_Click()　　Timer1.Enabled = False　　Timer2.Enabled = False　　End Sub　　Private Sub Command3_C

35、lick()　　End　　End Sub　　Private Sub Command4_Click()　　m = 50

36、　　Timer1.Enabled = False　　Timer2.Enabled = False　　h = Text1.Text * m　　namda = Text2.Text　　e = Text3.Text * m　　l1 =

37、h / 2 / m　　l2 = l1 / namda　　a = e / m / (l1 + l2)　　b = e / m / (l2 - l1)　　x0 = 8000: y0 = 8000　　X1 = x0 + l1 * m *

38、Sqr(1 - a ^ 2)　　Y1 = y0 - e + a * l1 * m　　X2 = x0 + Sqr(((l1 + l2) * m) ^ 2 - e ^ 2)　　Y2 = y0　　x3 = x0 - l1 * m * Sqr

39、(1 - b ^ 2)　　y3 = y0 - e - l1 * m * b　　x4 = x0 + Sqr(((l2 - l1) * m) ^ 2 - e ^ 2)　　y4 = y0　　DrawStyle = 2

40、　　DrawWidth = 1　　Line (x0, y0 - e)-(X1, Y1), vbRed　　Line -(X2, Y2), vbRed　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 - 100), vbRed

41、;　　Line -(X2 + 200, Y2 + 100), vbRed　　Line -(X2 - 200, Y2 + 100), vbRed　　Line -(X2 - 200, Y2 - 100), vbRed　　Circle (X1, Y1), 50, vbRed

42、Circle (X2, Y2), 50, vbRed　　Line (x0, y0 - e)-(x3, y3), vbRed　　Line (x0, y0 - e)-(x4, y4), vbRed　　Line (x4 - 200, y4 - 100)-(x4 + 200, y4 - 100), vbRed</p

43、>　　Line -(x4 + 200, y4 + 100), vbRed　　Line -(x4 - 200, y4 + 100), vbRed　　Line -(x4 - 200, y4 - 100), vbRed　　Circle (x3, y3), 50, vbRed

44、;　　Circle (x4, y4), 50, vbRed　　End Sub　　Private Sub Command5_Click()　　Timer1.Interval = 100　　Timer1.Enable

45、d = True　　Timer2.Enabled = False　　End Sub　　Private Sub Command6_Click()　　Text1.Text = 60　　Text2.

46、Text = 0.32　　Text3.Text = 0　　End Sub　　Private Sub Command7_Click()　　Text1.Text = 60　　Text2.Text

47、= 0.32　　Text3.Text = 20　　End Sub　　Private Sub Command8_Click()　　Timer1.Enabled = False　　Timer2.E

48、nabled = False　　Form1.Show　　End Sub　　Private Sub Timer1_Timer()　　m = 50　　h =

49、Text1.Text * m　　namda = Text2.Text　　e = Text3.Text * m　　w1 = 1　　l1 = h / 2 / m　　l2 = l1 / namda&

50、lt;/p>　　Text4.Text = l1　　Text5.Text = l2　　t1 = t1 - pi / 60　　If e = 0 Then　　XC = l1 * (Cos(t1) + 1 / namda - namda / 4 + n

51、amda * Cos(2 * t1))　　VC = (-l1) * w1 * (Sin(t1) + (namda / 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))　　k = 1

52、;　　Text6.Text = XC　　Text7.Text = VC　　Text8.Text = AC　　Text9.Text = k　　x0 = 8000: y0 = 8000　　X1

53、 = x0 + l1 * Cos(t1) * m　　Y1 = y0 - e - l1 * Sin(t1) * m　　X2 = x0 + l1 * Cos(t1) * m + l1 * m * Sqr(1 / namda / namda - Sin(t1) ^ 2)　　Y2 = y0</b&

54、gt;　　Cls　　DrawWidth = 2　　Line (x0, y0)-(X1, Y1)　　Line -(X2, Y2)　　Line (x0, y0)-(14720, y0)</p

55、>　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 - 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)　　Line -(X2 - 200, Y2 - 100)

56、　　Line (x0 - 150, y0 + 150)-(x0, y0)　　Line -(x0 + 150, y0 + 150)　　Line -(x0 - 150, y0 + 150)　　Circle (x0, y0), 50　　Circle (X1

57、, Y1), 50　　Circle (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0), l1 * m　　Picture1.DrawWidth = 2</p

58、>　　Picture2.DrawWidth = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line (0, Picture2.ScaleHeight / 2)-(6000, P

59、icture2.ScaleHeight / 2), vbRed　　Picture2.PSet (-t1 * 150 + 80, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (-t1 * 150 + 80, AC * m + 500 + Picture1.ScaleHeight / 2)&l

60、t;/p>　　For i = 0 To 5　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150)-(x0 - 150 + (i - 1) * 50, y0 + 250)　　Next i</p&g

61、t;　　For j = 0 To 20　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next j<

62、;p>　　End If　　If e > 0 Then　　XC = l1 * (Cos(t1) + 1 / namda - namda / 4 + namda * Cos(2 * t1))　　VC = (-l1) * w1 * (Sin(t1) + (namda /

63、 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))　　Text6.Text = XC　　Text7.Text = VC　　Text8.Text = AC

64、　　l3 = Sqr((l2 - l1) ^ 2 - (e / m) ^ 2)　　l4 = Sqr((l2 + l1) ^ 2 - (e / m) ^ 2)　　t2 = Cos(((l1 + l2) ^ 2 + (l2 - l1) ^ 2 - (l4 - l3) ^ 2) / 2 / (l1 + l2) / (l2 - l1))<

65、;/p>　　k = (pi + t2) / (pi - t2)　　Text9.Text = k　　x0 = 8000: y0 = 8000　　X1 = x0 + l1 * Cos(t1) * m　　Y1 = y0 - e - l1 * Sin(

66、t1) * m　　X2 = x0 + l1 * Cos(t1) * m + Sqr((l2 * m) ^ 2 - (l1 * m * Sin(t1) + e) ^ 2)　　Y2 = y0　　Cls

67、　　DrawWidth = 2　　Line (x0, y0 - e)-(X1, Y1)　　Line -(X2, Y2)　　Line (x0 + 2000, y0)-(14720, y0)　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 -

68、 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)　　Line -(X2 - 200, Y2 - 100)　　Line (x0 - 150, y0 + 150 - e)-(x0, y0 - e)<

69、;/p>　　Line -(x0 + 150, y0 + 150 - e)　　Line -(x0 - 150, y0 + 150 - e)　　Circle (x0, y0 - e), 50　　Circle (X1, Y1), 50　　Circle

70、 (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0 - e), l1 * m　　Picture1.DrawWidth = 2　　Picture2.DrawWidt

71、h = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line (0, Picture2.ScaleHeight / 2)-(6000, Picture2.ScaleHeight / 2), vbRed<

72、;/p>　　Picture2.PSet (-t1 * 150, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (-t1 * 150, AC * m + 500 + Picture1.ScaleHeight / 2)　　For i = 0 To 5

73、;　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150 - e)-(x0 - 150 + (i - 1) * 50, y0 + 250 - e)　　Next i　　For j = 0 To 20</p

74、>　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next j　　End If<

75、;/p>　　End Sub　　Private Sub Timer2_Timer()　　m = 50　　h = Text1.Text * m　　namda = Text2

76、.Text　　e = Text3.Text * m　　w1 = 1　　l1 = h / 2 / m　　l2 = l1 / namda　　Text4.Text = l1&

77、lt;p>　　Text5.Text = l2　　l3 = Sqr((l2 - l1) ^ 2 - (e / m) ^ 2)　　l4 = Sqr((l2 + l1) ^ 2 - (e / m) ^ 2)　　t2 = Cos(((l1 + l2) ^ 2 + (l2 - l1) ^ 2 - (l4 - l3)

78、^ 2) / 2 / (l1 + l2) / (l2 - l1))　　k = (pi + t2) / (pi - t2)　　Text9.Text = k　　t1 = t1 + pi / 60　　If e = 0 Then　　XC

79、= l1 * (Cos(t1) + 1 / namda - namda / 4 + namda * Cos(2 * t1))　　VC = (-l1) * w1 * (Sin(t1) + (namda / 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))<

80、;/p>　　k = 1　　Text6.Text = XC　　Text7.Text = VC　　Text8.Text = AC　　Text9.Text = k　　x0

81、 = 8000: y0 = 8000　　X1 = x0 + l1 * Cos(t1) * m　　Y1 = y0 - l1 * Sin(t1) * m　　X2 = x0 + l1 * m * Cos(t1) + l1 * m * Sqr(1 / namda / namda - Sin(t1) ^ 2)</p&

82、gt;　　Y2 = y0　　Cls　　DrawWidth = 2　　Line (x0, y0)-(X1, Y1)　　Line -(X2, Y2)<

83、;p>　　Line (x0, y0)-(14720, y0)　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 - 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)

84、;　　Line -(X2 - 200, Y2 - 100)　　Line (x0 - 150, y0 + 150)-(x0, y0)　　Line -(x0 + 150, y0 + 150)　　Line -(x0 - 150, y0 + 150)　　Circle (x0, y

85、0), 50　　Circle (X1, Y1), 50　　Circle (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0), l1 * m

86、　　Picture1.DrawWidth = 2　　Picture2.DrawWidth = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line

87、 (0, Picture2.ScaleHeight / 2)-(6000, Picture2.ScaleHeight / 2), vbRed　　Picture2.PSet (t1 * 150, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (t1 * 150, AC * m + 500 +

88、Picture1.ScaleHeight / 2)　　For i = 0 To 5　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150)-(x0 - 150 + (i - 1) * 50, y0 + 250)

89、;　　Next i　　For j = 0 To 20　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next

90、 j　　End If　　If e > 0 Then　　XC = l1 * (Cos(t1) + 1 / namda - namda / 4 + namda * Cos(2 * t1))　　VC = (-l1)

91、 * w1 * (Sin(t1) + (namda / 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))　　Text6.Text = XC　　Text7.Text = VC

92、　Text8.Text = AC　　l3 = Sqr((l2 - l1) ^ 2 - (e / m) ^ 2)　　l4 = Sqr((l2 + l1) ^ 2 - (e / m) ^ 2)　　t2 = Cos(((l1 + l2) ^ 2 + (l2 - l1) ^ 2 - (l4 - l3) ^ 2) / 2

93、/ (l1 + l2) / (l2 - l1))　　k = (pi + t2) / (pi - t2)　　Text9.Text = k　　x0 = 8000: y0 = 8000　　X1 = x0 + l1 * Cos(t1) * m<p&g

94、t;　　Y1 = y0 - e - l1 * m * Sin(t1)　　X2 = x0 + l1 * m * Cos(t1) + Sqr((l2 * m) ^ 2 - (l1 * m * Sin(t1) + e) ^ 2)　　Y2 = y0　　Cls<

95、/b>　　DrawWidth = 2　　Line (x0, y0 - e)-(X1, Y1)　　Line -(X2, Y2)　　Line (x0 + 2000, y0)-(14720, y0)　　Line (X2 - 200

96、, Y2 - 100)-(X2 + 200, Y2 - 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)　　Line -(X2 - 200, Y2 - 100)　　Line (x0 - 150, y0

97、 + 150 - e)-(x0, y0 - e)　　Line -(x0 + 150, y0 + 150 - e)　　Line -(x0 - 150, y0 + 150 - e)　　Circle (x0, y0 - e), 50　　Circle (X1, Y1), 50&l

98、t;/p>　　Circle (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0 - e), l1 * m　　For i = 0 To 5

99、　　Picture1.DrawWidth = 2　　Picture2.DrawWidth = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line (0, Pict

100、ure2.ScaleHeight / 2)-(6000, Picture2.ScaleHeight / 2), vbRed　　Picture2.PSet (t1 * 150, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (t1 * 150, AC * m + 500 + Picture1.

101、ScaleHeight / 2)　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150 - e)-(x0 - 150 + (i - 1) * 50, y0 + 250 - e)　　Next i<p&g

102、t;　　For j = 0 To 20　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next j<b

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)

文檔簡介

溫馨提示

最新文檔

評論

機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載