Программа считающая год зодиака.

@Kvinki · Регистрация: 21.04.2011

Студворк — интернет-сервис помощи студентам

Написал программу которая выводить на экран ваш знак зодиака. Нужна помощь в дополнении что бы выводился еще и год зодиака. Как это можно реализовать?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit lab12;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var ch,mes,god:word;
begin
 
DecodeDate(DateTimePicker1.Date, god, mes, ch);
if (ch>0) and (ch<32) and (mes>0) and (mes<13) then
case mes of
1:if ch>=20 then Label3.caption:=' Vodoley' else Label3.caption:=' Kozerog';
2:if ch>=20 then Label3.caption:=' Ryba' else Label3.caption:=' Vodoley';
3:if ch>=20 then Label3.caption:=' Owen' else Label3.caption:=' Ryba';
4:if ch>=20 then Label3.caption:=' Telec' else Label3.caption:=' Owen';
5:if ch>=20 then Label3.caption:=' Bliznechy' else Label3.caption:=' Telec';
6:if ch>=20 then Label3.caption:=' Rak' else Label3.caption:=' Bliznechy';
7:if ch>=20 then Label3.caption:=' Lev' else Label3.caption:=' Rak';
8:if ch>=20 then Label3.caption:=' Deva' else Label3.caption:=' Lev';
9:if ch>=20 then Label3.caption:=' Vesy' else Label3.caption:=' Deva';
10:if ch>=20 then Label3.caption:=' Skorpion' else Label3.caption:=' Vesy';
11:if ch>=20 then Label3.caption:=' Strelec' else Label3.caption:=' Skorpion';
12:if ch>=20 then Label3.caption:=' Kozerog' else Label3.caption:=' Strelec';
end
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.

@anonimus · 07.09.2011, 15:39

зачем тебе это условие?

Delphi
1
if (ch>0) and (ch<32) and (mes>0) and (mes<13) then

при всем своем желании ты в DateTimePicker не сможешь выбрать 13 месяц или 32 число ))
к тому же у тебя не правильно выводится знаки зодиака, дева например с 24 августа-23 сентября
козерог с 22 декабря-20 января а у тебя получается если за 20-е число значит сменился знак, а ннет.

@Kvinki · 07.09.2011, 15:54 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit lab12;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var ch,mes,god:word;
begin
 
DecodeDate(DateTimePicker1.Date, god, mes, ch);
case mes of
1:if ch>=20 then Label3.caption:=' Vodoley' else Label3.caption:=' Kozerog';
2:if ch>=20 then Label3.caption:=' Ryba' else Label3.caption:=' Vodoley';
3:if ch>=20 then Label3.caption:=' Owen' else Label3.caption:=' Ryba';
4:if ch>=20 then Label3.caption:=' Telec' else Label3.caption:=' Owen';
5:if ch>=20 then Label3.caption:=' Bliznechy' else Label3.caption:=' Telec';
6:if ch>=20 then Label3.caption:=' Rak' else Label3.caption:=' Bliznechy';
7:if ch>=20 then Label3.caption:=' Lev' else Label3.caption:=' Rak';
8:if ch>=20 then Label3.caption:=' Deva' else Label3.caption:=' Lev';
9:if ch>=20 then Label3.caption:=' Vesy' else Label3.caption:=' Deva';
10:if ch>=20 then Label3.caption:=' Skorpion' else Label3.caption:=' Vesy';
11:if ch>=20 then Label3.caption:=' Strelec' else Label3.caption:=' Skorpion';
12:if ch>=20 then Label3.caption:=' Kozerog' else Label3.caption:=' Strelec';
end
end;
end.

подправил немного) а как год зодиака реализовать не знаете?

@anonimus · 07.09.2011, 16:00

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

@Kvinki · 07.09.2011, 16:08 **[ТС]**

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

@Puporev · 07.09.2011, 16:11

Вот таблица названий годов
http://astroma.net/horoskop/year/god.htm
Если неважно когда точно начинается год, как у нас принято все их праздновать 1 января, то просто бери остаток от деления на 12 и считай, например

Delphi
1
2
3
4
5
6
case god mod 12 of
0:'god obezjyany';
.....
8:'god dracona';
....
end;

Но проверь это.
А правильно знаки зодиака так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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..2: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;

@anonimus · 07.09.2011, 16:33

вот

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if (god>=1900)and(god<=2019) then
case god mod 12 of
0:Label1.caption:='Обезьяна';
1:Label1.caption:='Петух';
2:Label1.caption:='Собака';
3:Label1.caption:='Свинья';
4:Label1.caption:='Крыса';
5:Label1.caption:='Бык';
6:Label1.caption:='Тигр';
7:Label1.caption:='Кролик';
8:Label1.caption:='Дракон';
9:Label1.caption:='Змея';
10:Label1.caption:='Лошадь';
11:Label1.caption:='Овца';
end;

@Kvinki · 07.09.2011, 17:38 **[ТС]**

Все компилируется но в Edit1 и Edit2 ничего не выводит. Подскажите где я ошибку допустил.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
unit lab12;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var d,mes,god:word;s:string;
begin
 
DecodeDate(DateTimePicker1.Date,d,mes,god);
case mes 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..2: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;
  Edit1.Text:=s;
 
 
end;
procedure TForm1.Button2Click(Sender: TObject);
var d,mes,god:word;
begin
DecodeDate(DateTimePicker1.Date,d,mes,god);
if (god>=1900)and(god<=2019) then
case god mod 12 of
0:Edit2.Text:='Îáåçüÿíà';
1:Edit2.Text:='Ïåòóõ';
2:Edit2.Text:='Ñîáàêà';
3:Edit2.Text:='Ñâèíüÿ';
4:Edit2.Text:='Êðûñà';
5:Edit2.Text:='Áûê';
6:Edit2.Text:='Òèãð';
7:Edit2.Text:='Êðîëèê';
8:Edit2.Text:='Äðàêîí';
9:Edit2.Text:='Çìåÿ';
10:Edit2.Text:='Ëîøàäü';
11:Edit2.Text:='Îâöà';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.

@anonimus · 07.09.2011, 17:44

ты перепутал параметры у функции DecodeDate

@Puporev · 07.09.2011, 17:45

Поди кнопки не инициированы, скопировал и вставил...
Зайди в Инспектор и кликни на Button1.Click и Button2.Click

@anonimus · 07.09.2011, 17:46

вообще учись пользоваться отладчиком, меньше будут возникать подобные вопросы

Добавлено через 42 секунды

Сообщение от Puporev

Поди кнопки не инициированы, скопировал и вставил...
Зайди в Инспектор и кликни на Button1.Click и Button2.Click

нее у него в переменную god попадает значение дня, в а d значение года

@Kvinki · 07.09.2011, 17:54 **[ТС]**

Да исправил уже. Не заметил как ошибся)
Спасибо большое за помощь

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	07.09.2011, 16:00
	условие убрал я вижу и все? а то что не правильно выдает результат, фиг с ним? какой год? что у зодиака есть свой год? или ты имеешь ввиду год по китайскому календарю, быка там, или крысы? 0

@Kvinki 1 / 1 / 0 Регистрация: 21.04.2011 Сообщений: 31
	07.09.2011, 16:08 [ТС]
	Да именно. Нужно указать год быка козы .... Я так понимаю он повторяется каждые 12 лет. Над знаком зодиака я пока не разбирался)- посмотрю потом точные даты. 0

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	07.09.2011, 17:44
	ты перепутал параметры у функции DecodeDate 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	07.09.2011, 17:45
	Поди кнопки не инициированы, скопировал и вставил... Зайди в Инспектор и кликни на Button1.Click и Button2.Click 0

@Kvinki 1 / 1 / 0 Регистрация: 21.04.2011 Сообщений: 31
	07.09.2011, 17:54 [ТС]
	Да исправил уже. Не заметил как ошибся) Спасибо большое за помощь 0