End Sub

advertisement
Чем более читаете не размышляя, тем более уверяетесь, что много знаете, а
чем более размышляете читая, тем яснее видите, что знаете еще очень мало.
Вольтер
Тема урока:
Программирование приложения
Цели урока:
Образовательная: Применение ЗУН при программировании приложения
Развивающая: Развитие способности к анализу, обобщению и
систематизации
собственных
знаний, самоконтролю и самооценке,
рациональному использовании времени.
Воспитательная:
Формирование
навыков
индивидуальной
(самостоятельной) работы.
Задачи урока:
1. Контроль знаний по изученным темам (выполнение тестов);
2. Анализ тестового контроля (затруднения, оценки)
3. Актуализация знаний:
4.Создание
объектно-ориентированного
приложения
калькулятор»
«Инженерный
Межпредметные связи: «Информационные технологии», «Математика», «Операционные
системы», «англ.яз»
Тест «Объектно – ориентированное программирование»
Открыть:
Подсчет результатов выполненного теста:
Оценка «Отлично» - количество набранных баллов 13-15;
Оценка «Хорошо» - количество набранных баллов 10-12;
Оценка «Удовлетворительно» - количество набранных баллов 7-9;
Оценка «Неудовлетворительно» - количество набранных баллов ≤ 6;
Умение решать задачи—такое же практическое искусство, как умение плавать или бегать на
лыжах. Ему можно научиться только путем подражания или упражнения.
Дьердь Пойа
Этапы выполнения самостоятельной работы:
Создание объектно-ориентированного приложения «Инженерный калькулятор»:
I. Вводный инструктаж: цели и задачи по созданию объектно—ориентированного приложения;
II. Текущий инструктаж:
А. Самостоятельная работа:
.Запуск программы
.Открытие проекта «Простой калькулятор»
.Изменение листинга программы «Простой калькулятор» на «Инженерный калькулятор»:
- удаление кодов программы;
- добавление кнопок программы «Инженерный калькулятор»
- запись нового листинга программы;
- сохранение проекта, формы;
- сохранение программы с расширением .ехе;
- запуск программы—приложения.
Б. Оказание помощи студентам;
В. Дополнительное задание.
III. Заключительный инструктаж:
.анализ выполненных работ;
.разбор типичных ошибок;
.выставление оценок.
При изучении наук примеры полезнее, чем правила.
Исаак Ньютон «Универсальная арифметика»
Оценка «Удовлетворительно» - репродуктивный уровень: использование готового листинга программы;
программирование кнопок SIN(x), COS(x), TN(x).
Оценка «Хорошо» - продуктивный метод: работа по образцу—программирование листинга программы для
кнопок: модуль числа, возведение в степень, нахождение квадратного корня из числа.
Оценка «Отлично» - проблемно - поисковый метод: самостоятельная работа—программирование
листинга программы; программирование кнопок: нахождение экспоненты числа, нахождение
натурального логарифма числа, арктангенса числа.
Дополнительная работа—оценка «Отлично» - творческий уровень: самостоятельное программирование
дополнительных кнопок (нахождение % от заданного числа, перевод числа из десятичной системы
счисления в шестнадцатеричную, оформление работы графикой)
Критерии оценивания выполненной работы
АВС
Удовлетворительно
Хорошо
Отлично
•Добавить на форму три кнопки cmdSin, cmdCos,
cmdTan.
•Для каждой из этих кнопок создать событийные
процедуры, реализующие вычисление соответствующих
функций: синус, косинус, тангенс.
•Например, для возведения в степень событийная
процедура cmdSt_Click() примет вид:
Private Sub cmdSt_Click()
txt3Dec.Text = Val(txt1Dec.Text) ^
Val(txt2Dec.Text)
•End Sub
•Ввести самостоятельно программный код других
событийных процедур с использованием встроенных
функций языка Visual Basic: Sin(x), Cos(x),
Tan(x), Sqr(x) и Log(x) и др по заданию.
Листинг приложения «Инженерный калькулятор»
Private Sub cmdPlus_Click()
txt3Dec.Text = Val(txt1Dec.Text) + Val(txt2Dec.Text)
End Sub
Private Sub cmdMinus_Click()
txt3Dec.Text = Val(txt1Dec.Text) - Val(txt2Dec.Text)
End Sub
Private Sub cmdUmn_Click()
txt3Dec.Text = Val(txt1Dec.Text) * Val(txt2Dec.Text)
End Sub
Private Sub cmdDelen_Click()
txt3Dec.Text = Val(txt1Dec.Text) / Val(txt2Dec.Text)
End Sub
Private Sub cmdSin_Click()
txt3Dec.Text = Sin(Val(txt1Dec.Text))
End Sub
Private Sub cmdCos_Click()
txt3Dec.Text = Cos(Val(txt1Dec.Text))
End Sub
Private Sub cmdTan_Click()
txt3Dec.Text = Tan(Val(txt1Dec.Text))
End Sub
Private Sub cmdSqr_Click()
txt3Dec.Text = Sqr(Val(txt1Dec.Text))
End Sub
Private Sub cmdSt_Click()
txt3Dec.Text = Val(txt1Dec.Text) ^ Val(txt2Dec.Text)
End Sub
Private Sub cmdLog_Click()
txt3Dec.Text = Log(Val(txt1Dec.Text))
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdAtn_Click()
txt3Dec.Text = Atn(Val(txt1Dec.Text))
End Sub
Private Sub cmdExp_Click()
txt3Dec.Text = Exp(Val(txt1Dec.Text))
End Sub
Private Sub txt1Dec_Change()
End Sub
Сохранить файл с расширением .exe
Запустить приложение на выполнение.
Вычислить, например, 216. Ввести числа 2 и 16 и
щелкнуть по кнопке X^Y.
Download