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

Компонента RadioGroup

Читайте также:
  1. ИЗУЧЕНИЕ ЭКСПРЕССИВНОГО КОМПОНЕНТА ЭМОЦИИ
  2. Как строится график с помощью компонента TChart
  3. Компонента Memo
  4. Настройка компонента TStringGrid
  5. Обеспечение оптимального контакта между ферментами и компонентами солода
  6. Расчет показателей валового накопления основного капитала как компонента ВВП в МОБ СНС
  7. Расчет показателей конечного потребления как компонента ВВП в МОБ СНС
  8. Три компонента возраста
  9. Установите соответствие между компонентами психологической дифференцированности по Г. Виткину, и их особенностями

В меню 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));

}


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)