- •Решение технологических задач программными методами
- •1. Алгоритм выполнения задания №1
- •Модель диалогового окна
- •Процедура, осуществляющая расчёт и отображение результатов расчёта в рабочем листе и окне диалога в элементе “список”
- •Элемент программного кода для вывода графика на экран
- •Модель отображения результатов работы процедур в листе объектной модели ms excel
- •Процедура graf производит __________________________________________
- •Графическая зависимость исследуемого параметра от варьируемого
- •Задание №1.1
- •Задание №1.2
- •Задание №1.3
- •Задание №1.4
- •Задание №1.5
- •Задание №1.6
- •Задание №1.7
- •Задание №1.8
- •Задание №1.9
- •Задание №1.10
- •Задание № 1.11
- •Задание № 1.12
- •Задание № 1.13
- •Задание № 1.14
- •Задание № 1.15
- •Задание № 1.16
- •Задание № 1.17
- •Задание № 1.18
- •Задание №с1.19
- •Задание №с1.20
Федеральное государственное автономное образовательное учреждение высшего профессионального образования “Уральский федеральный университет имени первого Президента России Б.Н. Ельцина ”
Решение технологических задач программными методами
Учебное электронное текстовое издание
Подготовлено кафедрой «Технология машиностроения»
Методическое указание для контрольной работы по дисциплине «Технологическая информатика» для студентов заочной формы обучения специальности 151001-Технология машиностроения
Описана методика выполнения контрольной работы методами объектно-ориентированного программирования. Разработаны алгоритмы проектирования управляющих процедур для двух типов технологических задач. Разработан бланк методики оформления контрольной работы.
Екатеринбург
2012
1. Алгоритм выполнения задания №1
Необходимо получить задание из прил.1. Далее необходимо перейти к моделированию расчёта скорости резания. Для этого нужно создать модель диалогового окна “Диалог1” и написать три программы для решения этой задачи. На заключительном этапе необходимо построить график влияния изменяемого параметра на скорость резания при помощи программного кода.
Для создания модели диалогового окна необходимо сформировать заготовку с окном диалога. Для выполнения этой процедуры нужно щёлкнуть правой клавишей мыши по любому ярлыку листа рабочей книги Ms Excel. В появившемся меню требуется выбрать команду “Добавить…” и далее в активизировавшемся диалоговом окне запустить пиктограмму “Окно диалога”.
В появившейся заготовке модели будущего окна нужно удалить имеющиеся две стандартные кнопки и начать моделировать его состав, перетаскивая мышью последовательно экранные формы из инструментальной панели “Формы” в зону создаваемого окна.
Модель диалогового окна
После выполнения описанных действий необходимо перейти к созданию программного кода, который будет управлять работой модели этого окна. Управляющая программа создаётся в редакторе приложения VisualBasic. Запуск редактора происходит по пути:
Сервис->Макрос-> РедакторVisual Basic
Далее необходимо открыть модуль с текстовым редактором по маршруту:
Insert-> Module
После этих действий система становится готовой для программирования.
Процедура запуска диалогового окна с последующей очисткой предыдущих результатов расчёта
Sub star
() Sheets("Лист1").Select DialogSheets
("Диалог1").Show DialogSheets(“Диалог1”).ListBoxes(1).RemoveAllItems End Sub
Процедура, осуществляющая расчёт и отображение результатов расчёта в рабочем листе и окне диалога в элементе “список”
Sub pusk() With
DialogSheets("Диалог1") cv =
Val(.EditBoxes(1).Text) m =
Val(.EditBoxes(2).Text) x =
Val(.EditBoxes(3).Text) y =
Val(.EditBoxes(4).Text) kmv =
Val(.EditBoxes(5).Text) kpv =
Val(.EditBoxes(5).Text) kiv =
Val(.EditBoxes(7).Text) stoi =
Val(.EditBoxes(8).Text) glub =
Val(.EditBoxes(9).Text) s1 =
Val(.EditBoxes(10).Text) s2 =
Val(.EditBoxes(11).Text) ds =
Val(.EditBoxes(12).Text) i = 1 j = 3 k = 4 Sheets("Лист1").Cells(i,
k) = ("Результат") Range("c2:d50").Select Selection.ClearContents Range("d1").Select .ListBoxes(1).RemoveAllItems For si =
s1 To s2 Step ds vi =
(cv * kmv * kpv * kiv) / (stoi ^ m * glub ^ x * si ^ y) .ListBoxes(1).AddItem
vi i = i +
1 Sheets("Лист1").Cells(i,
j) = si Sheets("Лист1").Cells(i,
k) = vi Next si End With End Sub
Для запуска процедуры “pusk” необходимо присвоить её имя кнопке “Пуск”, установленной в окне диалога. Для этого необходимо в листе, где расположена заготовка диалога, щёлкнуть по этой кнопке правой клавишей и открыть тем самым контекстное меню, где далее выбрать команду “Присвоить имя макросу”. Из появившегося списка активизировать имя процедуры “pusk”.
Для очистки текстовых полей от предыдущих записей необходимо создать следующую процедуру под именем “del” в том же модуле:
Sub del ()
Sheets("Лист1").Select
For i = 1 To 12
DialogSheets("Диалог1").EditBoxes(i).Text = ""
Nexti
End Sub
Для запуска этой процедуры необходимо создать вторую кнопку под названием “Очистка” в окне диалога и присвоить ей имя данной процедуры описанным выше способом.
С целью вывода на экран графической зависимости исследуемого пара-метра от варьируемого, нужно создать отдельный модуль и добавить в него программный код, моделирующий режим создания графика на экране по полученным ранее данным.