Отчет_4.1

Московский технический университет связи и информатики

Кафедра информатики

Лабораторная работа по информатике №4.1

Тема: «Интегрированная среда разработки Visual Studio .NET и основные понятия»

Выполнила: Исаева Анастасия

Группа: БИН 1407

Вариант: 13

Москва 2014

Задание на разработку проекта.

Задание на разработку проекта Проект-4-1-Лаб:

Сформулируем содержательную постановку задачи:

Создать приложение на VB с именем Проект-4-1-Лаб, которое должно вычислять периметр и площадь треугольника по заданным значениям трех его сторон. То есть:

Задано:

А, В, С – значения сторон треугольника.

Требуется определить:

Р – периметр треугольника,

S – площадь треугольника.

Ограничения на значения исходных данных и их соотношения:

А>0, В>0, C>0, А+В>С, А+C>В, В+C>А одновременно.

Проект-4-1-Лаб должен иметь простой интерфейс пользователя:

• две Кнопки управления;

• три поля, отображающие входные данные;

• два поля, отображающие выходные данные.

Формализация и уточнение задания:

Для решения задачи существуют известные формулы:

Р = А + В + С;

S = (формула Герона),

где Рр = Р/2 – полупериметр.

Кроме того, при разработке интерфейса необходимо учитывать следующее:

• строка заголовка формы должна содержать название работы: Тема 4.1. Вычисление периметра и площади треугольника

• для ввода исходных данных необходимо использовать три текстовых поля;

• вычисления должны производиться при нажатии на кнопку ВЫЧИСЛИТЬ;

• для вывода результатов следует использовать текстовые поля (два поля);

• для завершения приложения должна быть предусмотрена кнопка ЗАВЕРШИТЬ;

• для удобства пользователя приложение должно содержать поясняющие надписи;

• зоны ввода и вывода данных должны быть отображены визуально.

Форма с выполненным заданием.

Код программы.

'Требование явного объявления переменных

Option Explicit On

'Подключение библиотеки математических функций

Imports System.Math

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

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

Dim A, B, C As Single

Dim P, Pp, S As Single

'Присваивание переменных

B = CSng(Val(TextBox2.Text))

A = CSng(Val(TextBox1.Text))

C = CSng(Val(TextBox3.Text))

'Вычисление значений переменных

P = (A + B + C)

Pp = P / 2

S = CSng((Sqrt(Pp * (Pp - A) * (Pp - B) * (Pp - C))))

'Вывод значений

TextBox4.Text = CStr(P)

TextBox5.Text = CStr(S)

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End 'Завершение программы

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

'Очистка текстовых полей

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

End Sub

End Class

Схема алгоритма.

Таблица свойств объектов.

Объект	Имя объекта	Свойство	Значение свойства
Форма	Form1	Name	Form1
		Text	Тема 4.1. Вычисление периметра и площади треугольника
		Backcolor	192; 192; 255 (Сиреневый)
Метка	Label1	Text	Тема 4.1. "Интегрированная среда разработки VisualStudio .NET и основные понятия."
		TextAlign	2 – Center
		BackStyle	0 – Transparent
		Font	Comic Sans, жирный, 16
		ForeColor	Синий
Метка	Label2	Text	Задание: Создать проект, вычисляющий периметр и площадь треугольника по заданным значениям трех его сторон
		TextAlign	2 – Center
		BackStyle	0 - Transparent
		Font	Comic Sans, обычный, 14
		ForeColor	192; 0; 192 (Фиолетовый)
Метка	Label3	Text	Введите значение сторон
Метка	Label9	Text	Результат
Выделить метки Label3, Label9 (клавиша <Shift> + мышь) и установить одинаковые свойства для этих меток		TextAlign	2 - Center
		BackStyle	0 – Transparent
		Font	Comic Sans, обычный, 12
		ForeColor	Зеленый
Метка	Label4	Text	Сторона А
Метка	Label5	Text	Сторона В
Метка	Label6	Text	Сторона С
Метка	Label7	Text	Периметр треугольника
Метка	Label8	Text	Площадь треугольника
Выделить метки Label4-Label8 (клавиша <Shift> + мышь) и установить одинаковые свойства для этих меток		TextAlign	1 - Left
		BackStyle	0 – Transparent
		Font	Comic Sans, обычный, 10
		ForeColor	Зеленый
Текстовое поле	TextBox1	Name	TextBox1
		Text	Пусто (стереть значение, установленное «по умолчанию»)
Текстовое поле	TextBox2	Name	TextBox2
		Text	Пусто
Текстовое поле	TextBox3	Name	TextBox3
		Text	Пусто
Текстовое поле	TextBox4	Name	TextBox4
		Text	Пусто
Текстовое поле	TextBox5	Name	TextBox5
		Text	Пусто
Выделить текстовые поля TextBox1-TextBox5		TextBox3	1 – Left
		Font	Comic Sans, обычный, 10
Кнопка	Button1	Name	Button1
		Text	ВЫЧИСЛИТЬ
Кнопка	Button2	Name	Button2
		Text	ОЧИСТИТЬ
Кнопка	Button3	Name	Button3
		Text	ЗАВЕРШИТЬ
Выделить кнопки Button1-Button3 и установить одинаковое для кнопок свойство		Font	Comic Sans, обычный, 12

Проверка работы программы.

Результаты работы программы и вычислений в Excel совпадают.