Тригонометричні ефемериди планет Сонячної системи
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферат на тему, курсовые работы бесплатно
Добавил(а) на сайт: Jemskij.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
ходиться в найвищій точці над горизонтом і має найкращі умови для спостере-
ження. Також визначається азимут точок сходу і заходу планети на горизонті.
Результати обчислення виводяться на форму як множина Label, що зібрані у GroupBox4. Кнопка Button3 запускає процедуру створення Form3.
У 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.
[pic]
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;
GroupBox1: TGroupBox;
Button1: TButton;
Рекомендуем скачать другие рефераты по теме: 6 класс контрольные работы, реферат на тему життя.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата