51348

Разработка расширенного интерфейса программ: динамические объекты

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Создать программу, которая, в соответствии с выбранным в объекте ComboBox числом, будет динамически(!) создавать соответствующее число объектов типа TEdit. По нажатию на кнопку "Подсчёт", ваша программа должна посчитать сумму введённых в формы TEdit чисел и вывести их на экран в любой форме (например, в новый TEdit).

Русский

2014-02-09

52 KB

8 чел.

Лабораторная работа 6.

Разработка расширенного интерфейса программ: динамические объекты

Выполнил: Шуклецов М.А.

 ФРТ, гр. 2106

Цель работы: Создать программу, которая, в соответствии с выбранным в объекте ComboBox числом, будет динамически(!) создавать соответствующее число объектов типа TEdit. По нажатию на кнопку "Подсчёт", ваша программа должна посчитать сумму введённых в формы TEdit чисел и вывести их на экран в любой форме (например, в новый TEdit).

Общий вид программы следующий:

Здесь мы видим следующие элементы управления:

«Создать массив TEdit» - Создает массив из окон TEdit

«Подсчет результатов» - Считает сумму всех чисел введенных выше

Код программы:

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

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

TEdit *edit[5];   //Резервирование памяти под элементы

       TButton *result_button;

       TEdit *result_field;

       int col=5;

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

for (int i=0; i<col; i++)   //Цикл создания 1 кнопки

       {

       edit[i] = new TEdit(this);  //Объявление 

       edit[i]->Parent = this;   //Расположение на этой форме

       edit[i]->Name = "Edit"+AnsiString(i); //Написание имени

       edit[i]->Height = 21;   //Размеры

       edit[i]->Width = 201;

       edit[i]->Left = 10;   //Положение У

       edit[i]->Top = 40+i * edit[i]->Height; //Положение Х

       edit[i]->Text = "0";   //Заполнение 0

       }

result_button = new TButton(this);

result_button->Parent = this;

result_button->Name = "Button2" ;

result_button->Width = 201;

result_button->Height = 25;

result_button->Left = 10;

result_button->Top = 145;

result_button->Caption = "Подсчет результатов";  //Надпись

 result_button->OnClick = Button2Click;   //Привязка действия к кнопке

}

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

void __fastcall TForm1::Button2Click(TObject *Sender) //Действие по нажатию на кнопку 

{    int i=0, s=0;

       result_field = new TEdit(this);

       result_field = new TEdit(this);

       result_field->Parent = this;

       result_field->Name = "Edit10";

       result_field->Height = 21;

       result_field->Width = 201;

       result_field->Left = 10;

       result_field->Top = 170;

       for ( i=0; i<col; i++)   //Подсчет суммы

       { s=s+StrToInt(edit[i]->Text); }

       result_field->Text = IntToStr(s);

}

Вывод: Мы научились создавать объекты самостоятельно, и использовать их в работе.


 

А также другие работы, которые могут Вас заинтересовать

73224. Управление персоналом на предприятиях 804.02 KB
  Рабочие Служащие это категория работников в деятельности которых преобладают те или иные виды умственного труда. разрабатывают и внедряют в производство новые виды продукции технологические процессы технические и экономические нормативы формы и методы организации производства и труда; обеспечивают производство необходимой документацией материалами оснасткой ремонтным и другим обслуживанием; проводят анализ показателей деятельности предприятия разрабатывают и реализуют мероприятия по их улучшению. В формуле отражается одна из норм...
73225. Введение в экономику предприятий транспорта 1.3 MB
  Материальное производство включает: Промышленность; Сельское и лесное хозяйство; Грузовой транспорт; Связь обслуживающая материальное производство; Строительство; Торговля; Общественное питание; Информационно-вычислительное обслуживание и др. В процессе работы транспорта не создается новая продукция а осуществляется перемещение грузов пассажиров с одного пункта в другой. В процессе перевозок грузов с ними не происходят не физические не химические изменения а происходит лишь изменение их местонахождения по отношению к...
73226. Основные фонды предприятий транспорта 899.56 KB
  Классификация основных фондов предприятия По роли в производственном процессе: Активные: машины и оборудование силовые машины измерительные прибор вычислительная техника инструмент Пассивные: здания строения сооружения передаточные устройства транспорт пх инвентарь. Для производственных предприятий в том числе и предприятий транспорта типичный состав основных фондов следующий: Здания и строения административные здания производственные строения склады и т. Племенной скот Соотношение отдельных групп основных фондов в их общем...
73227. Оборотные средства предприятий 951.72 KB
  Фонды обращения это средства производства непосредственно обслуживающие стадию реализации продукции. подготовка новых видов производства арендная плата подписка К фондам обращения относятся средства обслуживающие процесс реализации продукции: Готовая продукция на складе Товары отгруженные заказчикам но еще не оплаченные ими товары в пути Средства в расчетах Денежные средства в кассе предприятия и на счетах в банках. Норматив оборотных средств то объем ресурсов в денежном выражении которые предназначены для формирования...
73228. Поняття й види джерел права. Джерела та форми права 30.56 KB
  Джерела та форми права. Поняття й види джерел права. Джерело форма права це способи зовнішнього вираження і закріплення норм права що виходять від держави і які мають загальнообовязкове значення.
73229. ДЕРЖАВНІ ТА НАЦІОНАЛЬНІ УКРАЇНСЬКІ СИМВОЛИ 88.5 KB
  Обладнання: карта України; зображення українського державного прапора та гербатризуба; малюнки із зображеннями калини віночка писанки рослинсимволів тощо; ватманський аркуш з кросвордом Україна; аудіоапаратура; свічка. Бучин ської Моя Україна. Приспів: Є на світі моя країна де червона цвіте калина Гори ріки і полонини це моя Україна. Є на світі одна країна найчарівніша як перлина В моїм серці вона єдина це моя Україна.
73230. МЕНЕДЖМЕНТ ПРОФЕСІЙНОЇ ДІЯЛЬНОСТІ 1.04 MB
  Для проведення маркетингових досліджень керівництвом підприємства прийнято рішення про проведення діагностичних опитувань (інтерв’ю) потенційних споживачів продукції. Аналіз вибірки зі 100 перехожих дозволив отримати дані щодо кількості перехожих, що з’являлись з відповідним інтервалом, кількості перехожих, що дали згоду на участь у опитуванні, та тривалості проведення одного інтерв’ю
73231. Обучение детей младшего школьного возраста анализу произведений изобразительного искусства 178.5 KB
  Тогда как именно знакомство со структурой художественного произведения и с законами восприятия искусства должно актуализировать исследовательскую позицию учащегося благодаря которой он сможет самостоятельно постигнуть смысл живописного или графического произведения освоить способы художественного мышления. Однако при обращении к произведениям искусства учитель чаще всего выступает в качестве всезнающего лектора ученик же в качестве пассивного зрителя и слушателя. До сих пор не существует технологий и методик благодаря которым учащиеся...
73232. Разработка международной стратегии продвижения товара 749.5 KB
  Теоретический анализ разработки международной стратегии продвижения товара; исследование особенностей международных стратегий ВЭД предприятий; анализ финансовой, хозяйственной, внешнеэкономической и маркетинговой деятельности предприятия; разработка стратегии выхода предприятия на зарубежный рынок.