privet.docx

Министерство образования Республики Башкортостан
Государственное бюджетное профессиональное образовательное учреждение
УФИМСКИЙ ГОСУДАРСТВЕННЫЙ КОЛЛЕДЖ РАДИОЭЛЕКТРОНИКИ,
ТЕЛЕКОММУНИКАЦИЙ И БЕЗОПАСНОСТИ
ОТЧЕТ
к индивидуальному проекту
По дисциплинам «Информатика» и «Математика»
Тема:
«Правильные многогранники»
Специальность 09.02.03«Программирование в компьютерных
системах»
Курс
1
Семестр
2
Оценка ________________
Консультанты:
___________Идрисова Г.Р.
___________Казанцев А.В.
«___» ____________ 2016 г.
Уфа – 2016
Выполнил:
студ. гр. 9ПКС-11УП-15
(зач. кн. 9ПКС-11УП-15-01)
_________Акбашева Е.А.
«___» ___________ 2016 г.
Министерство образования Республики Башкортостан
Государственное бюджетное профессиональное образовательное учреждение
УФИМСКИЙ ГОСУДАРСТВЕННЫЙ КОЛЛЕДЖ РАДИОЭЛЕКТРОНИКИ,
ТЕЛЕКОММУНИКАЦИЙ И БЕЗОПАСНОСТИ
ЗАДАНИЕ
на индивидуальный проект
по дисциплине «Информатика» и «Математика»
Студент ___________ Группа ___________
Фамилия И.О.
Номер акад. гр.
Консультанты _____________
Фамилия И.О.
___________________________________________________________________________________________________________________
1. Тема индивидуального проекта: ________________________________
____________________________________________________________
____________________________________________________________
2. В отчете должны содержаться следующие разделы: титульный лист,
задание на индивидуальный проект, содержание, введение,
теоретическая часть по математике ,выбор графических элементов и
разработка алгоритма, схема алгоритма, текст программы, описание
программы, графический интерфейс разработанной программы
,заключение, список литературы.
Руководитель ____________
(подпись)
Руководитель ____________
(подпись)
Дата окончания ___________
Содержание
Введение…………………………………………………………………………….
Правильные многогранники. Определение. Виды правильных
многогранников.........................................................................................................
Выбор графических элементов и разработка алгоритма………………………...
Схема алгоритма…………………………………………………………………....
Графический интерфейс программы……………………………………………...
Программный код и описание программы……………….………………………
Заключение ………………………………………………………………………...
Список использованной литературы……………………………………………...
Введение
В данном индивидуальном проекте затрагивается тема платоновых тел
или, другими словами, правильных многогранников. Проект направлен на
ознакомление аудитории с определением правильных многогранников, их
видами и описанием каждого из них.
Также реализуется программа-информатор, которая в простой и
понятной форме позволяет получить базовые знания по теме «Правильные
многогранники». В программе имеется возможность подсчета объёмов и
площадей каждой фигуры. Разработка осуществляется в среде VisualBasic 6.0
с разработкой графического интерфейса программы.
Правильные многогранники. Определение. Виды правильных
многогранников.
Определение:
Правильный многогранник или плато́ново тело — это выпуклый
многогранник, состоящий из одинаковых правильных многоугольников и
обладающий пространственной симметрией.
Одно из древнейших упоминаний о правильных многогранниках находится в
трактате Платона (427-347 до н. э.) "Тимаус". Поэтому правильные
многогранники также называются платоновыми телами (хотя известны они
были задолго до Платона).
Многогранник называется правильным, если:
1. он выпуклый;
2. все его грани являются равными правильными многоугольниками;
3. в каждой его вершине сходится одинаковое число рёбер.
В трёхмерном пространстве существует всего пять правильных
многогранников (название каждого многогранника происходит от
греческого названия количества его граней и слова «грань»):
1. Тетраэдр
2. Октаэдр
3. Икосаэдр
4. Гексаэдр или куб
5. Додекаэдр
Каждый из правильных многогранников Платон ассоциировал с четырьмя
"земными" элементами (стихиями): земля (куб), вода (икосаэдр), огонь
(тетраэдр), воздух (октаэдр), а также с "неземным" элементом - небом
(додекаэдр).
Виды правильных многогранников:
Тетраэдр
Тетраэдр составлен из
четырех равносторонних
треугольников. Каждая его вершина является вершиной трех
треугольников. Сумма плоских углов при каждой вершине
равна 180 градусов. Таким образом, тетраэдр имеет 4 грани, 4
вершины и 6 ребер.
Элементы симметрии:
Тетраэдр не имеет центра симметрии, но имеет 3 оси симметрии и 6
плоскостей симметрии.
Свойства:
1. Параллельные плоскости, проходящие через пары скрещивающихся рёбер
тетраэдра, определяют описанный около тетраэдра параллелепипед;
2. Плоскость, проходящая через середины двух скрещивающихся рёбер
тетраэдра,
делит
его
на
две
равные
по
объему
части;
3. Бимедианы тетраэра пересекаются в той же самой точке, что и медианы
тетраэдра. Бимедианами тетраэдра называют отрезки, соединяющие
середины его скрещивающихся рёбер (не имеющих общих вершин).
Интересные факты:
1. Немало
молекул
имеют
вид
тетраэдра.
Например, кристаллы белого фосфора образованы молекулами Р4
тетраэдрической формы. Молекулы метана CH4 также являются
тетраэдрами.
У алмаза в кристаллической решетке каждый из атомов углерода
находится в центре тетраэдра, а вершинами служат четыре ближайших
атома. Именно такая структура делает алмаз самым твердым
минералом на Земле.
2. Тетраэдр распространен в живой природе: плоды некоторых растений
собраны в кисти именно такой формы. Например, таким образом могут
располагаться грецкие орехи.
3. В СССР продавали молоко в пакетах формы тетраэдра, т.к. пакеты
такой формы удобно склеивать на конвейере.
4. Тетраэдр образует жёсткую, статически определимую конструкцию.
Тетраэдр, выполненный из стержней, часто используется в качестве
основы для пространственных несущих конструкций.
Куб
Куб составлен из шести квадратов. Каждая его
вершина является вершиной трех квадратов. Сумма
плоских углов при каждой вершине равна 270 градусов.
Таким образом, куб имеет 6 граней, 8 вершин и 12 ребер.
Элементы симметрии:
Куб имеет центр симметрии - центр куба, 9 осей
симметрии и 9 плоскостей симметрии.
Свойства:
1. Четыре сечения куба являются правильными шестиугольниками — эти
сечения проходят через центр куба перпендикулярно четырём его главным
диагоналям;
2. В куб можно вписать тетраэдр двумя способами. В обоих случаях четыре
вершины тетраэдра будут совмещены с четырьмя вершинами куба и все
шесть
рёбер
тетраэдра
будут
принадлежать
граням
куба;
3. В куб можно вписать октаэдр, притом все шесть вершин октаэдра будут
совмещены
с
центрами
шести
граней
куба;
4. Куб можно вписать в октаэдр, притом все восемь вершин куба будут
расположены
в
центрах
восьми
граней
октаэдра;
5. В куб можно вписать икосаэдр, при этом шесть взаимно параллельных
рёбер икосаэдра будут расположены соответственно на шести гранях куба,
остальные 24 ребра — внутри куба. Все двенадцать вершин икосаэдра будут
лежать на шести гранях куба.
Интересные факты:
1. Кристаллы каменной соли и сахара имеют форму куба.
Форму куба имеют кристаллические решетки многих металлов.
2. Куб Неккера - это оптическая иллюзия, представляющая собой куб,
рёбра которого пересекаются противоречивым способом. Является
примером невозможной фигуры.
3. Привычные вещи, которые мы часто втречаем в повседневной жизни,
представляют собой гексаэдр: кусочки рафинада, кубик Рубика,
традиционная игральная кость, кубики льда в прохладительных
напитках.
Октаэдр
Октаэдр составлен из восьми равносторонних
треугольников. Каждая его вершина является вершиной
четырех треугольников. Сумма плоских углов при каждой
вершине равна 240 градусов. Таким образом, октаэдр имеет
8 граней, 6 вершин и 12 ребер.
Элементы симметрии:
Октаэдр имеет центр симметрии - центр октаэдра, 9 осей
симметрии и 9 плоскостей симметрии.
Свойства:
1. Октаэдр легко вписывается в тетраэдр, при этом 4 из 8-ми граней октаэдра
совместятся с 4-мя гранями тетраэдра, каждая из 6-ти вершин октаэдра
совместится
с
центрами
6-ти
ребер
тетраэдра;
2. Октаэдр легко вписывается в куб (гексаэдр), при этом каждая из 6-ти
вершин октаэдра совместится с центрами 6-ти граней куба;
3. В октаэдр легко вписать куб, при этом каждая из 8-ми вершин куба будут
располагаться
в
центрах
8-ми
граней
октаэдра;
4. У правильного октаэдра есть симметрия Oh, которая совпадает с
симметрией куба.
Интересные факты:
1. Многие природные кубические кристаллы имеют форму октаэдра. Это
алмаз, сульфат алюминия-калия, хлорид натрия, перовскит, оливин,
флюорит, шпинель.
2. В играх игральная кость в виде октаэдра известна как «d8».
3. Шесть музыкальных нот можно расположить на вершинах октаэдра
так, что каждое ребро представляет созвучную пару, а каждая грань —
созвучную тройку.
Икосаэдр
Икосаэдр
составлен
из
двадцати
равносторонних треугольников. Каждая его
вершина является вершиной пяти треугольников.
Сумма плоских углов при каждой вершине равна
300 градусов. Таким образом икосаэдр имеет 20
граней, 12 вершин и 30 ребер.
Элементы симметрии:
Икосаэдр имеет центр симметрии - центр икосаэдра, 15 осей симметрии и
15 плоскостей симметрии.
Свойства:
1. Икосаэдр можно вписать в куб, при этом шесть взаимно
перпендикулярных рёбер икосаэдра будут расположены соответственно на
шести гранях куба, остальные 24 ребра внутри куба, все двенадцать вершин
икосаэдра будут лежать на шести гранях куба;
2. В икосаэдр может быть вписан тетраэдр, так что четыре вершины
тетраэдра будут совмещены с четырьмя вершинами икосаэдра;
3. Икосаэдр можно вписать в додекаэдр, при этом вершины икосаэдра будут
совмещены с центрами граней додекаэдра;
4. В икосаэдр можно вписать додекаэдр с совмещением вершин додекаэдра и
центров граней икосаэдра.
Интересные факты:
1. Телами в виде икосаэдра являются внешние оболочки многих вирусов
(например, бактериофаги, мимивирус).
2. Молекула фуллерена C60 имеет форму усечённого икосаэдра. Такую
же форму имеет футбольный мяч.
3. Икосаэдр применяется как игральная кость в настольных ролевых
играх.
4. Икосаэдр передает форму кристаллов бора (B).
Додекаэдр
Додекаэдр
составлен
из
двенадцати
равносторонних пятиугольников. Каждая его
вершина является вершиной трех пятиугольников.
Сумма плоских углов при каждой вершине равна
324 градусов. Таким образом, додекаэдр имеет 12
граней, 20 вершин и 30 ребер.
Элементы симметрии: Додекаэдр имеет
центр симметрии - центр додекаэдра, 15 осей
симметрии и 15 плоскостей симметрии.
Свойства:
1.Все двадцать вершин додекаэдра лежат по пять в четырёх параллельных
плоскостях, образуя в каждой из них правильный пятиугольник;
2. Двугранный угол между любыми двумя смежными гранями додекаэдра
равен arccos(-1/v5);
3. Сумма плоских углов при каждой из 20 вершин равна 324°, 3-х гранный
угол = arccos(-11/5v5);
4. В додекаэдр можно вписать куб так, что стороны куба будут диагоналями
додекаэдра.
Интересные факты:
1. Римский додекаэдр — это небольшой объект, сделанный из бронзы или
реже из камня или железа, имеющий форму додекаэдра с двенадцатью
плоскими пятиугольными гранями. Римский додекаэдр датируется II—
III веком н. э.
По сей день функции этих объектов остаются загадкой.
2. В 2003 году, при анализе данных космического аппарата WMAP, была
выдвинута гипотеза, что Вселенная представляет собой
додекаэдрическое пространство Пуанкаре – четырехмерное платоново
тело со 120 додекаэдрическими гранями.
3. Кристалл пирита (сернистый колчедан FеS) – природная модель
додекаэдра.
4. Изготавливаются настольные календари в форме додекаэдра из бумаги,
где каждый из двенадцати месяцев расположен на одной из граней.
5. Спутник Юпитера Япет имеет форму додекаэдра.
Развертки правильных многогранников:
Выбор графических элементов и разработка алгоритма
В данной программе использованы такие графические элементы:
ListBox (Список):
Создает в форме список для выбора одного из предлагаемого списка
значений.
В данной программе использован один ListBox - List (рис. 1) на главном
экране для выбора одного из двух разделов программы:
1. Определение
2. Виды правильных многогранников
Метод AddItem элемента управления ListBox добавляет элемент в список:
List.AddItem "Определение": List.AddItem "Виды правильных многогранников"
Рис. 1. ListBox
PictureBox (Графическое окно):
Размещает в форме графическое окно, предназначенное для объединения
элементов в группы, для вывода в него графических изображений, а также
текста, графических элементов и анимации
В данной программе использовано множество элементов управления
PictureBox, с помощью которых реализуется вставка изображений (рис. 2).
Рис. 2. PictureBox
Свойство Picture элемента управления PictureBox назначает картинку для
объекта. Пример загрузки изображения из файла ресурсов (RES-файл):
PolyhedraImg.Picture = LoadResPicture(101, 0)
Label (Метка):
Размещает в форме объекты, предназначенные для создания текстовой
информации, надписей и примечаний
В данной программе использовано множество элементов управления Label, с
помощью которых реализуется вставка текстов (рис. 3).
Рис. 3. Label
Свойство Caption элемента управления Label позволяет задать текст:
PropertiesTxt.Caption = "1. Октаэдр легко вписывается в тетраэдр, при
этом 4 из 8-ми граней октаэдра совместятся с 4-мя гранями тетраэдра,
каждая из 6-ти вершин октаэдра совместится с центрами 6-ти ребер
тетраэдра гексаэдр…"
TextBox (Текстовое поле):
Размещает в форме текстовое поле, предназначенное для ввода текстовой
информации, чисел и дат
В данной программе использовано всего пять элементов управления TextBox,
по одному в окне с описанием каждого из многогранников, с помощью
которого вводится значение стороны a многогранника (рис. 4).
Рис. 4. TextBox и кнопка ввода
CommandButton (Кнопка управления):
Размещает в форме кнопки управления для инициации действий, выполнения
команд, запуска программ
В данной программе использовано множество элементов управления
CommandButton, с помощью которых реализуется навигация по программе
(переход между окнами) и ввод значений (рис. 5).
Рис. 5. Два элемента управления CommandButton
Например, так осуществляется открытие окна «Интересные факты»
тетраэдра по нажатию на соответствующую кнопку:
Private Sub InterestingBtn_Click()
InterestingTetra.Show
End Sub
Схема алгоритма работы программы
Начало
1.1 - Определение
1.2 - Виды правильных
многогранников
1. Выбор
пункта
меню
1.1
1.3 - Информация
1.4 - Выход
1.2
Вывод окна
«Определение»
1.3
Вывод окна
«Информация»
Вывод окна
«Виды прав.
многогранников»
Закрыть
Закрыть
2. Выбор
действия
1
2.1. Закрыть
1
1
2.2. Выбор
фигуры
Вывод окна с
описанием
фигуры
Расчет параметров
фигуры, вывод свойств
и интересных фактов
2
Конец
1.4
Графический интерфейс программы
На рисунке 6 показано главное меню программы-информатора
«Правильные многогранники».
Рис.6. Главное меню
На рисунке 7 показано окно «Виды правильных многогранников»,
которое открывается при выборе соответствующего пункта меню.
Рис.7. Окно «Виды правильных многогранников»
На рисунке 8 показано окно с описанием фигуры тетраэдр, которое
открывается по нажатию на соответствующий пункт в таблице «Виды
правильных многогранников».
Рис.8. Окно с описанием фигуры тетраэдр
На рисунке 9 показано окно «Интересные факты» фигуры тетраэдр,
которое открывается по нажатию на соответствующую кнопку в окне с
описанием фигуры.
Рис.9. Окно «Интересные факты» фигуры тетраэдр
Программный код и описание программы
MainFrm:
Private Sub Form_Load()
PolyhedraImg.Picture = LoadResPicture(101, 0)
List.AddItem
"Определение":
List.AddItem
многогранников"
End Sub
Private Sub Form_Unload(Cancel As Integer)
EndButton.Value = True
End Sub
Private Sub InfoBtn_Click()
AboutFrm.Show
End Sub
Private Sub EndButton_Click()
End
End Sub
Private Sub List_DblClick()
ShowBtn.Value = True
End Sub
Private Sub ShowBtn_Click()
If List.Text = "Виды правильных многогранников" Then
KindsFrm.Show
End If
If List.Text = "Определение" Then
DefinitionFrm.Show
End If
End Sub
"Виды
правильных
DefinitionFrm:
Private Sub CloseBtn_Click()
Unload Me
End Sub
KindsFrm:
Private Sub TetraBtn_Click(Index As Integer)
TetrahedronFrm.Show
End Sub
Private Sub OctaBtn_Click(Index As Integer)
OctahedronFrm.Show
End Sub
Private Sub IcosBtn_Click(Index As Integer)
IcosahedronFrm.Show
End Sub
Private Sub CubeBtn_Click(Index As Integer)
CubeFrm.Show
End Sub
Private Sub DodecBtn_Click(Index As Integer)
DodecahedronFrm.Show
End Sub
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
TableImg.Picture = LoadResPicture(103, 0)
End Sub
TetrahedronFrm:
Private Sub InputBtn_Click()
Dim number, V, S, H As Single
number = Val(Text1.Text)
V = Sqr(2) / 12 * number ^ 3
S = Sqr(3) * number ^ 2
H = Sqr(2 / 3) * number
OutputTxt.Caption = "Площадь: " & S & " кв. ед." & vbNewLine &
"Объём: " & V & " куб. ед." & vbNewLine & "Высота: " & H & " ед."
End Sub
Private Sub PropertiesBtn_Click()
PropertiesTetraDlg.Show
End Sub
Private Sub InterestingBtn_Click()
InterestingTetra.Show
End Sub
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
TetraImg.Picture = LoadResPicture(102, 0)
FormulasImg.Picture = LoadResPicture(114, 0)
DescriptionTxt.Caption
=
"Грань:
правильный
треугольник"
&
vbNewLine & "Вершин: 4" & vbNewLine & "Рёбер: 6" & vbNewLine &
"Граней: 4" & vbNewLine & "Граней при вершине: 3" & vbNewLine &
"Длина ребра: а"
End Sub
OctahedronFrm:
Private Sub InterestingBtn_Click()
InterestingOcta.Show
End Sub
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
OctaImg.Picture = LoadResPicture(105, 0)
FormulasImg.Picture = LoadResPicture(113, 0)
DescriptionTxt.Caption = "Грань: треугольник" & vbNewLine &
"Вершин: 6" & vbNewLine & "Рёбер: 12" & vbNewLine & "Граней: 8" &
vbNewLine & "Граней при вершине: 4" & vbNewLine & "Двугранный
угол: 109,47 град." & vbNewLine & "Длина ребра: а"
End Sub
Private Sub PropertiesBtn_Click()
PropertiesOctaDlg.Show
End Sub
Private Sub InputBtn_Click()
Dim number, V, S As Single
number = Val(Text1.Text)
V = (1 / 3) * Sqr(2) * number ^ 3
S = 2 * Sqr(3) * number ^ 2
OutputTxt.Caption = "Площадь: " & S & " кв. ед." & vbNewLine &
"Объём: " & V & " куб. ед."
End Sub
DodecahedronFrm:
Private Sub PropertiesBtn_Click()
PropertiesDodecDlg.Show
End Sub
Private Sub InterestingBtn_Click()
InterestingDodec.Show
End Sub
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
DodecImg.Picture = LoadResPicture(109, 0)
FormulasImg.Picture = LoadResPicture(110, 0)
DescriptionTxt.Caption
=
"Грань:
правильный
пятиугольник"
&
vbNewLine & "Вершин: 20" & vbNewLine & "Рёбер: 30" & vbNewLine
& "Граней: 12" & vbNewLine & "Граней при вершине: 3" & vbNewLine
& "Длина ребра: а"
End Sub
Private Sub InputBtn_Click()
Dim number, V, S As Single
number = Val(Text1.Text)
V = 7.66 * number ^ 3
S = 20.65 * number ^ 2
OutputTxt.Caption = "Площадь: ~" & S & " кв. ед." & vbNewLine &
"Объём: ~" & V & " куб. ед."
End Sub
CubeFrm:
Private Sub InterestingBtn_Click()
InterestingCube.Show
End Sub
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
CubeImg.Picture = LoadResPicture(108, 0)
FormulasImg.Picture = LoadResPicture(112, 0)
DescriptionTxt.Caption = "Грань: квадрат" & vbNewLine & "Вершин: 8"
& vbNewLine & "Рёбер: 12" & vbNewLine & "Граней: 6" & vbNewLine
& "Граней при вершине: 3" & vbNewLine & "Длина ребра: а"
End Sub
Private Sub PropertiesBtn_Click()
PropertiesCubeDlg.Show
End Sub
Private Sub InputBtn_Click()
Dim number, V, S As Single
number = Val(Text1.Text)
V = number ^ 3
S = 6 * number ^ 2
OutputTxt.Caption = "Площадь: " & S & " кв. ед." & vbNewLine &
"Объём: " & V & " куб. ед."
End Sub
IcosahedronFrm:
Private Sub PropertiesBtn_Click()
PropertiesIcosDlg.Show
End Sub
Private Sub InputBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
IcosImg.Picture = LoadResPicture(107, 0)
FormulasImg.Picture = LoadResPicture(111, 0)
DescriptionTxt.Caption
=
"Грань:
правильный
треугольник"
&
vbNewLine & "Вершин: 12" & vbNewLine & "Рёбер: 30" & vbNewLine
& "Граней: 20" & vbNewLine & "Граней при вершине: 5" & vbNewLine
& "Двугранный угол: 138.19 град." & vbNewLine & "Длина ребра: а"
End Sub
Private Sub InterestingBtn_Click()
InterestingIcos.Show
End Sub
Private Sub InputBtn_Click()
Dim number, V, S As Single
number = Val(Text1.Text)
V = (5 / 12) * (3 + Sqr(5)) * number ^ 3
S = 5 * Sqr(3) * number ^ 2
OutputTxt.Caption = "Площадь: " & S & " кв. ед." & vbNewLine &
"Объём: " & V & " куб. ед."
End Sub
InterestingCube:
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
CubeImg1.Picture = LoadResPicture(127, 0)
CubeImg2.Picture = LoadResPicture(128, 0)
CubeImg3.Picture = LoadResPicture(129, 0)
CubeImg4.Picture = LoadResPicture(130, 0)
End Sub
InterestingDodec:
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
DodecImg1.Picture = LoadResPicture(131, 0)
DodecImg2.Picture = LoadResPicture(132, 0)
DodecImg3.Picture = LoadResPicture(133, 0)
DodecImg4.Picture = LoadResPicture(134, 0)
End Sub
InterestingOcta:
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
OctaImg1.Picture = LoadResPicture(135, 0)
OctaImg2.Picture = LoadResPicture(136, 0)
OctaImg3.Picture = LoadResPicture(137, 0)
End Sub
InterestingIcos:
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
IcosImg1.Picture = LoadResPicture(119, 0)
IcosImg2.Picture = LoadResPicture(120, 0)
IcosImg3.Picture = LoadResPicture(121, 0)
IcosImg4.Picture = LoadResPicture(122, 0)
IcosImg5.Picture = LoadResPicture(123, 0)
End Sub
InterestingOcta:
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
OctaImg1.Picture = LoadResPicture(135, 0)
OctaImg2.Picture = LoadResPicture(136, 0)
OctaImg3.Picture = LoadResPicture(137, 0)
End Sub
InterestingTetra:
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub Form_Load()
TetraImg1.Picture = LoadResPicture(124, 0)
TetraImg2.Picture = LoadResPicture(125, 0)
TetraImg3.Picture = LoadResPicture(126, 0)
End Sub
AboutFrm:
Private Sub CloseBtn_Click()
Unload Me
End Sub
PropertiesCubeDlg:
Private Sub Form_Load()
ScanImg.Picture = LoadResPicture(117, 0)
PropertiesTxt.Caption = "1. Четыре сечения куба являются правильными
шестиугольниками
эти
сечения
проходят
через
центр
куба
перпендикулярно четырём его главным диагоналям;" & vbNewLine &
vbNewLine & "2. В куб можно вписать тетраэдр двумя способами. В
обоих случаях четыре вершины тетраэдра будут совмещены с
четырьмя вершинами куба и все шесть рёбер тетраэдра будут
принадлежать граням куба;" & vbNewLine & vbNewLine & "3. В куб
можно вписать октаэдр, притом все шесть вершин октаэдра будут
совмещены с центрами шести граней куба;" & vbNewLine & vbNewLine
& "4. Куб можно вписать в октаэдр, притом все восемь вершин куба
будут расположены в центрах восьми граней октаэдра;" & vbNewLine
& vbNewLine & "5. В куб можно вписать икосаэдр, при этом шесть
взаимно
параллельных
рёбер
икосаэдра
будут
расположены
соответственно на шести гранях куба, остальные 24 ребра внутри куба.
Все двенадцать вершин икосаэдра будут лежать на шести гранях куба."
End Sub
Private Sub OKButton_Click()
Unload Me
End Sub
PropertiesDodecDlg:
Private Sub Form_Load()
ScanImg.Picture = LoadResPicture(115, 0)
PropertiesTxt.Caption = "1. Все двадцать вершин додекаэдра лежат по
пять в четырёх параллельных плоскостях, образуя в каждой из них
правильный пятиугольник;" & vbNewLine & vbNewLine & "2.
Двугранный угол между любыми двумя смежными гранями додекаэдра
равен arccos(-1/v5)~116°,565;" & vbNewLine & vbNewLine & "3. Сумма
плоских углов при каждой из 20 вершин равна 324°, 3-х гранный угол =
arccos(-11/5v5);" & vbNewLine & vbNewLine & "4. В додекаэдр можно
вписать куб так, что стороны куба будут диагоналями додекаэдра."
End Sub
Private Sub OKButton_Click()
Unload Me
End Sub
PropertiesIcosDlg:
Private Sub Form_Load()
ScanImg.Picture = LoadResPicture(118, 0)
PropertiesTxt.Caption = "1. Икосаэдр можно вписать в куб, при этом
шесть взаимно перпендикулярных рёбер икосаэдра будут расположены
соответственно на шести гранях куба, остальные 24 ребра внутри куба,
все двенадцать вершин икосаэдра будут лежать на шести гранях куба;"
& vbNewLine & vbNewLine & "2. В икосаэдр может быть вписан
тетраэдр, так что четыре вершины тетраэдра будут совмещены с
четырьмя вершинами икосаэдра;" & vbNewLine & vbNewLine & "3.
Икосаэдр можно вписать в додекаэдр, при этом вершины икосаэдра
будут совмещены с центрами граней додекаэдра;" & vbNewLine &
vbNewLine & "4. В икосаэдр можно вписать додекаэдр с совмещением
вершин додекаэдра и центров граней икосаэдра."
End Sub
Private Sub OKButton_Click()
Unload Me
End Sub
PropertiesOctaDlg:
Private Sub Form_Load()
ScanImg.Picture = LoadResPicture(116, 0)
PropertiesTxt.Caption = "1. Октаэдр легко вписывается в тетраэдр, при
этом 4 из 8-ми граней октаэдра совместятся с 4-мя гранями тетраэдра,
каждая из 6-ти вершин октаэдра совместится с центрами 6-ти ребер
тетраэдра;" & vbNewLine & vbNewLine & "2. Октаэдр легко
вписывается в куб (гексаэдр), при этом каждая из 6-ти вершин октаэдра
совместится с центрами 6-ти граней куба;" & vbNewLine & vbNewLine
& "3. В октаэдр легко вписать куб, при этом каждая из 8-ми вершин
куба будут располагаться в центрах 8-ми граней октаэдра;" &
vbNewLine & vbNewLine & "4. У правильного октаэдра есть симметрия
Oh, которая совпадает с симметрией куба."
End Sub
Private Sub OKButton_Click()
Unload Me
End Sub
PropertiesTetraDlg:
Private Sub Form_Load()
ScanImg.Picture = LoadResPicture(106, 0)
PropertiesTxt.Caption = "1. Параллельные плоскости, проходящие через
пары скрещивающихся рёбер тетраэдра, определяют описанный около
тетраэдра параллелепипед;" & vbNewLine & vbNewLine & "2.
Плоскость, проходящая через середины двух скрещивающихся рёбер
тетраэдра, делит его на две равные по объему части;" & vbNewLine &
vbNewLine & "3. Бимедианы тетраэра пересекаются в той же самой
точке, что и медианы тетраэдра. Бимедианами тетраэдра называют
отрезки, соединяющие середины его скрещивающихся рёбер (не
имеющих общих вершин)."
End Sub
Private Sub OKButton_Click()
Unload Me
End Sub
Описание программы:
На начальном экране программы представлен список из двух пунктов:
1.
Определение
2.
Виды правильных многогранников.
Переход в каждый из них осуществляется нажатием кнопки «Показать»
после выбора определенного пункта единичным щелчком мыши. Так же
переход осуществляется двойным кликом мыши по пункту.
На начальном экране программы в левом нижнем углу находится
кнопка «Информация», по нажатию на которую появляется окно. В этом
окне указывается тема, которой посвящена программа, автор программы и
ФИО преподавателей информатики и математики.
После нажатия на пункт «Определение» появляется окно, содержащее
определение понятия правильных многогранников.
После нажатия на пункт «Виды правильных многогранников»
открывается
окно
с
таблицей,
демонстрирующей
все
правильные
многогранники и некоторые их особенности, такие как число граней, число
рёбер и др.
После нажатия на название одной из фигур открывается окно с её
описанием. Оно содержит определение, формулы и некоторые данные об
этой фигуре. Также в этом окне возможно произвести расчёт объема и
площади. Для этого нужно ввести сторону a правильного многогранника в
соответствующее поле ввода и нажать на кнопку «Ввод». Ниже появятся
значения объема и площади.
В этом же окне присутствуют кнопки «Свойства» и «Интересные
факты». По нажатию на кнопку «Свойства» открывается новое окно со
свойствами данной фигуры и её изображением в развернутом виде. По
нажатию на кнопку «Интересные факты» открывается новое окно,
содержащее факты о данной фигуре с их иллюстрациями.
Каждое окно, кроме главного, содержит кнопку для его закрытия в
нижнем правом углу окна. Главное окно, соответственно, в нижней правой
части имеет кнопку выхода из самой программы.
Заключение
В
данном
индивидуальном
проекте
была
рассмотрена
тема
«Правильные многогранники».
В рамках математики были изучены правильные многогранники,
рассмотрены их модели, выделены и систематизированы свойства каждого из
них.
В рамках информатики была реализована программа-информатор на
языке VisualBasic 6.0 с возможностью подсчета объёмов и площадей каждой
фигуры.
Список использованной литературы
1. Цветкова М.С. Информатика и ИКТ: учебник для нач. и сред проф.
образования / М.С. Цветкова, Л.С. Великович. – 5-е изд., стер. – М.:
Издательский центр «Академия», 2013. – 352 с., [8] л. цв. ил.
2.
Инфопроект:
[Электронный
ресурс].
Уфа,
2016.
URL:
http://инфопроект.рф. (Дата обращения: 05.06.2016).
3.
Геометрия. 10—11 классы: учеб. для общеобразоват. учреждений:
базовый и профил. уровни / [Л. С. Атанасян, В. Ф. Бутузов, С. Б. Кадомцев и
др.]. — 20-е изд. — М. : Просвещение, 2011. — 255 с.: ил.
4. Немцова Т.И., Назарова Ю.В. Практикум по информатике: учеб.
пособие / Под ред. Л.Г. Гагариной. Ч. I. – М.: ИД «ФОРУМ»: ИНФРА-М,
2006. – 320 с.: ил.
5. Колмыкова Е.А. Информатика: учебное пособие для студ.
учреждений сред. проф. Образования / Е.А. Колмыкова, И.А. Кумскова. – 9-е
изд., стер. – М.: Издательский центр «Академия», 2012. – 416 с.
6. Астафьева Н.Е. Информатика и ИКТ: практикум для профессий и
специальностей технического и социально-экономического профилей: учеб.
пособие для студ. учреждений сред. проф. образования / Н.Е. Астафьева, С.А.
Гаврилова, М.С. Цветкова; под ред. М.С. Цветковой. – 4-е изд. стер. – М.:
Издательский центр «Академия», 2014. – 272 с.
7. Сафронов И.К, Задачник-практикум по информатике. – СПб.: БХВПетербург, 2002. – 432 с.: ил.