Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Содержание

Введение

Раздел 1. Теоретическая часть

1.1 История возникновения

1.2 Знак зодиака человека

1.3 Назначение разработки

Раздел 2. Среда разработки

2.1 Среда разработки

2.2 Используемые технические и программные средства

2.3 Описание компонентов программы

Раздел 3. Руководство программиста

3.1 Описание программы

3.2 Запуск приложения

Выводы

Список использованных источников

Приложение А

Реферат

Объект исследования: узнать информацию, такую как: особенности характера, какие способности и таланты могут быть задействованы при выборе рода деятельности и профессии, направление профессиональной самореализации, сведения о способностях выстраивать личные взаимоотношения и т.д.

Цель работы: Написать информационную программы которая определяет знак зодиака по введенной дате, и выдает информацию о этом знаке

Введение

Звезды правят дураками,

мудрый - своими звездами».

Древнее изречение.

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

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

Раздел 1. Теоретическая часть

1.1 История возникновения

Люди всегда искали в небе объяснение появления жизни на Земле. Так, древние шумеры еще 500 тыс. лет назад говорили, что во Вселенной существует некая планета под номером 12, планета разума, населенная богами, которые посетили Землю, нашли на ней массу полезного и интересного и оставили здесь своих представителей. Ими стали сыновья правителя Набиру, разделившие сферы влияния на Земле. Так, югом Земли стал править Энки, а севером -- Энлиль.

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

Между богами шла нешуточная борьба за право называться высшим правителем Земли. Сферы влияния менялись и, как следствие, юг Земли стал подчиняться северу, который назывался верхним божественным царством.

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

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

«Как же Знак Зодиака Овен и его история?» -- спросите вы. Ответом на этот вопрос станет имя бога Нинурта. Ведь именно он, его жизнь и характер и определили особенности людей, родившихся под знаком Овна. И это не случайно. Объяснение кроется в Великом потопе, вернее во времени, когда он произошел. Изучая древние астрологические календари и сопоставив их с различными событиями того времени, ученые пришли к выводу, что Великий Потоп произошел в то время, когда на Земле царило время знака Зодиака Рыбы, после которого и началось время Овна -- время правителя Нинурты. После Великого разрушения и уничтожения пришло время силы, восстановления и возрождения -- пришло время Овна, которое стало неизбежным, поскольку за разрушением всегда приходит восстановление, за неудачами -- везение, за падением -- подъем, за ночью -- день. Именно поэтому история знаков Зодиака Рыбы и Овен неразрывна и представляет собой одно целое.

Появление сильного правителя на Земле было неизбежным: Земля нуждалась в восстановлении и защите. Делом жизни Нинурты стало возрождение Земли из хаоса, несчастий и бед. Люди начинали новую жизнь, восстанавливали города, налаживали быт, поднимали из руин все вокруг, начали заниматься земледелием, разводить скот. Скотовод -- второе имя бога Нинурты, дано ему за начало нового и неизвестного до этих времен занятия человека сельским хозяйством.

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

Все остальные военные походы Нинурты влекли за собой освобождение от зла и врагов, одним из которых стал Великий Змей в образе сына Энки -- Мардука. Даже на небосводе продолжается противостояние двух богов в образе двух знаков зодиака -- Овна и Скорпиона. История знаков Зодиака, как и история жизни двух богов, заключается в вечной борьбе друг с другом.

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

Почему же символом Овна стала безобидная овечка? Такое изображение появилось по прошествии многих веков после правления Нинурты на Земле и обязано своим появлением возникновению христианства. Если же мы имели возможность увидеть символику Овна.

1.2 Знак зодиака человека

Факт наличия 12 Знаков Зодиака большинство людей воспринимает, как данность, не задавая себе вопрос, почему так получилось. Мы решили это исправить и рассказать об этом нашим читателям.

Овен

Символом первого знака зодиака является баран. Овном управляет стихия Огня и планета Марс. В греческой мифологии бог войны был известен под именем Арес. Также в древнеегипетской астрономии Овен был связан с богом Амон-Ра, которого изображали как человека с головой барана. Причина, по которой Овен стоит первым в ряду зодиака кроется в Вавилонском календаре, где созвездия начинались с положения солнца в день весеннего равноденствия.

Телец

В греческой мифологии Тельца связывают с Зевсом, который превратился в большого белого быка, чтобы похитить Европу, дочь финикийского царя. Телец является одним из древнейших созвездий Вселенной. Существует картина «Небесного быка», стоящего перед Ианной, шумерской богиней сексуальности, плодородия и войны. Похожее описание есть в египетском Дендерском зодиаке, где знак Тельца обозначал наступление весны.

Близнецы

Символ близнецов взят из греческой мифологии - история двойняшек Кастора и Поллукса. Поллукс был сыном Зевса, а Кастор был сыном Тиндарея, царя Спарты. Считается, что когда умер Кастор, Поллукс попросил Зевса дать ему бессмертие. Он подарил исполнил его желание, соединив братьев вместе на небесах.

Рак

История этого знака связана с греческой мифологией, а именно о борьбе Геркулеса с Гидрой. Этот знак управляется Луной и отражает эмоции. Рак символизирует наступление лета. В других культурах Рак представляют в виде разных, но похожих существ: краб, омар или водный жук.

Лев

Это одно из древнейших созвездий, упоминания о котором есть в истории Месопотамии, Персии, Турции, а также еврейской и индийском культурах. В древнегреческой мифологии этот знак предстает как Немейский Лев. В египетской культуре Сехмет была богиней войны с львиной головой. Ее правящей планетой считается Солнце.

Дева

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

Весы

Обычно этот знак символизируется весами. В римской мифологии этот знак считался символом правосудия, за которое отвечала богиня Астрея. В Вавилонской астрономии этот символ известен как Зибану, что в переводе означает «весы» или «баланс». Правосудие и справедливость принадлежали богу солнцу Шамаш.

Скорпион

Данное созвездие очень яркое и имеет две звезды - Лесат и Шаула, что означает «жало». В греческой мифологии Скорпион был послан богиней Артемидой, чтобы убить охотника Ориона. В Вавилонской истории появляются мужчины-скорпионы в «Поэме о Гильгамеше», которые являлись хранителями бога солнца Шамаш. Они выпускали его наружу днем и закрывали двери на ночь.

Стрелец

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

Козерог

Самая яркая звезда в этом созвездии носит название Денеб Алгеди, что с арабского означает «хвост козы». Греки называли его Амальтея. Козерог является древнейшим созвездием. Его изображение, козы-рыбы, относится к середине Бронзового века. Созвездие считалось символом шумерского бога Энки, чье имя в вольном переводе означает «бог Земли».

Водолей

Символом этого знака является водоносец. Управляет Водолеем планета Уран. В Вавилонской мифологии этот знак относится к богу Эа, которого часто изображают несущим переполненную водой чашу. Этот бог является правителем южной четверти солнечного пути, или середины зимы. Для древних египтян Водолей был связан с ежегодными наводнениями.

Рыбы

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

1.3 Назначение разработки

Одной из целей работы является создание информационной программы о знаках зодиака, интуитивно понятного любому пользователю, поэтому программа должна быть удобна и одновременно проста для использования. Как я уже упоминала выше, программа должна быть понятна для пользования людям, как молодым, так и пожилого возраста, поэтому она должна содержать простой для восприятия интерфейс. Моей целью, изначально было сделать простой справочник о знаках зодиака, понятный даже начинающим пользователям, поэтому он не будет содержать большинство функций, которые содержать множество существующих современных программ.

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

Данная программа будет выполнять следующие функции:

1. Определять знак зодиака по дате рождения

2. Предоставлять информацию о знаках зодиака

Раздел 2. Среда разработки

2.1 Среда разработки

Delphi 7, выпущенная в августе 2002 года, стала стандартном для многих разработчиков Delphi. Это один из самых успешных продуктов Borland из-за стабильности, скорости и низких требований к аппаратному обеспечению. В Delphi 7 добавлены новые компоненты для Windows ХР и увеличено число компонентов для создания Web-приложений.

Среда предназначена для быстрой (RAD) разработки прикладного ПО для операционных систем Windows, Mac OS X, а также IOS и Android. Благодаря уникальной совокупности простоты языка и генерации машинного кода, позволяет непосредственно, и, при желании, достаточно низкоуровнево взаимодействовать с операционной системой, а также с библиотеками, написанными на C/C++. Созданные программы не зависимы от стороннего ПО, как-то Microsoft .NET Framework, или Java Virtual Machine. Выделение и . освобождение памяти контролируется в основном пользовательским кодом, что, с одной стороны, ужесточает требования к качеству кода, а с другой -- делает возможным создание сложных приложений, с высокими требованиями к отзывчивости (работа в реальном времени). В кросскомпиляторах для мобильных платформ предусмотрен автоматический подсчет ссылок на объекты, облегчающий задачу управления их временем жизни.

2.2 Используемые технические и программные средства

Разработка программного кода производилась в среде программирования языка Delphi.

Среда программирования Delphi в настоящее время является одной из самых развитых систем визуального объектно-ориентированного программирования. Её возможности отвечают высоким требованиям и подходят для создания приложений любой сложности. Структурированность и простота Delphi делает его одним из совершенных языков программирования. На нем можно создать все, что делают на C++ избежав всех имеющихся в нем трудностей. Он позволяет с наименьшими усилиями создавать от простых приложений, работающих на одном компьютере до корпоративных приложений, использующие серверные базы данных расположенные на разных платформах. Интернет приложения, коммерческие игры и много других видов программ, возможно создать на Delphi. Даже неопытный программист сможет сделать приложение для Windows профессионального вида.

С самого начала работы над новой программой Delphi создает минимально необходимый код, обеспечивающий ее нормальное функционирование в операционной системе Windows. Таким образом, простейшая программа готова сразу после выбора опции команды File | New | Application, и остается просто запустить программу. Однако до этого необходимо выполнить две важные вещи: создать собственный рабочий каталог (папку) и нужным образом настроить Delphi.

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

После ввода имен модуля и программы, на экране появится окно формы, как и следовало, ожидать - пустое, но обладающее всеми атрибутами нормального Windows - окна: оно может изменять свое положение и размеры и, закрываясь, выгружает программу из оперативной памяти ПК.

В первом приближении можно считать модулем самостоятельный раздел программы, в чем-то подобный главе в книге. Модуль создается каждый раз, когда создается новая форма (в программе может быть и, чаще, бывает не одна, а несколько - иногда несколько десятков форм и связанных с ними модулей). При компиляции программы Delphi создает файлы с расширениями pas, dfm и оси для каждого модуля: pas-файл содержит копию текста из окна кода программы, в файле с расширением dfm хранится описание содержимого окна формы, а в оси-файле - результат преобразования в машинные инструкции текста из обоих файлов. Файлы dcu создаются компилятором и дают необходимую базу для работы компоновщика, который преобразует их в единый загружаемый файл с расширением ехе.

По умолчанию заголовок окна совпадает с заголовком формы. Чтобы изменить заголовок, нужно обратиться к окну Инспектора объектов.

Разместить на форме новый компонент не представляет труда. Для этого сначала нужно его выбрать (щелкйуть по нему мышью) в палитре компонентов, а затем щелкнуть мышью по точке рабочего пространства . формы, где должен располагаться левый верхний угол компонента.

К примеру, новый компонент имеет стандартное имя Label 1, и надпись на нем повторяет это имя. Изменить эту надпись можно с помощью строки Caption окна инспектора объектов. Как только начнется ввод новой надписи, вид компонента на форме начнет меняться, динамически отражая все изменения, производимые вами в окне инспектора объектов.

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

Все видимые компоненты имеют свойства Left (Слева), Тор (Сверху), Width (Ширина) и Height (Высота), числовые значения которых определяют положение левого верхнего угла компонента и его размеры в так называемых пикселях, т.е. в минимальных по размеру точках экрана, светимостью которых может управлять программа. При буксировании компонента или изменении его размеров мышью эти значения автоматически меняются и наоборот - изменение этих свойств в окне Инспектора объектов приводит к соответствующему изменению положения и размеров компонента.

Функциональность программы определяется совокупностью ее реакций на те или иные события. В связи с этим каждый компонент помимо свойств характеризуется также набором событий, на которые он может реагировать. Например, чтобы заставить Delphi самостоятельно сделать заготовку для процедуры обработчика события OnClick, необходимо дважды подряд без заметной паузы щелкнуть мышью по любому видимому компоненту. В ответ Delphi активизирует окно кода, и можно увидеть в нем такой текстовый фрагмент:

Procedure TForml.ButtonlClick(Sender: TObject); begin;

Слово procedure извещает компилятор о начале подпрограммы процедуры. За ним следует имя процедуры TForml.ButtonlClick. Это имя -составное: оно состоит из имени класса TForml и собственно имени процедуры Button 1 Click.

Классами в Delphi называются функционально законченные фрагменты программ, служащие образцами для создания подобных себе экземпляров. Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре клиент-сервер. Этот компилятор в настоящее время является самым быстрым в мире, его скорость компиляции составляет свыше 120 тысяч строк в минуту на компьютере 486DX33. Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения (4GL) и в то же время обеспечивает качество кода, характерного для компилятора 3GL. Кроме того,

Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно).

В процессе построения приложения разработчик выбирает из палитры компонент готовые компоненты как художник, делающий крупные мазки кистью. Еще до компиляции он видит результаты своей работы - после подключения к источнику данных их можно видеть отображенными на форме, можно перемещаться по данным, представлять их в том или ином виде. В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции мы получаем код, который исполняется в 10-20 раз быстрее, чем то же самое, сделанное при помощи интерпретатора. Кроме того, компилятор компилятору рознь, в Delphi компиляция производится непосредственно в родной машинный код, в то время как существуют компиляторы, превращающие программу в так называемый р-код, который затем интерпретируется виртуальной р-машиной. Это не может не сказаться на фактическом быстродействии готового приложения.

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

Действительно, все в Delphiнаписано на нем же, поэтому разработчики имеют доступ к тем же объектам и инструментам, которые использовались для создания среды разработки. В результате нет никакой разницы между объектами, поставляемыми Borland или третьими фирмами, и объектами, которые вы можете создать.

В стандартную поставку Delphi входят основные объекты, которые образуют удачно подобранную иерархию из 270 базовых классов. Но если возникнет необходимость в решении какой-то специфической проблемы на Delphi, советуем, прежде чем попытаться начинать решать проблему с нуля, просмотреть список свободно распространяемых или коммерческих компонент, разработанных третьими фирмами, количество этих фирм в настоящее время превышает число 250, хотя, возможно, я не обо всех знаю. Скептики, возможно, не поверят мне, когда я скажу, что на Delphi можно одинаково хорошо писать как приложения к корпоративным базам данных, так и, к примеру, игровые программы. Тем не менее, это так. Во многом это объясняется тем, что традиционно в среде Windows было достаточно сложно реализовывать пользовательский интерфейс. Событийная модель в Windows всегда была сложна для понимания и отладки. Но именно разработка интерфейса в Delphi является самой простой задачей для программиста.

В первую очередь Delphi предназначен для профессионалов- разработчиков корпоративных информационных систем. Может быть, здесь следует пояснить, что конкретно имеется в виду. Не секрет, что некоторые удачные продукты, предназначенные для скоростной разработки приложений (RAD - rapid application development) прекрасно работают при изготовлении достаточно простых приложений, однако, разработчик сталкивается с непредвиденными сложностями, когда пытается сделать что-то действительно сложное. Бывает, что в продукте вскрываются присущие ему ограничения только по прошествии некоторого времени.такие ограничения не присущи. Хорошее доказательство тому - это тот факт, что сам Delphi разработан на Delphi. Можете делать выводы. Однако Delphi предназначен не только для программистов-профессионалов. Я читал в электронной конференции совершенно неожиданные для меня письма, где учителя, врачи, преподаватели ВУЗов, бизнесмены, все те, кто используют компьютер с чисто прикладной целью, рассказывали о том, что приобрели Delphi for Windows для того, чтобы быстро решить какие-то свои задачи, не привлекая для этого программистов со стороны. В большинстве случаев им это удается. Поразительный факт - журнал Visual Basic Magazine присудил свою премию Delphi for Windows.

Руководители предприятий, планирующие выделение средств на приобретение программных продуктов, должны быть уверены в том, что планируемые инвестиции окупятся. Поэтому одним из оцениваемых факторов должен быть вопрос - а легко ли найти специалиста по Delphi и сколько будет стоить его обучение, сколько времени специалист затратит на овладение продуктом. Ответ здесь получить весьма просто - любой программист на паскале способен практически сразу профессионально освоить Delphi. Специалисту, ранее использовавшему другие программные продукты, придется труднее, однако самое первое работающее приложение он сможет написать в течение первого же часа работы на Delphi. И, конечно же, открытая технология Delphi является мощным гарантом того, что инвестиции, сделанные в Delphi, будут сохранены в течение многих лет. Внешний вид среды программирования Delphi отличается от многих других из тех, что можно увидеть в Windows. К примеру, Borland Pascal for Windows

Borland C++ 4.0, Word for Windows, Program Manager - это все MDI приложения и выглядят по-другому, чем Delphi. MDI (Multiple Document Interface) - определяет особый способ управления нескольких дочерних окон внутри одного большого окна.

Среда Delphi же следует другой спецификации, называемой Single Document Interface (SDI), и состоит из нескольких отдельно расположенных окон. Это было сделано из-за того, что SDI близок к той модели приложений, что используется в Windows 95.

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

2.3 Описание компонентов программы

Описание модулей

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;

Здесь описаны стандартные модули Delphi, необходимые для написания информационной программы о знаках зодиака. Программа разрабатывается для операционной системы Windows, поэтому наследует набор стандартных функций.

Для работы с окнами Windows предоставляет большое количество функций, которые описаны в модуле Windows.pas, и экспортируются из Windows'овских библиотек (DLL - Dynamic Link Library). Здесь рассмотрены некоторые из них. Вот они:

BringWindowToTop - Выводит окно поверх других по Z-порядку

CloseWindow - Минимизирует (не закрывает) окно

EnableWindow - Делает окно доступным/недоступным

FindWindow - Ищет окно в системе

GetWindowText - Возвращает текст окна

GetWindowTextLength - Возвращает длину текста окна

IsWindowVisible - Видимое ли это окно

IsZoomed - Максимизировано ли это окно

MoveWindow - Перемещает окно

OpenIcon - Восстанавливает окно из иконки

SetWindowPos - Устанавливает позицию окна

SetWindowText - Изменяет заголовок окна

ShowWindow - Показывает окно с заданными параметрами

Обработчик сообщений - это (динамический) метод, в заголовок которого добавляется директива message, сопровождаемая идентификатором сообщения. Идентификатор сообщения должен быть целочисленной константой со значением из диапазона 1..49151 или константой вида WM_XXX, например, WM_MOUSEMOVE. Кроме того, константы сообщений Delphi могут начинаться и с других (первых) символов.

Включение SysUtils делает доступными множество подпрограмм манипулирования данными, таких как IntToStr.

Чтобы начать работать с картинками формата JPEG, необходимо в разделе USES подключить соответствующий модуль jpeg

Описание процедур

· procedure Button 1 Click;

При нажатии на Button 1 (кнопка «Узнать знак»), происходит определение знака зодиака в соответствии с введенными дньом и месяцем рождения

· procedure Button 2 Click;

При нажатии на Button 2 (кнопка «Информация о знаке»), происходит переход на новую форму где показывается информация об определенном знаке зодиака

Описание глобальных переменных

Для работы программы были использованы следующие переменные:

s - переменная типа string, предназначена для сохранения названия знака зодиака;

Раздел 3. Руководство программиста

3.1 Описание программы

Назначение и область применения

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

Если вы не знаете свой знак зодиака, то это можно определить в меню "знак по дате". Определяется это очень просто, необходимо просто ввести свою дату рождения. После вам будет предложено ознакомиться с характеристикой вашего знака.

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

Каждая категория имеете довольно подробное описание. Текст написан на грамотном русском языке.

Итак, данная программа подходит для любой аудитории, которая так или иначе интересуется гороскопами и астрологией.

Программа может применяться в повседневном пользовании простыми людьми

3.2 Запуск приложения

Запуск программы осуществляется путем открытия файла Program.ехе. После старта программы мы можем видеть окно, где есть два поля для ввода. Чтобы узнать свой знак зодиака нужно в эти поля ввести дату своего рождения



Рис.1. Главное окно программы

Дополнительную информацию о своем знак зодиака нужно нажать на кнопку «Информация о знаке». После нажатия откроется новое окно в котором слева расположено текстовую информацию о знаке, а справа - изображения знака

Рис.2. Окно с информацией о знаке

Выводы

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

Для того что бы составить гороскоп человек нужно знать точное время и дату рождения.

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

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

Список использованных источников

1. Осипов Д. Delphi. Профессиональное программирование. - СПб.: Символ-Плюс, 2006. -1056 с., ил.

2. Флеиов М.Е. Программирование в Delphi глазами хакера. -- СПб.: БХВ-Петербург, 2003. - 368 с: ил.

3. Т.А. Павловская. Паскаль. Программирование на языке высокого уровня. Учебник. 2007 год. 400 стр.

знак зодиак delphi программа

Приложение А

Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Edit2: TEdit;

Edit3: TEdit;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button2: TButton;

procedure Button2Click(Sender: TObject);

//procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

//procedure Edit3Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var d,m,k:byte;

s:string;

begin

m:=strtoint(Edit1.Text);

if not (m in [1..12]) then

begin

Showmessage('Неверно введен месяц! Повторите ввод.');

Edit1.Clear;

Edit1.SetFocus;

end;

k:=0;

d:=strtoint(Edit2.Text);

if ((m=2)and(d>29))or((m in [1,3,5,7,8,10,12])and(d>31))

or((m in [4,6,9,11])and(d>30))or(d<1)then

begin

k:=1;

Showmessage('Неверно введен день! Повторите ввод.');

Edit2.Clear;

Edit2.SetFocus;

end;

if (m in [1..12])and(k=0)then

begin

case m of

1:case d of

1..19:s:=' Козерог';

20..31:s:=' Водолей';

end;

2:case d of

1..18:s:=' Водолей';

19..29:s:=' Рыбы';

end;

3:case d of

1..20:s:=' Рыбы';

21..31:s:=' Овен';

end;

4:case d of

1..21:s:=' Овен';

22..30:s:=' Телец';

end;

5:case d of

1..20:s:=' Телец';

21..31:s:=' Близнецы';

end;

6:case d of

1..21:s:=' Близнецы';

22..30:s:=' Рак';

end;

7:case d of

1..22:s:=' Рак';

23..31:s:=' Лев';

end;

8:case d of

1..22:s:=' Лев';

23..31:s:=' Дева';

end;

9:case d of

1..22:s:=' Дева';

23..30:s:=' Весы';

end;

10:case d of

1..22:s:=' Весы';

23..31:s:=' Скорпион';

end;

11:case d of

1..22:s:=' Скорпион';

23..30:s:=' Стрелец';

end;

12:case d of

1..21:s:=' Стрелец';

22..31:s:=' Козерог';

end;

end;

Edit3.Text:=s;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if Edit3.Text = ' Овен' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('1.txt' );

Form3.Image1.Picture.LoadFromFile('1.jpg');

end

else

if Edit3.Text = ' Телец' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('2.txt' );

Form3.Image1.Picture.LoadFromFile('2.jpg');

end

else

if Edit3.Text = ' Близнецы' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('3.txt' );

Form3.Image1.Picture.LoadFromFile('3.jpg');

end

else

if Edit3.Text = ' Рак' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('4.txt' );

Form3.Image1.Picture.LoadFromFile('4.jpg');

end

else

if Edit3.Text = ' Лев' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('5.txt' );

Form3.Image1.Picture.LoadFromFile('5.jpg');

end

else

if Edit3.Text = ' Дева' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('6.txt' );

Form3.Image1.Picture.LoadFromFile('6.jpg');

end

else

if Edit3.Text = ' Весы' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('7.txt' );

Form3.Image1.Picture.LoadFromFile('7.jpg');

end

else

if Edit3.Text = ' Скорпион' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('8.txt' );

Form3.Image1.Picture.LoadFromFile('8.jpg');

end

else

if Edit3.Text = ' Стрелец' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('9.txt' );

Form3.Image1.Picture.LoadFromFile('9.jpg');

end

else

if Edit3.Text = ' Козерог' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('10.txt' );

Form3.Image1.Picture.LoadFromFile('10.jpg');

end

else

if Edit3.Text = ' Водолей' then

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('11.txt' );

Form3.Image1.Picture.LoadFromFile('11.jpg');

end

else

begin

Form3.Show;

Form3.Memo1.Lines.LoadFromFile('12.txt' );

Form3.Image1.Picture.LoadFromFile('12.jpg');

end

end;

end.

Размещено на Allbest.ru