Студопедия — Компонента RadioGroup
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Компонента RadioGroup






В меню Standard выберите пиктограмму , поместите ее в нужное место формы. На форме появится окаймленный линией чистый прямоугольник с заголовком RadioGroup 1. Замените заголовок (Caption) на «Выбор функции».

В инспекторе объектов в свойстве Items вызовите строчный редактор списка заголовков кнопок и наберите три строки с именами выбираемых функций (cos (x), sin (x), tg (x)), нажмите ОК. После этого внутри компоненты появятся три кнопки-переключателя с введенными надписями.

В тексте Unit 1. h появилась переменная RadioGroup 1 типа TRadioGroup. Теперь при нажатии одной из кнопок группы в переменной целого типа RadioGroup 1-> ItemIndex будет находиться номер выбранной строчки (отсчитывается от нуля).

В функции FormCreate () желательно установить начальное значение этой переменной, например, RadioGroup 1-> ItemIndex = 0.

Подготовив форму, создайте функции-обработчики событий FormСreate и Botton1Сlick аналогично первой работе. Текст функций приведен в примере.

Запустите программу и убедитесь в том, что все ветви алгоритма выполняются правильно. Форма приведена на рис. 2.1.

Рис. 2.1

 

Текст программы может быть следующим:

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

#include < vcl.h>

#pragma hdrstop

#include " Unit1.h"

#include " math.h"

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

#pragma package(smart_init)

#pragma resource " *.dfm"

TForm1 *Form1;

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

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1:: FormCreate (TObject *Sender)

{

Edit1-> Text=" 0, 1";

Edit2-> Text=" 0, 356";

Edit3-> Text=" -3, 5";

Memo1-> Clear();

Memo1-> Lines-> Add(" Лабораторная работа 2");

RadioGroup1-> ItemIndex = 0;

}

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

void __fastcall TForm1:: Button1Click (TObject *Sender)

{

double x, y, z, u, ma;

x=StrToFloat(Edit1-> Text);

y=StrToFloat(Edit2-> Text);

z=StrToFloat(Edit3-> Text);

// Проверка номера нажатой кнопки и выбор соответствующей функции

switch(RadioGroup1-> ItemIndex){

case 0: u=cos(x);

Memo1-> Lines-> Add(" Cos(x)= " +FloatToStrF(u, ffFixed, 8, 6));

break;

case 1: u=sin(x);

Memo1-> Lines-> Add(" Sin(x)= " +FloatToStrF(u, ffFixed, 8, 6));

break;

case 2: u=tan(x);

Memo1-> Lines-> Add(" Tg(x)= " +FloatToStrF(u, ffFixed, 8, 6));

break;

}

// Проверка состояния кнопки CheckBox1

if (CheckBox1-> Checked){

u = fabs(u);

y = fabs(y);

z = fabs(z);

}

// Нахождение максимального из трех чисел

if (u> y) ma=u;

else ma=y;

if (z> ma) ma=z;

if (CheckBox1-> Checked)

Memo1-> Lines-> Add(" Max модулей= " +FloatToStrF(ma, ffFixed, 8, 6));

else Memo1-> Lines-> Add(" Max= " +FloatToStrF(ma, ffFixed, 8, 6));

}







Дата добавления: 2014-11-10; просмотров: 676. Нарушение авторских прав; Мы поможем в написании вашей работы!



Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

БИОХИМИЯ ТКАНЕЙ ЗУБА В составе зуба выделяют минерализованные и неминерализованные ткани...

Типология суицида. Феномен суицида (самоубийство или попытка самоубийства) чаще всего связывается с представлением о психологическом кризисе личности...

ОСНОВНЫЕ ТИПЫ МОЗГА ПОЗВОНОЧНЫХ Ихтиопсидный тип мозга характерен для низших позвоночных - рыб и амфибий...

Постинъекционные осложнения, оказать необходимую помощь пациенту I.ОСЛОЖНЕНИЕ: Инфильтрат (уплотнение). II.ПРИЗНАКИ ОСЛОЖНЕНИЯ: Уплотнение...

Приготовление дезинфицирующего рабочего раствора хлорамина Задача: рассчитать необходимое количество порошка хлорамина для приготовления 5-ти литров 3% раствора...

Дезинфекция предметов ухода, инструментов однократного и многократного использования   Дезинфекция изделий медицинского назначения проводится с целью уничтожения патогенных и условно-патогенных микроорганизмов - вирусов (в т...

Studopedia.info - Студопедия - 2014-2024 год . (0.011 сек.) русская версия | украинская версия