51348

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

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

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

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

Русский

2014-02-09

52 KB

7 чел.

Лабораторная работа 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);

}

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


 

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

4290. Виртуальный маркетинг и его применение на отечественных рынках 31 KB
  Виртуальный маркетинг и его применение на отечественных рынках Получают развитие сетевые или виртуальные организации, т.е. организации, в которых границы между его участниками, ресурсами и подразделениями размыты благодаря интенсивному информационно...
4291. Организация ветвления и его алгоритмическая структура 49.5 KB
  Организация ветвления Цель работы: освоить алгоритмическую структуру ветвление, а также работу команды ветвления. Образец решения задачи. Задача. В компьютер вводится информация: количество знаков в рекламе на какой странице в газете будет печатать...
4292. Становлення та розвиток української та європейської культури в 19 - початку 20 ст. Частина 2. Українське мистецтво 55 KB
  В першій половині 19 ст. в Україні зявився перший професійний театр. Спершу це були бродячі акторські групи. Потім з'являються перші театральні приміщення, що приймають у себе гастролерів і дають сцену для власних театральних труп. У 1818 р. Іван Котляревський очолив професійний театр у Полтаві...
4293. Освоение приемов объявления, обращения и использования двумерных массивов при решении задач. 78.5 KB
  Цель работы: освоение приемов объявления, обращения и использования двумерных массивов при решении задач. Один из возможных вариантов объявления двумерного массива в программе: объявляем две константы – максимально возможное количество строк и...
4294. Освоение приемов объявления, обращения и использования массивов при решении задач 64.5 KB
  Цель работы: освоение приемов объявления, обращения и использования массивов при решении задач. Типовые алгоритмы обработки одномерных массивов Рассмотрим некоторые типовые алгоритмы обработки массивов. Положим, что в декларативной части программы о...
4295. Капитал и его вещественное содержание 210.5 KB
  Цель курсовой работы на тему Капитал и его вещественное содержание - изучить содержание капитала, теории капитала, категории капитала и износ и амортизацию капитала. В ходе выполнения курсовой работы изучено что категория капитал имеет д...
4296. Проектирование привода конвейера. Детали машин 4.11 MB
  Выбор электродвигателя. Определение придаточных чисел привода. Межосевое расстояние. Предварительные основные размеры колеса. Проверочный расчет на прочность зубьев при действии пиковой нагрузки. Определение предварительных значений межосевого расстояния и угла обхвата ремнем малого шкива. Радиальные реакции опор от сил в зацепление. Для типового режима нагружения II коэффициент эквивалентности.
4297. Явление дифракции электромагнитных волн 118 KB
  Цель работы. Исследовать явление дифракции электромагнитных волн. С помощью дифракционной решетки проходящего света измерить длины электромагнитных волн видимого диапазона. Основные теоретические сведения Дифракцией называется совокупность явлений...
4298. Кинематическая схема привода конвейера 341 KB
  Введение В данном курсовом проекте рассматривается кинематическая схема привода конвейера. В первой части курсового проекта производится кинематический расчет и построение планов скоростей и ускорений (первый лист). Во втором части производится кине...