Автор работы: Пользователь скрыл имя, 22 Июня 2012 в 11:56, курсовая работа
Центр эксплуатации объектов наземной космической инфраструктуры осуществляет метеорологическое, аэрологическое и астрономо-геодезическое обеспечение выполнения космических программ на космодроме Байконур. Метеорологическое и астрономо-геодезическое обеспечение является одним из основных видов оперативного обеспечения при выполнении космических программ, полётов авиации и имеет своей целью создание условий для обеспечения безопасности их проведения. Метеорологический комплекс создан в 2009 году на базе отделов метеорологического и астрономо-геодезического обеспечения, в связи с расширением технологических функций по направлениям метеорологического и астрономо-геодезического обеспечения подготовки и запуска всех типов РКН, проведения метеорологического мониторинга района комплекса «Байконур», обеспечения полётов авиации на комплексе «Байконур».
Введение
Основная часть
1 Анализ объекта автоматизации и разработка ТЗ на проектирование АС
1.1 Анализ деятельности отдела метеорологического обеспечения
1.1.1 Специализированные функции
1.1.2 Направления ответственности комплекса
1.2 Анализ существующей технологии
1.3 Цель проектирования
2 Диагностический анализ объекта автоматизации
3 Разработка системного проекта и ТЗ на проектирование и ТЗ на разработку программного продукта
3.1.1 Общие сведения
3.1.2 Назначение системы
3.1.3 Требования к системе
3.1.3 Требования к системе
3.2 Разработка требований к функциям, выполняемым системой
3.2.1 Среда функционирования системы
3.2.3 Краткая характеристика системы
3.2.4 Основные решаемые задачи
3.2.5 Метеостанция АМС-2000
3.3 Нефункциональные требования
3.3.1 Практичность
3.3.2 Требования к надежности
3.4 Ограничения проектирования
3.4.1 Требования к видам обеспечения
3.4.2 Требования к языкам программирования
3.4.3 Требования к защите информации
3.5 Интерфейсы
3.5.1 Требования к элементам пользовательского интерфейса
3.5.2 Общие требования к пользовательским интерфейсам
4 Математические и эвристические модели принятия решений для проектируемой системы.
4.1 Оценка прогноза температуры воздуха
4.2 Оценка прогноза осадков
4.3 Оценка прогноза ветра
5 Разработка модели проектируемой системы
5.1 Схема сети «МЕТЕО» метеорологического комплекса «Космического центра «Южный»
5.2 Функциональные модели и модели данных проектируемой АС
5.2.1 Разработка модели
5.2.1.1 Краткая характеристика системы
6 Разработка модели базы данных
6.1 Требования к информации
6.1.1 Данные о работе системы
8 Разработка диалогового интерфейса пользователя
8 Разработка алгоритмов, реализация и отладка компонент программного обеспечения АС.
8.1.1 Структура программы сервер
8.1.2 Дополнительная информация
8.1.3 Структура программы клиент
8.2 Сетевые компоненты
8.3 Компонент TIMER
8.4 Создание Frame
Глоссарий
Заключение
Список используемых источников
Приложение А
Приложение Б
Приложение В
Приложение Г
Приложение Д
Приложение Е
Приложение Ж
Form1.Show1.Enabled:=True;
Form1.Min1.Enabled:=False;
end;
procedure TForm1.Close1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.sSpeedButton1Click(
begin
Application.Minimize;
Cooltrayicon1.HideMainForm;
Form1.Show1.Enabled:=True;
Form1.Min1.Enabled:=False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
snd_T:TStringStream;
Memo_T,Memo_W:TMemoryStream;
StL_T:TStringList;
s_T,s_Tw,s_Tt:String;
Time: TDateTime;
begin
Time:=Now();
sLabelFX2.Caption:=ps_T;
Memo_T:=TMemoryStream.Create;
Memo_T.Position:=0;
Memo_T.LoadFromFile(
StL_T:=TStringList.Create;
StL_T.LoadFromStream(Memo_T);
s_Tw:=StL_T[StL_T.Count-1];
//s_T:=StringReplace(StL_T[
Memo_T.Clear;
Продолжение приложения Г
Memo_T.Position:=0;
Memo_T.LoadFromFile(
StL_T.Clear;
StL_T.LoadFromStream(Memo_T);
s_Tt:=StL_T[StL_T.Count-1];
s_T:=s_Tw+' '+s_Tt;
Memo_T.Free;
StL_T.Free;
try
IdTCPClient1.Host:=sComboBox3.
IdTCPClient1.Port:=StrToInt(
IdTCPClient1.Connect;
try
snd_T:=TStringStream.Create(''
snd_T.WriteString(sComboBox1.
snd_T.Position:=0;
IdTCPClient1.WriteStream(snd_
sLabelFX1.Caption:=s_T;
snd_T.Free;
finally
IdTCPClient1.Disconnect;
end;
except
on e: EIdexception do
begin
sLabelFX1.Caption:='no connection !';
end;
on e: Exception do
begin
ShowMessage('Error: ' + e.Message + '4');
end;
end;
end;
procedure TForm1.sButton1Click(Sender: TObject);
begin
if sOpenDialog1.Execute then ps_T:=sOpenDialog1.FileName; end; end.
Приложение Д
(обязательное)
Рисунок 16 – интерфейс программы генератор
Приложение Е
(листинг программы)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math, ExtCtrls, sSkinManager;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
sSkinManager1: TsSkinManager;
//procedure Button1Click(Sender: TObject);
//procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
//function rrr(min, max:integer): integer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function rrr(min, max:real): real;
begin
result:= min+(max-min)* Random;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var F,F1: TextFile;
Time: TDateTime;
s,s1: string;
begin
Time := Now();
s:=(FormatDateTime('dd.mm.yyyy hh:mm:ss',Time)+' '+FormatFloat('##0.0',(rrr(5,
Продолжение приложения Е
+' '+FormatFloat('##0.0',(rrr(6,
+' '+IntToStr(RandomRange(75,95))
+' '+IntToStr(RandomRange(70,100)
+' '+FormatFloat('##0.0',(rrr(5,
+' '+FormatFloat('##0.0',(rrr(6,
+' '+IntToStr(RandomRange(75,95))
+' '+IntToStr(RandomRange(70,100)
s1:=(FormatDateTime('dd.mm.
+' '+IntToStr(RandomRange(20,30))
assignfile(F,FormatDateTime('
if FileExists(FormatDateTime('
Append(F) else Rewrite(F);
Writeln(F,s);
CloseFile(F);
Label1.Caption:=s;
assignfile(F1,FormatDateTime('
if FileExists(FormatDateTime('
Append(F1) else Rewrite(F1);
Writeln(F1,s1);
CloseFile(F1);
Label2.Caption:=s1;
end;
end.
Приложение Ж
(обязательное)
Рисунок 17 – схема сети
99
Информация о работе Автоматизированная система управления метеорологических станций