Kr01. Начало. Титульный лист

КУРСОВАЯ РАБОТА ПО ИНФОРМАТИКЕ. ТЕКСТ К ВИДЕО

Постановка задачи. Вариант 11

КУРСОВАЯ РАБОТА по ИНФОРМАТИКЕ.

Программирование в среде VBA.

Вариант 11.

Создание комплекса программ по расчету сопротивления резистора.

Исходные параметры:

U – Показание вольтметра, В (400).

I – Показание амперметра, А (0,5).

r – Сопротивление вольтметра, Ом (1700).

(В скобках указаны примерные значения).

Рассчитываемые параметры:

Сила тока, идущего через вольтметр, А: .

Сопротивление резистора, Ом: .

Данные для получения таблицы:

Столбец с изменяемым параметром: U=[500; 0] шаг 10.

Столбцы с рассчитываемыми параметрами: i, R.

Значения остальных исходных параметров, необходимых для расчета таблицы, постоянные – присвоить любые допустимые величины.

kr01. Начало. Титульный лист

Выполнение курсовой работы рассмотрим на примере варианта 11.

Какой бы вариант ни был – начало одинаковое.

Надо создать Excel-документ, в названии которого указать фамилию студента и номер варианта.

Открыть Excel-документ. Переименовать рабочие листы: Титульный, Расчетный, Таблица.

На Титульном листе необходимо вставить объект. Это может быть рисунок из файла на вашем компьютере, это может быть картинка из стандартной библиотеки.

Это может автофигура. В автофигуру я добавлю текст: «Курсовая работа по информатике».

Этот объект создается, чтобы назначить ему макрос.

Макрос предстоит создать в Редакторе VBA.

Для перехода в Редактор VBA нажимается сочетание клавишей Alt+F11.

Поскольку Excel-книга создана только что, в ней еще нет ни одного пользовательского модуля. Для создания пользовательского модуля выбираю команду меню Insert-Module.

Для создания в модуле процедуры набираю её первую команду Sub – название процедуры ТЕМА. Enter.

Процедура будет содержать команду вызова стандартной подпрограммы MsgBox.

Эта подпрограмма требует ввести 1-ый параметр – это текст, который будет выводится в окно MsgBox. Текст будет составным – в том смысле, что будет размещаться в несколько строк. Для перевода курсора в окне MsgBox на новую строку будем использовать функцию Chr(13). Код символа перевода строки – 13.

Поскольку команда получается очень длинная, я её буду размещать в несколько строк. Предыдущая строка должна заканчиваться знаком подчеркивания.

В первую строку я вписываю тему «Расчет электрической цепи».

Во второй строке название факультета – «Механико-машиностроительный факультет».

В третьей – название группы – «Группа: М190902».

В следующей строке – фамилия студента – «Студент: Иванов И.И.».

Это был первый параметр. Через запятую указываем второй параметр – vbInformation – значок, выводимый в окно MsgBox.

Третий параметр – текст, который пойдет в заголовок окна – «Курсовая работа, по информатике».

Для выполнения этой процедуры нажимается клавиша F5 или кнопка Run. Работает.

Обратите внимание. В окно MsgBox выдается:

1. Текст (это первый аргумент подпрограммы MsgBox).

2. Значок (второй аргумент).

3. Заголовок окна.

Перехожу на рабочий лист Титульный и автофигуре назначаю (через контекстное меню) только что созданный макрос ТЕМА. Таким образом, автофигура превращается в кнопку, щелчок по которой вызывает назначенный макрос (Sub-процедуру) ТЕМА.