81273
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5 480 руб.;
- курсы повышения квалификации от 1 400 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ 60%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до 28 февраля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

Инфоурок / Информатика / Презентации / Построение биоритмов человека на языке программирования Visual Basic

Построение биоритмов человека на языке программирования Visual Basic


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
библиотека
материалов
 Пестов Владимир Эрикович Учитель информатики ГБОУ Школа № 1494, СП 296
Содержание: Историческая справка о истории календаря и биоритмов. Анализ зада...
Биоритмы 	 Биологические ритмы — периодически повторяющиеся изменения в ходе...
Юлианский календарь 	 Юлианский календарь был разработан группой александрийс...
Григорианский календарь 	 Григорианский календарь в католических странах был...
Разница дат юлианского и григорианского календарей: Век 	Дней 	Период (по Гри...
Теория «Трёх ритмов» 	 Теория «Трёх ритмов» - теория, предполагающая наличие...
При построении графиков функции будем использовать язык программирования Visu...
Введем необходимые переменные: Dim e As Integer Dim g As Integer Dim h As Lon...
Определим текстовые окна: a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Tex...
Каждому месяцу соответствует определенное количество дней: d(1) = 31 d(2) = 2...
Является ли год високосным?
Программа, которая определяет является ли год високосным - If i Mod 4 = 0 The...
Подсчитаем общее количество дней от дня рождения до текущего дня - g = 0 For...
If m
Выводим условные обозначения: p2.Scale (-3, 3)-(3, -3) p2.DrawWidth = 3 p2.Li...
Строим синусоиды, характеризующие биоритмы человека - For i = k To k + 31 Ste...
Данная работа создавалась как хорошее наглядное пособие, позволяющее продемо...

Описание презентации по отдельным слайдам:

1 слайд
Описание слайда:

2 слайд  Пестов Владимир Эрикович Учитель информатики ГБОУ Школа № 1494, СП 296
Описание слайда:

Пестов Владимир Эрикович Учитель информатики ГБОУ Школа № 1494, СП 296

3 слайд Содержание: Историческая справка о истории календаря и биоритмов. Анализ зада
Описание слайда:

Содержание: Историческая справка о истории календаря и биоритмов. Анализ заданного года с целью выяснения, является ли он високосным. Определение порядкового номера дня в данном году. Определение количества дней от даты рождения до заданной даты. Определение биоритмов человека.

4 слайд Биоритмы 	 Биологические ритмы — периодически повторяющиеся изменения в ходе
Описание слайда:

Биоритмы Биологические ритмы — периодически повторяющиеся изменения в ходе биологических процессов в организме или явлений природы. Является фундаментальным процессом в живой природе. Наукой, изучающей биоритмы, является хронобиология. По связи с естественными ритмами окружающей среды биоритмы подразделяются на физиологические и экологические. Существует тесная зависимость между фазой солнечного цикла и лунных ритмов Психологи отмечают изменения в поведении некоторых людей, связанные с фазами луны, в частности, известно, что в новолуние растёт число самоубийств, сердечных приступов и пр.

5 слайд Юлианский календарь 	 Юлианский календарь был разработан группой александрийс
Описание слайда:

Юлианский календарь Юлианский календарь был разработан группой александрийских астрономов и введён Юлием Цезарем в 45 г до н. э.. Год по юлианскому календарю начинается 1 января, так как именно в этот день с 153 год до н. э. избранные комициями консулы вступали в должность. В юлианском календаре обычный год состоит из 365 дней и делится на 12 месяцев. Раз в 4 года объявляется високосный год, в который добавляется один день — 29 февраля (ранее аналогичная система была принята в зодиакальном календаре по Дионисию). Таким образом, юлианский год имеет продолжительность в среднем 365,25 дней, что отличается на 11 минут от тропического года. Точность юлианского календаря невысока: каждые 128 лет накапливается лишний день. Разница между юлианским и григорианским календарями постоянно увеличивается из-за разных правил определения високосных годов: в юлианском календаре такими являются все годы, кратные 4, тогда как в григорианском годы, кратные 100, но при этом не кратные 400, високосными не являются.

6 слайд Григорианский календарь 	 Григорианский календарь в католических странах был
Описание слайда:

Григорианский календарь Григорианский календарь в католических странах был введён папой Григорием XIII 4 октября 1582 года взамен старого юлианского: следующим днём после четверга 4 октября стала пятница 15 октября (дней с 5 по 14 октября 1582 в григорианском календаре нет). Поводом к принятию нового календаря стало постепенное смещение по отношению к юлианскому календарю дня весеннего равноденствия, по которому определялась дата Пасхи, и рассогласование пасхальных полнолуний с астрономическими. В России григорианский календарь введён в 1918 году декретом Совнаркома, согласно которому в 1918 году после 31 января следовало 14 февраля.

7 слайд Разница дат юлианского и григорианского календарей: Век 	Дней 	Период (по Гри
Описание слайда:

Разница дат юлианского и григорианского календарей: Век Дней Период (по Григорианскому календарю) XIV 8 8 марта 1300 — 8 марта 1400 XV 9 9 марта 1400 — 9 марта 1500 XVI и XVII 10 10 марта 1500 — 10 марта 1700 XVIII 11 11 марта 1700 — 11 марта 1800 XIX 12 12 марта 1800 — 12 марта 1900 XX и XXI 13 13 марта 1900 — 13 марта 2100 XXII 14 14 марта 2100 — 14 марта 2200

8 слайд Теория «Трёх ритмов» 	 Теория «Трёх ритмов» - теория, предполагающая наличие
Описание слайда:

Теория «Трёх ритмов» Теория «Трёх ритмов» - теория, предполагающая наличие многодневных ритмов, не зависящих как от внешних факторов, так и от возрастных изменений самого организма. Пусковым механизмом этих ритмов является только момент рождения человека, при котором возникают ритмы с периодом в 23, 28 и 33 суток, определяющие уровень его физической, эмоциональной и интеллектуальной активности. Графическим изображением этих ритмов является синусоида. Предположению о существовании «трех биоритмов» около ста лет. Ее авторами стали три человека: психолог Герман Свобода, отоларинголог Вильгельм Флисс, открывшие эмоциональный и физический биоритмы, и преподаватель Фридрих Тельчер, исследовавший интеллектуальный ритм. Существуют многочисленные программы для определения биоритмов, все они привязываются к дате рождения.

9 слайд При построении графиков функции будем использовать язык программирования Visu
Описание слайда:

При построении графиков функции будем использовать язык программирования Visual Basic. Перечислим основные свойства и методы объекта «Графическое окно» (PictureBox). Объект: PictureBox. Имя Объекта: Picture1. Масштаб графического окна: Picture1.Scale(x1,y1)-(x2,y2). Очистка графического окна: Picture1.Cls Построение точки: Picture1.Pset (x,y),(цвет) Используем базовые конструкции цикл и условие языка программирования Visual Basic. Конструкция, цикл: For To Step Next Конструкция, условия: If Then Else End if При построении графиков функции применяем встроенную математическую функцию: y=sin x Запись на языке Visual Basic: y=sin(x) Т.к. Значение переменных при построении графиков функции являются действительными числами, то тип переменной – Double. Пример: Dim x As Double , y As Double.

10 слайд Введем необходимые переменные: Dim e As Integer Dim g As Integer Dim h As Lon
Описание слайда:

Введем необходимые переменные: Dim e As Integer Dim g As Integer Dim h As Long Dim j As Integer Dim k As Long Dim n As String Dim d(12) As Integer Dim o As Integer

11 слайд Определим текстовые окна: a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Tex
Описание слайда:

Определим текстовые окна: a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) f = Val(Text4.Text) l = Val(Text5.Text) m = Val(Text6.Text) a b c f l m

12 слайд Каждому месяцу соответствует определенное количество дней: d(1) = 31 d(2) = 2
Описание слайда:

Каждому месяцу соответствует определенное количество дней: d(1) = 31 d(2) = 28 d(3) = 31 d(4) = 30 d(5) = 31 d(6) = 30 d(7) = 31 d(8) = 31 d(9) = 30 d(10) = 31 d(11) = 30 d(12) = 31

13 слайд Является ли год високосным?
Описание слайда:

Является ли год високосным?

14 слайд Программа, которая определяет является ли год високосным - If i Mod 4 = 0 The
Описание слайда:

Программа, которая определяет является ли год високосным - If i Mod 4 = 0 Then If i Mod 100 = 0 Then If i Mod 400 = 0 Then j = 366 Else j = 365 End If Else j = 366 End If Else

15 слайд Подсчитаем общее количество дней от дня рождения до текущего дня - g = 0 For
Описание слайда:

Подсчитаем общее количество дней от дня рождения до текущего дня - g = 0 For i = b + 1 To 12 g = d(i) + g Next g = g + (d(b) - a) End If h = 0 For i = c + 1 To f - 1 If i Mod 4 = 0 Then If i Mod 100 = 0 Then If i Mod 400 = 0 Then j = 366 Else j = 365 End If Else j = 366 End If Else j = 365 End If h = h + j Next

16 слайд If m
Описание слайда:

If m <= 12 And l <= d(b) Then If f Mod 4 = 0 Then If f Mod 100 = 0 Then If f Mod 400 = 0 Then d(2) = 29 Else d(2) = 28 End If Else d(2) = 29 End If Else d(2) = 28 End If e = 0 For i = 1 To m - 1 e = d(i) + e Next e = e + l End If k = g + h + e Label9.Caption = k

17 слайд Выводим условные обозначения: p2.Scale (-3, 3)-(3, -3) p2.DrawWidth = 3 p2.Li
Описание слайда:

Выводим условные обозначения: p2.Scale (-3, 3)-(3, -3) p2.DrawWidth = 3 p2.Line (-2.5, 2)-(-1, 2), vbRed p2.Line (-2.5, 0)-(-1, 0), vbGreen p2.Line (-2.5, -2)-(-1, -2), vbBlue p.Scale (k, 1.4)-(k + 31, -1.4) p.Cls p.DrawWidth = 1 p.Line (k, 0)-(k + 31, 0) p.Line (0, 1.4)-(0, -1.4) For i = k To k + 30 p.Line (i, -0.1)-(i, 0.1) p.Print i - k + 1 Next

18 слайд Строим синусоиды, характеризующие биоритмы человека - For i = k To k + 31 Ste
Описание слайда:

Строим синусоиды, характеризующие биоритмы человека - For i = k To k + 31 Step 0.01 p.DrawWidth = 3 p.PSet (i, Sin(6.2832 * i / 23)), vbRed p.PSet (i, Sin(6.2832 * i / 28)), vbGreen p.PSet (i, Sin(6.2832 * i / 33)), vbBlue Next

19 слайд Данная работа создавалась как хорошее наглядное пособие, позволяющее продемо
Описание слайда:

Данная работа создавалась как хорошее наглядное пособие, позволяющее продемонстрировать возможность построения биоритмов человека с использованием основных конструкций языка программирования Visual Basic. Заключение -

Общая информация

Номер материала: ДВ-340677



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс «1С: Предприятие 7.7»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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