Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Практичні.docx
Скачиваний:
1
Добавлен:
17.09.2019
Размер:
81.33 Кб
Скачать

Виконав:

студент групи ФК-002

Урсу С.

Керівник

Чернівці-2012 р.

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

Тема: Використання алгоритмів з розгалуженням VBA.

Мета: Навчитися правильно розміщувати та налаштовувати елементи керування.

Обладнання: комп’ютери Pentium.

Програмне забезпечення: MSExcel

Зміст та виконання роботи

Базовий рівень

  1. Створюємо за допомогою вбудованого редактора VBA в MSExcel програму «Вартість покупки», що обчислює вартість знижки на товари в залежності від вікової групи: якщо покупець пенсіонер, то знижка 25%, а якщо він віком до 18 років, то – 20%. Після створення потрібного інтерфейсу програмуємо кнопку «Обчислити»:

If CommunButton1=true then

MsgBox (“Вартість покупки” + str( val(TextBox1) * 1.2) )

Else

MsgBox (“Вартість покупки” + str( val(TextBox1) * 1.25) )

End if

  1. Створюємо програму «Обмінний курс» для переведення грошових одиниць «долар», «євро», «рубль» у «гривні». Програмуємо кнопку «Обчислити»:

If CommunButton1=true then

TextBox2=8

Label=”Результат” + str(val(TextBox1) * val(TextBox2) )

MsgBox (”Результат” + str(val(TextBox1) * val(TextBox2) ) )

End if

If CommunButton2=true then

TextBox2=11

Label=”Результат” + str(val(TextBox1) * val(TextBox2) )

MsgBox (”Результат” + str(val(TextBox1) * val(TextBox2) ) )

End if

If CommunButton3=true then

TextBox2=0.25

Label=”Результат” + str(val(TextBox1) * val(TextBox2) )

MsgBox (”Результат” + str(val(TextBox1) * val(TextBox2) ) )

End if

Поглиблений рівень

1.Упрограмі «Обмінний курс» задаємо колір фону форми &H8000000D.

2.Створюємо програму «Корені», що обчислює корені квадратного рівняння вигляду ax2 + bx + c=0 . При значенні дискримінанта менше нуля відкривається діалогове вікно зі словами «Дане рівняння дійсних коренів немає». Програмуємо кнопку :

Dim a, b, c, x1, x2, d As Long

a= val(TextBox1)

b= val(TextBox2)

c= val(TextBox3)

x1= val(TextBox4)

x2= val(TextBox5)

d=b ^ 2 - 4 * a * c

TextBox4=(-b + d ^ 0.5) / 2 *a

TextBox5=(-b - d ^ 0.5) / 2 *a

Else

MsgBox(“Дане рівняння дійсних коренів не має”)

Endif

Висновок: отже, ми навчилися правильно розміщувати та налаштовувати елементи керування.

Практичне заняття №14

Тема: Створення веб-документу.

Мета: Освоїти основні теги мови HTML. Ознайомитися зі структурою веб-документа, принципами його створення.

Обладнання: комп’ютери Pentium.

Програмне забезпечення: Блокнот, InternetExplorer.

Зміст та виконання роботи

Базовий рівень

1.Створюємо потрібну сторінку за допомогою блокноту, вписуючи відповні наступні теги:

<html>

<head><title>Моя перша web-сторінка</title>

</head>

<body bgcolor=”orange” text=”green”>

<hr color=”red” size=2>

<h1>Моє захоплення</h1>

<hr color=”blue” size=2>

<imgsrc=”1.jpg”>

<p align=”jastify”>Розповідь про моє захоплення

<p>&#169 <ahref=”12.html”>Урсу Сергій</a>

</body>

</html>

Поглиблений рівень

2.За допомогою тегів HTML створюємо веб-сторінку «Моя біографія» потрібної структури:

<html>

<head><title>Інформація про мене</title>

</head>

<body bgcolor=”orange” text=”blue”>

<hr color=”black” size=3>

<font align=”center”><h1>Моя біографія</h1></font>

<hr color= "blue " size=2>

<font align=”center”>Моя біографія</font>

<p>&#169 Антонюк Володимир

Висновок: отже, ми освоїли основні теги мови HTML. Ознайомитися зі структурою веб-документа, принципами його створення.