Разработка программы "Нумерология"

Инструкция по использованию программы

Программа работает для подсчета и вывода информации.

Алгоритм использования:

1. Нужно ввести дату своего рождения.

2. Нажать кнопку «Вычислить».

3. Для того чтобы выбрать новую группу нужно нажать кнопку «Обновить».

Программа не работает если:

1. Вводить в поле Edit1, Edit2, Edit3 символы

2. дата рождения вводиться в виде 00.00.0000.

Разработка интерфейса пользователя.

Рис. 5. Форма название «Нумерология».

Эта главная форма, в которой представлена программа «Нумерология» и запрограммированы 2 кнопки.

ЗАКЛЮЧЕНИЕ

Главной ценностью в наше время являются информационные ресурсы. Автоматизированию поддается любая информация, при чем с помощью ЭВМ она приводиться в наиболее полезный и удобный для человека вид.

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

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

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

Проведя данную работу, были приобретены навыки работы в Borland Delphi и разработана собственная программа.

Я надеюсь, что моя программа будет полезна людям интересующимся «наукой чисел» для изучения себя.

ПРИЛОЖЕНИЕ

Листинг программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Table1: TTable;

DataSource1: TDataSource;

DBText1: TDBText;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button3: TButton;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

function ValToStr(I: integer): string;

function StrToVal(S: string): integer;

function Summa(S: string): integer;

var

Form1: TForm1;

implementation

{$R *.dfm}

{Преобразование числа в строку}

function ValToStr(I: integer): string;

var S: string;

begin

Str(I,S);

ValToStr := S;

end;

{Преобразование строки в число}

function StrToVal(S: string): integer;

var I, Code: integer;

begin

Val(S,I,Code);

if Code = 0 then

StrToVal := I

else ShowMessage(' Ошибка! ')

end;

{Вычисление суммы цифр в числе}

function Summa(S: string): integer;

var Sum,i: integer;

begin

Sum:= 0;

for i:= 1 to length(S) do

Sum:= Sum + StrToVal(S[i]);

Summa := Sum;

end;

procedure TForm1.Button1Click(Sender: TObject);

var Text: string;

begin

Table1.Active := True;

Text:= Edit1.Text+Edit2.Text+Edit3.text;

repeat

Text:= ValToStr(Summa(Text));

until Length(Text) = 1;

if Table1.State = dsBrowse then

Table1.Locate('Code',Text,[loPartialKey])

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

if Length(edit1.Text) > 2 then

Edit1.Text:=Copy(Edit1.Text,1,2)

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

if Length(edit2.Text) > 2 then

Edit2.Text:=Copy(Edit2.Text,1,2)

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

if Length(edit3.Text) > 4 then

Edit3.Text:=Copy(Edit3.Text,1,4)

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Close;

end;

end.

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