Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Указания к выполнению курсового проекта.docx
Скачиваний:
2
Добавлен:
01.05.2025
Размер:
57 Кб
Скачать
☆

Часть II.

Решение типовых задач (разработка приложений) по заданной тематике.

Требования:

  1. Среда разработки – Visual BASIC 6.0.

  2. Представление решенной задачи – распечатанный программный код с комментариями и «скриншот» экранной формы с указанием имен объектов (значения свойства Name).

  3. Приложение должно иметь интерфейс, отвечающий содержанию задачи с необходимыми элементами управления (примеры см. в прилагаемой папке «Пособие для студентов» в соответствие с тематикой задач).

  4. К печатному варианту отчета по курсовой должен прилагаться электронный вариант разработанных приложений (проектов).

  5. Требование к программному коду:

  • Программный код проекта должен иметь подробные комментарии.

  • Инструкция Option Explicit должна быть включена в программный код.

  • Участки кода, когда это целесообразно, должны быть оформлены в виде процедур или функций, размещенных в отельных модулях.

  • Ввести в интерфейс приложения элементы управления, отображающие вводимую и выводимую информацию.

  • Если в условии задачи не указаны элементы управления интерфейса приложения, то ее код должен быть записан следующим образом:

Постановка задачи. Определить путь, пройденный физическим телом, зная исходные время, скорость и ускорение.

Решение.

Option Explicit

Dim v As Integer

Dim t As Integer

Dim a As Integer

Function DefineS(x As Integer, y As Integer, z As Integer)

DefineS = x * y + z * y * y / 2

End Function

Sub InsertParam(param As String, x As Integer)

x = InputBox("Введите значение параметра " & param, "Ввод парамтров" & param)

End Sub

Private Sub cmd1_Click()

Print "Задача:"

Print "Определить путь, пройденный "

Print "физическим телом за время t с,"

Print "с начальной скоростью v м/c "

Print "и ускорением а м/c*c"

InsertParam "скорость", v

InsertParam "время", t

InsertParam "ускорение", a

Print ""

Print "Ответ:"

Print "Тело прошло путь"; DefineS(v, t, a); "метра"

End Sub

Номер варианта задания из Части II определяется порядковым номером фамилии

студента в журнале группы в соответствии с приведенной ниже таблицей.

Таблица определения номеров задач Части II

N п/п

Задача 1 (Таблица 3)

Задача 2

(Таблица 4)

Задача 3

(Таблица 5)

Задача 4

(Таблица 6)

Задача 5

(Таблица 8)

1.

2.

3.

1.

1.

4.

2.

2.

5.

3.

3.

6.

1.

4.

4.

7.

2.

5.

5.

8.

3.

6.

1.

6.

9.

4.

7.

2.

7.

10.

5.

8.

3.

8.

1.

6.

9.

4.

9.

2.

7.

10.

5.

10.

3.

8.

11.

6.

11.

4.

9.

12.

7.

12.

5.

10.

1.