Создание Windows-приложение Калькулятор.
план-конспект урока по информатике и икт (10 класс) по теме

Тема: Мультимедийный калькулятор (урок 2).

Цели урока:

1. Образовательная: создание кода клавиш.
2. Развивающие: ввод дополнительных функций языка Visual Basic.
3. Воспитательные: воспитание интереса к предмету.

Тип урока: комбинированный.

Средства и оборудование: компьютер, среда разработки VB6.0

Ход урока:

1. Проверка решения домашней задачи.

При щелчке на кнопки «BacksPace» должен удаляться последний символ в текстовом поле (последняя цифра числа). Этого можно достичь двумя способами: первый используя оператор Left$ из Бейсика или использовать оператор SendKyes

1. Private Sub CmdBack_Click()

Txt1.SetFocus

A=Left$(Txt1.Text,Len(Txt1.Text)-1)

Txt1.Text=A

End Sub

2. Private Sub CmdBack_Click()

Txt1.SetFocus

SendKeys "{End}"

SendKeys "{BS}"

End Sub

Как видно из приведенных примеров второй способ предпочтительней, так как более универсален и профессионален. Объясню значение оператора SendKeys. Оператор SendKeys позволяет отправить результат в активное окно будто бы от нажатия пользователем одной или нескольких клавиш.

Синтаксис:

SendKeys string [, wait]

wait – если значение True, то VB ждет до тех пор, пока не будет обработана строка, заданная параметром string. Если значение параметра равно False (по умолчанию), то VB продолжает выполнение программы после отправки строки;

string – строковое выражение, специфицирующее нажатые клавиши.

Допустимы следующие значения:

Клавиши                                         Код

от «А» до «Z», от «0» до «9»                 от {A} до {Z}, от {0} до {9}

«BacksPace»                                        {BacksPace} {BS} или {BKSP}

«Delete»                                                {DEL}

«End»                                                {End}

«Enter»                                                {Enter}

«Esc»                                                {Esc}

«←», «→», «↑», «↓»                                {Left}, {Right}, {Up}, {Down}

2. Задача.

Написать код для клавиш от «0» до «9» и для клавиш «С» и «Се». При этом учитывать, что текст в поле по умолчанию выровнен по правому краю, а нам надо по левому краю. И при передачи фокуса текстовому полю курсор всегда будет мигать (установлен) в начале поля, а не в конце.

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

При щелчке по любой из командных кнопок текстовое поле будет терять фокус, поэтому после добавления очередной цифры в поле необходимо передать ему фокус и перейти в конец строки с использованием оператора SendKeys "{End}".

Private Sub Cmd0_Click()

Me.Txt1.Text = Me.Txt1.Text & Me.Cmd0.Caption

Txt1.SetFocus

SendKeys "{End}"

End Sub

Точно такие же процедуры необходимо назначить всем кнопкам, которые вводят цифры.

3. Проверка ввод количества запятых

Для того чтобы в текстовое поле нельзя было ввести больше одной запятой необходимо проводить проверку корректности введенных данных. Для этой цели можно использовать строковую функцию InStr

Синтаксис:

InStr ([Start, ] StringCheck, StringMatch

• Start – числовое выражение, задающее позицию, с которой начинается каждый поиск. Если этот параметр опущен, то поиск начинается с первого символа строки;
• StringCheck – строковое выражение, в котором выполняется поиск;
• StringMatch – искомое строковое выражение.

Private Sub Cmd10_Click()

Dim Число As String

Dim Знак As String

Число = Txt1.Text

Знак = ","

If InStr(Число, Знак) > 0 Then ' проверка на наличие запятой

                               'в поле Txt1

Else

   Me.Txt1.Text = Me.Txt1.Text & Me.Cmd10.Caption

End If

Txt1.SetFocus

SendKeys "{End}"

End Sub

Работа за ПК в среде программирования Visual Basic.

Написание кода к клавишам.

4. Домашнее задание: Разобрать код для кнопок выполняющим математические операции.
5. Итог урока. Выставление оценок.