"Малая энциклопедия автомобиля."
1999-2000 уч.год.
Проект разработан учеником 6В класса общеобразовательной средней школы ╧1178 ЮУО г. Москвы под руководством преподавателя информатики Осипова александра Михайловича.
Из-за большого объема проекта выставлена только его описательная часть в формате html.
Проект разработан в среде ЛогоМиры 2.0 на компьютере Пентиум 166ммх.
Проект - справочник может быть использована как для образования так и в качестве игры.
Она позволяет получить некоторые сведения об истории автомобилестроения, познакомиться с некоторыми терминами, узнать некоторые интересные факты, а также увидеть рисунки и фотографии старых и новых автомобилей. Кроме того, он может использоваться для проверки своих знаний по этим вопросам. Просмотр энциклопедии сопровождается музыкальными отрывками и звуковыми эффектами.
В энциклопедии собраны некоторые из основных событий, которые связаны с автомобилестроением. События связаны с датами, когда они происходили, в энциклопедии приведены известные марки автомобилей, а также некоторые термины и просто интересная информация.
Создание энциклопедии осуществлялось в 4 этапа:
На 1 этапе была сформулирована задача, и осуществлялся сбор информации;
На 2 этапе разрабатывались и отлаживались программы;
На 3 этапе проводился ввод данных в компьютер;
На 4 этапе проходило художественное оформление проекта.
Энциклопедия построена по принципу выбора и последующего (при нажатии определенной кнопки) получения информации по интересующему вопросу. В главном меню проекта предлагаются 4 кнопки, позволяющие осуществить выбор "Даты", "Марки", "Авторы", "Это интересно" или "Термины".
При осуществлении выбора одного из предложенных вариантов в текстовом окне появляется текст в виде дат, марок автомобилей, интересных событий или терминов. В этих текстовых окнах можно проводить выбор интересующих вас элементов и в новом текстовом окне получать подробное описание выбранного элемента. Рядом с большинством описаний появляются фотографии или рисунки, иллюстрирующие выбранный элемент. Переход между событиями осуществляется с помощью специальных стрелок, выполненных в виде автомобилей. После получения информации по определенной теме имеется возможность вернуться как к первоначальному меню, так и к выбранному элементу.
Вся информация текстовая, графическая и звуковая храниться в отдельных файлах и поступает в проект по запросам.
Первый лист "Малой энциклопедии автомобилей" содержит главное меню, состоящее из кнопок:
"Даты", "Марки", "Авторы", "Это интересно" и "Термины".
При выборе одной из кнопок, вы попадаете на другой лис, состоящий из текстового окна, в которое вводится текст, содержащий выбранное направление, стрелок, выполненных в виде автомобиля, позволяющих переходить от одного элемента в текстовом окне к другому, кнопки выбора элемента, и кнопки возврата.
Ниже представлен лист, который появляется при выборе кнопки "Даты".
Аналогично выглядит лис и при выборе кнопки "Марки"
При выборе марки автомобиля или даты, появляется лист, содержащий текстовое окно с описанием марки автомобиля, или события, которое произошло в выбранной дате. На листе тек же, появляется и рисунок автомобиля или связанного с датой события.
Ниже приведены примеры таких листов.
Некоторые программы.
это Даты
Заводитсямашина
возьми_лист "лист2
имя1
концерт
конец
это имя1
для "Даты1
ст возьми_текст "даты.rtf
колстт1
выд1
конец
это колстт1
для "Даты1
пусть "кт1 число_строк "Даты1
покажи :кт1
пусть "ткт1 1
пусть "дата1 строка :ткт1 "Даты1
конец
это выд1
для "Даты1
внт
не_выделяй
внст выделяй вкст
конец
это т2
для "Даты1
если_иначе :ткт1 = :кт1
[пусть "ткт1 1 внт внст не_выделяй внст выделяй вкст
пусть "дата1 строка :ткт1 "Даты1]
[ не_выделяй кнз внст выделяй вкст пусть "ткт1 :ткт1 + 1
пусть "дата1 строка :ткт1 "Даты1]
покажи :ткт1 покажи :дата1
конец
это т22
для "Даты1
если_иначе :ткт1 = 1
[пусть "ткт1 :кт1 вкт внст не_выделяй внст выделяй вкст
пусть "дата1 строка :ткт1 "Даты1]
[не_выделяй квх внст выделяй вкст пусть "ткт1 :ткт1 - 1
пусть "дата1 строка :ткт1 "Даты1]
покажи :ткт1 покажи :дата1
конец
это выбранная_дата
запусти [Кнопка]
возьми_лист "лист3
покажи :дата1
для "События_по_годам ст возьми_текст :дата1
колстт11
выд11
конец