Основные инструменты векторных редакторов

· Кривые Безье— позволяют создаватьпрямые,ломаныеи гладкиекривые, проходящие через узловые точки, с определённымикасательнымив этих точках;

· Карандаш— позволяет создавать линии «от руки». При создании таких линий возникает большое количество узловых точек, от которых в дальнейшем можно избавиться с помощью «упрощения кривой».

· Заливка — позволяет закрашивать ограниченные области определённым цветом или градиентом;

· Текст создаётся с помощью соответствующего инструмента, а потом часто преобразуется в кривые, чтобы обеспечить независимость изображения от шрифтов, имеющихся (или отсутствующих) на компьютере, используемом для просмотра;

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

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

Иллюстративная графика представляет собой прикладную ветвь машинной графики, сравнительно недавно выделившийся в автономное направление. К области иллюстративной графики относится художественная продукция. Объекты иллюстративной графики отличаются от объектов других групп прикладных областей своей первичностью, т.е. они не могут быть настроены автоматически без участия художника или дизайнера.

Под понятием, объектно-ориентированным следует понимать в том смысле, что все операции пользователь производит не с изображением и не с его пикселами, а с объектами (элементами изображения). Начиная со стандартизированных (круг, прямоугольник и т.д.), пользователь может строить составные объекты и манипулировать ими, как единым целом.

Вторая особенность пакета – состоит в том, что каждому стандартному классу объектов ставится в соответствии уникальная совокупность управляемых параметров и атрибутов класса.

Третья особенность пакета – состоит в том, что для каждого стандартного класса объектов определяется перечень стандартных операций.

Объектная ориентация CorelDraw дает пользователю почти неограниченную гибкость в работе. Можно выделять отдельные объекты изображения и модифицировать их на любом этапе работы.

Заключение

Я проходил преддипломную практику с 20 апреля 2015г. по16 мая 2015г. в транспортной компании ООО «Вояж». В период прохождения мною, преддипломной практики, я вел дневник, в котором ежедневно вносил записи о проделанной мною работе, свои наблюдения и результаты изучения технологического процесса, выводы и предложения.

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

Список литературы

1. Основы программирования на VisualBasic и VBA в Excel 2007 (2003 г.)

2. Профессиональное программирование на VBA в Excel 2003 (1997 г.)

3. VBA 6.0 (2005 г.)

4. Программирование на языке VBA. Самоучитель (2000 г.)

ПриложениЯ

Приложение А

Private Sub Command1_Click()

Form1.Hide

Form2.Show

End Sub

Private Sub Command2_Click()

Form3.Show

End Sub

Private Sub Command3_Click()

End

End Sub

Dim a, b, c, d, e, f, j, x, y, K As Integer

Private Sub Command1_Click()

Frame1(0).Visible = True

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Command10_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = True

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Command11_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = True

Frame1(9).Visible = False

End Sub

Private Sub Command12_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = True

End Sub

Private Sub Command13_Click()

Text1.Text = Clear

Frame1(0).Visible = True

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Option1(0) = False

Option2(0) = False

Option3(0) = False

Option4(0) = False

Option5(0) = False

Option1(1) = False

Option2(1) = False

Option3(1) = False

Option4(1) = False

Option5(1) = False

Option1(2) = False

Option2(2) = False

Option3(2) = False

Option4(2) = False

Option5(2) = False

Option1(3) = False

Option2(3) = False

Option3(3) = False

Option4(3) = False

Option5(3) = False

Option1(4) = False

Option2(4) = False

Option3(4) = False

Option4(4) = False

Option5(4) = False

Option1(5) = False

Option2(5) = False

Option3(5) = False

Option4(5) = False

Option5(5) = False

Option1(6) = False

Option2(6) = False

Option3(6) = False

Option4(6) = False

Option5(6) = False

Option1(7) = False

Option2(7) = False

Option3(7) = False

Option4(7) = False

Option5(7) = False

Option1(8) = False

Option2(8) = False

Option3(8) = False

Option4(8) = False

Option5(8) = False

Option1(9) = False

Option2(9) = False

Option3(9) = False

Option4(9) = False

Option5(9) = False

End Sub

Private Sub Command14_Click()

Form2.Hide

Form1.Show

End Sub

Private Sub Command2_Click()

Frame1(0).Visible = False

Frame1(1).Visible = True

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Command3_Click()

If Option1(0) = True Then

a = 5

End If

If Option2(0) = True Then

a = 4

End If

If Option3(0) = True Then

a = 3

End If

If Option4(0) = True Then

a = 2

End If

If Option5(0) = True Then

a = 1

End If

If Option1(1) = True Then

b = 5

End If

If Option2(1) = True Then

b = 4

End If

If Option3(1) = True Then

b = 3

End If

If Option4(1) = True Then

b = 2

End If

If Option5(1) = True Then

b = 1

End If

If Option1(2) = True Then

c = 5

End If

If Option2(2) = True Then

c = 4

End If

If Option3(2) = True Then

c = 3

End If

If Option4(2) = True Then

c = 2

End If

If Option5(2) = True Then

c = 1

End If

If Option1(3) = True Then

d = 5

End If

If Option2(3) = True Then

d = 4

End If

If Option3(3) = True Then

d = 3

End If

If Option4(3) = True Then

d = 2

End If

If Option5(3) = True Then

d = 1

End If

If Option1(4) = True Then

e = 5

End If

If Option2(4) = True Then

e = 4

End If

If Option3(4) = True Then

e = 3

End If

If Option4(4) = True Then

e = 2

End If

If Option5(4) = True Then

e = 1

End If

If Option1(5) = True Then

f = 5

End If

If Option2(5) = True Then

f = 4

End If

If Option3(5) = True Then

f = 3

End If

If Option4(5) = True Then

f = 2

End If

If Option5(5) = True Then

f = 1

End If

If Option1(6) = True Then

j = 5

End If

If Option2(6) = True Then

j = 4

End If

If Option3(6) = True Then

j = 3

End If

If Option4(6) = True Then

j = 2

End If

If Option5(6) = True Then

j = 1

End If

If Option1(7) = True Then

x = 5

End If

If Option2(7) = True Then

x = 4

End If

If Option3(7) = True Then

x = 3

End If

If Option4(7) = True Then

x = 2

End If

If Option5(7) = True Then

x = 1

End If

If Option1(8) = True Then

y = 5

End If

If Option2(8) = True Then

y = 4

End If

If Option3(8) = True Then

y = 3

End If

If Option4(8) = True Then

y = 2

End If

If Option5(8) = True Then

y = 1

End If

If Option1(9) = True Then

K = 5

End If

If Option2(9) = True Then

K = 4

End If

If Option3(9) = True Then

K = 3

End If

If Option4(9) = True Then

K = 2

End If

If Option5(9) = True Then

K = 1

End If

Text1.Text = (Val(a) + Val(b) + Val(c) + Val(d) + Val(e) + Val(f) + Val(j) + Val(x) + Val(y) + Val(K)) / 10

If Text1.Text = 5 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = True

End If

If Text1.Text = 1 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.1 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.2 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.3 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.4 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.5 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.6 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.7 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.8 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 1.9 Then

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.1 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.2 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.3 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.4 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.5 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.6 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.7 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.8 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 2.9 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.1 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.2 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.3 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.4 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.5 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.6 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.7 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.8 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 3.9 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

End If

If Text1.Text = 4 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.1 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.2 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.3 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.4 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.5 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.6 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.7 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.8 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

If Text1.Text = 4.9 Then

Image1.Visible = True

Image2.Visible = True

Image3.Visible = True

Image4.Visible = True

Image5.Visible = False

End If

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Command5_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = True

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Command6_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = True

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Command7_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = True

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Command8_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = True

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Command9_Click()

Frame1(0).Visible = False

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = True

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

End Sub

Private Sub Form_Load()

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Frame1(0).Visible = True

Frame1(1).Visible = False

Frame1(2).Visible = False

Frame1(3).Visible = False

Frame1(4).Visible = False

Frame1(5).Visible = False

Frame1(6).Visible = False

Frame1(7).Visible = False

Frame1(8).Visible = False

Frame1(9).Visible = False

Option1(0).Caption = 5

Option2(0).Caption = 4

Option3(0).Caption = 3

Option4(0).Caption = 2

Option5(0).Caption = 1

Option1(1).Caption = 5

Option2(1).Caption = 4

Option3(1).Caption = 3

Option4(1).Caption = 2

Option5(1).Caption = 1

Option1(2).Caption = 5

Option2(2).Caption = 4

Option3(2).Caption = 3

Option4(2).Caption = 2

Option5(2).Caption = 1

Option1(3).Caption = 5

Option2(3).Caption = 4

Option3(3).Caption = 3

Option4(3).Caption = 2

Option5(3).Caption = 1

Option1(4).Caption = 5

Option2(4).Caption = 4

Option3(4).Caption = 3

Option4(4).Caption = 2

Option5(4).Caption = 1

Option1(5).Caption = 5

Option2(5).Caption = 4

Option3(5).Caption = 3

Option4(5).Caption = 2

Option5(5).Caption = 1

Option1(6).Caption = 5

Option2(6).Caption = 4

Option3(6).Caption = 3

Option4(6).Caption = 2

Option5(6).Caption = 1

Option1(7).Caption = 5

Option2(7).Caption = 4

Option3(7).Caption = 3

Option4(7).Caption = 2

Option5(7).Caption = 1

Option1(8).Caption = 5

Option2(8).Caption = 4

Option3(8).Caption = 3

Option4(8).Caption = 2

Option5(8).Caption = 1

Option1(9).Caption = 5

Option2(9).Caption = 4

Option3(9).Caption = 3

Option4(9).Caption = 2

Option5(9).Caption = 1

End Sub

Приложение Б

Поиск по сайту: