Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/16: Рейтинг темы: голосов - 16, средняя оценка - 4.81
0 / 0 / 0
Регистрация: 27.09.2010
Сообщений: 7
1

Знаки зодиака

07.10.2010, 00:06. Показов 2958. Ответов 7
Метки нет (Все метки)

Вообщем на форме размещается: поле ввода месяца и числа, соответственно после ввода, программа должна определять знак задиака и выодить гороскоп (любой, например из рамблера скопировать и вставить в программу) и картинку этого знака задиака. p.s. Товарищи программисты, как нам сказал преподаватель "это просто, вы попробуйте" )))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.10.2010, 00:06
Ответы с готовыми решениями:

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

Определение второго знака зодиака
В общем дали задание написать программу на тему: "Зодиакальная совместимость". Есть небольшие...

Создать приложение, определяющее знак зодиака
Здравствуйте! Помогите создать приложение, определяющее знак зодиака. Приложение запрашивает дату...

Определение по дате рождения знак Зодиака
Задача. Известно что астрологи делят год на 12 периодов и каждому из них ставят в соответствие одни...

__________________
7
5 / 5 / 2
Регистрация: 31.05.2010
Сообщений: 80
07.10.2010, 01:03 2
Цитата Сообщение от nenasitnyi Посмотреть сообщение
Вообщем на форме размещается: поле ввода месяца и числа, соответственно после ввода, программа должна определять знак задиака и выодить гороскоп (любой, например из рамблера скопировать и вставить в программу) и картинку этого знака задиака. p.s. Товарищи программисты, как нам сказал преподаватель "это просто, вы попробуйте" )))
Ну да, это просто, так и передай своему преподавателю!
Ты гороскоп в виде текста хочешь вытянуть с "нета" и вставить его в поле, типа memo?
0
0 / 0 / 0
Регистрация: 27.09.2010
Сообщений: 7
07.10.2010, 09:43  [ТС] 3
нет. Текст просто копируется, и вставляется в программу. Принцип инциклопедии, мы вводим число и дату рождения, программа выводит нам картинку знака задиака и текст ранее скопированный.

Добавлено через 1 минуту
мне хотябы черновой, хоть как работала бы....
0
Любанечка
08.08.2011, 09:28 4
Здравствуйте. Мне тоже очень нужна эта программа. Будьте добры, подскажите пожалуйста, есть ответ на этот диалог? Есть программа? Очень нужна. Помогите пожалуйста,друзья!
158 / 151 / 50
Регистрация: 03.08.2011
Сообщений: 299
Записей в блоге: 14
08.08.2011, 11:43 5
Можно попробовать вот так
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
uses DateUtils;
 
type
  zodiak=(Овен,Телец,Близнецы,Рак,Лев,Дева,Весы,Скорпион,Стрелец,Козерог,Водолей,Рыбы,Чупакабра);
 
procedure TForm1.Button1Click(Sender: TObject);
//В поле Edit1 вводится дата вида dd.mm.yyyy
var
  date:TDateTime;
  day,month:Word;
 
  function GetZodiak:zodiak;
  begin
    case month of
      1:if day<20 then
          Result:=Козерог
        else
          Result:=Водолей;
      2:if day<19 then
          Result:=Водолей
        else
          Result:=Рыбы;
      3:if day<21 then
          Result:=Рыбы
        else
          Result:=Овен;
      4:if day<21 then
          Result:=Овен
        else
          Result:=Телец;
      5:if day<21 then
          Result:=Телец
        else
          Result:=Близнецы;
      6:if day<23 then
          Result:=Близнецы
        else
          Result:=Рак;
      7:if day<23 then
          Result:=Рак
        else
          Result:=Дева;
      8:if day<24 then
          Result:=Дева
        else
          Result:=Весы;
      9:if day<22 then
          Result:=Весы
        else
          Result:=Скорпион;
      10:if day<22 then
           Result:=Скорпион
         else
           Result:=Стрелец;
      11:if day<20 then
           Result:=Стрелец
         else
           Result:=Водолей;
      12:if day<20 then
           Result:=Водолей
         else
           Result:=Козерог;
    else
      Result:=Чупакабра;
    end;
  end;
 
  function SetGor(x:Zodiak):boolean;
  //Овен - 'Data\0\'
  //Чупакабра - 'Data\12\'
  begin
    try
      Image1.Picture.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Icon.bmp');
      Memo1.Lines.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Text.txt');
      Result:=true;
    except
      Result:=false;
    end;
  end;
 
begin
  date:=StrToDate(Edit1.Text);
  day:=DateUtils.DayOf(date);
  month:=DateUtils.MonthOf(date);
  SetGor(GetZodiak)
end;
0
Любанечка
08.08.2011, 11:51 6
Я благодарю Вас за то,что Вы быстро откликнулись. Но к моему огромному стыду, я абсолютно не программист.Мне настолько тяжело разобраться "куда и что" . Прошу,помогите бедному медику, объясните пожалуйста.
Модератор
63350 / 47055 / 32434
Регистрация: 18.05.2008
Сообщений: 114,062
08.08.2011, 11:56 7
Цитата Сообщение от Любанечка Посмотреть сообщение
я абсолютно не программист.Мне настолько тяжело разобраться "куда и что"
В таких случаях заказывают готовую программу за вознаграждение в этом разделе.
https://www.cyberforum.ru/freelance/
0
158 / 151 / 50
Регистрация: 03.08.2011
Сообщений: 299
Записей в блоге: 14
08.08.2011, 12:14 8
Оно же, с комментариями
1. Запустите дельфи, создайте новую программу, на форме разместите поля ввода (1 Edit и 1 Memo), кнопку и поле изображения (Image).
2. Дважды кликните на кнопке, откроется редактор кода, где будет:
Delphi
1
2
3
4
5
6
...
procedure TForm1.Button1Click(Sender: TObject);
begin
 
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
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
uses DateUtils;//в число модулей, используемых компиляотром, добавляется DateUtils
 
type
  zodiak=(Овен,Телец,Близнецы,Рак,Лев,Дева,Весы,Скорпион,Стрелец,Козерог,Водолей,Рыбы,Чупакабра); 
//Объявляется тип данных для хранения знака зодиака
 
procedure TForm1.Button1Click(Sender: TObject);
//В поле Edit1 вводится дата вида dd.mm.yyyy (01.01.2000)
var
  date:TDateTime;//переменная типа дата-время
  day,month:Word;//целые числа (0..65535)
 
  function GetZodiak:zodiak;//функция возвращает знак зодиака
  begin
    case month of            //выбор номера месяца
      1:if day<20 then       //первый месяц: если число меньше 20 то
          Result:=Козерог    //знак зодиака - Козерог
        else                      //иначе
          Result:=Водолей;  //знак зодиака - Водолей
      2:if day<19 then        //второй месяц...
          Result:=Водолей
        else
          Result:=Рыбы;
      3:if day<21 then
          Result:=Рыбы
        else
          Result:=Овен;
      4:if day<21 then
          Result:=Овен
        else
          Result:=Телец;
      5:if day<21 then
          Result:=Телец
        else
          Result:=Близнецы;
      6:if day<23 then
          Result:=Близнецы
        else
          Result:=Рак;
      7:if day<23 then
          Result:=Рак
        else
          Result:=Дева;
      8:if day<24 then
          Result:=Дева
        else
          Result:=Весы;
      9:if day<22 then
          Result:=Весы
        else
          Result:=Скорпион;
      10:if day<22 then
           Result:=Скорпион
         else
           Result:=Стрелец;
      11:if day<20 then
           Result:=Стрелец
         else
           Result:=Водолей;
      12:if day<20 then
           Result:=Водолей
         else
           Result:=Козерог;
    else  //если месяц не выбран до этого
      Result:=Чупакабра;  //знак зодиака - Чупакабра
    end;
  end;
 
  function SetGor(x:Zodiak):boolean;
  //в папке программы нужно создать папку Data, в ней 13 папок с именами "0","1","2",..."12"
  //в каждой из них - 2 файла:
  // Icon.bmp - с изображением знака
  // Text.txt - с текстом гороскопа для этого знака
  begin
    try
      Image1.Picture.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Icon.bmp');//загрузка значка
      Memo1.Lines.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Text.txt');//загрузка гороскопа
      Result:=true;  //если все успешно, то результат - true
    except //если в процессе загрузки произошли ошибки
      Result:=false; //результат - false
    end;
  end;
 
begin
  date:=StrToDate(Edit1.Text);//получение даты из поля ввода
  day:=DateUtils.DayOf(date);//определение дня
  month:=DateUtils.MonthOf(date);//определение месяца
  SetGor(GetZodiak)//собственно обработка
end;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.08.2011, 12:14

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Гороскоп: определить знак Зодиака по дате
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

По дате (месяц и день) рождения определите знак Зодиака.
Понятия не имею как делать эту задачу. По дате (месяц и день) рождения определите знак Зодиака. ...

Определять знак зодиака и год по восточному календарю при вводе даты рождения
Задали задание по Delphi- программа должна определять знак зодиака и год по восточному календарю...

7. Написать программу, которая запрашивает у пользователя месяц его рождения и выводит сообщение с соответствующим знаком зодиака
Написать программу, которая запрашивает у пользователя месяц его рождения и выводит сообщение с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.