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

Скачать 257.82 Kb.

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

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

1 2 3 4 5 6 7

1.5. Разработка интерфейса пользователя

Исходные данные пользователь может ввести в текстовые окна, которые названы лейблами R, N, H, R,z.
Для пользователя будут доступны два элемента управления: кнопка считать и кнопка выход.
Результат будет отражен в текстовом окне, названым лейблом m, при нажатии кнопки считать.

Объекты применяемые при разработке интерфейса:
1). Десять лейблов предназначенных для демонстрации пользователю: автора, номера варианта, условия задачи и названия текстовых окон. Лейблы имеют имена: Label1, Label2, Label3, Label4, Label5, Labelб Label7, Label8, Label9, Label10.
2). Шесть текстовых окон, пять предназначены для ввода данных c именами: Txt1,Txt2, Txt3,Txt4, Txt6, одно с именем Txt5 для вывода результата на интерфейс,.
3). Две кнопки: одна с надписью считать, имеющая имя cmd1, которая вызывает событие – вычисление массы металла; другая с надписью выход, имеющая имя cmd2 которая вызывает событие – выход из программы.
4). Одно поле OLE, на нем отображена формула последовательности радиуса.

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

Dim R As Single, N As Byte, p As Single, H As Single, m As Single, S As Single, z As Single, A As Single, i As Byte
Private Sub Cmd2_Click()

End

End Sub

Private Sub Cmd1_Click()

R = Txt1.Text

N = Txt2.Text

H = Txt3.Text

p = Txt4.Text

z = Txt6.Text

A = 0

For i = 1 To N Step 1

A = R * Sqr(i) + A

Next i

L = 0

For i = 1 To N Step 1

L = ((R * Sqr(i)) ^ 2) + L

Next i

S = 2 * 3.14 * H * A + 3.14 * L

m = S * p * z * H

Txt5.Text = m

End Sub

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

Целью создания приложения является расчет массы затраченного металла для изготовления N резервуаров.
Для работы с приложением необходимо ввести данные в текстовые поля. Причем введенные величины должны быть не отрицательны, т. к. мера длинны, толщина , удельный вес не могут быть меньше 0. Затем нажать кнопку Считать, результат появится в текстовом окне m .Приложение выдаёт результат с точностью до четырех знаков после запятой.

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

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

РАЗДЕЛ 2. ПРОГРАММИРОВАНИЕ ЗАДАЧИ НА ТЕМУ: «Обработка одномерных массивов»

Найти по формуле

площадь каждого из n кругов, радиусы R₁, R₂, ..., R_nкоторых заданы.

2.1 Анализ условия задачи, ее математическое решение.

Введем массив для решения задачи:
X₁,X₂,X₃, X₄,X₅,X₆ X₇,X₈,X₉, X₁₀,

S- результат.

Данную задачу будем решать по формуле:

Произведем расчет A на примере массива:
X₁=2 S₁=13
X₂=3 S₂=28
X₃=4 S₃=50
X₄=5 S₄=79
X₅=6 S₅=113
X₆=7 S₆=154
X₇=8 S₇=201
X₈=9 S₈=254
X₉=10 S₉=314
S₁=3.1416*2²=13

2.2 Алгоритм решения задачи.