Обоснование выбора идеи

Создать коды для выполнения команд созданного меню. Переменные PHeight и PWidthвынесены в секциюGeneral.В итоге должен быть получен примерно следующий код:

Public PHeight As Integer

Public PWidth As Integer

Private Sub mnuInterval_Click()

Dim str As String

Do

str = InputBox("Введите новый интервал времени", _

"Изменение параметров анимации")

If IsNumeric(str) Then

Timer1.Interval = str

Exit Do

Else

MsgBox "Неверное значение интервала: не цифра"

End If

Loop

End Sub

Private Sub mnuPeremGor_Click()

Dim str As String

Do

str = InputBox("Введите новый интервал горизонтального перемещения", _

"Изменение параметров анимации")

If IsNumeric(str) Then

PWidth = str

Exit Do

Else

MsgBox "Неверное значение интервала: не цифра"

End If

Loop

End Sub

Private Sub mnuPeremVert_Click()

Dim str As String

Do

str = InputBox("Введите новый интервал вертикального перемещения", _

"Изменение параметров анимации")

If IsNumeric(str) Then

PHeight = str

Exit Do

Else

MsgBox "Неверное значение интервала: не цифра"

End If

Loop

End Sub

Private Sub Exit_Click()

End

End Sub

Private Sub Timer1_Timer()

Static Flag As Boolean

If Image1.Top < 0 Or Image1.Top >= Form1.ScaleHeight - Image1.Height Then

PHeight = -PHeight

End If

If Image1.Left < 0 Or Image1.Left >= Form1.ScaleWidth - Image1.Width Then

PWidth = -PWidth

End If

If Flag = True Then

Flag = False

Image1.Picture = LoadPicture("Face03.ico")

Else

Flag = True

Image1.Picture = LoadPicture("Face02.ico")

End If

Image1.Top = Image1.Top + PHeight

Image1.Left = Image1.Left + PWidth

End Sub

Приложение

Таблица П1 – Выражения для функции

вариант	f1(x)	f2(x)	f3(x)
	tg(2x)	Sin(3x)	Cos(x-2)
	4x+2	5/(X+0,4)	0,5/(2Sin(4x))
		Ctg(X+0,4)	Ln(2X+0,5)
	xcos(x)
		Sin(2x)
		Cos(2x)
	Ln(2x+5)
	sin(2x+1)
	Cos(x)
	x(sin(x)+2)
		sin(2x)
	Sin(4x)
	Xsin(x-1)

Содержание

Обоснование выбора идеи…………………….………………………………..…..3

Определение конкретной задачи и ее формулировка………………………….......4

Выявление основных требований к изделиям...…………………………………....4

Разработка идей, выбор материалов и инструментов……………………………...4

Инструкции по технике безопасности …………………… ……………………....6

Последовательность изготовления изделий………………………………………..7

Заключение...……………………………………………………………...………..14

Используемая литература……………………………………………………….....15

Приложение……………………………………………………………...………...16

Обоснование выбора идеи

Что? – поделки из бросового материала (игрушки, вазочки, кормушки, украшения).

Кому? – для меня, для брата, для мамы, для друзей.

Из чего? – пластиковые бутылки, пробки, испорченные компьютерные диски, упаковка от киндера, пуговицы, газеты, коробочки, обрезки бумаги и ткани.

Как сделать? – аккуратно, старательно, помнить о технике безопасности, делать в свободное время.

Зачем? – можно использовать в интерьере дома, для украшения сада или двора, для подарка или сувенира.