Блог вчителя інформатики

ПРАКТИЧНА РОБОТА 9. 

"Використання перемикачів і прапорців для реалізації розгалуження"

Завдання 1. Створити проект, який за допомогою об'єкта прапорець обчислити загальну вартість комп'ютера.

Аналіз проекту

1. Скопіювати документ Завдання 1(ПР9) у свою папку.

(Посилання на файл   https://drive.google.com/file/d/0B2KrK9yRmYZuX0xBNWFWX1pEUHM/view?usp=sharing )

2. Відкрити цей документі та проект.

3. Написати коди для кнопки:

1)  Описати цілі змінні а – базова ціна комп’ютера, b – загальна ціна комп’ютера. (Dim a As Integer, b As Integer)

2)  Ввести з текстового поля базову ціну комп’ютера. (a = TextBox1.Text)

3)  Використати команду неповне розгалуження для прапорців (модем, колонки, принтер). (If  CheckBox1.Value = True Then b = b + 350, аналогічна для колонки з ціною 1 100 , принтера  —  2 300) .

4)  Вивести результати у написах. (Label5.Caption = b)

4.  Виконайте проект. Перевірте виконання для базової ціни комп’ютера
9135 грн.

Завдання 2. Створити проект для знаходження суми до оплати комунальних послуг.

Аналіз проекту

1. Скопіювати документ Завдання 2(ПР9) у свою папку.

(Посилання на файл https://drive.google.com/file/d/0B2KrK9yRmYZuUUlQRGlld0o1Nm8/view?usp=sharing )

2. Відкрити цей документі та проект.

3. Написати коди для кнопки:

1)  Описати цілі змінні а – ціна до оплати, b – спожито, с - поточний показник, р – попередній показник. (Dim a As Single, b As Single, c As Single, р - As Single)

2)  Ввести з текстових полів попередній та поточний показники. (с=TextBox1.Text,  р= TextBox1.Text)

3) Обчисліть спожиту електроенергію (газ, воду). (b = c - p)

4)  Використати команду неповне розгалуження для перемикачів  (електроенергія, природній газ, вода). (для електроенергії If  OptionButton1.Value = True Then а = b*0,65, аналогічна для природного газу (ціна 7,18) , води  —  0,25) .

4)  Вивести результати у написах. (Label5.Caption = а)

4.  Виконайте проект. Перевірте виконання проекту.