ПРИКЛАДНОЙ КУРС
«ПРОГРАММИРОВАНИЕ НА VISUAL BASIC»

ДЛЯ 10 КЛАССОВ

РАЗРАБОТКИ УРОКОВ

Разработан: Синютиной Г.Г.
учитель информатики СШ № 16

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

«Разработки уроков. Программирование на VB.» является методическим пособием к прикладному курсу «Программирование на VB» для 10 класса естественно-математического направления. Данное пособие предназначено для учителей информатики. Целью его создания является попытка облегчить работу учителя при подготовке и проведения уроков, чтобы уроки были качественными, интересными и разнообразными.

Учитель по своему усмотрению может использовать данную схему урока или вносить корректировки.

Пособие состоит из 10 уроков. Номера уроков даны в соответствии с номером темы и урока в программе. Например, «Урок №6 –1» говорит о том, что это первый урок в теме 6. Ход каждого урока разбит на этапы, каждый этап снабжен иллюстрациями и программным кодом к решению задачи. Ссылки типа «Демонстрация», «Образец» или «Просмотр» предназначены для работают с методическим пособием в электронном виде, так как к данному пособию существует электронное приложение, содержащее все задачи, упоминаемые в данном пособии. Например, задача «Калькулятор 1» состоит из четырех файлов:

1. КАЛЬКУЛЯТОР 1.exe

2. КАЛЬКУЛЯТОР 1.frm

3. КАЛЬКУЛЯТОР 1.vbp

4. КАЛЬКУЛЯТОР 1.vbw.

Первый файл «КАЛЬКУЛЯТОР1.exe» открывается по гиперссылке «Демонстрация» из электронного документа «10 уроков VB.doc». Остальные три файла (КАЛЬКУЛЯТОР 1.frm, КАЛЬКУЛЯТОР 1.vbp, КАЛЬКУЛЯТОР 1.vbw) служат для просмотра решения задачи в среде VisualBasic.

УРОК № 3

ТЕМА УРОКА: ОБЪЕКТНО-ОРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ. ЗНАКОМСТВО СО СРЕДОЙ VB.СОСТАВ ОКНА.

ЦЕЛИ УРОКА:

1. Сформировать понятия объектно-ориентированного программирования и среды VB;

2. Классифицировать основные понятия;

3. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный.

ХОД УРОКА.

1. ОБЪЕКТНО-ОРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ

(Новый материал. Лекция.)

Объектно-ориентированное программирование включает в себя следующие основные понятия:

1. Объекты;

2. Свойства объектов;

3. События;

4. Методы;

5. Классы объектов.

Связь между этими понятиями можно представить в виде схемы:

1. Объект – это совокупность свойств и методов.

2. Свойства – это характеристики объекта, которые отвечают за внешний вид и поведение объекта.

3. События – это изменение состояния объекта в ответ на действия пользователя. Они вызывают выполнение программного кода.

4. Методы – это воздействие на объект с помощью рабочих операторов программного кода, которое позволяет изменять свойства объекта (цвет, размер, перемещение и т.д.).

5. Класс – это совокупность объектов, характеризующихся одинаковыми наборами методов и свойств.

Границы между свойствами и методами расплывчаты.

Основа создания Windows-приложений в VB – это ориентирование на события, так как для выполнения программного кода всегда необходимо событие, т.е. программный код выполняется только тогда, когда для данного объекта наступит данное событие.

Отличие от языков программирования Pascal и QuickBasic: в VB и других объектно-ориентированных языках используется нелинейный принцип построения программы, т.е. здесь нет сплошного кода, который выполняется от начала до конца. Здесь пользователь может нажать любую кнопку и тем самым вызвать или не вызвать назначенные события для существующих объектов.

2. СРЕДА VB. СОСТАВ ОКНА.

(Новый материал, сопровождается демонстрацией)

ОПОРНЫЕ ВОПРОСЫ.

· Виды VB.

· Запуск программы.

· Состав окна.

Установка Панелей (Кнопки на Панели Инструментов)

Установка Объектов на Форму

Переключение между окном Формы и окном Программного кода

4. КОНТРОЛЬНЫЕ ВОПРОСЫ.

1 В чем отличие языков QB и Pascal от VB?

2 Назовите основные понятия VB.

3 Дайте определения:

1) Объекта

2) Свойства

3) События

4) Метода

5) Класса

УРОК № 4

ТЕМА УРОКА: ЭЛЕМЕНТЫ. ПРОГРАММНЫЙ КОД. ОТЛАДКА ПРОГРАММЫ.

ЦЕЛИ УРОКА:

5. Сформировать умения установки объектов и составления программного кода;

6. Классифицировать свойства объектов;

7. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

1. ЭЛЕМЕНТЫ

(Новый материал. Объяснения с одновременнной демонстрацией. Используется сетевая программа NetOP.)

I Кнопка. (CommandButton) Рис.1
Основные свойства:

1) (Name) – Имя. По умолчанию – Command1. Рекомендуется – С1.

2) Caption – Надпись на кнопке. По умолчанию – Command1.
Возможные варианты – Далее, Выход, ОК и др.

IIНадпись. (Label). Рис.2
Основные свойства:

1) (Name) – Имя. По умолчанию – Label1. Рекомендуется – L1.

2) Caption – Надпись на кнопке. По умолчанию – Label1.
Используется для пояснительных текстов.

III Текстовое поле. (TextBox). Рис.3

1) (Name) – Имя. По умолчанию –Text1. Рекомендуется – T1.

2) Text – текст в текстовом поле. По умолчанию – Text1.
Используется и для вставки текстов, и для ввода данных с клавиатуры.

IV Общие свойства для трех данных объектов:

1) BackColor – цвет объекта;

2) Font – тип и размер шрифта для свойств Caption и Text;

3) Height – размер объекта по вертикали;

4) Width – размер объекта по горизонтали

5) Left – расстояние от левого края формы до объекта;

6) Top – расстояние от верхнего края формы до объекта;

7) Visible – видимость;

8) Enabled –доступность;

3. Решение задачи.

(Зкрепление)

УСЛОВИЕ: Вычислить объем и площадь поверхности бруска по заданным сторонам.

1. Составим математическую модель.

Объем вычисляется по формуле V = abc.

Площадь поверхности вычисляется по формуле
S = 2ab+2ac+2bc = 2(ab+ac+bc).

2. Создадим Форму со следующими объектами (Рис. 1).

4. Изменим имена и свойства объектов следующим образом:

ОБЪЕКТ (СТАРЫЕ СВОЙСТВА)	НОВЫЕ СВОЙСТВА ОБЪЕКТА
ОБЪЕКТ (СТАРЫЕ СВОЙСТВА)	NAME	CAPTION
Label 1	L1	Объем и площадь поверхности бруска
Label 2	L2	Введите значения
Label 3	L3	а =
Label 4	L4	b =
Label 5	L5	c =
Label 6	L6	Объем V
Label 7	L7	Площадь поверхности S
Text 1	T1
Text 2	T2
Text 3	T3
Text 4	T4
Text 5	T5
Command 1	C1	Решение
Command 2	C2	Сброс

После изменения свойства Caption и Text Форма имеет вид:

5. Введем программный код для объектов:

ПРОЦЕДУРА

НАЗНАЧЕНИЕ

Private Sub C1_Click()

a = T1.Text

b = T2.Text

c = T3.Text

v = a * b * c

s = 2 * (a * b + a * c + b * c)

T4.Text = v

T5.Text = s

End Sub

После ввода с клавиатуры числовых значений в поля Т1, Т2 и Т3, эти значения сохраняются с помощью переменных а, b и с.

Вычисляется объем v и площадь поверхности s.

Значения v и s заносятся в поля Т4 и Т5.

Private Sub C2_Click()

T1.Text = ""

T2.Text = ""

T3.Text = ""

T4.Text = ""

T5.Text = ""

End Sub

Все текстовые поля (Т1, Т2, Т3, Т4 и Т5) очищаются.

Запустим программу. Она должна работать следующим образом. (Демонстрация )

УРОК № 6-1

ТЕМА УРОКА: ВЕТВЛЕНИЕ. ЗАДАЧА «КАЛЬКУЛЯТОР».

ЦЕЛИ УРОКА:

8. Закрепить понятие ветвления;

9. Развивать логическое мышление, умение сравнивать виды ветвления;

10. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

1. БЛОК-СХЕМА И ОПЕРАТОР ВЕТВЛЕНИЯ.

(Повторение в виде беседы.)

Опорные вопросы.

1) Виды ветвления (полное и неполное).

2) Нарисовать и обсудить блок-схемы полного и неполного ветвления.

3) Написать операторы ветвления полного и неполного вида

Полное ветвление	Неполное ветвление
If <условие> then <оператор 1> else < оператор 2>	If <условие> then <оператор 1>

4) Многострочная форма записи оператора If.

If <условие> then

<оператор 1>

<оператор 2>

. . . . .

else

< оператор 3>

< оператор 4>

. . . . .

End If

5) Сложные условия.

If <условие 1> and <условие 2> and <условие 3> then . . . .

или

If <условие 1> or <условие 2> or <условие 3> then . . . .

2. РЕШЕНИЕ ЗАДАЧИ «КАЛЬКУЛЯТОР».

(Закрепление).

1. Создать форму по образцу.

2) Создать программный код

ПРОЦЕДУРА	НАЗНАЧЕНИЕ
Public x As Integer Public f As Integer	Объявление переменных х и f для того, чтобы их значения передавались из одной процедуры в другую
Private Sub Command1_Click() Text1.Text = "" End Sub	Очистка текстового поля
Private Sub Command10_Click() Text1.Text = Text1.Text + "4" End Sub	Введение цифры «4»
Private Sub Command11_Click() Text1.Text = Text1.Text + "5" End Sub	Введение цифры «5»
Private Sub Command12_Click() Text1.Text = Text1.Text + "6" End Sub	Введение цифры «6»
Private Sub Command13_Click() Text1.Text = Text1.Text + "1" End Sub	Введение цифры «1»
Private Sub Command14_Click() Text1.Text = Text1.Text + "2" End Sub	Введение цифры «2»
Private Sub Command15_Click() Text1.Text = Text1.Text + "3" End Sub	Введение цифры «3»
Private Sub Command16_Click() Text1.Text = Text1.Text + "0" End Sub	Введение цифры «0»
Private Sub Command2_Click() x = Val (Text1.Text) Text1.Text = "" f = 1 End Sub	Запоминание числа в текстовом поле после нажатия кнопки «+», очистка текстового поля и установка «флага» равным 1.
Private Sub Command3_Click() x = Val (Text1.Text) Text1.Text = "" f = 2 End Sub	Запоминание числа в текстовом поле после нажатия кнопки «–», очистка текстового поля и установка «флага» равным 2.
Private Sub Command4_Click() x = Val (Text1.Text) Text1.Text = "" f = 3 End Sub	Запоминание числа в текстовом поле после нажатия кнопки «*», очистка текстового поля и установка «флага» равным 3.
Private Sub Command5_Click() x = Val (Text1.Text) Text1.Text = "" f = 4 End Sub	Запоминание числа в текстовом поле после нажатия кнопки «/», очистка текстового поля и установка «флага» равным 4.
Private Sub Command6_Click() If f = 1 Then Text1.Text = Val (Text1.Text) + x If f = 2 Then Text1.Text = x – Val (Text1.Text) If f = 3 Then Text1.Text = Val (Text1.Text) * x If f = 4 And Val (Text1.Text) <> 0 Then Text1.Text = x / Val (Text1.Text) If f = 4 And Val (Text1.Text) = 0 Then Text1.Text = "Деление на 0" End Sub	Выполнение вычислений и вывод результата в текстовое поле
Private Sub Command7_Click() Text1.Text = Text1.Text + "7" End Sub	Введение цифры «7»
Private Sub Command8_Click() Text1.Text = Text1.Text + "8" End Sub	Введение цифры «8»
Private Sub Command9_Click() Text1.Text = Text1.Text + "9" End Sub	Введение цифры «9»

УРОК № 7 – 1

ТЕМА УРОКА: ГРАФИЧЕСКИЕ ОБЪЕКТЫ В VB.

ЦЕЛИ УРОКА:

11. Сформировать понятия, умения и навыки использование различных графических объектов в VB;

12. Классификация графических объектов;

13. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

1. ВИДЫ ГРАФИЧЕСКИХ ОБЪЕКТОВ И ИХ ОСНОВНЫЕ СВОЙСТВА

(Новый материал с демонстрацией свойств объектов)

1. Фигура – Shape.

Основные свойства:

1) (Name) – Shape1 (по умолчанию), рекомендуется S1

2)                       Shape = 0 – Rectangle, прямоугольник
           = 1 – Square, квадрат
           = 2 – Oval, элипс
           = 3 – Circle, круг
           = 4 – RoundedRectangle, прямоугольник со скругленными углами
           = 5 – RoundedSquare, квадрат со скругленными углами

3) BackColor – цвет заливки

4) BackStyle – стиль (прозрачный или заливка)

5) BorderColor – цвет контура

6) BorderStyle – силь конура (спошная, шриховая и др.)

7) BorderWidth – толщина контура

8) FillColor – цвет линий штриховки внури контура

9) FillStyle – тип штриховки внутри контура (диагональ, клетка и др.)

(Демонстрация )

2. Линия – Line.

1) (Name) – Line1 (по умолчанию), рекомендуется L1

2) BorderColor

3) BorderStyle

4) BorderWidth

5) X1, X2, Y1, Y2

(Демонстрация . Задача “Вычисление гипотенузы и построение треугольника”)

3. Изображение – Image

Основные свойства:

1) (Name) – Image1 (по умолчанию), рекомендуется I1

2) Picture – позволяет выбрать файл изображения, из которого будет вставлен рисунок

3) Stretch = True/False – определяет, вмещается ли импортируемый рисунок в рамку

4. Окно с рисунком – PictureBox

Основные свойства:

1) (Name) – Picture1 (по умолчанию), рекомендуется Pic.1

2) Align – закрепляет объект у одной из сторон Формы

3) AutoSize – определяет, вмещается ли импортируемый рисунок в рамку

4) Picture – позволяет выбрать файл изображения, из которого будет вставлен рисунок

(Демонстрация )

2. ЗАКРЕПЛЕНИЕ.

СОЗДАТЬ ФОРМУ, ИСПОЛЬЗУЯ РАЗЛИЧНЫЕ ГРАФИЧЕСКИЕ ОБЪЕКТЫ.

УРОК № 7 – 2

ТЕМА УРОКА: операторы выбора. ЗАДАЧА «ГОРОСКОП»

ЦЕЛИ УРОКА:

14. Сформировать понятие оператора Выбора и закрепить его на примере задачи «Гороскоп»;

15. Развивать логическое мышление;

16. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

1. ОПЕРАТОР ВЫБОРА

(Объяснения с одновременным составление конспекта)

Оператор Выбора используется, если необходимо проверять выполнение множества условий.

Действие оператора Выбора можно изобразить с помощью следующей блок-схемы:

Общий формат:

SELECT CASE K

CASE A1

<оператор 1>

CASE A2

< оператор 2>

CASE A3

< оператор 3>

. . . . . .

CASE AN

< оператор N>

ELSE

< оператор>

END SELECT

2. ЗАКРЕПЛЕНИЕ.

(Решение задачи «Гороскоп»)

УСЛОВИЕ: Определить, на какой год восточного календаря приходится какой-либо год нашего летоисчисления. Для этого из года нужно вычесть число 3, а результат разделить на 12. Остаток от деления покажет порядковый номер восточного года:
0 – свинья                  1 – мышь                    2 – корова                   3 – тигр
4 – заяц                       5 – дракон                  6 – змея                       7 – лошадь
6 – овца                      9 – обезьяна               10 –курица                 11 – собака.

1) СОЗДАНИЕ ФОРМЫ.

Объекты I1(0-11) создаются следующим образом: на Форму устанавливается Изображение, копируется в буфер и вставляется из буфера 11 раз. На вопрос о том, нужно ли создавать массив, отвечаем положительно, и тогда свойство Index будет устанавливаться автоматически от 0 до 11.

Для вставки рисунков знаков зодиака используем картинки Приложения 1 или файлы из папки Картинки к гороскопу. Вставка рисунков происходит с помощью свойства Picture

2) СОДАНИЕ ПРОГРАММНОГО КОДА.

Private Sub C1_Click()

a = Val(T1.Text)

n = (a - 3) Mod 12

Select Case n

Case 0

T2.Text = " Год свиньи"

I1(0).Visible = True

I1(1).Visible = False

I1(2).Visible = False

I1(3).Visible = False

I1(4).Visible = False

I1(5).Visible = False

I1(6).Visible = False

I1(7).Visible = False

I1(8).Visible = False

I1(9).Visible = False

I1(10).Visible = False

I1(11).Visible = False

Case 1

T2.Text = " Год мыши"

I1(0).Visible = False

I1(1).Visible = True

I1(2).Visible = False

I1(3).Visible = False

I1(4).Visible = False

I1(5).Visible = False

I1(6).Visible = False

I1(7).Visible = False

I1(8).Visible = False

I1(9).Visible = False

I1(10).Visible = False

I1(11).Visible = False

Case 2

T2.Text = " Год коровы"

I1(0).Visible = False

I1(1).Visible = False

I1(2).Visible = True

I1(3).Visible = False

I1(4).Visible = False

I1(5).Visible = False

I1(6).Visible = False

I1(7).Visible = False

I1(8).Visible = False

I1(9).Visible = False

I1(10).Visible = False

I1(11).Visible = False

Case 3

T2.Text = " Год тигра"

I1(0).Visible = False

I1(1).Visible = False

I1(2).Visible = False

I1(3).Visible = True

I1(4).Visible = False

I1(5).Visible = False

I1(6).Visible = False

I1(7).Visible = False

I1(8).Visible = False

I1(9).Visible = False

I1(10).Visible = False

I1(11).Visible = False

И т.д. до Case 11. Рекомендуется использовать копирование.

End Select

End Sub

УРОК № 9-1

ТЕМА УРОКА: ГРАФИЧЕСКИЕ МЕТОДЫ PSET, LINE, CIRCLE. ЦВЕТ.

ЦЕЛИ УРОКА:

17. Сформировать понятия;

18. Развивать логическое мышление;

19. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

3. ГРАФИЧЕСКИЕ МЕТОДЫ И ИХ ПРИМЕНЕНИЕ

(Новый материал с демонстрацией)

Графический метод – это такой метод, который позволяет изображать на объектах ( Form, PictureBox) какой-либо геометрический элемент, например точку, отрезок, прямоугольник, окружность и т.д.

Рассмотрим некоторые графические методы:

· PSet (x, y), с – изображает точку с координатами х и у, цветом с

· Line (x, y) – (x1, y1), c – изображает отрезок, начало которого имеет координаты х,у, а конец отрезка – х1,у1 и цветом с;

· Line (x, y) – (x1, y1), c, В – изображает прямоугольник, у которого (x, y) и (x1, y1) – координаты любой из диагоналей.

· Line (x, y) – (x1, y1), c, ВF – изображает такой же по размерам прямоугольник, но закрашенный внутри.

· Circle (x, y), R, c – изображает окружность, центр которой имеет координаты х,у, радиус R и цвет с.

· Circle (x, y), R, c, a, b – изображает дугу данной окружности, где а и b – начало и конец дуги в радианах.

· Circle (x, y), R, c, , , e – изображает эллипс, если е <1, то он вытянут по горизонтали, е >1 – то эллипс вытянут по вертикали.

Для демонстрации используется файл «ГРАФ_методы.exe».

4. ЦВЕТ В VB

(Новый материал с демонстрацией)

Цвет в VB можно задать несколькими способами:

1. по-английски с добавлением букв VB: (vbBlack)

2. числом от 0 до 15 с добавлением QBColor: (QBColor(5))

3. числом от 0 до 16 777 215.

4. по схеме RGB тремя числами т 0 до 255: (RGB (10, 20, 250))

Цвет	1 способ	2 способ	3 способ	4 способ
				R	G	B
Черный	vbBlack	0	0	0	0	0
Темно-синий		1	8 388 608	0	0	128
Темно-зеленый		2	32 769	0	128	0
Темно-голубой		3	8 421 376	0	128	128
Темно-красный		4	128	128	0	0
Темно-сиреневый		5	8 388 736	128	0	128
Коричневый		6	32 896	128	128	0
Светло-серый		7	12 632 256	192	192	192
Темно-серый		8	8 421 504	128	128	128
Синий	vbBlue	9	16 711 680	0	0	255
Зеленый	vbGreen	10	65 280	0	255	0
Голубой	vbCyan	11	16 776 960	0	255	255
Красный	vbRed	12	255	255	0	0
Сиреневый	vbMagenta	13	16 711 935	255	0	255
Желтый	vbYellow	14	65 535	255	255	0
Белый	vbWhite	15	16 777 215	255	255	255

Третий и четвертый способы связаны формулой:

Цвет = R + 256G + 256² B,

где буквами r, g и b обозначены три составляющие четвертого способа – RGB(r,g,b),

Цвет – это число из третьего способа

Для демонстрации используется файл «Цвет в VB.exe».

5. ЗАКРЕПЛЕНИЕ

(Решить задачу)

УСЛОВИЕ.

Составить программу, рисующую геометрические фигуры разного цвета.

Пример:

УРОК № 10-1

ТЕМА УРОКА: ПОЛОСА ПРОКРУТКИ – СКРОЛЛИНГ.

ЦЕЛИ УРОКА:

20. Сформировать понятие полосы прокрутки и умений использовать при решении задач;

21. Развивать логическое мышление;

22. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

1. ОБЪЕКТ «ПОЛОСА ПОКРУТКИ» И ЕГО СВОЙСТА.

(Новый материал. Лекция.)

Полосы прокрутки – скроллинг. ScrollBar. Существует как отдельный элемент, хотя некоторые объекты (TextBox, ListBox) используют такие встроенные полосы, которые устанавливаются в их Свойствах.

Существует два вида полос прокрутки: горизонтальная (HScrollBar) и вертикальная (VScrollBar).

Полосы прокрутки имеют два интересных события:

1) Change, которое возникает после изменения позиции бегунка;

2) Scroll, происходит во время прокрутки, т.е. когда пользователь мышкой передвигает бегунок.

Свойства.

1) Min – минимальное значение полосы прокрутки;

2) Max – максимальное значение полосы прокрутки;

3) Value – текущее положение бегунка;

4) SmallChange – шаг передвижения бегунка, который определяет щелчок на одной из двух кнопок со стрелками;

5) LargeChange – шаг передвижения бегунка, который определяется, если пользователь щелкнет в области между бегунком и какой-либо из кнопок.

2. ЗАДАЧА «ИЗМЕНЕНИЕ ЦВЕТА С ИСПОЛЬЗОВАНИЕМ СКРОЛЛИНГА».

(Закрепление. Практикум.)

УСЛОВИЕ.

Составить программу, демонстрируемую изменение цвета объекта по схеме RGB, используя три полосы прокрутки для каждой составляющей R, G и B. (Образец )

1. СОЗДАТЬ ФОРМУ.

2. НАПИСАТЬ ПРОГРАММНЫЙ КОД.

ПРОЦЕДУРА

НАЗНАЧЕНИЕ

Private Sub HS1_Change()

x = HS1.Value

T1.Text = x

y = HS2.Value

z = HS3.Value

Shape1.BackColor = RGB(x, y, z)

End Sub

Переменной Х присваивается значение скроллинга HS1, которое изменяется щелчком мышки по одной из стрелок, потом заносится в текстовое поле Т1. Переменным присваивается значение скроллингов HS2 и HS3 соответственно.

Для фигуры Shape1 присваивается цвет заливки. (В параметрах свойство BackStyle должно иметь значение 1- Opaque).

Private Sub HS1_Scroll()

x = HS1.Value

T1.Text = x

y = HS2.Value

z = HS3.Value

Shape1.BackColor = RGB(x, y, z)

End Sub

Переменной Х присваивается значение скроллинга HS1, которое изменяется при перемещении бегунка с помощью мышки. Остальное – аналогично предыдущей процедуре.

Private Sub HS2_Change()

x = HS1.Value

y = HS2.Value

T2.Text = y

z = HS3.Value

Shape1.BackColor = RGB(x, y, z)

End Sub

Все точно также, как для первого скролинга.

Private Sub HS2_Scroll()

x = HS1.Value

y = HS2.Value

T2.Text = y

z = HS3.Value

Shape1.BackColor = RGB(x, y, z)

End Sub

Private Sub HS3_Change()

x = HS1.Value

y = HS2.Value

z = HS3.Value

T3.Text = z

Shape1.BackColor = RGB(x, y, z)

End Sub

Private Sub HS3_Scroll()

x = HS1.Value

y = HS2.Value

z = HS3.Value

T3.Text = z

Shape1.BackColor = RGB(x, y, z)

End Sub

Private Sub T1_Change()

x = Val(T1.Text)

If x < 0 Then HS1.Value = 0

If x > 255 Then HS1.Value = 255

If x >= 0 And x <= 255 Then HS1.Value = x

End Sub

В текстовое поле Т1 вводится любое число от 0 до 255 и присваивается переменной Х. Скроллинг HS1 тут же принимает это значение. Если число введено отрицательное, то значение скроллинга равно 0, если Х > 0, то значение скроллинга равно 255.

Private Sub T2_Change()

y = Val(T2.Text)

If y < 0 Then HS2.Value = 0

If y > 255 Then HS2.Value = 255

If y >= 0 And y <= 255 Then HS2.Value = y

End Sub

Все точно также как для текстового поля Т1.

Private Sub T3_Change()

z = Val(T3.Text)

If z < 0 Then HS3.Value = 0

If z > 255 Then HS3.Value = 255

If z >= 0 And z <= 255 Then HS3.Value = z

End Sub

УРОК № 10 – 2

ТЕМА УРОКА: ЗАДАЧА «КАЛЬКУЛЯТОР СО СКРОЛЛИНГОМ»

ЦЕЛИ УРОКА:

23. Закрепить умения использовать полосы прокрутки (скроллинга) и знания ветвления;

24. Систематизация знаний;

25. Воспитывать интерес к предмету.

ТИП УРОКА: Урок - практикум.

ХОД УРОКА.

1. ПОСТАНОВКА ЗАДАЧИ.

(Создание формы)

2. СОЗДАНИЕ ПРОГРАММНОГО КОДА

ПРОЦЕДУРА	НАЗНАЧЕНИЕ
Private Sub C1_Click() a$ = InputBox("введите min значение", "min", "0") b$ = InputBox("введите max значение", "max", "100") L1.Caption = "min = " + a$ L2.Caption = "max = " + b$ HS1.Min = Val(a$) HS1.Max = Val(b$) HS2.Min = Val(a$) HS2.Max = Val(b$) HS1.Value = Val(a$) HS2.Value = (Val(a$) + Val(b$)) / 2 L6.Visible = False End Sub	Установка минимального и максимального значения для скроллингов с помощью диалоговых окон.
Private Sub C2_Click() n1 = HS1.Value n2 = HS2.Value s = n1 + n2 T3.Text = "X + Y = " + Str(s) End Sub	Сложение.
Private Sub C3_Click() n1 = HS1.Value n2 = HS2.Value s = n1 - n2 T3.Text = "X - Y = " + Str(s) End Sub	Вычитание.
Private Sub C4_Click() n1 = HS1.Value n2 = HS2.Value s = n1 * n2 T3.Text = "X * Y = " + Str(s) End Sub	Умножение.
Private Sub C5_Click() n1 = HS1.Value n2 = HS2.Value If n2 = 0 Then MsgBox "на 0 делить нельзя", 16, " предупреждение": T3.Text = "" Else s = n1 / n2: T3.Text = "X:Y = " + Str(s) End Sub	Деление.
Private Sub C6_Click() n1 = HS1.Value If n1 < 0 Then MsgBox "Из отрицательных чисел корень не извлекается", 16, " предупреждение": T3.Text = "" Else s = Sqr(n1): T3.Text = "КОРЕНЬ(X) = " + Str(s) End Sub	Извлечение квадратного корня.
Private Sub C7_Click() T1.Text = HS1.Min T2.Text = (HS2.Min + HS2.Max) / 2 T3.Text = "" End Sub	Очистка окна результата и установка начальных значений.
Private Sub HS1_Change() T1.Text = HS1.Value End Sub	Обработка события первого скроллинга, чтобы его значение появлялось в текстовом поле.
Private Sub HS2_Change() T2.Text = HS2.Value End Sub	Обработка события второго скроллинга, чтобы его значение появлялось в текстовом поле.
Private Sub T1_Change() If Val(T1.Text) <= HS1.Min Then HS1.Value = HS1.Min Else HS1.Value = Val(T1.Text) End Sub	Обработка событий текстового поля переменной Х, чтобы ползунок первого скроллинга соответствовал значению текстового поля в случае ввода значения с клавиатуры.
Private Sub T2_Change() If Val(T2.Text) <= HS2.Min Then HS2.Value = HS2.Min Else HS2.Value = Val(T2.Text) End Sub	Обработка событий текстового поля переменной У, чтобы ползунок второго скроллинга соответствовал значению текстового поля в случае ввода значения с клавиатуры.

УРОК № 11-1

ТЕМА УРОКА: КОМПОНЕНТЫ «ПЕРЕКЛЮЧАТЕЛИ» И ИХ СВОЙСТВА.

ЦЕЛИ УРОКА:

26. Сформировать понятие переключателя и умения по его использованию;

27. Развивать логическое мышление;

28. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

1. КОМПОНЕНТЫ «ПЕРЕКЛЮЧАТЕЛИ» И ИХ СВОЙСТВА.

(Новый материал. Лекция.)

1) Переключатель – OptionButton. Предназначен для установки только одной опции из группы.
Основное свойство – Value, которое может принимать одно из двух значений: True или False.

2) Обычно переключатели объединяются в одну группу с помощью компонента «РАМКА» – Frame, события которой обычно не анализируются и особых свойств нет.

3) Последовательность работы: вначале создается Frame, а потом внутрь рамки помещаются переключатели. После этого, при перемещении Frame, перемещаются и переключатели, поэтому такие объекты называют контейнерами.

2. ЗАДАЧА «ТЕСТ ПО ЛИТЕРАТУРЕ».

(Закрепление. Практикум.)

УСЛОВИЕ.

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

Толстой Л.Н. – 9 сентября 1828 г.

Чехов А.П. – 29 января 1860 г.

Лермонтов М.Ю. – 15 октября 1814 г.

Пушкин А.С. – 6 июня 1799 г.

(Демонстрация работы программы )

РЕШЕНИЕ.

1) СОЗДАТЬ ФОРМУ.

2) НАПИСАТЬ ПРОГРАММНЫЙ КОД

ПРОЦЕДУРА	НАЗНАЧЕНИЕ
Public a$, b$, d$, c$, s	Объявление переменных
Private Sub С1_Click() If L2.Caption = a$ Then L2.Caption = b$ If Op2.Value = True Then s = s + 1 ElseIf L2.Caption = b$ Then L2.Caption = c$ If Op1.Value = True Then s = s + 1 ElseIf L2.Caption = c$ Then L2.Caption = d$ If Op3.Value = True Then s = s + 1 ElseIf L2.Caption = d$ Then L2.Caption = "тест закончен " If Op4.Value = True Then s = s + 1 L4.Caption = " ваша оценка " + Str(s + 1) L4.Visible = True End If End Sub	Проверка условий для смены текста в надписи L2 и для подсчета баллов с помощью переменной s.
Private Sub Form_Load() a$ = "Толстого Л.Н " b$ = "Чехова А.П. " c$ = "Лермонтова М.Ю. " d$ = "Пушкина А.С. " L2.Caption = a$ L4.Visible = False s = 0 End Sub	При загрузке формы строковым переменным a$, b$, c$, d$ присваиваются значения, в надписи L2 появляется первая фамилия, а надпись L4 становится невидимой. Первоначальное количество балов равно 0.

УРОК № 12-2

ТЕМА УРОКА: ОБЪЕКТ ListBox И ЕГО СВОЙСТВА. ЗАДАЧА «ЗАПИСНАЯ КНИЖКА».

ЦЕЛИ УРОКА:

29. Сформировать понятие ListBox и умения по его использованию;

30. Развивать логическое мышление;

31. Воспитывать интерес к предмету.

ТИП УРОКА: Объяснительно-демонстрационный с элементами практикума.

ХОД УРОКА.

1. ОБЪЕКТ ListBox И ЕГО СВОЙСТВА.

(Новый материал. Лекция.)

Список – ListBox – позволяет пользователю выбирать из заданного списка один или несколько элементов. В любое время в список можно добавлять новые элементы или удалять существующие. Если все элементы не могут одновременно отобразиться в поле списка, то в нем автоматически отображаются полосы прокрутки.

Свойства:

1) Text – содержит текст выбранного элемента или пустую строку, если ни один элемент не выбран.

2) List () – также определяет текст выбранного элемента, но уже по его индексу:
a$ = ListBox.List(2)

3) ListIndex – возвращает индекс выбранного элемента:
n = ListBox.ListIndex, если в списке ничего не выбрано, то n = –1

4) ListCount – определяет текущее количество элементов.

5) Columns – определяет количество столбцов в списке.

6) Sorted – способ расположения: если поставить сортировку по алфавиту, то все элементы будут упорядочены по возрастанию, даже если указывать Index.

7) MultiSelect – количество выбираемых элементов списка:
0 – только один элемент;
1 – простой множественный выбор щелчком мыши или клавишей пробел;
2 – расширенный множественный выбор (мышью или клавишами с использованием Shift и Ctrl)

Методы.

ListBox – это объект, для которого важную роль играют методы, необходимые для добавления и удаления элементов списка.

1. AddItem – метод для добавления элемента в список:
ListBox.AddItem < Элемент > [, Индекс]
Параметр < Элемент > это слово или предложение, которое необходимо добавить, а Индекс указывает место вставки в список. Данный метод вызывается при вставке каждого элемента. Как правило, заполнение списка выполняется при загрузке формы.

ПРИМЕР.

Privat Sub Form_Load

ListBox.AddItem «5 класс»

ListBox.AddItem «6 класс»

ListBox.AddItem «7 класс»

2. RemoveItem – метод для удаления элемента из списка:
ListBox.RemoveItem <Index элемента>
ПРИМЕР.
ListBox.RemoveItem 2

3. ListBox.Clear – метод для удаления всех элементов списка

2. ЗАДАЧА «ЗАПИСНАЯ КНИЖКА».

(Закрепление)

1. Создать две формы по образцу.

2. Создать программный код, чтобы программы работала следующим образом (Демонстрация ).

ФОРМА	ПРОЦЕДУРА	НАЗНАЧЕНИЕ
Forma 1	Private Sub Command1_Click() Form2.Visible = True Form1.Visible = False End Sub	Появляется на экране Форма 2 «Ввод» и исчезает Форма 2
Forma 1	Private Sub Command2_Click() List1.RemoveItem (List1.ListIndex) End Sub	Из списка удаляется выделенная строка.
Forma 1	Private Sub Command3_Click() End End Sub	Выход из программы
Forma 2	Private Sub Command1_Click() a = Text1(0).Text b = Text1(1).Text c = Text1(2).Text Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" Form1.List1.AddItem a & " " & b & " " & c Form1.Visible = True Form2.Visible = False End Sub	Введенный с клавиатуры текст в поля с индексами 0, 1 и 2 сохраняется с помощью переменных а, b и с. Затем эти поля очищаются, а значения переменных а, b и с добавляются в список через пробел. Далее, Форма 2 становится невидимой, а на экране появляется Форма 1.

УРОК № 3

ХОД УРОКА.

1. ОБЪЕКТНО-ОРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ

· Виды VB.

· Запуск программы.

УРОК № 4

ТЕМА УРОКА: ЭЛЕМЕНТЫ. ПРОГРАММНЫЙ КОД. ОТЛАДКА ПРОГРАММЫ.

НОВЫЕ СВОЙСТВА ОБЪЕКТА

Объем и площадь поверхности бруска

УРОК № 6-1

ТЕМА УРОКА: ВЕТВЛЕНИЕ. ЗАДАЧА «КАЛЬКУЛЯТОР».

УРОК № 7 – 1

ТЕМА УРОКА: ГРАФИЧЕСКИЕ ОБЪЕКТЫ В VB.

УРОК № 7 – 2

ТЕМА УРОКА: операторы выбора. ЗАДАЧА «ГОРОСКОП»

Общий формат:

SELECT CASE K

ELSE

END SELECT

УРОК № 9-1

ТЕМА УРОКА: ГРАФИЧЕСКИЕ МЕТОДЫ PSET, LINE, CIRCLE. ЦВЕТ.

Цвет в VB можно задать несколькими способами:

Цвет

УРОК № 10-1

ТЕМА УРОКА: ПОЛОСА ПРОКРУТКИ – СКРОЛЛИНГ.

УРОК № 10 – 2

ТЕМА УРОКА: ЗАДАЧА «КАЛЬКУЛЯТОР СО СКРОЛЛИНГОМ»

Сложение.

Вычитание.

Умножение.

Деление.

Извлечение квадратного корня.

Очистка окна результата и установка начальных значений.

Обработка события первого скроллинга, чтобы его значение появлялось в текстовом поле.

УРОК № 11-1

ТЕМА УРОКА: КОМПОНЕНТЫ «ПЕРЕКЛЮЧАТЕЛИ» И ИХ СВОЙСТВА.

Public a$, b$, d$, c$, s

УРОК № 12-2

ТЕМА УРОКА: ОБЪЕКТ ListBox И ЕГО СВОЙСТВА. ЗАДАЧА «ЗАПИСНАЯ КНИЖКА».

End Sub