Реферат: Тригонометричні ефемериди планет Сонячної системи

У Form 3 на фоні зоряного неба відображається вибрана планета. У процедурі

procedure TForm3.FormCreate(Sender: TObject); створюється фон зоряного неба через елемент Image1. Вводиться Canvas.Rectangle відовідного розміру заповняється Canvas.Brush чорним кольором і через масив координат і зоряних величин заповняється зорями через побудову Image1.Canvas.Ellipse(x1,y1,x2,y2);

Через кнопку “Показати” procedure SpeedButton1Click(Sender: TObject); відбувається перетворення зоряних координат планети на пікселі відповідно масштабу Image1 і зображається сама планета відповідним кольором через

Image1.Canvas.Pen.Color і Image1.Canvas.Ellipse(x4,y4,x5,y5);

Через кнопку “Закрити” procedure TForm3.Button1Click(Sender: TObject); відбувається закриття форми.

Через кнопку “Детальніше” procedure TForm3.SpeedButton2Click(Sender: TObject); створюється Form4.

У Form4 зображається більш детальніше фон зоряного неба. Завдяки збільшенню розмірів Image1, ми змушені використати полосу прокрутки. Створення форми відбувається аналогічно Form3. Відмінність полягає у тому, що зображення планети миготить. Це дозволяє наочно відрізнити планету від зірок. Досягається це в procedure TForm4.Timer1Timer(Sender: TObject);, де ми вводимо рахівник і через порівняння чи він парний чи непарний зображення планети проявляється то замальовується чорним кольором під колір фону.

3 . Програма на мові програмування Delphi .

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls,Unit2, jpeg;

type

TForm1 = class(TForm)

Panel1: TPanel;

Image1: TImage;

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

StaticText4: TStaticText;

StaticText5: TStaticText;