Заключение

При выполнении курсового проекта по “Деталям машин” были закреплены знания, полученные за прошедший период обучения в таких дисциплинах как: теоретическая механика, сопротивление материалов, материаловедение.

Целью данного проекта является проектирование привода пластинчатого конвейера, который состоит как из простых стандартных деталей, так и из деталей, форма и размеры которых определяются на основе конструкторских, технологических, экономических и других нормативов.

В ходе решения поставленной передо мной задачей, была освоена методика выбора элементов привода, получены навыки проектирования, позволяющие обеспечить необходимый технический уровень, надежность и долгий срок службы механизма.

Опыт и навыки, полученные в ходе выполнения курсового проекта, будут востребованы при выполнении, как курсовых проектов, так и дипломного проекта.

Список использованных источников

1 Иванов М.Н. Детали машин. Москва: Высш. шк., 1991. - 383 с.

2 Детали машин проектирование: Учеб. пособ / Л.В. Курмаз,

А.Т. Скобейда – Мн.: УП “Технопринт”, 2001-290с.

Программный код для расчета зубчатых передач

Public Sub Калясо()

повтор:

V = InputBox("Введите модуль m")

If IsNumeric(V) = False Or V <= 0 Then

W = MsgBox("Не правильно введён модуль, повторить ввод?", _

vbYesNo + vbInformation + vbDefoultButton2, "Проверка")

Select Case W

Case vbYes

GoTo повтор

Case vbNo

Exit Sub

End Select

Else

m = CDbl(V)

Worksheets("Лист2").Cells(4, 2) = m

End If

повтор2:

П = InputBox("Введите число зубьев шестерни z1")

If IsNumeric(V) = False Or V <= 0 Then

Б = MsgBox("Не правильно введено число зубьев шестерни z1, повторить ввод?", _

vbYesNo + vbInformation + vbDefoultButton2, "Проверка")

Select Case Б

Case vbYes

GoTo повтор2

Case vbNo

Exit Sub

End Select

Else

z1 = CDbl(П)

Worksheets("Лист2").Cells(2, 2) = z1

End If

повтор3:

Я = InputBox("Введите число зубьев колеса z2")

If IsNumeric(V) = False Or V <= 0 Then

В = MsgBox("Не правильно введено число зубьев колеса z2, повторить ввод?", vbYesNo + vbInformation + vbDefoultButton2, "Проверка")

Select Case В

Case vbYes

GoTo повтор3

Case vbNo

Exit Sub

End Select

Else

z2 = CDbl(Я)

Worksheets("Лист2").Cells(3, 2) = z2

End If

ha = 1: c = 0.25: N = (20 * 3.14159) / 180

Worksheets(2).Cells(5, 2) = ha

Worksheets(2).Cells(6, 2) = c

Worksheets(2).Cells(7, 2) = "20°"

A = 0.5 * m * (z1 + z2)

h = 2.25 * m

x1 = 0: x2 = 0

ha1 = m * (ha + x1): ha2 = m * (ha + x2)

hf1 = m * (ha + c - x1): hf2 = m * (ha + c - x2)

d1 = m * z1: d2 = m * z2

db1 = d1 * Cos(N): db2 = d2 * Cos(N)

da1 = d1 + 2 * ha1: da2 = d2 + 2 * ha2

df1 = d1 - 2 * hf1: df2 = d2 - 2 * hf2

S1 = 0.5 * 3.14159 * m + 2 * x1 * m * Tan(N): S2 = 0.5 * 3.14159 * m + 2 * x2 * m * Tan(N)

P = 3.14149 * m

Pb = P * Cos(N)

Rf = 0.38 * m

Worksheets(2).Cells(10, 2) = A

Worksheets(2).Cells(11, 2) = h

Worksheets(2).Cells(12, 2) = x1

Worksheets(2).Cells(12, 3) = x2

Worksheets(2).Cells(13, 2) = ha1

Worksheets(2).Cells(13, 3) = ha2

Worksheets(2).Cells(14, 2) = hf1

Worksheets(2).Cells(14, 3) = hf2

Worksheets(2).Cells(15, 2) = d1

Worksheets(2).Cells(15, 3) = d2

Worksheets(2).Cells(16, 2) = db1

Worksheets(2).Cells(16, 3) = db2

Worksheets(2).Cells(17, 2) = da1

Worksheets(2).Cells(17, 3) = da2

Worksheets(2).Cells(18, 2) = df1

Worksheets(2).Cells(18, 3) = df2

Worksheets(2).Cells(19, 2) = S1

Worksheets(2).Cells(19, 3) = S2

Worksheets(2).Cells(20, 2) = P

Worksheets(2).Cells(21, 2) = Pb

Worksheets(2).Cells(22, 2) = Rf

End Sub