Разработка урока по программированию на VB в Visual Studio 2013 (2010)

Урок по теме «Создание проектов» с применением   функций  «Даты  и Времени»

Эскиз проекта “Личный Хронограф”

Урок изучения функций «Даты» и «Времени» в среде  Visual Studio на языке программирования  Visual Basic    Цель урока:  - Изучение новых знаний;  ­    приобрести знания по основам тео­ рии алгоритмов на примере решения  задач на создание проектов;     Задачи: ­ Создать проект «Личный Хронограф; ­ Закрепить умения и навыки програм­ мирования на языке ООП

Делаем первые шаги к поставленной цели,  выбираем и запускаем Visual Studio

В окне приложения Visual Studio  выбираем опцию «создать проект»

Указываем название и месторасположения  будущего проекта

В окне конструктора мы видим основу нашего  проекта со знакомым для нас окном  приложения Windows   ­ “Form1”

Меняем общепринятый заголовок  Form1 на  Личный Хронограф

Располагаем на форме первый  объект PictureBox1

и загружаем файл изображения в  объект PictureBox1 из папки Image

Далее помещаем второй объект Label1  и изменяем на нём надпись

Замена текста осуществляется в окне  миниредактора путем набора нового текста  (допускается редактирование)

Под Label1 располагаем TextBox1,  оставляя его содержимое пустым

Соответственно устанавливаем  Label2  ­ Label4 с надписями: Label2 – Ваш день рождения Label3 – Вы прожили  Label4 ­ дня (дней)

Добавляя к этим  меткам TextBox2,  TextBox3, Label5, TextBox4 и Label6

Далее загружаем объекты  PictureBox2­PictureBox13

и размещаем в них знаки зодиака

Каждому рисунку зодиака, свойству  Visible придать значение False

И наконец  самый важный объект  проекта ­ кнопка Button1

Немного косметики

Переходим к написанию КОДа С начало в Public Class Form1  объявим  переменные:  r – отвечает за содержимое текстового окна «Дата         рождения» в  формате Date;  a – это текущая дата, взятая из системного времени         компьютера в  формате Date;  Т – порядковый номер дня недели в формате Integer;  u – число отвечающее за год рождения, в формате Integer;

КОД для Private Sub Button1 события  Click         r = CDate(TextBox1.Text)        a = Today()        TextBox2.Text = DateDiff(DateInterval.Day, r, a)        T = Weekday(r, 2)        TextBox3.Text = WeekdayName(T)         u = Year(r)  Select Case r         Case DateSerial(u, 1, 1) To DateSerial(u, 1, 19)                          TextBox4.Text = "Козерог«                          PictureBox3.Visible = True         Case DateSerial(u, 1, 20) To DateSerial(u, 2, 18)                          TextBox4.Text = "Водолей"                          PictureBox4.Visible = True         Case DateSerial(u, 2, 19) To DateSerial(u, 3, 20)                          TextBox4.Text = "Рыба"                          PictureBox5.Visible = True         Case DateSerial(u, 3, 21) To DateSerial(u, 4, 19)                          TextBox4.Text = "Овен"                          PictureBox2.Visible = True         Case DateSerial(u, 4, 20) To DateSerial(u, 5, 20)                          TextBox4.Text = "Телец"                          PictureBox13.Visible = True         Case DateSerial(u, 5, 21) To DateSerial(u, 6, 21)                                                                           TextBox4.Text = "Близнец"                 PictureBox12.Visible = True Case DateSerial(u, 6, 22) To DateSerial(u, 7, 22)                 TextBox4.Text = "Рак"                  PictureBox11.Visible = True Case DateSerial(u, 7, 23) To DateSerial(u, 8, 22)                 TextBox4.Text = "Лев"                  PictureBox10.Visible = True Case DateSerial(u, 8, 23) To DateSerial(u, 9, 22)                  TextBox4.Text = "Дева"                  PictureBox9.Visible = True Case DateSerial(u, 9, 23) To DateSerial(u, 10, 23)                  TextBox4.Text = "Весы"                  PictureBox8.Visible = True Case DateSerial(u, 10, 24) To DateSerial(u, 11, 22)                  TextBox4.Text = "Скорпион"                  PictureBox7.Visible = True Case DateSerial(u, 11, 23) To DateSerial(u, 12, 21)                  TextBox4.Text = "Стрелец"                  PictureBox6.Visible = True Case DateSerial(u, 12, 22) To DateSerial(u, 12, 31)                  TextBox4.Text = "Козерог"                  PictureBox3.Visible = True End Select

Переходим к тестированию

или отладке проекта

Последний шаг – сохранение проекта

Нажимая «Сохранить» мы заканчиваем  работу над проектом

Домашнее задание.  Дополнить проект сведениями из восточного (китайского)  гороскопа     Восточный (Китайский) гороскоп.docx .    Используйте  сведения,  что текущий год – год Собаки  и  периодичность гороскопа 12 лет   Рекомендации: ­   определить интервал (промежуток) времени в годах  ­  найти остаток ( с помощью функции mod)  ­  и связать его с помощью Case с восточным гороскопом    Приготовиться к защите проектов

Список литературы для  подготовки к уроку:  Информатика Базовый уровень: учебник для 10  класса /И.Г. Семакин, Е.К. Хеннер, Т.Ю. Шеина – 4­е  изд.­ М.: Бином. Лаборатория знаний, 2015.­264с.:ил.     Visual Basic для студентов и школьников /Н.Б.  Культин, Л.Б. Цой СПб.:БХВ­Петербург, 2010. – 416  с.ил.+CD_ROM – (ИиИКТ)   Информатика. ВСЁ для учителя! №7(43) ИЮЛЬ 2014  Создание проектов на Visual Basic  http://astrosfera.ru/vostochnyj­goroskop.html .

Спасибо за внимание! Краснодарский край Туапсинский район пгт. Новомихайловский ул. Мира 67 МАОУ СОШ №35 Учитель информатики Куксин А.А.