Календарний план

№ пп	Найменування етапів курсового проекту	Термін виконання етапів проекту	Примітки
1	Вступ	20.02.20_р.
2		05.03.20_р.
3		20.103.20_р.
4		30.03.20_р.
5		01.04.20_р.
6		15.04.20_р.
7	Висновки	20.04.20_р.
8	Перелік літератури	10.05.20_р.

Студент ____________________

(підпис)

Керівник ___________________ Журавльов Ю. В.

(підпис)

« _____ » ___________ 20 __ р.

Додаток 3 Приклад реферату

Реферат

Пояснювальна записка 78 с.; 19 рис.; 7 табл.; 15 джерел; 4 додатки.

Об’єктом досліджень є технологічний процес виробництва бетонних блоків методом вібропресування. Розроблена функціональна схема автоматизації вібропресу, яка виконана з використання перетворювача частоти Lenze 8200 Vector. Розглянуті питання монтажу перетворювача частоти, датчиків та виконавчих механізмів. Складені та досліджені математичні та електромеханічні моделі розімкнутої та замкненої систем автоматичного керування вібропресом. Виконано розрахунок основного контуру регулювання та необхідних засобів автоматизації на ПЕОМ.

Проведено економічне обґрунтування доцільності впровадження розробки.

ВІБРОПРЕСУВАННЯ, БЕТОННИЙ БЛОК, ПЕРЕТВОРЮВАЧ ЧАСТОТИ, УПРАВЛІННЯ ТЕХНОЛОГІЧНИМ ПРОЦЕСОМ, МАТЕМАТИЧНА МОДЕЛЬ

Додаток 4 Приклад оформлення ілюстрації

Рис. 2.1 – Схема автоматизації технологічного процесу виробництва дрібноштучних бетоних блоків

Додаток 5 Приклад моделювання та настроювання дискретного ПІД-регулятора

Mathcad 2001 Professional (MathSoft, Inc.)

(Исходный код программы)

LabView 6.0 SP1 (National Instruments)

(Диаграмма исходного кода программы)

LabView 6.0 SP1 (National Instruments)

(Окно программы)

Visual Basic 6.0 SP5 (Microsoft, Corp.)

(Окно программы в исходном виде: ввод данных)

(Окно программы в результате проведения расчета)

Visual Basic 6.0 SP5 (Microsoft, Corp.)

(Листинг программы)

Private Sub cmdApply_Click()

'Процедура обработки нажатия кнопки "Принять" ("Назад")

If cmdApply.Caption = "Принять" Then

'Проверка ввода в поля только числовых значений

If IsNumeric(txtK.Text) = False Or IsNumeric(txtT.Text) = False _

Or IsNumeric(txtC.Text) = False Or IsNumeric(txtDx.Text) = False Then

'В случае ввода не числовых символов, сообщение об ошибке

MsgBox "Поле ввода должно содержать численное значение", _

vbOKOnly + vbCritical, "Ошибка"

Exit Sub 'Выход из процедуры

End If

'Расчет коэффициентов по методу Такахаши

q0# = 3 * (1 + 0.22 * txtT.Text / txtC.Text) / txtK.Text

q1# = -6 * (1 + 0.1 * txtT.Text / txtC.Text) / txtK.Text

q2# = 3 / txtK.Text

'Присвоение переменной значения погрешности

deltaX# = txtDx.Text

'Объявление массива переменных

Dim x(10) As Double

'При i=0 значение функции равно q0

x(0) = q0

'Округление первого значения до 3-го знака после запятой и занесение его в список

Result.AddItem Round(q0, 3)

'Отображение списка расчитанных значений и скрытие фрейма с исходными данными

Result.Visible = True

Frame1.Visible = False

'Увеличение толщины рисования линий на графике

Graph.DrawWidth = 2

'При i>0 значения функций расчитываются по соответствующим формулам в цикле

For i = 1 To 10

'Выбор формулы для расчета в зависимости от указанного типа регулятора

Select Case cmbType.Text

Case "ПИД-регулятор"

x(i) = (i + 1) * q0 + i * deltaX * q1 + (i - 1) * deltaX * q2

Case "ПИ-регулятор"

x(i) = (i + 1) * q0 + i * deltaX * q1

Case "П-регулятор"

x(i) = q0

End Select

'Задание шага по оси абсцисс

XStep% = i * 500

'Построение графика функции путем последовательного рисования линий

'крайними точками которых являются промежуточные значения функции

Graph.Line (XStep - 500, YCord(x(i - 1)))-(XStep, YCord(x(i)))

'Занесенние в список очередного расчитанного значения функции

'с округлением до 3-го знака после запятой

Result.AddItem Round(x(i), 3)

Next i

Visual Basic 6.0 SP5 (Microsoft, Corp.)