Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Троц.doc
Скачиваний:
3
Добавлен:
28.09.2019
Размер:
6.98 Mб
Скачать

17

МІНІСТЕРСТВО ОСВІТИ І НАУКИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ

КИЇВСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ

БУДІВНИЦТВА ТА АРХІТЕКТУРИ

Кафедра інформаційних технологій

Звіт

З учбової практики

Виконала: студентка

гр. ПНК-21

Троц Ю.М.

(варіант 17)

Перевірила:

Клюєва В. В.

Київ 2012

Зміст

Мета учбової практики 3

Практичне завдання №1 3

Практичне завдання №2 6

Практичне завдання №3 8

Практичне завдання №4 11

Практичне завдання №5 13

Практичне завдання №6 17

Практичне завдання №7 22

Практичне завдання №8 26

Практичне завдання №9 31

Практичне завдання №10 35

Висновок 40

Список літератури 41

Мета учбової практики

Метою учбової практики було ознайомлення з роботою в середовищі Visual Basic шляхом виконання 10-ти практичних робіт, у ході яких ми вивчали основи роботи з формою, розташування елементів на формі, додавання командних кнопок, написів, текстових полів, а також навчитись методам оголошення змінних, констант, масивів та ін.

Практичне завдання №1

Тема: Створення першого проекту для ознайомлення з роботою компонентів у Visual Basic.

Постановка задачі:

  1. нанести на форму 3 командні кнопки;

  2. 3 текстових поля: 2 для введення тексту, 1 для його відображення.

  3. надписи.

  4. написати програмний код для зчитування і введення тексту та текстових полях, створити ехе-файл.

  1. При натисканні кнопки «ОК» текстові поля об’єднуються і записуються в «TextMstr»

  2. При натисканні на кнопку «Група» значенню група присвоюється назва. А при натисканні кнопки «m=(n+1)*0.2» значенню першої змінної n присвоюється значення другої m.

Робочий проект:

На робочому вікні програми розташовані наступні елементи:

Текстові поля-1

Написи-2

Командні кнопки- 3

Програмний код:

Private Sub CmdOk_Click()

TxtNew = Textnbr.Text + TextSstr.Text

TextMstr.Text = TxtNew

End Sub

Private Sub Cnopka_Click()

Dim n As Double

Dim m As String

n = Textnbr.Text

m = (n + 1) * 0.2

TextMstr.Text = m

End Sub

Private Sub CmdExit_Click()

End

End Sub

Private Sub Znachennia_Click()

Dim m As String

Dim a As String

a = "Група_"

m = a & TextSstr.Text

TextMstr.Text = m

EndSub

Робоче вікно проекту:

Практичне завдання №2

Тема: Створення програм для розрахунків. Програма «Калькулятор»

Постановка задачі:

На формі програми «Калькулятор» повинно міститись:

  • 3 текстових поля, 2 для введення чисел, 1 для виведення результату обчислення;

  • 5 перемикачів для здійснення математичних операцій: додавання, віднімання, множення, ділення, степінь;

  • командну кнопку для обчислення.

Додатково створити програму «Функція» для обчислення математичних функцій. Форма повинна мати вигляд:

  • елемент ComboBox для створення списку математичних функцій: tg, ctg, sin, cos;

  • текстове поле для переведення значення;

  • командна кнопка для отримання результату.

Робочий проект:

Текстові поля- 1

Написи - 2

Командні кнопки- 3

Рамка та елементи типу *перемикач* -4

Програмний код:

Private Sub CmdCalc_Click()

Dim First As Double

Dim Second As Double

Dim Result As Double

First = TextV1.Text

Second = TextV2.Text

If OptionAdd.Value = True Then

Result = First + Second

ElseIf OptionSub.Value = True Then

Result = First - Second

ElseIf OptionMult.Value = True Then

Result = First * Second

ElseIf OptionDev.Value = True Then

Result = First / Second

ElseIf OptionDeg.Value = True Then

Result = First ^ Second

End If

LabelResText.Caption = Result

End Sub

Робоче вікно проекту:

На робочому вікні програми розташовані наступні елементи: