Укрупненная схема проекта

На рис. 6 представлена схема проекта (психологического тестера).

Рисунок 6 – Схема проекта

Приложение А

(справочное)

Листинг программы

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

using word = Microsoft.Office.Interop.Word;

using texti = курсач5.Properties.Resources;

namespace курсач5

{

public partial class Form1: Form

{

public static string name;

public Form1()

{

InitializeComponent();

}

private void оПрограммеToolStripMenuItem_Click(object sender, EventArgs e)

{

MessageBox.Show("Программа предназначена для прохождения тестов\nИзготовитель: Ягубов Эмиль\n2013 г.");

}

private void выходToolStripMenuItem_Click(object sender, EventArgs e)

{

Close();

}

private void button1_Click(object sender, EventArgs e)

{

if (textBox1.Text == "")

name = "Гость";

else name = textBox1.Text;

if (comboBox1.SelectedIndex == 0)

{

Form2 f2 = new Form2();

this.Hide();

new Form2().ShowDialog();

this.Show();

}

if (comboBox1.SelectedIndex == 1)

{

Form3 f3 = new Form3();

this.Hide();

new Form3().ShowDialog();

this.Show();

}

if (comboBox1.SelectedIndex == 2)

{

Form4 f4 = new Form4();

this.Hide();

new Form4().ShowDialog();

this.Show();

}

if (comboBox1.SelectedIndex == 3)

{

Form5 f5 = new Form5();

this.Hide();

new Form5().ShowDialog();

this.Show();

}

}

private void предпринимательскиеСпособностиToolStripMenuItem_Click(object sender, EventArgs e)

{

word.Application wrd = new word.Application();

wrd.Documents.Add();

wrd.Selection.Text = texti.Test1;

wrd.Visible = true;

}

private void формулаТемпераментаБеловаToolStripMenuItem_Click(object sender, EventArgs e)

{

word.Application wrd = new word.Application();

wrd.Documents.Add();

wrd.Selection.Text = texti.Test2;

wrd.Visible = true;

}

private void оценкаСобственнойИнтровертностиToolStripMenuItem_Click(object sender, EventArgs e)

{

word.Application wrd = new word.Application();

wrd.Documents.Add();

wrd.Selection.Text = texti.Test3;

wrd.Visible = true;

}

private void исследованиеБыстротыМышленияToolStripMenuItem_Click(object sender, EventArgs e)

{

word.Application wrd = new word.Application();

wrd.Documents.Add();

wrd.Selection.Text = texti.Test4;

wrd.Visible = true;

}

public static int Shetchik;

public Form2()

{

InitializeComponent();

}

private void оПрограммеToolStripMenuItem_Click(object sender, EventArgs e)

{

MessageBox.Show("Программа предназаначена для прохождения тестов\nИзготовитель:"+

" Ягубов Эмиль\n2013 г.");

}

private void начатьЗановоToolStripMenuItem_Click(object sender, EventArgs e)

{

this.Close();

}

private void button1_Click(object sender, EventArgs e)

{

List<CheckBox> check = panel1.Controls.OfType<CheckBox>().Where(x => x.Checked == true).ToList();

if (check.Count >= 0 && check.Count <= 12)

{

if (MessageBox.Show(this,Form1.name+", Вы набрали: " + check.Count.ToString() +

" баллов\n" + "От 0 до 12 баллов\nИз вас вряд ли выйдет хороший предприниматель." +

"\nПостарайтесь набраться опыта, и прежде чем встать на путь\nсвободного" +

" предпринимательства,еще и еще раз сопоставьте свои интересы, желания и возможности.", "Результаты тестирования",

MessageBoxButtons.RetryCancel) == DialogResult.Retry)

{

foreach (CheckBox control in this.panel1.Controls.OfType<CheckBox>())

control.Checked = false;

}

else Close();

}

if (check.Count >= 13 && check.Count <= 16)

{ if (MessageBox.Show(this, Form1.name+", Вы набрали: " + check.Count.ToString() +

" баллов\n" + "От 13 до 16 баллов\nВаши шансы на успех в качестве предпринимателя" +

" не столь очевидны.\nОднако вы можете стать удачливым дельцом, коммерсантом.", "Результаты тестирования",

MessageBoxButtons.RetryCancel) == DialogResult.Retry)

{

foreach (CheckBox control in this.panel1.Controls.OfType<CheckBox>())

control.Checked = false;

}

else Close();

}

if (check.Count >= 17 & check.Count <= 20)

{

if (MessageBox.Show(this, Form1.name+", Вы набрали: " + check.Count.ToString() +

" баллов\n" + "От 17 до 20 баллов\nВы имеете все необходимые качества, чтобы стать" +

" предпринимателем.\nВаши целеустремленность, энергия и вера в успех\nпомогут реализовать" +

" любую стоящую идею — главное,\nчтобы идеи действительно того заслуживали.", "Результаты тестирования", MessageBoxButtons.RetryCancel) == DialogResult.Retry)

foreach (CheckBox control in this.panel1.Controls.OfType<CheckBox>())

control.Checked = false;

else Close();

}

}

public partial class Form3: Form

{

public Form3()

{

InitializeComponent();

label2.Focus();

label2.Visible = false;

}

private void выходToolStripMenuItem_Click(object sender, EventArgs e)

{

this.Close();

}

private void button1_Click(object sender, EventArgs e)

{

List<CheckBox> Xolerik = panel1.Controls.OfType<CheckBox>().Where(x => x.Checked == true).ToList();

List<CheckBox> Melanxolik = panel2.Controls.OfType<CheckBox>().Where(x => x.Checked == true).ToList();

List<CheckBox> Flegmatik = panel3.Controls.OfType<CheckBox>().Where(x => x.Checked == true).ToList();

List<CheckBox> Sangvinik = panel4.Controls.OfType<CheckBox>().Where(x => x.Checked == true).ToList();

double vse = Xolerik.Count + Flegmatik.Count + Sangvinik.Count + Melanxolik.Count;

double Xol = Math.Round((Xolerik.Count / vse)*100);

double Mel = Math.Round((Melanxolik.Count / vse)*100);

double San = Math.Round((Sangvinik.Count / vse)*100);

double Fle = Math.Round((Flegmatik.Count / vse)*100);

if (Xolerik.Count == 0) Xol = 0;

if (Melanxolik.Count == 0) Mel = 0;

if (Sangvinik.Count == 0) San = 0;

if (Flegmatik.Count == 0) Fle = 0;

if (MessageBox.Show(this,Form1.name+", Вы:\n"+ "Холерик:"+ Xol.ToString() + "%" + "\n" +

"Меланхолик: " + Mel.ToString() + "%" + "\n" +

"Сангвиник: " + San.ToString() + "%" + "\n" +

"Флегматик: " + Fle.ToString() + "%", "Результаты тестирования", MessageBoxButtons.RetryCancel)

==DialogResult.Retry)

{

foreach (CheckBox control in this.panel1.Controls.OfType<CheckBox>())

control.Checked = false;

foreach (CheckBox control in this.panel2.Controls.OfType<CheckBox>())

control.Checked = false;

foreach (CheckBox control in this.panel3.Controls.OfType<CheckBox>())

control.Checked = false;

foreach (CheckBox control in this.panel4.Controls.OfType<CheckBox>())

control.Checked = false;

}

else Close();

}

private void справкаToolStripMenuItem_Click(object sender, EventArgs e)

{

MessageBox.Show("Холерик. Быстрый, страстный, порывистый, однако совершенно" +

"неуравновешенный, с резко меняющимся настроением и эмоциональными" +

"вспышками, быстро истощаемый. У него нет равновесия нервных" +

"процессов, это его резко отличает от сангвиника. Холерик, увлекаясь," +

" безалаберно растрачивает свои силы и быстро истощается." +

"\n\nМеланхолик. Человек задумчивый, романтичный и печальный, склонный к " +

"постоянному переживанию различных событий, он мало реагирует на" +

"внешние факторы. Свои астенические переживания он не может " +

"сдерживать усилием воли, он повышенно впечатлителен, легко " +

"эмоционально раним." +

"\n\nСангвиник. Живой, горячий, подвижный человек, с частой сменой " +

"настроения, впечатлений, с быстрой реакцией на все события, " +

"происходящие вокруг него, довольно легко примиряющийся со своими" +

"неудачами и неприятностями. Он очень продуктивен в работе, когда ему" +

"интересно, приходя в сильное возбуждение от этого, если работа не " +

"интересна, он относится к ней безразлично, ему становится скучно." +

"\n\nФлегматик. Медлителен, невозмутим, имеет устойчивые стремления и" +

"настроение, внешне скуп на проявление эмоций и чувств. Он проявляет" +

"упорство и настойчивость в работе, оставаясь спокойным и " +

"уравновешенным. В работе он производителен, компенсируя свою" +

"медлительность прилежанием.");

}

private void выборТестаToolStripMenuItem_Click(object sender, EventArgs e)

{

Close();

}

private void оПрограммеToolStripMenuItem_Click(object sender, EventArgs e)

{

MessageBox.Show("Программа предназаначена для прохождения тестов\nИзготовитель:" +

" Ягубов Эмиль\n2013 г.");

}

}

public partial class Form4: Form

{

public Form4()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

List<CheckBox> check = panel1.Controls.OfType<CheckBox>().Where(x => x.Checked == true).ToList();

if (check.Count >= 20 && check.Count <= 29)

{

if(MessageBox.Show(this,Form1.name+", Вы глубоко интровертны. Таким образом, вам крайне" +

"необходимо понимать, как направлять поток вашей энергии и каким образом ваш мозг обрабатывает информацию. Вы " +

" связаны с жизнью посредством идей, впечатлений, надежд и ценностей. Внешняя среда не властна над вами. Эта" +

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

MessageBoxButtons.RetryCancel)==DialogResult.Retry)

{

foreach (CheckBox control in this.panel1.Controls.OfType<CheckBox>())

control.Checked = false;

}

else Close();

}

if (check.Count >= 10 && check.Count <= 19)

{

if(MessageBox.Show(this,Form1.name+", Вы находитесь где-то посередине. Как амбидекстры, вы" +

" и интровертны, и экстравертны. Вы можете чувствовать, что разрываетесь между потребностью побыть в одиночестве и" +

"желанием выйти на люди. Поэтому вам будет очень полезно обращать внимание, какая обстановка и какие ситуации" +

" всегда заряжают вас энергией. Вы судите себя посредством собственных размышлений и ощущений и через стандарты," +

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

"с обеих сторон и не знаете, какова ваша позиция. Очень важно для вас научиться оценивать свой темперамент, чтобы " +

"быть в состоянии поддерживать энергетический баланс.", "Результаты тестирования",

MessageBoxButtons.RetryCancel) == DialogResult.Retry)

{

foreach (CheckBox control in this.panel1.Controls.OfType<CheckBox>())

control.Checked = false;

}

else Close();

}

if (check.Count >= 0 && check.Count <= 9)

{

if(MessageBox.Show(this,Form1.name+", Вы скорее экстравертны. Вы судите о себе в свете ценностей" +

" и реальности других людей. Чтобы произвести изменение, вы действуете в пределах того, что существует. Когда вы" +

" достигнете среднего возраста, то с удивлением можете обнаружить, что хотите отдохнуть от общения и что испытываете " +

"потребность иметь время для себя, но не будете знать, как этого добиться. Вы можете разработать приемы и помочь себе" +

"запомнить, что нужно делать, когда вам требуется одиночество. Чтобы это сделать, вам понадобится уравновесить" +

" свои экстравертные навыки. Этого можно добиться, научившись некоторым более интровертным навыкам.", "Результаты тестирования",

MessageBoxButtons.RetryCancel) == DialogResult.Retry)

{

foreach (CheckBox control in this.panel1.Controls.OfType<CheckBox>())

control.Checked = false;

}

else Close();

}

}

private void наГлавнуюToolStripMenuItem_Click(object sender, EventArgs e)

{

Close();

}

private void оПрограммеToolStripMenuItem_Click(object sender, EventArgs e)

{

MessageBox.Show("Программа предназаначена для прохождения тестов\nИзготовитель:" +

" Ягубов Эмиль\n2013 г.");

}

private void справкаToolStripMenuItem_Click(object sender, EventArgs e)

{

MessageBox.Show("Каждое утверждение обдумывайте на предмет его "+

"соответствия или несоответствия вашей личности в целом, не"+

"учитывая то, что вам хотелось бы видеть в себе, а также то,"+

" как вы себя ощущаете время от времени. Ничего не анализируйте и"+

" не задумывайтесь глубоко над каждым пунктом. Первое впечатление "+

" обычно бывает самым правильным.");

}

}

public partial class Form5: Form

{

public static int shet;

public Form5()

{

InitializeComponent();

panel1.Visible = false;

richTextBox1.Enabled = false;

}

private void наГлавнуюToolStripMenuItem_Click(object sender, EventArgs e)

{

this.Close();

}

private void button1_Click(object sender, EventArgs e)

{

List<TextBox> txt = new List<TextBox>();

if (textBox1.Text == "Перо"||textBox1.Text == "перо") shet += 1;

if (textBox2.Text == "Гора"||textBox2.Text == "гора") shet += 1;

if (textBox3.Text == "Поле"||textBox3.Text == "поле") shet += 1;

if (textBox4.Text == "Коса"||textBox4.Text == "коса") shet += 1;

if (textBox5.Text == "Тело"||textBox5.Text == "тело") shet += 1;

if (textBox6.Text == "Пуля"||textBox6.Text == "пуля") shet += 1;

if (textBox7.Text == "Вера"||textBox7.Text == "вера") shet += 1;

if (textBox8.Text == "Сажа"||textBox8.Text == "сажа") shet += 1;

if (textBox9.Text == "Душа"||textBox9.Text == "душа") shet += 1;

if (textBox10.Text == "Река"||textBox10.Text == "река"||

textBox10.Text == "Рука"||textBox10.Text == "рука") shet += 1;

if (textBox11.Text == "Полка"||textBox11.Text == "полка") shet += 1;

if (textBox12.Text == "Обруч"||textBox12.Text == "обруч") shet += 1;

if (textBox13.Text == "Картон"||textBox13.Text == "картон") shet += 1;

if (textBox14.Text == "Зерно"||textBox14.Text == "зерно") shet += 1;

if (textBox15.Text == "Восток"||textBox15.Text == "восток") shet += 1;

if (textBox16.Text == "Сугроб"||textBox16.Text == "сугроб") shet += 1;

if (textBox17.Text == "Устав"||textBox17.Text == "устав") shet += 1;

if (textBox18.Text == "Пиджак"||textBox18.Text == "пиджак") shet += 1;

if (textBox19.Text == "Карма"||textBox19.Text == "карма") shet += 1;

if (textBox20.Text == "Бульон"||textBox20.Text == "бульон") shet += 1;

if (textBox21.Text == "Звонок"||textBox21.Text == "звонок") shet += 1;

if (textBox22.Text == "Книга"||textBox22.Text == "книга") shet += 1;

if (textBox23.Text == "Сверло"||textBox23.Text == "сверло") shet += 1;

if (textBox24.Text == "Крыша"||textBox24.Text == "крыша") shet += 1;

if (textBox25.Text == "Трава"||textBox25.Text == "трава") shet += 1;

if (textBox26.Text == "Кружка"||textBox26.Text == "кружка") shet += 1;

if (textBox27.Text == "Сварка"||textBox27.Text == "сварка") shet += 1;

if (textBox28.Text == "Труба"||textBox28.Text == "труба") shet += 1;

if (textBox29.Text == "Слава"||textBox29.Text == "слава") shet += 1;

if (textBox30.Text == "Пчела"||textBox30.Text == "пчела") shet += 1;

if (textBox31.Text == "Святость"||textBox31.Text == "святость") shet += 1;

if (textBox32.Text == "Кустарник"||textBox32.Text == "кустарник") shet += 1;

if (textBox33.Text == "Учитель"||textBox33.Text == "учитель") shet += 1;

if (textBox34.Text == "Апельсин"||textBox34.Text == "апельсин") shet += 1;

if (textBox35.Text == "Станция"||textBox35.Text == "станция") shet += 1;

if (textBox36.Text == "Чернила"||textBox36.Text == "чернила") shet += 1;

if (textBox37.Text == "Капуста" || textBox37.Text == "капуста") shet += 1;

if (textBox38.Text == "Трусость" || textBox38.Text == "трусость") shet += 1;

if (textBox39.Text == "Слепота" || textBox39.Text == "слепота") shet += 1;

if (textBox40.Text == "Контора" || textBox40.Text == "контора") shet += 1;

if (shet >= 0&&shet<=20)

{

if (MessageBox.Show(this,Form1.name+ ", Вы набрали:\nменее 20 слов – низкая быстрота мышления и подвижность нервных процессов;",

"Результаты тестирования", MessageBoxButtons.RetryCancel) == DialogResult.Retry)

{

foreach (TextBox c in this.panel1.Controls.OfType<TextBox>())

c.Clear();

}

else Close();

}

if (shet >= 21 && shet <= 30)

{

if (MessageBox.Show(this,Form1.name+ ", Вы набрали:\n21-30 слов – средняя быстрота мышления и подвижность нервных процессов;",

"Результаты тестирования", MessageBoxButtons.RetryCancel) == DialogResult.Retry)

foreach (TextBox c in this.panel1.Controls.OfType<TextBox>())

c.Clear();

else Close();

}

if(shet>=31&&shet<=40)

{

if (MessageBox.Show(this,Form1.name+ ", Вы набрали:\n31 слово и более – высокая быстрота мышления и подвижность нервных процессов.",

"Результаты тестирования", MessageBoxButtons.RetryCancel) == DialogResult.Retry)

foreach (TextBox c in this.panel1.Controls.OfType<TextBox>())

c.Clear();

}

}

private void button2_Click(object sender, EventArgs e)

{

panel1.Visible = true;

richTextBox1.Visible = false;

button2.Visible = false;

}

private void справкаToolStripMenuItem_Click(object sender, EventArgs e)

{

MessageBox.Show(richTextBox1.Text);

}

private void оПрограммеToolStripMenuItem_Click_1(object sender, EventArgs e)

{

MessageBox.Show("Программа предназаначена для прохождения тестов\nИзготовитель: Ягубов Эмиль\n2013 г.");

}

}

Список литературы

1. ВСЕТЕСТЫ.RU [Электронный ресурс]: интернет – журнал. – М. – Режим доступа: http: //vsetesti.ru/1018.‑ 28.04.2013.

2. Рубинштейн, С.Л. Общая психология [Текст]: соч. в 2-х тт. ‑ М.‑ 1999.

3. PSITEST.COM.RU [Электронный ресурс]: интернет – журнал. –М. – Режим доступа: http: //psitest.com.ru/test.php?id=135&cid=13. ‑ 28.04.2013