- •Решение технологических задач программными методами
- •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
Элемент программного кода для вывода графика на экран
Sub graf
() Charts.Add ActiveChart.ChartType
= xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData
Source:=Sheets("Лист1").Range("A1") ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues
= "=Лист1!R2C3:R50C3"
ActiveChart.SeriesCollection(1).Values
= "=Лист1!R2C4:R50C4" ActiveChart.Location
Where:=xlLocationAsObject, Name:="Лист1" With
ActiveChart .HasTitle
= True .ChartTitle.Characters.Text
= "Режимы резания" .Axes(xlCategory,
xlPrimary).HasTitle = True .Axes(xlCategory,
xlPrimary).AxisTitle.Characters.Text = "Подача" .Axes(xlValue,
xlPrimary).HasTitle = True .Axes(xlValue,
xlPrimary).AxisTitle.Characters.Text = "Скорость" End
With End Sub
Модель отображения результатов работы процедур в листе объектной модели ms excel
Кнопка “Расчёт” служит для отображения на экране окна диалога. Она запускает процедуру “star”.
Кнопка “График” служит для отображения на экране графической зависимости. Она запускает процедуру “graf”.
Обе эти кнопки должны располагаться прямо на первом листе рабочей книги.
Кнопкам необходимо последовательно присвоить имена процедур “star” и “graf” при помощи команды контекстного меню “Присвоить имя макросу”, открываемой щелчком по соответствующей кнопке правой клавишей мыши.
Федеральное государственное автономное образовательное учреждение высшего профессионального образования “Уральский федеральный университет имени первого Президента России Б.Н. Ельцина ”
Кафедра технологии машиностроения
Бланк выполнения контрольной работы
по предмету “Технологическая информатика”
Выполнил
Группа
Руководитель
|
/ /
/ /
М -
/ / |
Екатеринбург
СОДЕРЖАНИЕ
1.Исследование влияния технологических параметров на скорость резания
.Исследование влияния технологических параметров на усилие резания
3. Выводы по работе
|
|
Тема: знакомство с методами объектного программирования для решения технологических задач
Метод: применение языка программирования VBA с использованием встроенных стандартных диалоговых окон
ЗАДАНИЕ №1
Вариант № ___
Исследование влияния технологических параметров на скорость резания
Исходные данные: V =
где постоянные параметры
варьируемый параметр и шаг
Алгоритм решения задачи
1. Расшифровка элементов управления в заготовке диалогового окна.
Например, 1- Label(метка), 2- EditBox(текстовое поле) и т.д
2. Последовательность запуска текстового редактора через механизм модулей (указать маршрут и количество созданных модулей в задаче)
3. Краткое описание процедур задания
Процедура start производит __________________________________________
__________________________________________________________________
Таблица 1
Содержание программного кода |
Пояснения к программе |
Sub star () With DialogSheets (“___________”) Sheets(“_________”).Select .Show .ListBoxes(__).RemoveAllItems End With End Sub |
|
Процедура pusk производит __________________________________________
__________________________________________________________________
Таблица 2
Содержание программного кода |
Пояснения к программе |
Sub pusk () With DialogSheets(“_________”) Сv = Val(.EditBoxes(__).Text s1 = Val(.EditBoxes(__).Text) s2 = Val(.EditBoxes(__).Text) ds = Val(.EditBoxes(__).Text) i=____ j=____ k=____ Sheets(“_____”).Cells(i, k) = (“Результат”) Range(“c2:d50”).Select Selection.ClearContents .ListBoxes(1).RemoveAllItems For si = s1 Tj s2 Step ds Vi =______________________________ .ListBoxes(1).AddItem Vi i=i+1 Sheets(“Лист1”).Cells(i, j) = _____ Sheets(“Лист1”).Cells(i, k) = _____ Next si End With End Sub |
|
Процедура del производит __________________________________________
Таблица 3
Содержание программного кода |
Пояснения к программе |
Sub del () With DialogSheets(“__________”) Sheets(“_________”).Select For i = ___ To ____ .EditBoxes(i).Text = “” Next i End Sub |
|