Программа «Программирование в среде Visual Basic» (стр. 2 )

№ п/п	Тема	Примерное кол-во часов	Из них	Примерные сроки
Теория	Практика
Вводное занятие. Техника безопасности и правила поведения в компьютерном классе	1	1	-	Сентябрь
Язык программирования Visual BASIC	2	1	1	Сентябрь
Главное меню Visual BASIC	3	2	1	Сентябрь
Проект «Калькулятор»	8	2	6	Сентябрь
Проект «Плеер»	6	2	4	Октябрь
Перенос проекта на другие компьютеры	2	1	1	Октябрь
Постоянные и переменные величины. Объявление переменных. Оператор DIM	4	3	1	Ноябрь
Оператор печати DEBUG. PRINT	1	0,5	0,5	Ноябрь
Оператор присваивания	1	0,5	0,5	Ноябрь
Оператор запроса ввода данных с клавиатуры INPUT BOX.	2	1	1	Ноябрь
Разветвляющиеся алгоритмы. Оператор условного перехода IF… THEN… ELSE	4	2	2	Декабрь
Разветвляющиеся алгоритмы. Оператор SELECT CASE.	4	1	3	Декабрь
Оператор безусловного перехода GO TO	2	0,5	1,5	Январь
Зачетное занятие	2	1	1	Январь
Циклические алгоритмы. Операторы цикла  FOR… NEXT, DO…LOOP. Вложенные циклы. Оператор  выхода из цикла EXIT.	5	1,5	3,5	Январь-февраль
Операторы STOP, END, EXIT SUB
Г	Методы графики CLS,  PSET, LINE, CIRCLE, PAINTPICTURE, POINT. Свойства графических методов	6	2	4	Февраль-март
Процедуры пользователя	2	1	1	Март
Тип данных DATE. Функции для работы с датами и временем суток	4	2	2	Март
Движение объекта по экрану. Элемент управления Image. Анимация	2	1	1	Апрель
Проект «Будильник-секундомер»	9	3	6	Апрель-Май
Зачётное занятие.	2	-	2	Май
Итого:	72	29	43

Методическое обеспечение

Проект «Калькулятор»

  Проектируем

Создадим новый проект и разместим на форме 3 текстовых поля и 4 кнопки.

Свойства форм и элементов управления.

Мы уже познакомились с такими свойствами объектов, как BackColor, FondSize, Text. Количество свойств у каждого объекта большое. Многие из них можно менять в режиме работы [Run] при помощи программы, как мы уже делали. Оказывается многие свойства форм и элементов управления можно менять в режиме проектирования [design] вручную (так гораздо легче).

В режиме design выделим кнопку Command1. В окне свойств этого объекта (если его нет, выберем меню просмотр          свойства проекта) указаны свойства выделенного объекта. Они могут быть упорядочены по алфавиту (закладка alphabenic) или по категориям (categorized). Например, ширину кнопки можно менять вручную, вытягивая контур за маркеры, выставляя в свойствах ширину Widh или написав и выполнив оператор Command1.Width=200.

Щелкнув по любому месту формы, мы можем менять его свойства.

Имена и надписи.

       У каждого объекта есть имя (Name). У многих есть надпись (Caption). Это свойства объекта.

Выделим форму. В окне свойств найдем Name  изменим имя Form1 на Калькулятор. В заголовке формы ничего не изменилось, т. к. это надпись, а не имя. А имя Калькулятор появилось        в заголовке окна проекта. 

В окне свойств формы найдем Caption (надпись). Надпись form1 заменим на личный калькулятор Вовочки – классного программиста. Теперь все в порядке.

Зачем мы изменили надпись, нам понятно. А имя мы изменили для того, чтобы программа была более понятной для человека, т. к. теперь мы можем писать

Калькулятор. Width=6000

И это понятнее, чем

Form1.Width=6000

Теперь займемся кнопками. Выделим кн. Command1  и дадим ей имя Кл_сложения. Надпись на кнопке должна состоять из одного символа «+». Чтобы увеличить размер знака «+», в окне свойств  найдем свойство Font и щелк. по многоточию. Аналогично поступаем с остальными кнопками.

Текстовым полям дадим имена (Name):  Число1, Число2, Результат. А вот свойства Надпись (Caption) у текстовых полей нет. Вместо него есть свойство  Text. Чтобы в начале работы с калькулятором в текстовых полях  было пусто, сотрем в окне свойств значения свойства Text для всех трех полей.

Чтобы написать пояснительный текст в левой части калькулятора (Первое число, Второе число, Результат), воспользуемся элементом управления Label (метка), который в основном для пояснений и применяется. Поместим три метки из Toolbox слева от текстовых полей. Имена мы им менять не станем, т. к. они нам не будут нужны в программе, а надписи переменим на Первое число, Второе число, Результат  и сделаем шрифт на свой вкус.

Чтобы поместить на форму горизонтальную линию, найдем в Toolbox элемент управления Line, проведем линию на форме и изменим  в окне свойств свойство линии BorderWidh.

Проектирование калькулятора закончено. Можно приступать к программированию.

Программируем. Проект готов

Щелкнем  два раза по кнопке сложения и напишем  программу:

Private Sub Кл_сложения_Click()

Результат. Text = число1.Text + число2.Text

End Sub

Запустим проект. Вводим числа 2 и 3. Щелк. по кнопке сложения. Результат равен 23, т. к. выполнилась операция сцепления строк (если мы введем слова коро и бочка, то результат будет коробочка). Надо сказать ВБ, что обращаться с содержимым текстовых полей надо как с числами:

Результат. Text = Val(число1.Text) + Val(число2.Text)

Здесь Val – сокращение от Value (величина, численное значение).

Аналогично программируем три остальные кнопки. Необязательно щелкать по каждой кнопке и писать для нее программу. Можно это сделать только для первой кнопки, а потом скопировать получившуюся процедуру, вставить ее три раза и исправить нужные места. Помните о русских именах – как их задавали, так и пишем!

Наша программа:

Private Sub Кл_сложения_Click()

Результат. Text = Val(Число1.Text) + Val(Число2.Text)

End Sub

Private Sub кл_вычитания_Click()

Результат. Text = Val(Число1.Text) - Val(Число2.Text)

End Sub

Private Sub Кл_умножения_Click()

Результат. Text = Val(Число1.Text) * Val(Число2.Text)

End Sub

Private Sub Кл_деления_Click()

Результат. Text = Val(Число1.Text) / Val(Число2.Text)

End Sub

Задание 1

Создайте кнопку возведения в квадрат числа из верхнего тектового поля.

Указание. Возведение в квадрат – значит умножить само на себя.

Решение:

Создадим кнопку, дадим ей имя кл_квадрата, название - ^2, увеличим шрифт (п/ж, №14). Допишем программу:

Private Sub Кл_квадрата_Click()

Результат. Text = Val(Число1.Text) * Val(Число1.Text)

End Sub

Задание 2

Создайте кнопку “Сброс”, которая опустошала бы все три текстовых поля.

Указание. Для этого понадобятся операторы типа Число1.Text=””.

Решение:

Создадим кнопку, дадим ей имя кл_сброса, название – С, увеличим шрифт (п/ж, №18). Допишем программу:

Private Sub кл_сброса_Click()

Число1.Text = ""

  Число2.Text = ""

Результат. Text = ""

End Sub

Задание  4

Пусть при нажатии клавиши вычитания она прыгает куда-нибудь и на ней вместо знака  “-“ появляется текст «Не трогай меня – я нервная!». При нажатии клавиши Сброса клавиша вычитания должна возвращаться на свое место и принимать прежний вид.

Решение:

Private Sub кл_вычитания_Click()

кл_вычитания. Left = 4000

кл_вычитания. Top = 4000

кл_вычитания. Width = 1200

кл_вычитания. Height = 700

кл_вычитания. FontSize = 8

кл_вычитания. Caption = "Не трогай меня - я нервная!"

End Sub

Private Sub Кл_сложения_Click()

Результат. Text = Val(Число1.Text) + Val(Число2.Text)

End Sub

Private Sub кл_умножения_Click()

Результат. Text = Val(Число1.Text) * Val(Число2.Text)

End Sub

Private Sub кл_деления_Click()

Результат. Text = Val(Число1.Text) / Val(Число2.Text)

End Sub

Private Sub кл_квадрата_Click()

Результат. Text = Val(Число1.Text) * Val(Число1.Text)

End Sub

Private Sub кл_сброса_Click()

Число1.Text = ""

Число2.Text = ""

Результат. Text = ""

кл_вычитания. Left = 2520

кл_вычитания. Top = 960

кл_вычитания. Width = 375

кл_вычитания. Height = 375

кл_вычитания. FontSize = 17

кл_вычитания. Caption = "-"

End Sub

Оператор вывода сообщениий  MsgBox

Для того, чтобы наш калькулятор при завершении работы выдавал окно сообщения

Подойдет оператор MsgBox.

Чтобы он выполнился именно при завершении работы, ео нужно поместить в процедуру Private Sub Form_Terminate()

Private Sub Form_Terminate()

MsgBox ("А теперь считайте в уме!")