3.2 Проектирование основной формы программы
Данная программа была рассчитана на удобство использования. При разработке был создан простой, понятный пользователю интерфейс. Дополнительно была создана справочная система
При запуске программы появляется главная форма (Рисунок 5).
Рисунок 5 – Главная форма программы
3.3 Разработка справочной системы.
Для вызова справки необходимо нажать кнопку «Справка» на главной форме программы (Рисунок 6) .
Рисунок 6 – Справочное окно системы
Справка включает в себя 2 раздела: «О программе» и «Инструкция по использованию». При выборе определенного пункта пользователь может получить интересующую его информацию.
Заключение
В результате работы над курсовым проектом была создана программа для прохождения психологических тестов «Склонности и Способности»
Созданы тестовые задания на языке С++. Тестовые задания: с выбором одного правильного ответа, а так же нескольких.
Специфика данного курсового проекта не затрагивает вопросов экологии и охраны окружающей среды. Будучи продуктом умственной деятельности и предназначенным также для умственной деятельности в работе с ним, созданное программное обеспечение не нуждается в использовании материальных ресурсов и, следовательно, не ставится вопрос об их сбережении. Энергосберегающая технологичность проекта определяется оптимальным выбором системы программирования, которая обеспечивает быстродействие работы программы. Пользователь имеет возможность увеличить степень этой технологичности путем приобретения современной компьютерной техники, обладающей энергосберегающими свойствами.
Вопросы охраны труда и пожарной безопасности при эксплуатации объекта проектирования не выходят за рамки общеизвестных требований к безопасной работе с бытовыми электроприборами и требованиями САНПИНов к работе с компьютерной техникой. Это связано с тем, что непосредственно пользователь эксплуатирует не саму программу, а именно компьютерную технику, которая не является предметом данного проекта.
Список использованных источников
Архангельский А.Я. "Программирование в C++ Builder"
Баженова И. Ю. "C++ Builder 6. Самоучитель программиста"
Боровский А. Н. "Программирование в C++ Builder 6"
Галисеев Г. В. "Программирование в среде C++ Builder 6. Самоучитель"
Гофман В., Хомоненко А. "C++ Builder 6. Наиболее полное руководство"
Дарахвелидае П. Г., Марков Е. П. "Программирование в C++ Builder 6"
Конопка Р. "Создание оригинальных компонент в среде C++ Builder 6"
Седжвик Р. "Фундаментальные алгоритмы на C++ "
Шпак Ю. А. "C++ Builder 6 на примерах"
Шилдт Г. "Самоучитель C++"
Шупрута В. В. "C++ Builder 6. Учимся программировать"
Приложение a
Текст программы
Программный документ включает в себя следующие блоки:
Открытие файла справки;
Выбор формы;
Выбор правильного ответа;
Переход по вкладкам тестов;
Просмотр результата;
выход из программы.
Документ представлен на 6 страницах.
Описание главной формы
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form1->Close();(кнопка выход)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();(переход к тесту 1)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form3->Show();(переход к тесту 2)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form4->Show();(переход к тесту 3)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form1->Close(); (закрытие главной формы)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form2->Close(); (закрытие формы 1)
Form3->Close();(закрытие формы 2)
Form4->Close();(закрытие формы 3)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form5->Show(); (переход на вкладку меню разработчики)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
ShellExecute (0,"open","NewProject.hlp",0,0,SW_SHOWNORMAL); (вызов справки)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender) (вывод времени)
{
Label1->Caption = FormatDateTime("hh:nn",Time());
Timer1->Interval=60000;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
}
//---------------------------------------------------------------------------
(форма 1, тестовая)
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender) (очистка списка)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender) (закрытие формы)
{
Form2->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender) (тест 1)
{
if (CheckBox1->Checked)
Memo1->Lines->Add("По этой черте вы лидер. Но помните - излишняя уверенность приводит к плохим последствиям.");
if (CheckBox2->Checked)
Memo1->Lines->Add("Хорошее качество лидера. Но скоропостижные выводы могут иметь негативный эффект.");
if (CheckBox3->Checked)
Memo1->Lines->Add("Отличное качество лидера. Много знакомых не бывает.");
if (CheckBox4->Checked)
Memo1->Lines->Add("Хорошо для лидера - уважение. Но должны уважать, а не бояться");
if (CheckBox5->Checked)
Memo1->Lines->Add("Качество лидера. Но нужно знать, что держать, а что отпустить");
if (CheckBox6->Checked)
Memo1->Lines->Add("Рассудительность - главная черта лидера. Вы лидер! ");
}
//---------------------------------------------------------------------------
(форма 2, тестовая)
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)(тест 2)
{ if (CheckBox1->Checked)
Memo1->Lines->Add("1. Вы открытый человек.Комплексуете по поводу чужих мнений");
if (CheckBox2->Checked)
Memo1->Lines->Add("2. Вы щедрый человек. Комплексуете оказаться жадиной.");
if (CheckBox3->Checked)
Memo1->Lines->Add("3. Вы человек, который комплексует быть в центре внимания.");
if (CheckBox4->Checked)
Memo1->Lines->Add("4. Вы эгоистичный человек. Комплексуете по поводу чужого самодовольства.");
if (CheckBox5->Checked)
Memo1->Lines->Add("5. Вы нетерпеливый человек, вы мало комплексуете по поводу своей внешности.");
if (CheckBox6->Checked)
Memo1->Lines->Add("6. Вы сильныйй человек, но комплексуете по поводу вашей агрессивности в некоторые моменты.");
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender) (очистка списка результата)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------
(форма 3, тестовая)
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender) (тест 3)
{ if (RadioButton4->Checked)
Memo1->Lines->Add("Вы человек, склонный к одиночеству. Замкнутый в себе, скрытный и недоверчивый. Вам нужно больше находится на людях, принимать во внимание собрания друзей. Только так вы сможете стать полноценным человеком.");
else { if(RadioButton5->Checked)
Memo1->Lines->Add("Вы человек, который любит уют. У вас в жизни всё хорошо, вы счатливы. Вам ничего не нужно менять. Вы не склонны к авантюрам.");
else { if(RadioButton6->Checked)
Memo1->Lines->Add("Вы человек, который не склонен к порокам. Вы трудолюбивы, но нелюдимы. Старайтесь чаще находится в обществе.");
}}}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender) (тест 4)
{ if (RadioButton1->Checked)
Memo2->Lines->Add("Вы человек, склонный к умным и рациональным решениям вопроса. Вы уважаете старость. Мудры при выборе решений, но занудны. Вы немного брюзга.___");
else { if(RadioButton2->Checked)
Memo2->Lines->Add("Вы человек, который склонен к авантюрам. Вы уважаете молодость, любите радость молодой жизни. Разгульный образ жизни и боязнь старения - это про вас.___");
else { if(RadioButton3->Checked)
Memo2->Lines->Add("Вы романтичный человек. Вы хотите семью. Уважаете любовь. Ваша цель жизни - создать ячейку общества, культурная жизнью. Вы один (-на) из тех, кто верит в настоящую любовь.___");
}}}
//---------------------------------------------------------------------------
(форма 4, справочная)
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------