Разработка программы для реализации заданных функций и реализации ее в среде Borland C++ 6.0

Рисунок 4.4 – вопрос из первого блока.

Рисунок 4.5 – вопрос из первого блока.

Ответив на вопросы из первого  блока, открывается инструкция для  ответов на вопросы второго блока (Рис.4.6)

Рисунок 4.6 – Инструкция к блоку 2.

Во втором блоке 5 вопросо, для ответа на которые респонденту  даётся пять минут.

Рисунок 4.7 – вопрос из второго блока.

Рисунок 4.8 – вопрос из второго блока.

Итак, тест пройден и перед  опрашиваемым выскакивает одно из трёх вариантов его направленности.

Рисунок 4.9 Результаты тестирования

4.2 ТЕСТ ВТОРОЙ

Любой желающий может перед  прохождением теста ввести свои данные

Рисунок 4.10 Данные пользователя

У каждого человека свои взгляды на жизнь и свой склад  ума, тем самым разные люди будут  по разному отвечать на вопросы

Рисунок 4.11 Выбор другого варианта ответа в первом блоке.

Рисунок 4.12 Результаты тестирования

 

.

ЗАКЛЮЧЕНИЕ

 В процессе выполнения  курсового проекта была  разработано  приложение  с помощью, которого осуществляется документооборот туристической фирмы. Реализованы поставленные задачи.

Программа выполняет следующие  функции:

1. предоставляет возможность пройти тест (отвечать на вопросы путём выбора одного варианта ответа из предложенных);
2. ввод данных пользователя;
3. предоставляет информацию о пройденном тесте.

 Таким образом, цель курсовой работы достигнута. Приложение успешно протестировано. Разработанная прикладная программа имеет удобный пользовательский интерфейс. Элементы программы представлены как единый проект, управление которым осуществляется через меню пользователя.

 

 

 

 

 

 

 

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Архангельский А.Я., Программирование в C++Builder 6 -  Москва, «Бином-Пресс», 2003.
2. Архангельский А.Я., С++ Builder 6. Справочное пособие. Книга 1. Язык С++ - Москва, «Бином», 2002
3. Архангельский А.Я., С++ Builder 6. Справочное пособие. Книга 2. Классы и компоненты – Москва, «Бином», 2002
4. Архангельский А.Я., Тагин М. А.,Программирование в C++ Builder 6 и 2006 – Москва, «Бином-Пресс», 2007
5. Бобровский С., Программирования на языке С++ в системе Borland C++ Builder -  Москва, «ДЕСС INFORCOM PRESS»1999.
6. Ермолаев В.,Сорока Т., C++ Builder:Книга рецептов -  Москва, «Кудиц-обзац», 2006
7. Культин Н.Б.,  Самоучитель C++ Builder -  СПб, «БХВ-Петербург», 2004
8. Липпман С.Б., Лажойе Ж. Язык программирования С++ -  Москва, СПб, «Невский диалект», 2001.
9. Холингвэрт Д., Баттерфилд Д., Сворд Б., Оллсоп Д., С++Builder. Руководство разработчика - Москва, «Вильямс» 2001. 
10. Глушаков С.В., Коваль С.В. Язык программирования С++. –Москва, «Фолио» 2004.

 

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

#include "IniFiles.hpp" // для работы с.ini файлами

#include "jpeg.hpp"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

TIniFile *Ini;

 

String name;

int age, teh=0, gum=0, sex, question=15, all_q;

String Question[50][20];

int T=0;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void ShowResult(int t, int g)

{

   if(g>10)

   {

      Form1->Label5->Caption=" Способности (гуманитарий):";

      Form1->StaticText12->Caption="Итак, "+name+", Вы показали низкие способности, связанные с гуманитарной сферой: задачи на изучение словарного запаса и эрудицию требуют больше времени и знаний. Если Вас привлекают гуманитарные профессии, то нужно заняться своими способностями (например, больше читать художественной классической литературы или решать анаграммы на время) ";

   }

   if(t>10)

   {

      Form1->Label6->Caption=" Способности (технарь):";

      Form1->StaticText13->Caption="Итак, "+name+", Вы показали низкие способности, связанные с технической сферой. Математические задачи либо Вам не нравятся, либо не всегда получается их решать. Если Вы выбираете технические специальности, то требуется развивать соответствующие способности (развивать математическую логику и считать в уме играть в шахматы)".;

   }

   if(g<10)

   {

      Form1->StaticText12->Caption="Итак, "+name+", Вас мало интересуют гуманитарные специальности, вероятно, Вы не очень любите читать (особенно художественную литературу). При этом и Ваши способности в этой сфере еще ждут своего развития. Вероятно, в данный момент Вы гуманитарные сферы не рассматриваете в качестве профессиональных. А может просто ведущими являются технические интересы и склонности? Или естественнонаучные? Если ни те и ни другие, то можно предположить, что Вы не любите учиться и прилагать усилия для освоения какой-либо специальности. Возможно, что сейчас Ваши интересы сконцентрированы на вне профессиональной деятельности. Говорить о том, гуманитарий Вы или технарь не представляется в таком случае возможным.";

      Form1->Label5->Caption=" ГУМАНИТАРИЙ (ОБЩАЯ):";

   }

   if(t<10)

   {

      Form1->StaticText13->Caption="Итак, "+name+", Вас не привлекают точные расчеты и работа, связанная с техническими устройствами (их разработка, наладка, техническая поддержка и т.д.). А может просто способности еще не получили своего развития? Выбор за Вами: оставить в стороне технические специальности или просто побольше времени уделять развитию способностей, связанных с математическими расчетами и зрительной логикой.";

      Form1->Label6->Caption=" ТЕХНАРЬ (ОБЩАЯ):";

   }

}

 

void ShowQuest(int q)

{

   Form1->STQuest->Caption=Question[q-1][1];

   Form1->STNumQ->Caption="Вопрос "+IntToStr(q);

 

   Form1->RBut1->Visible=false;

   Form1->RBut2->Visible=false;

   Form1->RBut3->Visible=false;

   Form1->RBut1->Width=17;

   Form1->RBut2->Width=17;

   Form1->RBut3->Width=17;

   Form1->RBut1->Checked=false;

   Form1->RBut2->Checked=false;

   Form1->RBut3->Checked=false;

   Form1->Image1->Visible=false;

   Form1->Image2->Visible=false;

   Form1->Image3->Visible=false;

   Form1->Image4->Visible=false;

   if(Question[q-1][2]!="-1")

   {

      Form1->Image4->AutoSize=true;

      Form1->Image4->Visible=true;

      Form1->Image4->Picture->LoadFromFile(Question[q-1][2]);

   }

   int top=185;

   if(Question[q-1][0]>0)

   {

      Form1->RBut1->Visible=true;

      if(Question[q-1][3]=="-1")

      {

         Form1->RBut1->Caption=Question[q-1][4];

         Form1->RBut1->Top=top;

         Form1->RBut1->Width=400;

         top+=Form1->RBut1->Height+10;

      }

      else

      {

         Form1->RBut1->Caption="";

         Form1->RBut1->Top=top;

         Form1->Image1->AutoSize=true;

         Form1->Image1->Visible=true;

         Form1->Image1->Picture->LoadFromFile(Question[q-1][3]);

         Form1->Image1->Top=top;

         top+=Form1->Image1->Height+10;

      }

   }

   if(Question[q-1][0]>1)

   {

      Form1->RBut2->Visible=true;

      if(Question[q-1][6]=="-1")

      {

         Form1->RBut2->Caption=Question[q-1][7];

         Form1->RBut2->Top=top;

         Form1->RBut2->Width=400;

         top+=Form1->RBut2->Height+10;

      }

      else

      {

         Form1->RBut2->Caption="";

         Form1->RBut2->Top=top;

         Form1->Image2->AutoSize=true;

         Form1->Image2->Visible=true;

         Form1->Image2->Picture->LoadFromFile(Question[q-1][6]);

         Form1->Image2->Top=top;

         top+=Form1->Image3->Height+10;

      }

   }

   if(Question[q-1][0]>2)

   {

      Form1->RBut3->Visible=true;

      if(Question[q-1][9]=="-1")

      {

         Form1->RBut3->Caption=Question[q-1][10];

         Form1->RBut3->Top=top;

         Form1->RBut3->Width=400;

         top+=Form1->RBut3->Height+10;

      }

      else

      {

         Form1->RBut3->Caption="";

         Form1->RBut3->Top=top;

         Form1->Image3->AutoSize=true;

         Form1->Image3->Visible=true;

         Form1->Image3->Picture->LoadFromFile(Question[q-1][9]);

         Form1->Image3->Top=top;

         top+=Form1->Image3->Height+10;

      }

   }

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button1Click(TObject *Sender)

{

   PInfoTest->Visible=true;

   PPreface->Visible=false;

   StaticText5->Caption=" Данный тест направлен на изучение Ваших интересов и способностей, которые важны при оценке Ваших склонностей в профессиональной сфере. Ответив на вопросы теста, Вы сможете узнать, какая направленность (гуманитарная или техническая) характерна именно для Вас. ";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button2Click(TObject *Sender)

{

   PInfoTest->Visible=false;

   PInfoMan->Visible=true;;       

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

   if(Edit1->Text!="" && Edit2->Text!="" &&

      (RadioButton1->Checked || RadioButton2->Checked))

   {

      name=Edit1->Text;

      age=StrToInt(Edit2->Text);

      gum=0;

      teh=0;

      if(RadioButton1->Checked)

         sex=1;

      else

      if(RadioButton2->Checked)

         sex=2;

      PInfoMan->Visible=false;

      PInfoT1->Visible=true;

   }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

   if(question!=16)

   {

      PInfoT1->Visible=false;

      PT1->Visible=true;

      ShowQuest(1);

      question=1;

   }

   else

   {

      PInfoT1->Visible=false;

      PT1->Visible=true;

      ShowQuest(16);

      question=16;

   }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

   Ini = new TIniFile("C:\question.ini");

   int i = StrToInt(Ini->ReadString("Count","Quest","-1"));

   all_q=i;

   if(i>0)

   {

      for(int j=1;j<=i;j++)

      {

         Question[j-1][0]=Ini->ReadString(IntToStr(j),"a","-1");

         Question[j-1][1]=Ini->ReadString(IntToStr(j),"text","-1");

         Question[j-1][2]=Ini->ReadString(IntToStr(j),"image","-1");

         if(StrToInt(Question[j-1][0])>0)

         {

            Question[j-1][3]=Ini->ReadString(IntToStr(j),"q1image","-1");

            Question[j-1][4]=Ini->ReadString(IntToStr(j),"q1text","-1");

            Question[j-1][5]=Ini->ReadString(IntToStr(j),"q1z","-1");

         }

         if(StrToInt(Question[j-1][0])>1)

         {

            Question[j-1][6]=Ini->ReadString(IntToStr(j),"q2image","-1");

            Question[j-1][7]=Ini->ReadString(IntToStr(j),"q2text","-1");

            Question[j-1][8]=Ini->ReadString(IntToStr(j),"q2z","-1");

         }

         if(StrToInt(Question[j-1][0])>2)

         {

            Question[j-1][9]=Ini->ReadString(IntToStr(j),"q3image","-1");

            Question[j-1][10]=Ini->ReadString(IntToStr(j),"q3text","-1");

            Question[j-1][11]=Ini->ReadString(IntToStr(j),"q3z","-1");

        }