Календарь

Практическая работа в Lazarus, целью которой является создание программы, которая будет автоматически переводить год календаря Хиджры в год по европейскому (Григорианскому) календарю, и наоборот.

Для этого воспользуемся формулами

Q = Х − Х/33 + 622 Х = Q − 622 + (Q − 622)/32

Таким образом ваша новая программа должна будет переводить год календаря Хиджры (X) в год по Григорианскому календарю (Q), и наоборот, а также отображать результаты вычислений на экране.

  1. Запустите программу Lazarus.
  2. Для создания нового проекта выберите команду меню File-New…
    (Файл-Создать…). Откроется соответствующее диалоговое окно.
  3. Выбрав из списка пункт Project-Application (Проект-Приложение), щелкните по кнопке ОК. Будет создан новый проект.
  4. Сохраните новый проект в папке Сalendar. Для этого используйте команду File-Save As (Файл-Сохранить как …).
  5. Используя предложенную таблицу, измените свойства формы.
    Таблица
  6. Используя вкладку Standard палитры компонентов, создайте два объекта – ярлыки Label1 и Label2.
  7. Используя во вкладке Standard компонент TEdit, создайте после объекта Label1 объект Edit1. Точно так же создайте после объекта Label2 объект
    Edit2.
  8. Используя компонент TButton, создайте перед объектом Edit1 объект Button1. Аналогично создайте перед объектом Edit2 объект Button2.
    Выровните объекты относительно друг друга.
    В результате получится приблизительно такой вид:
    Кнопки
  9. Выделите объект Label1 и измените его текст на Год Хиджры.
    Аналогично измените текст объекта Label2 на Григорианский год.
  10. Выделите объект Button1 и измените его текст на В Григорианский.
    Аналогично текст объекта Button2 замените на В Хиджры.
  11. Выделите объект Edit1 и в значении его свойства Text поставьте пробел. Повторите эти действия с объектом Edit2. В итоге интерфейс программы готов.
    КалендарьПрограмма должна работать так: в текстовом поле Год Хиджры записывается любая дата, например, 1419. Для того чтобы узнать, какому году будет соответствовать этот год по Григорианскому календарю, щелкните по кнопке В Григорианский. В текстовом поле Григорианский год появится год по европейскому календарю (например, 1998).
  12. Для создания обработчика события OnClick для кнопки В Григорианский (Button1) дважды щелкните по объекту В Григорианский (Button1).
    Управление перейдет к редактору исходного кода.
  13. Процедуру TForm1.Button1Click составьте так, как указано ниже:

    [html]procedure TForm1.Button1Click(Sender: TObject);
    var
    Х, Q: integer;
    begin
    Х := StrToInt(Edit1.Text);
    Q := Х–(Х div 33) + 622;
    Edit2.Text := IntToStr(Q);
    end;[/html]

  14. Для создания обработчика события OnClick для кнопки В Хиджры (Button2) дважды щелкните по объекту В Хиджры (Button2).
    Управление перейдет к редактору исходного кода.
  15. Процедуру TForm1.Button2Click составьте так, как указано ниже:

    [html]procedure TForm1.Button2Click(Sender: TObject);
    var
    X, Q: integer;
    begin
    Q := StrToInt(Edit2.Text);
    X: = Q–622+(Q–622) div 32;
    Edit1.Text := IntToStr(X);
    end;[/html]

You may also like

More in:Lazarus

Comments are closed.