Урок "Составление программ на языке Visual Basic"

Предмет: Основы вычислительной техники

Тема: «Составление программ на языке Visual Basic»

Цели: Научить составлять программы на языке Visual Basic

Развить интерес к программированию

Воспитать бережное отношение к вычислительной технике

Тип урока: урок-практикум

Оснащение урока: компьютер, Visual Basic

Ход урока:

1.     Орг.момент. (Учащиеся готовятся к уроку. Дежурный подает рапортичку об отсутствующих). Преподаватель сообщает тему урока.

Чтобы разнообразить урок, мы проведем соревнование между двумя командами. Объяснение туров.

2.     Группа делится на две команды. Выбирается один консультант. За каждый правильный ответ учащийся получает кружок, а в конце урока по их количеству определяется оценка.

                                 I.         Тур «Приветствие»

                              II.         Тур «Домашнее задание-презентация». Одна команда  готовит и защищает презентацию на тему «Пол Аллен», вторая на тему «Билл Гейтс-основатель фирмы Microsoft». Миллиардер Билл Гейтс заявил: <Я думаю, что это замечательное время для того, чтобы жить. Никогда еще не было столько возможностей, чтобы делать вещи, которые были невозможны раньше. Это самое подходящее время для основания новых компаний и коммерческих предприятий". Это высказывание должно вдохновить учащихся на лучшее усвоение знаний, которые в скором времени им придется применять в жизни.

                          III.          Тур «Разминка». Преподаватель показывает карточки со свойствами, событиями, методами языка программирования Visual Basic, а учащиеся комментируют  их.

                          IV.          Тур «Знатоки операторов программирования». Тест на знание операторов и функций языка программирования Visual Basic. На интерактивной доске  высвечиваются вопросы для двух вариантов, учащиеся на листочках должны записать ответы.( Время 5 минут).

                             V.          Тур «Сыщики». Учащиеся должны найти ошибки в программах. После того как работы будут сданы, они должны прокомментировать свои работы.

                          VI.          Тур «Эрудиты». Учащиеся, которые набрали больше всего баллов переходят в этот тур, а остальные начинают работать с тестами (40 вопросов). «Эрудиты», получают задание, которое должны сразу выполнить на головном компьютере по цепочке. Промежуточное подведение итогов.

Чтобы снять напряжение, немного расслабиться учащиеся делают   пальпинг(1 минута). Затем задание на внимательность.

                       VII.         Тур «Программисты». Преподаватель объясняет, как будут оцениваться задания разного уровня сложности. Затем учащиеся получают задание, сами выбирают уровень сложности и составляют программы на компьютере.

Подведение итогов.

Домашнее задание. Задача № 131 на  стр 42.

• 1 слайд

  Тема урока: «Решение задач на Visual Basic»
  

• 2 слайд

  Основные этапы:
  I тур «Приветствие команд»
  II тур «Домашнее задание»
  III тур «Разминка»
  IV тур «Знатоки операторов»
  V тур «Сыщики»
  VI тур «Знатоки», тестирование
  VII тур «Программисты»
  
  

• 3 слайд

  «Я думаю, что это замечательное время для того, чтобы жить. Никогда еще не было столько возможностей, чтобы делать вещи, которые были невозможны раньше. Это самое подходящее время для основания новых компаний и коммерческих предприятий».
  

• 4 слайд

  1 вариант2 вариант
  Оператор выбора в Visual Basic
  
  Оператор ввода данных с клавиатуры в Pascal
  
  Безусловный оператор в Pascal
  Цикл с параметром в Visual Basic
  
  Оператор вывода данных на экран в Pascal
  
  Оператор с постусловием в Pascal
  
  
  
  

• 5 слайд

  1 вариант2 вариант
  Объявление данных в Visual Basic
  
  Оператор с предусловием в Pascal
  
  Цикл, управляемый в конце в Visual Basic
  
  Оператор выбора в Pascal
  
  Цикл, управляемый в начале в Visual Basic
  
  
  Объявление переменных в Pascal
  
  
  

• 6 слайд

  1 вариант2 вариант
  Функция, вычисляющая дробную часть числа в Pascal
  Функция, преобразующая численное выражение в строку в Visual Basic
  Функция, отсекающая дробную часть числа в Pascal
  
  
  Функция, округляющая до ближайшего целого числа в Pascal
  Функция, возвращающая число, содержащееся в строке в Visual Basic
  Функция, вычисляющая целую часть числа
  
  
  
  

• 7 слайд

  Private Sub Commond1_Click()
  Dim First, Second As Single
  Fisrt = Val(Text1.Text)
  Second = Val(Text2.Text)
  If Option1.Value = True Then
  Label4.Caption = First + Second
  End If
  If Option.Value = True Then
  Label4.Caption = First - Second
  If Option3.Value = True Then
  Label4.Caption = First * Second
  End If
  If Option4.Value = True Then
  Label4Caption = First / Second
  End If
  End Sub
  

• 8 слайд

  Private Sub Commond1_Click()
  Dim First, Second As Single
  Fisrt = Val(Text1.Text)
  Second = Val(Text2.Text)
  If Option1.Value = True Then
  Label4.Caption = First + Second
  End If
  If Option2.Value = True Then
  Label4.Caption = First – Second
  End if
  If Option3.Value = True Then
  Label4.Caption = First * Second
  End If
  If Option4.Value = True Then
  Label4.Caption = First / Second
  End If
  End Sub
  5 ошибок
  

• 1 слайд

  биография
  успехи
  семья
  Microsoft
  BILL GATES
  

• 2 слайд

  Билл Гейтс (Уилиам Генри Гейтс III).
  Бизнесмен, миллиардер, Основатель корпорации Microsoft
  Далее
  Назад в меню
  

• 3 слайд

  Отец Билла Гейтса – Уилиам Генри ГЕЙТС II
  

• 4 слайд

  Детство
  и юность Билла
  

• 5 слайд

  Семья:
  Билл, его жена Мелинда и дети:
  Дженнифер Катарин Гейтс,
  Рори Джон Гейтс и Фиби Адель Гейтс
  
  Далее
  Назад в меню
  

• 6 слайд

  Билл Гейтс с супругой Мелиндой Гейтс
  на всемирном экономическом форуме
  

• 7 слайд

  «Умный дом» Билла Гейтса
  

• 8 слайд

  Билл Гейтс
  с дочерью Фиби
  Далее
  Назад в меню
  

• 9 слайд

  корпорация
  Microsoft
  Далее
  Назад в меню
  

• 10 слайд

  Пол Аллен и Билл Гейтс
  

• 11 слайд

  Организация Microsoft
  

• 12 слайд

  Билл Гейтс с компьютером
  

• 13 слайд

  Билл Гейтс на презентации
  Windows 95 и Windows Vista
  Далее
  Назад в меню
  

• 14 слайд

  Билл Гейтс на обложке
  известного во всем мире
  Журнала
  «Time»
  Далее
  Назад в меню
  

• 15 слайд

  Вручение диплома в Гарварде
  

• 16 слайд

  Благотворительность
  

Задача №1. С помощью Data Manager создать таблицу «Avto», заполнить данными. Создать форму с текстовыми полями «Описание автомобиля», «Дата эксплуатации», вставить элемент Data и связать через него с таблицей “Avto”.

Задача №2. С помощью Data Manager создать таблицу «Telefon», заполнить данными. Создать форму с текстовыми полями «Номер телефона», «Абонент», вставить элемент Data и связать через него с таблицей “Telefon”.

Задача №3 С помощью Data Manager создать таблицу «Client», заполнить данными. Создать форму с текстовыми полями «Клиент», «Адрес», вставить элемент Data и связать через него с таблицей “Client”.

Задача №4 С помощью Data Manager создать таблицу «Product», заполнить данными. Создать форму с текстовыми полями «Название продукта», «Цена», вставить элемент Data и связать через него с таблицей “Product”.

Задача №5 С помощью Data Manager создать таблицу «Gruppa», заполнить данными. Создать форму с текстовыми полями «Учащийся», «Год рождения», «Адрес» вставить элемент Data и связать через него с таблицей “Gruppa”.

Задача №6 С помощью Data Manager создать таблицу «Zachet», заполнить данными. Создать форму с текстовыми полями «Учащийся», «”Экзамен по физике», «Экзамен по математике» вставить элемент Data и связать через него с таблицей “Zachet”.

Задача №7. Установить на форму текстовое окно и командную кнопку. В текстовое окно вводится число от 0 до 100. Надо определить количество десятичных цифр в числе.

Задача №8. Подсчитать среднее значение элементов массива из 5 чисел.

Задача №13 Составить программу вычисления стоимости поездки на автомобиле (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина.

Вид экрана

Расстояние до дачи(км) 100

Расход бензина (литров на 100 км пробега) 8.5

Цена литра бензина 120

Поездка на дачу и обратно обойдется в ….

Задача №14. Составить программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 тенге.

Вид экрана

Введите сумму покупки 1640

Вам предоставляется скидка 10%

Сумма покупки с учетом скидки ….

Задача №14. Составить программу проверки знания даты начала второй мировой войны. В случае неверного ответа пользователя программа должна выводить правильный ответ.

Вид экрана

В каком году началась вторая мировая война?

Введите число 1939

Правильно

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

Вид экрана

Архитектор Исаакиевского собора

1. Доменико Трезини
2. Огюст Монферран
3. Карл Росси

Введите номер правильного ответа 2

Вы ошиблись

Архитектор Исаакиевского собора Огюст Монферран

Задача №15.  Написать программу, которая запрашивает у пользователя номер дня недели и выводит день недели

Задача №16.  Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: «Рабочий день», «Суббота» или «Воскресенье»

Задача №18. Написать программу, которая вычисляет сумму первых 10 целых положительных чисел.

Задача №18. Написать программу, которая вычисляет сумму первых 20 членов ряда 1+1/2+1/3+1/4+…

Задача №17.  Написать программу, вычисляющая стоимость междугороднего телефонного разговора. Исходными данными для программы являются код города и продолжительность разговора.

Вид экрана

Код города-812

Длительность разговора 3

Город Владивосток

Цена минуты 2.20

Стоимость разговора 6.60

Город	Код	Цена минуты
Владивосток	423	2.2
Москва	095	1.0
Мурманск	815	1.2
Самара	846	1.4

Задача №18. Написать программу, которая вычисляет сумму первых 10 целых положительных чисел.

Задача №18. Написать программу, которая вычисляет сумму первых 20 членов ряда 1+1/2+1/3+1/4+…

Задача №18. Написать программу, которая вычисляет среднее арифметическое суммы первых 10 целых положительных чисел.

Задача №19. Написать функцию, которая возвращает максимальное из двух целых чисел, полученных в качестве аргумента.

Задача №20. Написать функцию, которая возвращает 10% от числа, полученного в качестве аргумента.

Задача №20. Написать функцию, которая возвращает 20% от числа, полученного в качестве аргумента.

Задача №21. Создать меню с пунктами Файл, Правка, Вставка, Справка. В меню Вставка предусмотреть команду Загрузить для вставки  рисунка в ЭУ Picture1.

Задача №14. Составить программу проверки знания даты начала второй мировой войны. В случае неверного ответа пользователя программа должна выводить правильный ответ.

Вид экрана

В каком году началась вторая мировая война?

Введите число 1939

Правильно

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

Вид экрана

Архитектор Исаакиевского собора

4. Доменико Трезини
5. Огюст Монферран
6. Карл Росси

Введите номер правильного ответа 2

Вы ошиблись

Архитектор Исаакиевского собора Огюст Монферран

Задача №15.  Написать программу, которая запрашивает у пользователя номер дня недели и выводит день недели

Задача №16.  Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: «Рабочий день», «Суббота» или «Воскресенье»