Курсовая работа по дисциплине «информатика»

Скачать 257.82 Kb.

Название	Курсовая работа по дисциплине «информатика»
страница	6/7
Дата публикации	27.10.2014
Размер	257.82 Kb.
Тип	Курсовая

100-bal.ru > Математика > Курсовая

1 2 3 4 5 6 7

2.6. Разработка программного кода

Dim X(9) As Single, i As Byte, S As Integer, n As Single

Private Sub Command2_Click()

n = txtn.Text

For i = 0 To (n - 1)

X(i) = Text1(i).Text

Next i

For i = 0 To (n - 1)

S = X(i) * X(i) * 3.1416

Text2(i).Text = S

Next i

End Sub

Private Sub Command4_Click()

End

End Sub

2.7. Руководство пользователя

Приложение создано с целью нахождения произведения квадрата каждого члена массива с числом

.
Количество элементов массива в программе не может превышать 10.

Для работы с приложением необходимо ввести заполнить элементы массива, они вводятся в текстовые поля. Затем нажать кнопку Считать. Для выхода из программы надо нажать кнопку Выход.

2.8. Тестирование приложения

Для подтверждения верности расчетов решим данную задачу в среде Microsoft Excel. Ответ в среде Microsoft Excel совпадает с ответом полученным в среде Visual Basic.

РАЗДЕЛ 3. ПРОГРАММИРОВАНИЕ ЗАДАЧИ НА ТЕМУ «Конструкторско технологическая анимация»

3.1. Графический эскиз со всеми вспомогательными точками

Точка 1 начало построения горизонтальной линии длинной 100 мм.

Точка 2 конец построения окружности заданным радиусом.

Точка 3 конец построения горизонтальной линии длинной 100 мм.

Точка 4 начало построения наклонной линии.

Точка 5 конец построения наклонной линии.

Точка 6 начало построения вертикальной линии длинной 50 мм.

Точка 7 конец построения вертикальной линии длинной 50 мм.

Точка 8 центр окружности радиуса 20.

Точка 9 центр окружности радиуса 20.

Точка 10 центр окружности радиуса 20.

3.2. Расчет координат опорных точек.

Точка 1 имеет координату (40,40).

Точка 3 имеет координату (140,40).

Точка 4 имеет координату ().

Точка 5 имеет координату ().

Точка 6 имеет координату (20, 60).

Точка 7 имеет координату (20, 110).

Точка 8 имеет координату (40, 60).

Точка 9 имеет координату (140, 60).

Точка 10 имеет координату (40, 110)

3.3. Программный код.

Dim X_TOP As Single, Y_TOP As Single, X_nid As Single, Y_nid As Single

Dim X As Single, Y As Single, f As Single

Dim XX As Single, YY As Single

Dim X1 As Single, Y1 As Single, X2 As Single, Y2 As Single

Dim X0 As Single, Y0 As Single, f1 As Single, f2 As Single

Dim dx As Single, dy As Single, df As Single

Dim k As Single, N As Single

Dim R0 As Single, R As Single

Private Sub cmdLimits_Click()

X_TOP = txtX_TOP.Text

Y_TOP = txtY_TOP.Text

X_nid = txtX_nid.Text

Y_nid = txtY_nid.Text

ris1.Scale (X_TOP, Y_TOP)-(X_nid, Y_nid)

KONTUR

R0 = 10

ris1.Circle (40, 30), R0

End Sub

Private Sub cmdCLS_Click()

ris1.Cls

KONTUR

End Sub

Private Sub cmdEND_Click()

End

End Sub

Private Sub KONTUR()

ris1.Circle (40, 60), 20, , (3.14 / 2), 3.14

ris1.Circle (140, 60), 20, , 3 / 2 * 3.14 + 0.5, (3.14 / 2)

ris1.Circle (40, 110), 20, , 3.14, 3 / 2 * 3.14 + 0.5

ris1.Line (40, 40)-(140, 40)

ris1.Line (20, 60)-(20, 110)

ris1.Line ((140 + 50 / ((50 ^ 2 + 100 ^ 2) ^ (1 / 2) / 20)), (60 + 100 / ((50 ^ 2 + 100 ^ 2) ^ (1 / 2) / 20)))-(((140 + 50 / ((50 ^ 2 + 100 ^ 2) ^ (1 / 2) / 20)) - 100), ((60 + 100 / ((50 ^ 2 + 100 ^ 2) ^ (1 / 2) / 20))) + 50)

End Sub

Private Sub Arca()

For f = f1 To f2 Step df

X = X0 + R * Cos(f * 3.14 / 180)

Y = Y0 - R * Sin(f * 3.14 / 180)

ris1.Circle (X, Y), R0

Sleep Next

End Sub

Private Sub Sleep()

XX = Timer + 0.01

Do While YY <= XX

YY = Timer

Loop

End Sub

Private Sub cmdOBKATKA_Click()

X1 = 40

X2 = 140

Y = 40 - R0

dx = 2

For X = X1 To X2 Step dx

ris1.Circle (X, Y), R0

Sleep

Next X

X0 = 140

Y0 = 60

R = 30

f1 = 90

f2 = -50

df = -5

Arca

X1 = 164 - R0 * Cos(Atn(100 / 80))

X2 = 64 - R0 * Cos(Atn(100 / 80))

Y1 = 77 + R0 * Sin(Atn(100 / 80))

Y2 = 127 + R0 * Sin(Atn(100 / 80))

N = 40

dx = (X2 - X1) / N

dy = (Y2 - Y1) / N

For k = 0 To N

X = X1 + k * dx

Y = Y1 + k * dy

ris1.Circle (X, Y), R0

Sleep

Next k

X0 = 40

Y0 = 110

R = 30

f1 = Atn(100 / 80) / 3.14 * 180 - 102

f2 = -180

df = -5

Arca

X = 0 + R0

Y1 = 110

Y2 = 60

dy = 2

For Y = Y1 To Y2 Step -dy

ris1.Circle (X, Y), R0

Sleep

Next Y

X0 = 40

Y0 = 60

R = 30

f1 = 180

f2 = Atn(100 / 80) / 3.14 * 180 + 40

df = -5

Arca

End Sub

Private Sub Command1_Click()

End

End Sub