Иерархическое меню в среде визуального программирования BORLAND C++ BUILDER 6,0

Министерство образования и науки Российской Федерации Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования «Комсомольский-на-Амуре государственный технический университет» Факультет компьютерных технологий Кафедра МОП ЭВМ Лабораторная работа №3 По курсу: «Человеко-машинное взаимодействие» Выполнил                                                                                                        Проверил                                                                                                         Вариант                                                                                                            3 г.Комсомольк-на-Амуре 2008г.

Алгоритм работы программы

Создать иерархическое меню в среде визуального программирования BORLAND C++ BUILDER 6.0.

Шаг 1:

Вставляем элемент MainMenu  на форму Form1 :

Шаг 2:

Редактируем само меню непосредственно.

Шаг 3:

Вставляем элемент Label1. На этом элементе будет отображаться  информация путем обработки нажатия  горячих клавиш.

Текст программы:

#include <vcl.h>

#include <stdio.h>

#include <stdlib.h>

#pragma hdrstop

#include "Unit1.h"

//--------------------------------------------------------------------------#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//--------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm1::N13Click(TObject *Sender)

{

Form1->Label1->Caption="Ель - дерево, очень похожее на елку, обычно зеленого цвета.";

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

void __fastcall TForm1::N14Click(TObject *Sender)

{

Form1->Label1->Caption="Елка- такая же зеленая, как и ель !";

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N18Click(TObject *Sender)

{

Form1->Label1->Caption="Вареные ежи - считаются деликатесом у китайцев.";

Form1->Image3->Visible=true;

Form1->Image2->Visible=false;

Form1->Image1->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N19Click(TObject *Sender)

{

Form1->Label1->Caption="Лысые ежики добрее, чем ежики с иголками!";

Form1->Image4->Visible=true;

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N6Click(TObject *Sender)

{

Form1->Label1->Caption="Острые собратья дикобраза";

Form1->Image1->Visible=true;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N7Click(TObject *Sender)

{

Form1->Label1->Caption="Их можно использовать вместо ершика!";

Form1->Image2->Visible=true;

Form1->Image1->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N5Click(TObject *Sender)

{

Form1->Label1->Caption="Березе - самое русское дерево!";

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N4Click(TObject *Sender)

{

Form1->Label1->Caption="Дуб - златая цепь на дубе том!";

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N20Click(TObject *Sender)

{

Form1->Label1->Caption="Ива обрубленная - это пенек :)!";

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N21Click(TObject *Sender)

{

Form1->Label1->Caption="Надо долго ждать, пока она вырастет, а потом срубить!";

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;

}

//--------------------------------------------------------------------------void __fastcall TForm1::N22Click(TObject *Sender)

{

Form1->Label1->Caption="Вечно плачет и грустит - аж жалко!";

Form1->Image1->Visible=false;

Form1->Image2->Visible=false;

Form1->Image3->Visible=false;

Form1->Image4->Visible=false;       

}

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

Результат работы программы

ЛИТЕРАТУРА

1.  Коутc Р., Влеминк И. Интерфейс «Человек-компьютер». - М.: Мир, 1991. - 501 с.

2.  Климов А.С. Форматы графических файлов. - Киев: НИПФ «ДиаСофт ЛТД», 1995. - 480 с.

3.  Романов В.Ю. Популярные форматы файлов для хранения графических изображений IBM PC. - М.: Унитех, 1992. - 156 с.

4.  Шилдт Г. Программирование на С и С++ для Windows 95.- Киев: Торг.-изд. бюро BHV, 1996. - 400 с.