Нарезание шлицев на шлице и зубофрезерных станках методом обкатки червячной фрезой. Формализация задачи, страница 3

2  Формалізація задачі.

Формализацию (постановку) задачи выполняем по методу HIPO-диаграм,

В соответствии с которой документация оформляется в виде альбома схем, отображающих структуру (иерархию) задачи, наборы входных и выходных данных и методы обработки данных. Перевод входных данных в переменные приведен на схеме 1:

Схема 1.

Название входного параметра	Системная переменная
1.Материал заготовки: ·  Углеродистая или легированная нормализованная сталь ·  Углеродистая или  легированная улучшенная сталь	1.mat ·  mat=1 ·  mat=2
2.  Тип обработки: ·  Однократная под шлифование ·  Однократная окончательная ·  Окончательная после предварительной	2.  obr ·  obr=1 ·  obr =2 ·  obr=3
3. Диаметр ·  минимальный ·  максимальный	3.  d ·  dmin ·  dmax
4.  Высота шлицев ·  минимальная ·  максимальная	4.  h ·  hmin ·  hmax
5.  Допуск на толщину ·  минимальный ·  максимальный	5.  с ·   сmin ·  сmax

В схеме 2 приведен перевод выходного параметра в переменную

Схема 2

Название выходного параметра	Системная переменная
1.  Подача	1.s
2.  Скорость резания ·  Табличная ·  Расчетная	2. v ·  vt ·  v

3.  Опис програми (Інструкція роботи з програмою)

Программа предназначена для поиска нужного значения подачи и скорости резания.Для работы необходимо Загрузить файл Курсовой.xls, затем кликнуть мышкой на кнопке «Выбор S0 и V». Откроется окно программы. В него следует ввести начальные (исходные) данные и нажать клавишу «Определение S, Vтабл и V». Результаты заносятся в  соответствующие поля. Получив нужное значение жмем по клавише «Выход».

Література

1.  Общетехнический справочник/Под ред. Е. А. Скороходова – 2-е изд., перераб. И доп. – М.: Машиностроение, 1982, - 415с, ил.

2.  Методические указания по выполнению лабораторных работ в Exсel.

3.  Джон Уокенбах. Профессиональное программирование на VBA и Excel 2002/М.: «Диалектика», 2003 г, 781с, ил.

Додаток 1 Алгоритм роботи програми

                                                          c >= cmint

	c < cmaxt

Додаток 2. Текст програми

Программа поиска подачи

Процедура выбора подачи по исходным данным

Sub Find(matf, obrf, df, hf, cf)

Dim bases As Variant

Dim matt, obrt, dmint, dmaxt, hmint, hmaxt, cmint, cmaxt As Double

Dim st, vt As Double

Dim n, i As Integer

Set bases = Worksheets("Ëèñò1").Range("A2:J49")

n = bases.Rows.Count

st = 0

vt = 0

For i = 1 To n

matt = bases.Cells(i, 1)

obrt = bases.Cells(i, 2)

dmint = bases.Cells(i, 3)

dmaxt = bases.Cells(i, 4)

hmint = bases.Cells(i, 5)

hmaxt = bases.Cells(i, 6)

cmint = bases.Cells(i, 7)

cmaxt = bases.Cells(i, 8)

If (matt = matf) And (obrt = obrf) And ((df >= dmint) And (df < dmaxt)) And ((hf >= hmint) And (hf < hmaxt)) And ((cf >= cmint) And (cf < cmaxt)) Then

st = bases.Cells(i, 9)

vt = bases.Cells(i, 10)

Exit For

End If

Next i

UserForm1.TextBox4.Value = st

UserForm1.TextBox5.Value = vt

End Sub

Программа Userform1:

Dim mat, obr, d, h, c, tm, vt, v As Double

Dim swt As Boolean

Private Sub CheckBox1_Click()

swt = CheckBox1.Value

Select Case swt

Case True

TextBox7.Value = "Àêòèâèðîâàíà ïðîâåðêà ââîäà"

Case False

TextBox7.Value = "Äåàêòèâèðîâàíà ïðîâåðêà ââîäà"

End Select

End Sub

Private Sub CommandButton1_Click()

If swt = True Then

If IsNumeric(mat) Then

TextBox7.Value = TextBox7.Value & "Êîä ìàòåðèàëà= " & mat

Else