- •З учбової практики
- •Мета учбової практики
- •Практичне завдання №1
- •Практичне завдання №2
- •Практичне завдання №3
- •Практичне завдання №4
- •Практичне завдання №5
- •Практичне завдання №6
- •Практичне завдання №7
- •Практичне завдання №8
- •Практичне завдання №9
- •Практичне завдання №10
- •Висновок
- •Список літератури
МІНІСТЕРСТВО ОСВІТИ І НАУКИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ
КИЇВСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ
БУДІВНИЦТВА ТА АРХІТЕКТУРИ
Кафедра інформаційних технологій
Звіт
З учбової практики
Виконала: студентка
гр. ПНК-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.
Постановка задачі:
нанести на форму 3 командні кнопки;
3 текстових поля: 2 для введення тексту, 1 для його відображення.
надписи.
написати програмний код для зчитування і введення тексту та текстових полях, створити ехе-файл.
При натисканні кнопки «ОК» текстові поля об’єднуються і записуються в «TextMstr»
При натисканні на кнопку «Група» значенню група присвоюється назва. А при натисканні кнопки «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
Робоче вікно проекту:
На робочому вікні програми розташовані наступні елементи: