Создание менеджера конфигурации Celestia
Обоснование и выбор программных средств обеспечения проектирования и разработки структуры классов. Математические методы и специальные алгоритмы решения задачи. Описание входной, выходной и промежуточной информации. Разработка экранного интерфейса.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | дипломная работа |
Язык | русский |
Дата добавления | 18.05.2014 |
Размер файла | 1,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
CheckBox27->State=Settings->ReadBool("Spacecrafts","Salyut7",0);
CheckBox28->State=Settings->ReadBool("Spacecrafts","Mariner",0);
CheckBox29->State=Settings->ReadBool("Spacecrafts","VenusExpress",0);
CheckBox32->State=Settings->ReadBool("Spacecrafts","Herschel",0);
CheckBox34->State=Settings->ReadBool("Spacecrafts","NewHorizons",0);
CheckBox35->State=Settings->ReadBool("Spacecrafts","Spitzer",0);
CheckBox36->State=Settings->ReadBool("Spacecrafts","ISO",0);
CheckBox37->State=Settings->ReadBool("Spacecrafts","Envisat",0);
CheckBox39->State=Settings->ReadBool("Spacecrafts","Apollo",0);
CheckBox40->State=Settings->ReadBool("Spacecrafts","Dawn",0);
CheckBox41->State=Settings->ReadBool("Spacecrafts","DeepImpact",0);
CheckBox42->State=Settings->ReadBool("Spacecrafts","Giotto",0);
CheckBox43->State=Settings->ReadBool("Spacecrafts","Helios",0);
CheckBox44->State=Settings->ReadBool("Spacecrafts","ICE",0);
CheckBox46->State=Settings->ReadBool("Spacecrafts","LRO",0);
CheckBox47->State=Settings->ReadBool("Spacecrafts","Magellan",0);
CheckBox48->State=Settings->ReadBool("Spacecrafts","MarsExpress",0);
CheckBox52->State=Settings->ReadBool("Spacecrafts","Nozomi",0);
CheckBox54->State=Settings->ReadBool("Spacecrafts","Pioneers",0);
CheckBox55->State=Settings->ReadBool("Spacecrafts","Planck",0);
CheckBox56->State=Settings->ReadBool("Spacecrafts","Rosetta",0);
CheckBox57->State=Settings->ReadBool("Spacecrafts","Ulysses",0);
CheckBox58->State=Settings->ReadBool("Spacecrafts","Venera",0);
CheckBox59->State=Settings->ReadBool("Spacecrafts","Viking",0);
CheckBox60->State=Settings->ReadBool("Spacecrafts","Zond3",0);
BitBtn2->Click();
//LUA-инструменты
if(Label11->Visible==false) //если Lua-инструменты установлены
{
CheckBox4->State=Settings->ReadBool("LuaTools","ShowTools",0);
CheckBox5->State=Settings->ReadBool("LuaTools","Info",0);
CheckBox6->State=Settings->ReadBool("LuaTools","Coordinates",0);
CheckBox11->State=Settings->ReadBool("LuaTools","Magnification",0);
CheckBox12->State=Settings->ReadBool("LuaTools","HR",0);
CheckBox7->State=Settings->ReadBool("LuaTools","KeplerParam",0);
CheckBox13->State=Settings->ReadBool("LuaTools","VirtualPad",0);
CheckBox8->State=Settings->ReadBool("LuaTools","Compass",0);
CheckBox63->State=Settings->ReadBool("LuaTools","AsteroidBelt",0);
CheckBox14->State=Settings->ReadBool("LuaTools","LocalTime",0);
CheckBox15->State=Settings->ReadBool("LuaTools","CenterCompass",0);
CheckBox16->State=Settings->ReadBool("LuaTools","AltAzimuthal",0);
ComboBox2->ItemIndex=Settings->ReadInteger("LuaTools","DateFormat",0);
Edit4->Text=Settings->ReadString("LuaTools","GotoDuration","");
if(LuaTab->Caption.Pos("Lua Universal Tools"))
RadioGroup1->ItemIndex=Settings->ReadInteger("LuaTools","ColorScheme",0);
BitBtn3->Click();
}
AutoSave=false;
Application->MessageBox(MessegesLocale[9].c_str(), Application->Title.c_str(), MB_OK | MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label32MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Label32->Font->Style = TFontStyles() << fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label32MouseLeave(TObject *Sender)
{
Label32->Font->Style = TFontStyles() >> fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label32Click(TObject *Sender)
{
ShellExecute(Handle, NULL, LinkLocale[1].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Button4Click(TObject *Sender)
{
if(ExportDialog->Execute())
{
//Основные
Settings = new TIniFile(ExportDialog->FileName);
Settings->WriteString("Main","ExtrasDir1",EditDir1->Text);
Settings->WriteString("Main","ExtrasDir2",EditDir2->Text);
Settings->WriteString("Main","ExtrasDir3",EditDir3->Text);
Settings->WriteString("Main","OrbitPathSamplePoints",Edit2->Text);
Settings->WriteString("Main","RingSystemSections",Edit3->Text);
String Temp;
if(RadioButton1->Checked==true)
Temp="crosshair";
if(RadioButton2->Checked==true)
Temp="inverting_crosshair";
if(RadioButton3->Checked==true)
Temp="arrow";
Settings->WriteString("Main","Cursor",Temp);
Settings->WriteString("Main","ScriptScreenshotDirectory",EditScreenDir->Text);
Settings->WriteInteger("Main","ScriptSystemAccessPolicy",ComboBox1->ItemIndex);
Settings->WriteString("Main","InitScript",EditStartScript->Text);
Settings->WriteString("Main","DemoScript",EditDemoScript->Text);
Settings->WriteString("Main","RotateAcceleration",Edit5->Text);
Settings->WriteString("Main","MouseRotationSensitivity",Edit1->Text);
//Объекты и время
Settings->WriteBool("ObjectsTime","SunFlares",CheckBox1->State);
Settings->WriteBool("ObjectsTime","JupiterRings",CheckBox2->State);
Settings->WriteBool("ObjectsTime","MarsSurfaceFeatures",CheckBox10->State);
Settings->WriteBool("ObjectsTime","KuiperBelt",CheckBox17->State);
Settings->WriteBool("ObjectsTime","JupiterClouds",CheckBox18->State);
Settings->WriteBool("ObjectsTime","IoVolcanoes",CheckBox19->State);
Settings->WriteBool("ObjectsTime","SpaceLift",CheckBox20->State);
Settings->WriteBool("ObjectsTime","OortCloud",CheckBox61->State);
Settings->WriteBool("ObjectsTime","HighlightSaturnRings",CheckBox62->State);
//Космические аппараты
Settings->WriteBool("Spacecrafts","Mir",CheckBox9->State);
Settings->WriteBool("Spacecrafts","Galileo",CheckBox3->State);
Settings->WriteBool("Spacecrafts","CassiniHuygens",CheckBox23->State);
Settings->WriteBool("Spacecrafts","Sputnik1",CheckBox24->State);
Settings->WriteBool("Spacecrafts","Sputnik2",CheckBox25->State);
Settings->WriteBool("Spacecrafts","Sputnik3",CheckBox26->State);
Settings->WriteBool("Spacecrafts","Salyut7",CheckBox27->State);
Settings->WriteBool("Spacecrafts","Mariner",CheckBox28->State);
Settings->WriteBool("Spacecrafts","VenusExpress",CheckBox29->State);
Settings->WriteBool("Spacecrafts","Herschel",CheckBox32->State);
Settings->WriteBool("Spacecrafts","NewHorizons",CheckBox34->State);
Settings->WriteBool("Spacecrafts","Spitzer",CheckBox35->State);
Settings->WriteBool("Spacecrafts","ISO",CheckBox36->State);
Settings->WriteBool("Spacecrafts","Envisat",CheckBox37->State);
Settings->WriteBool("Spacecrafts","Apollo",CheckBox39->State);
Settings->WriteBool("Spacecrafts","Dawn",CheckBox40->State);
Settings->WriteBool("Spacecrafts","DeepImpact",CheckBox41->State);
Settings->WriteBool("Spacecrafts","Giotto",CheckBox42->State);
Settings->WriteBool("Spacecrafts","Helios",CheckBox43->State);
Settings->WriteBool("Spacecrafts","ICE",CheckBox44->State);
Settings->WriteBool("Spacecrafts","LRO",CheckBox46->State);
Settings->WriteBool("Spacecrafts","Magellan",CheckBox47->State);
Settings->WriteBool("Spacecrafts","MarsExpress",CheckBox48->State);
Settings->WriteBool("Spacecrafts","Nozomi",CheckBox52->State);
Settings->WriteBool("Spacecrafts","Pioneers",CheckBox54->State);
Settings->WriteBool("Spacecrafts","Planck",CheckBox55->State);
Settings->WriteBool("Spacecrafts","Rosetta",CheckBox56->State);
Settings->WriteBool("Spacecrafts","Ulysses",CheckBox57->State);
Settings->WriteBool("Spacecrafts","Venera",CheckBox58->State);
Settings->WriteBool("Spacecrafts","Viking",CheckBox59->State);
Settings->WriteBool("Spacecrafts","Zond3",CheckBox60->State);
//LUA-инструменты
if(Label11->Visible==false) //если не установлены
{
Settings->WriteBool("LuaTools","ShowTools",CheckBox4->State);
Settings->WriteBool("LuaTools","Info",CheckBox5->State);
Settings->WriteBool("LuaTools","Coordinates",CheckBox6->State);
Settings->WriteBool("LuaTools","Magnification",CheckBox11->State);
Settings->WriteBool("LuaTools","HR",CheckBox12->State);
Settings->WriteBool("LuaTools","KeplerParam",CheckBox7->State);
Settings->WriteBool("LuaTools","VirtualPad",CheckBox13->State);
Settings->WriteBool("LuaTools","Compass",CheckBox8->State);
Settings->WriteBool("LuaTools","AsteroidBelt",CheckBox63->State);
Settings->WriteBool("LuaTools","LocalTime",CheckBox14->State);
Settings->WriteBool("LuaTools","CenterCompass",CheckBox15->State);
Settings->WriteBool("LuaTools","AltAzimuthal",CheckBox16->State);
Settings->WriteInteger("LuaTools","DateFormat",ComboBox2->ItemIndex);
Settings->WriteString("LuaTools","GotoDuration",Edit4->Text);
if(LuaTab->Caption.Pos("Lua Universal Tools"))
Settings->WriteInteger("LuaTools","ColorScheme",RadioGroup1->ItemIndex);
}
Temp=MessegesLocale[10]+" "+ExportDialog->FileName;
Application->MessageBox(Temp.c_str(), Application->Title.c_str(), MB_OK | MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label8MouseLeave(TObject *Sender)
{
Label8->Font->Style = TFontStyles() >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label8MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Label8->Font->Style = TFontStyles() << fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label8Click(TObject *Sender)
{
ShellExecute(Handle, NULL, LinkLocale[6].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label13MouseLeave(TObject *Sender)
{
Label13->Font->Style = TFontStyles() >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label13MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Label13->Font->Style = TFontStyles() << fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label13Click(TObject *Sender)
{
ShellExecute(Handle, NULL, LinkLocale[3].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link1MouseLeave(TObject *Sender)
{
Link1->Font->Style = TFontStyles() >> fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link1MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Link1->Font->Style = TFontStyles() << fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link1Click(TObject *Sender)
{
ShellExecute(Handle, NULL, Link[1].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link2MouseLeave(TObject *Sender)
{
Link2->Font->Style = TFontStyles() >> fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link2MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Link2->Font->Style = TFontStyles() << fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link2Click(TObject *Sender)
{
ShellExecute(Handle, NULL, Link[2].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link3MouseLeave(TObject *Sender)
{
Link3->Font->Style = TFontStyles() >> fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link3MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Link3->Font->Style = TFontStyles() << fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link3Click(TObject *Sender)
{
ShellExecute(Handle, NULL, Link[3].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link4MouseLeave(TObject *Sender)
{
Link4->Font->Style = TFontStyles() >> fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link4MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Link4->Font->Style = TFontStyles() << fsUnderline << fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Link4Click(TObject *Sender)
{
ShellExecute(Handle, NULL, Link[4].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label15MouseLeave(TObject *Sender)
{
Label15->Font->Style = TFontStyles() >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label15MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Label15->Font->Style = TFontStyles() << fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label15Click(TObject *Sender)
{
ShellExecute(Handle, NULL, LinkLocale[5].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label33MouseLeave(TObject *Sender)
{
Label33->Font->Style = TFontStyles() >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label33MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Label33->Font->Style = TFontStyles() << fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Label33Click(TObject *Sender)
{
ShellExecute(Handle, NULL, LinkLocale[4].c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void TMainForm::HSatRingsProv(String Path, TCheckBox *Check)
{
if (FileExists(ExtractFilePath(Application->ExeName)+Path))
{
TStringList *List = new TStringList;
List->LoadFromFile(ExtractFilePath(Application->ExeName)+Path);
if(List->Strings[10] == "diffuse 0.46 0.46 0.42" && List->Strings[11] == "opacity 0.008")
Check->Checked=false;
else
Check->Checked=true;
delete List;
}
else
{
Check->Checked=false;
Check->Enabled=false;
}
}
void TMainForm::HSatRingsSave(String Path, TCheckBox *Check)
{
if (FileExists(ExtractFilePath(Application->ExeName)+Path))
{
TStringList *List = new TStringList;
List->LoadFromFile(ExtractFilePath(Application->ExeName)+Path);
if(Check->Checked==true)
{
List->Strings[10] = "diffuse 1 0 0";
List->Strings[11] = "opacity 0.125";
}
else
{
List->Strings[10] = "diffuse 0.46 0.46 0.42";
List->Strings[11] = "opacity 0.008";
}
List->SaveToFile(ExtractFilePath(Application->ExeName)+Path);
delete List;
}
}
void __fastcall TMainForm::HlpClick(TObject *Sender)
{
String HelpFile = ExtractFilePath(Application->ExeName)+"manager\\help\\"+Language+".chm";
if(FileExists(HelpFile))
ShellExecute(Handle, NULL, HelpFile.c_str(), NULL, NULL, SW_SHOWNORMAL);
else
{
if(Application->MessageBox(StringsLocale[11].c_str(), Application->Title.c_str(), MB_YESNO | MB_ICONQUESTION)==IDYES)
{
HelpFile = ExtractFilePath(Application->ExeName)+"manager\\help\\English.chm";
ShellExecute(Handle, NULL, HelpFile.c_str(), NULL, NULL, SW_SHOWNORMAL);
}
}
}
//---------------------------------------------------------------------------
Размещено на Allbest.ru
Подобные документы
Описание аппаратных и программных средств, операционной системы. Описание входной и выходной информации. Информационно-логическая модель данных. Схема взаимодействия входной и выходной информации. Расчет трудоемкости и стоимости обработки информации.
курсовая работа [2,4 M], добавлен 05.07.2015Формирование требований к системе. Описание входной и выходной информации. Концептуальное и логическое проектирование структуры и пользовательского интерфейса. Выбор средств реализации подсистемы. Реализация функциональности программного средства.
курсовая работа [1,3 M], добавлен 28.08.2012Анализ входной и выходной информации, особенности ее документационного обеспечения. Описание таблиц и их основное содержание. Методика и этапы разработки интерфейса программы и ее листинг, а также формирование инструкций пользователя и программиста.
курсовая работа [682,7 K], добавлен 30.07.2015Создание баз данных с использованием Database Desktop. Проведение автоматизации рабочего места кассира. Описание входной и выходной информации. Выбор среды реализации, состава и параметров технических средств. Проектирование интерфейса программы.
курсовая работа [1021,5 K], добавлен 22.01.2015Организационно-экономическая сущность задачи автоматизации библиотечной информационной системы. Режимы работы и информационная модель решения задачи, описание входной и выходной информации. Обоснование выбора языка программирования, алгоритм решения.
дипломная работа [448,5 K], добавлен 08.11.2010Анализ используемой системы обработки информации на предприятии, ее структура и анализ эффективности функционирования. Содержание и принципы организации входной и выходной информации. Аппаратные и программные средства обеспечения, описание интерфейса.
дипломная работа [1,1 M], добавлен 24.08.2016Создание Win-приложения для библиотеки, которое позволяло бы осуществлять операции выдачи и сдачи книг в соответствии со сроками. Выбор программных и технических средств реализации проекта. Разработка интерфейса системы, описание реализованных классов.
курсовая работа [3,1 M], добавлен 14.08.2015Создание официального сайта КРОО ПСЗЗ "Красштаб Здоровья". Основные требования к дизайну, интерфейсу и функциональности сайта. Состав технических средств, защита информации. Описание входной и выходной информации. Расчет себестоимости разработки.
дипломная работа [1,4 M], добавлен 11.05.2017Организационная структура предприятия. Функциональные задачи, подлежащие автоматизации. Выбор технических, программных средств и метода проектирования. Описание алгоритма решения задачи. Разработка технологического обеспечения. Инструкция пользователя.
дипломная работа [5,3 M], добавлен 31.03.2009Проектирование процесса автоматизации оформления продаж автомобилей в автосалоне. Описание бизнес-процессов учета автомобилей. Исследование информационных потоков. Анализ входной и выходной информации. Алгоритмы решения задачи и их машинная реализация.
курсовая работа [2,9 M], добавлен 11.03.2014