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

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

 

Контрольная работа выполняется в MS Excel (VBA) (как описано выше) и состоит из трех заданий. Вариант первого задания выбирается по двум последним цифрам зачетной книжки. Второе и третье задание выполняются по образцу без вариантов. Преподавателю должны быть высланы три задания, выполненные в MS Excel и письменный вариант заданий, выполненный в MS Word.

 

Письменный вариант контрольной работы оформляется в MS Word и должен содержать:

1. Титульный лист;
2. Текст задания;
3. Форма VBA;

Для вставки формы VBA в текстовый документ MS Word необходимо:

а) В окне VBA запустить программу  (для запуска программы нажать F5 или  на панели инструментов);

б) Нажать сочетание клавиш «Alt» +  «Print Screen» («Prt Sc» ) на клавиатуре;

в) Запустить Word и выполнить команду Правка – Вставить.

4. Код программы на VBA.
5. Пункты 2-4 приводятся для каждого из трех заданий. Для задания № 3 в письменную работу вставить также фрагмент рабочего листа MS Excel с исходными данными.

 

 

Задание №1

Создайте приложение по своему варианту в MS Excel с применением языка программирования Visual Basic for Application (VBA).

Этапы выполнения контрольной работы:

1. Запустите MS Excel.
2. Меню Сервис-Макрос-Редактор Visual Basic (или Alt-F11).
3. Меню Insert-UserForm.
4. В окне свойств (вызывается клавишей F4) измените заголовок формы (Строка Caption) в соответствии со своим вариантом.
5. На панели инструментов «Стандартная» подключите Элементы управления (ToolBox)
6. Разместите на форме элементы управления по своему варианту (надписи ( ), поля ( ), кнопки ( ).
7. Для изменения шрифта, начертания и размера выполните следующие действия:
1. Выделите все элементы управления на форме, удерживая нажатой левую кнопку мыши.
2. В окне свойств (F4) в строке Font (шрифт) нажмите кнопку и в открывшемся диалоговом окне выберите Шрифт: Times New Roman, Начертание: Курсив, Размер: 14.
3. При необходимости ввода математических обозначений (греческих букв) выделите соответствующий элемент управления (Надпись), в окне свойств в строке Font нажмите и выберите шрифт Symbol, в строке Caption введите соответствующий символ: s для ввода s, g для ввода g, f для ввода j, h для ввода h, w для ввода w, q для ввода q, t для ввода t.
8. Форма готова, теперь необходимо написать программы для кнопок Расчет и Выход. Для этого дважды щелкаем по кнопке Расчет и в открывшемся окне VBA пишем программу между заголовком (Private Sub CommandButton1_Click()) и концом подпрограммы (End Sub), которая вводит данные из текстовых полей и выполняет расчет результатов по формулам и вывод в соответствующие поля.
9. Возвращаемся на форму (Shift-F7) и дважды щелкаем по кнопке Выход и вписываем команду End между заголовком (Private Sub CommandButton2_Click()) и концом подпрограммы (End Sub).
10. Для запуска программы нажать F5 или  на панели инструментов.
11. Исправьте все ошибки и сохраните файл, находясь в окне MS Excel (рабочий лист) в меню Файл-Сохранить как… (а не в окне VBA).

 

 

Пример выполнения задания №1

 

Пример2. Рассчитать остановочный путь  потока по формуле:

, где

Расчетная скорость – V = 11,1м/с

Коэффициент сцепления = 0,5;

Время реакции водителей и срабатывания тормозного привода – tp = 1 с;

Ускорение свободного падения – g = 9,8 м/с2.

1. Insert – UserForm

2.В окне свойств (вызывается клавишей F4) измените заголовок формы (в строке Caption вместо текста UserForm2 напишите – Расчет остановочного пути потока).

3. На панели инструментов «Стандартная»  подключить Элементы управления (ToolBox)

4. На форме разместить следующие  элементы управления:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5. Дважды щелкнуть по кнопке  «Расчет» и написать программу, которая вводит исходные данные  из полей формы, произвести расчет  S и вывести результат в текстовое поле №5.

 

Private Sub CommandButton1_Click()  ‘начало программы

  Dim g As Single     ‘Объявление переменных: g, V, f, t, S– вещественные числа

  Dim V As Single

  Dim f As Single

  Dim t As Single

  Dim S As Single

  V = Val(TextBox1.Value)  ‘Ввод V из поля№1

  f = Val(TextBox2.Value)  ‘Ввод f из поля№2

  t = Val(TextBox3.Value)  ‘Ввод t из поля№3

  g = Val(TextBox4.Value)  ‘Ввод g  из поля№4

  S = V * t + V ^ 2 / (2 * g * f)  ‘ Расчет

  TextBox5.Value = S   ‘Вывод S в поле №5

End Sub     ‘конец программы

 

6. Вернуться на форму (Shift-F7), дважды  щелкнуть по кнопке «Выход» и написать программу, которая закрывает форму.

Private Sub CommandButton2_Click()

End   ‘закрытие формы

End Sub

7. Для запуска программы нажать F5 или  на панели инструментов.

 

ВАРИАНТЫ ДЛЯ ЗАДАНИЯ № 1

 

Вариант 1

Создать приложение «Расчет объема грунтовой призмы  и эксплуатационной производительности бульдозера при резании и перемещении грунта»

 

Исходные данные:

B=4,18м (ширина отвала)

H=1,15м (высота отвала)

Kпр=0,8 (коэффициент, зависящий от характера грунта)

Kp=1,08 (коэффициент разрыхления грунта)

Кв=0,8 (коэффициент использования бульдозера по времени)

Кукл=1 (коэффициент, учитывающий влияние уклона местности на производительность бульдозера)

Тц=166,7 с (длительность цикла)

l=5 м (длина планируемого участка)

φ=0,610 (угол захвата отвала, радианы)

n=1 (число проходов по одному месту)

V=0,8 м/с (рабочая скорость движения трактора)

tn=10 с (время, необходимое на разворот)

 

Расчетные формулы:

, м3 –объем грунтовой призмы

, м3/ч – эксплуатационная производительность бульдозера при резании и перемещении грунта

 производительность бульдозера  при планировочных работах

 

 

 

 

 

 

 

 

 

 

Вариант 2

 

Создать приложение  «Проектировочный расчет клиноременной передачи»

 

Исходные данные:

 

(мощность передачи)

(частота вращения ведущего шкива)

(диаметр малого шкива)

(площадь поперечного сечения  ремня)

(скорость перемещения ремня)

 

Расчетные формулы:

  момент вращения ведущего  шкива 

  полезное окружное усилие, передаваемое  ременной передачей

   напряжение ремня, возникающее  при действии центробежной нагрузки

 

Форма:

  
Вариант 3

 

Создать приложение  «Проектировочный расчет клиноременной передачи»

 

Исходные данные:

 

S1=1346,33  (натяжение ведущей ветви ремня)

S2=269,26 (натяжение ведомой ветви ремня)

(масса единицы ремня (погонная  плотность))

(площадь поперечного сечения  ремня)

(скорость перемещения ремня)

 

Расчетные формулы:

  напряжение ремня, возникающее  при действии центробежной нагрузки

  дополнительное напряжение от центробежной нагрузки

  сила предварительного натяжения

 

Форма:

  
Вариант 4

 

Создать приложение  «Расчет силы приложенной к ключу при завинчивании гайки»

 

Исходные данные:

(сталь 10)

=6 (наружный диаметр резьбы)

=4,918 (внутренний диаметр резьбы)

=5,350 (средний диаметр резьбы)

=0,541 (высота профиля)

=5 (число витков гайки)

 l=90 (длина ручки стандартного ключа)

π=3,14

Расчетные формулы:

 

  Сила затяжки , где   по условию задачи

Сила, приложенная к ключу

 Напряжение смятия  в резьбе 

 

Форма:

 
Вариант 5

 

Создать приложение  «Проверочный расчет рабочего хода пружины»

 

Исходные данные:

  средний диаметр пружины

  диаметр проволоки

  сила пружины при предварительной  деформации

  сила пружины при рабочей нагрузке

  модуль сдвига

  число рабочих витков 

 

Расчетные формулы:

1.   фактический индекс пружины

2.   наибольшая осадка пружины

3.   наименьшая осадка пружины

4.   рабочий ход пружины

 

Форма:

  
Задание №2

Методика пересчета нормативов тормозного пути в зависимости от начального скорости торможения автотранспортного средства (АТС)

 

Рассчитать тормозной путь по формуле: ,

где V – начальная скорость торможения АТС,

j – установившееся замедление (табл.7); 

А – коэффициент, характеризующий время срабатывания тормозной системы (табл.7).

                                                                              Таблица 7

Тип ТС	А	j
Легковые	0,1	5,8
Грузовые	0,15	5
Автобусы	0,1	5

 

Выполните задание, следуя нижеприведенной инструкции:

 

1. Создать кнопку на рабочем  листе для запуска формы:

А) На рабочем листе MS Excel  меню Вид – Панели инструментов – Элементы управления

Выбрать элемент управления «Кнопка» и разместить её на рабочем листе.

Нажать правую кнопку мыши на кнопке – Свойства – Caption – Ввести название кнопки (Запуск).

Б) Дважды щелкнуть по кнопке и написать программу для запуска формы:

Private Sub CommandButton1_Click()

UserForm№.Show  ‘ вместо № указать номер формы

End Sub

С) Вернуться в Excel и отключить режим конструктора  .

2. Создать форму по образцу:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3.  Дважды щелкнуть по форме (серой области) и на активацию формы заполнить список типов транспортных средств (ТС) (Click изменить на Activate):

Private Sub UserForm_Activate()

ComboBox1.AddItem “Легковые”

ComboBox1.AddItem “Грузовые”

ComboBox1.AddItem “Автобусы”

End Sub

 

4. Для Поля со списком ComboBox1 (дважды щелкнуть по нему) написать программу, которая будет выводить исходные данные в текстовые поля TextBox1 и TextBox2:

Private Sub ComboBox1_Change()

If  ComboBox1.Value= “Легковые” Then

TextBox1.Value=0.1

TextBox2.Value=5.8

End if

If  ComboBox1.Value= “Грузовые” Then

TextBox1.Value=0.15

TextBox2.Value=5

End if

If  ComboBox1.Value= “Автобусы” Then

TextBox1.Value=0.1

TextBox2.Value=5

End if

End Sub

5. Для кнопки «Рассчитать тормозной путь» написать программу, которая забирает все исходные данные из полей формы, рассчитывает тормозной путь по формуле и выводит это значение в текстовое поле TextBox4.

Private Sub CommandButton1_Click()

A = Val(TextBox1.Value)

j = Val(TextBox2.Value)

V = Val(TextBox3.Value)

S = A * V + V ^ 2 / (26 * j)

TextBox4.Value = S

End Sub

 

6. Для кнопки «Очистка» написать  программу:

TextBox3.Value= “”

TextBox4.Value= “”

 

7. В самой первой строке окна  программы описать все переменные.

Dim A As Single, j As Single, S As Single, V As Integer

 

 

Задание №3

Создание базы данных клиентов

 

Выполните задание, следуя нижеприведенной инструкции:

 

1. Создать на втором рабочем листе таблицу (назвать лист «Клиенты»), состоящую из 15 записей.

 

Фамилия	Адрес	Телефон
Иванов	пр.Мира, 5	65-12-12
. . .

 

2. На первом листе (назвать его «Главный») создать кнопку «Справки», которая открывает форму №1 (Вид-ПИ-Элементы управления-Кнопка).  Для кнопки написать программу:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Вернуться  в Excel и отключить режим конструктора.

 

3. Создать форму № 1 (Рис.1), запрашивающую пароль Insert - UserForm. Разместить на ней элементы управления: Label,  TextBox,  СommandButton.

 

 

 

 

 

 

Для  кнопки «ОК» написать программу для проверки пароля (Пароль для проверки – 123):

p = Val(TextBox1.Value)

If p <> 123 Then

MsgBox ("Попробуй еще раз")

Else

Unload UserForm1

UserForm2.Show

End If

4. Создать форму № 2 (Рис.2). Разместить на 3 переключателя OptionButton: «По фамилии», «По адресу», «По № телефона», один рисунок Image (в свойствах Picture выбрать графический файл с изображением телефона), одну кнопку CommandButton «Выход».

 

 

 

 

 

 

 

 

 

 

 

5. Для переключателя OptionButton1 следует написать программу, которая ищет введенные по запросу данные (фамилию) в таблице на втором листе.

Private Sub OptionButton1_Click()

p = InputBox("Введите фамилию")

k = 0

For i = 2 To 16

If Worksheets(2).Cells(i, 1) = p Then

UserForm3.TextBox1.Value = Worksheets(2).Cells(i, 1)

UserForm3.TextBox2.Value = Worksheets(2).Cells(i, 2)

UserForm3.TextBox3.Value = Worksheets(2).Cells(i, 3)

k = k + 1

End If

Next i

If  k = 0 Then MsgBox ("Таких записей нет") Else UserForm3.Show

OptionButton1.Value = xlOff

End Sub

6. Аналогично написать программы для других переключателей (поиск по адресу и телефону).
7. Создать форму № 3 (Рис.3). Разместить на ней элементы управления: три надписи Label, три текстовых поля TextBox,одну кнопку CommandButton «Возврат».