Курсовая работа Гид по красоте Delphi7. курсовой проект. Курсовая работа по учебной дисциплине оп. 04 Основы алгоритмизации и программирования
 Скачать 1.9 Mb.
|
|
Изменять её исходный код Распространять программу Распространять изменённые версии Программа не защищена авторскими правами. Интерфейс программы представляет собой палитру розово-серых оттенков цветов, черного и розового цвета текст. Стартовое окно показано в пункте 2.1 (рис.1) функционалом которого является возможность перехода между формами и возможность завершить работу программы. Главное окно, форма меню, представленная на 3-ем рисунке пункта 2.1 позволяет начать работать непосредственно со списком форм. При выборе, которого и подтверждения кнопкой «Далее», непосредственно появляется нужная нам форма. Все остальные формы представляют пользователю информацию о уходе за собой и здоровьем, возможность перехода к форме-меню обратно, с помощью кнопки «Назад», либо по окончанию работы приложения, с помощью кнопки «Выход» завершение работы программы Доносим до Вашего сведения, что все указанные в приложении советы по уходу за кожей, питанию, физическим упражнениям носят исключительно рекомендательный характер и не являются прямым руководством к действию. Пользователь несет самостоятельно ответственность за свое здоровье. Для полноценного ухода за кожей обратитесь за консультацией к специалисту. ЗАКЛЮЧЕНИЕ Для автоматизации поиска информации и облегчения работы пользователя, я создала справочную программу «Beauty Guide». Разработанная программа позволяет экономить время при поиске информации по данной теме. Разработка таких приложений в настоящее время является очень актуальной темой, так как приложения именно такого рода сейчас пользуются большим спросом. В современном мире без информационных технологий жизнь немыслима. Когда надо выполнить какую-то объёмную работу вручную, уходит много времени и сил, в таких ситуациях на помощь приходят программы, которые упрощают и ускоряют рабочий процесс. Таким образом, мы подошли к сути курсового проекта– научиться создавать программу для выполнения работы той или иной степени сложности. На начальном этапе работы была поставленная цель: создать приложение «Гид по красоте», и были определены задачи. В процессе написания курсового проекта задачи были выполнены, а цель была достигнута. Список использованных источников: Нормативно-правовые акты: 1. Закон РФ "Об авторском праве и смежных правах" от 09.07.1993 N 5351-1. 2. Федеральный закон "Об информации, информационных технологиях и о защите информации" от 27.07.2006 N 149-ФЗ (последняя редакция). 3. Федеральный закон "О персональных данных" от 27.07.2006 N 152-ФЗ (последняя редакция). Учебники, монографии, брошюры: 1.Архангельский А.Я. «Приемы программирования в Delphi»: Издательство «Бином-Пресс» 2006г. -944 стр. 2. Бобровский С.И. «Delphi 7 Учебный курс» Издательство «Питер» 2004. - 736 стр. 3. Галиуллина Л. «Очень полезная книга про лицо»: Издательство "Эксмо" Мастер-класс красоты 2009г.- 185стр. 4.Кадлец В. «Delphi. Книга рецептов. Практические примеры, трюки и секреты»: Издательство «Наука и техника». 2006г. – 384стр. 5. Кащенко Г.Ф «Ключи к здоровью»: Симферополь: Таврида, 2007. -63стр. 6.Марша Гордон «Красивая кожа»: Издательство: АСТ, Астрель .2007-352стр. 8.Солдатченко С.С. «Ключи к здоровью» Издание второе, дополненное и переработанное. – Симферополь: Таврида, 2007. – 592 стр. 9. Фаронов В.В. «Delphi 2005. Разработка приложений для баз данных и Интернета». Издательство «Питер». 2006г. – 608стр Электронные ресурсы: 1.Толковый словарь Ожегова онлайн https://slovarozhegova.ru/ 2.Журнал Cosmopolitan №10, октябрь 2020 https://mypressa.ru/zhurnaly/988-cosmopolitan-10-oktjabr-2020.html 3.Журнал Cosmopolitan №7-8, июль-август 2020 https://mypressa.ru/zhurnaly/581-cosmopolitan-7-8-ijul-avgust-2020.html Приложение 1. Листинг программы program Beautyguide; uses Forms, Unit1 in 'Unit1.pas' {FormGlavn}, Unit2 in 'Unit2.pas' {FormMenu}, Unit3 in 'Unit3.pas' {FormMonday}, Unit4 in 'Unit4.pas' {FormMonday2}, Unit5 in 'Unit5.pas' {AboutBox}, Unit6 in 'Unit6.pas' {FormTuesday}, Unit7 in 'Unit7.pas' {FormWednesday}, Unit8 in 'Unit8.pas' {FormThursday}, Unit9 in 'Unit9.pas' {FormFriday}, Unit10 in 'Unit10.pas' {FormSaturday}, Unit11 in 'Unit11.pas' {FormSunday}, Unit12 in 'Unit12.pas'; {$R *.res} begin Application.Initialize; Application.CreateForm(TFormGlavn, FormGlavn); Application.CreateForm(TFormMenu, FormMenu); Application.CreateForm(TFormMonday, FormMonday); Application.CreateForm(TFormMonday2, FormMonday2); Application.CreateForm(TAboutBox, AboutBox); Application.CreateForm(TFormTuesday, FormTuesday); Application.CreateForm(TFormWednesday, FormWednesday); Application.CreateForm(TFormThursday, FormThursday); Application.CreateForm(TFormFriday, FormFriday); Application.CreateForm(TFormSaturday, FormSaturday); Application.CreateForm(TFormSunday, FormSunday); Application.Run; end. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls; type TFormGlavn = class(TForm) lbl1: TLabel; img1: TImage; lbl2: TLabel; btn1: TButton; btn2: TButton; btn3: TButton; edt1: TEdit; lbl3: TLabel; lbl4: TLabel; img2: TImage; procedure btn1Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormGlavn: TFormGlavn; implementation uses Unit2, Unit5; {$R *.dfm} procedure TFormGlavn.btn1Click(Sender: TObject); begin AboutBox.show; end; procedure TFormGlavn.btn3Click(Sender: TObject); begin Application.Terminate; end; procedure TFormGlavn.btn2Click(Sender: TObject); begin FormMenu.Show; end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg; type TFormMenu = class(TForm) lbl1: TLabel; pnl1: TPanel; btn1: TButton; btn2: TButton; btn3: TButton; img1: TImage; rg1: TRadioGroup; procedure btn1Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormMenu: TFormMenu; implementation uses Unit1, Unit5, Math, Unit3, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11; {$R *.dfm} procedure TFormMenu.btn1Click(Sender: TObject); begin AboutBox.show; end; procedure TFormMenu.btn3Click(Sender: TObject); begin Application.Terminate; end; procedure TFormMenu.btn2Click(Sender: TObject); begin if rg1.ItemIndex = 0 then FormMonday.show; if rg1.ItemIndex = 1 then FormTuesday.show; if rg1.ItemIndex = 2 then FormWednesday.show; if rg1.ItemIndex = 3 then FormThursday.show; if rg1.ItemIndex = 4 then FormFriday.show; if rg1.ItemIndex = 5 then FormSaturday.show; if rg1.ItemIndex = 6 then FormSunday.show; end; end. unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg; type TFormMonday = class(TForm) pnl1: TPanel; btn1: TButton; btn2: TButton; btn3: TButton; img1: TImage; lbl3: TLabel; btn4: TButton; rg1: TRadioGroup; rg2: TRadioGroup; rg3: TRadioGroup; rg4: TRadioGroup; rg5: TRadioGroup; rg6: TRadioGroup; mmo1: TMemo; procedure btn3Click(Sender: TObject); procedure btn1Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormMonday: TFormMonday; implementation uses Unit5, Math, Unit4, Unit6; {$R *.dfm} procedure TFormMonday.btn3Click(Sender: TObject); begin Application.Terminate; end; procedure TFormMonday.btn1Click(Sender: TObject); begin AboutBox.show; end; function MaxValues(a, b, v, g, d:Integer):string; var value:array[0..4] of Integer; i, max, imax: Integer; begin value[0]:= a; value[1]:= b; value[2]:= v; value[3]:= g; value[4]:= d; max:= value[0]; imax:= 0; for i := 1 to Length(value)-1 do if value[i] > max then begin max := value[i]; imax:=i end; Case imax of 0: Result := 'Кожа сухая'; 1: Result := 'Кожа нормальная'; 2: Result := 'Кожа чувствительная'; 3: Result := 'Кожа жирная'; 4: Result := 'Кожа смешанного типа'; else Result := 'Неизвестно'; end; end; procedure TFormMonday.btn4Click(Sender: TObject); var a, b, v, g, d: Integer; begin if ((rg1.ItemIndex = -1) and (rg2.ItemIndex = -1) and (rg3.ItemIndex = -1) and (rg4.ItemIndex = -1) and (rg5.ItemIndex = -1) and (rg6.ItemIndex = -1)) then begin ShowMessage('Ответьте на все вопросы!'); end else begin a := 0; b := 0; v := 0; g := 0; d := 0; with rg1 do begin if ItemIndex = 0 then inc(a); if ItemIndex = 1 then inc(b); if ItemIndex = 2 then inc(v); if ItemIndex = 3 then inc(g); if ItemIndex = 4 then inc(d); end; with rg2 do begin if ItemIndex = 0 then inc(a); if ItemIndex = 1 then inc(b); if ItemIndex = 2 then inc(v); if ItemIndex = 3 then inc(g); if ItemIndex = 4 then inc(d); end; with rg3 do begin if ItemIndex = 0 then inc(a); if ItemIndex = 1 then inc(b); if ItemIndex = 2 then inc(v); if ItemIndex = 3 then inc(g); if ItemIndex = 4 then inc(d); end; with rg4 do begin if ItemIndex = 0 then inc(a); if ItemIndex = 1 then inc(b); if ItemIndex = 2 then inc(v); if ItemIndex = 3 then inc(g); if ItemIndex = 4 then inc(d); end; with rg5 do begin if ItemIndex = 0 then inc(a); if ItemIndex = 1 then inc(b); if ItemIndex = 2 then inc(v); if ItemIndex = 3 then inc(g); if ItemIndex = 4 then inc(d); end; with rg6 do begin if ItemIndex = 0 then inc(a); if ItemIndex = 1 then inc(b); if ItemIndex = 2 then inc(v); if ItemIndex = 3 then inc(g); if ItemIndex = 4 then inc(d); end; mmo1.Lines.Clear; mmo1.Lines.Add(MaxValues(a,b,v,g,d)); begin if mmo1.Visible then mmo1.Visible:=false else mmo1.Visible:=true; end; end; end; procedure TFormMonday.btn2Click(Sender: TObject); begin FormMonday2.show; FormMonday.Close; end; end. unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls, QuickRpt, QRCtrls; type TFormMonday2 = class(TForm) lbl1: TLabel; img1: TImage; pnl1: TPanel; btn1: TButton; btn3: TButton; redt1: TRichEdit; btn4: TButton; procedure FormCreate(Sender: TObject); procedure btn1Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormMonday2: TFormMonday2; implementation uses Unit5, Unit6, Unit2; {$R *.dfm} procedure TFormMonday2.FormCreate(Sender: TObject); begin redt1.Lines.LoadFromFile('1txt.rtf'); end; procedure TFormMonday2.btn1Click(Sender: TObject); begin AboutBox.show; end; procedure TFormMonday2.btn3Click(Sender: TObject); begin Application.Terminate; end; procedure TFormMonday2.btn2Click(Sender: TObject); begin FormTuesday.Show; end; procedure TFormMonday2.btn4Click(Sender: TObject); begin FormMenu.show; FormMonday2.Close; end; end. unit Unit5; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls, jpeg; type TAboutBox = class(TForm) Panel1: TPanel; ProgramIcon: TImage; ProductName: TLabel; Comments: TLabel; OKButton: TButton; procedure FormCreate(Sender: TObject); procedure OKButtonClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var AboutBox: TAboutBox; implementation {$R *.dfm} procedure TAboutBox.FormCreate(Sender: TObject); begin AboutBox.Color := TColor($CBC0FF); end; procedure TAboutBox.OKButtonClick(Sender: TObject); begin Close; end; end. unit Unit6; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg, Buttons; type TFormTuesday = class(TForm) lbl2: TLabel; img1: TImage; pnl1: TPanel; btn1: TButton; btn3: TButton; redt1: TRichEdit; btn4: TButton; grp1: TGroupBox; lbl1: TLabel; cbb1: TComboBox; lbl3: TLabel; btn5: TBitBtn; lbl4: TLabel; lbl5: TLabel; lbl6: TLabel; lbl7: TLabel; lbl8: TLabel; lbl9: TLabel; procedure FormCreate(Sender: TObject); procedure btn1Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure btn5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormTuesday: TFormTuesday; implementation uses Unit5, Unit7, Unit2; {$R *.dfm} procedure TFormTuesday.FormCreate(Sender: TObject); begin redt1.Lines.LoadFromFile('2txt.rtf'); end; procedure TFormTuesday.btn1Click(Sender: TObject); begin AboutBox.show; end; procedure TFormTuesday.btn3Click(Sender: TObject); begin Application.Terminate; end; procedure TFormTuesday.btn2Click(Sender: TObject); begin FormWednesday.Show; end; procedure TFormTuesday.btn4Click(Sender: TObject); begin FormMenu.show; FormTuesday.Close; end; procedure TFormTuesday.btn5Click(Sender: TObject); begin if cbb1.Text='Менее 5 секунд' then lbl5.Visible:=True else if cbb1.Text='5 cекунд' then lbl6.Visible:=True else if cbb1.Text='8 секунд' then lbl7.Visible:=True else if cbb1.Text='10 секунд ' then lbl8.Visible:=True else if cbb1.Text='15 секунд' then lbl9.Visible:=True; end; end. unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg; type TFormWednesday = class(TForm) lbl2: TLabel; img1: TImage; pnl1: TPanel; btn1: TButton; btn3: TButton; redt1: TRichEdit; |