Поможем в ✍️ написании учебной работы

Имя

Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Выберите тип работыЧасть дипломаДипломная работаКурсовая работаКонтрольная работаРешение задачРефератНаучно - исследовательская работаОтчет по практикеОтветы на билетыТест/экзамен onlineМонографияЭссеДокладКомпьютерный набор текстаКомпьютерный чертежРецензияПереводРепетиторБизнес-планКонспектыПроверка качестваЭкзамен на сайтеАспирантский рефератМагистерская работаНаучная статьяНаучный трудТехническая редакция текстаЧертеж от рукиДиаграммы, таблицыПрезентация к защитеТезисный планРечь к дипломуДоработка заказа клиентаОтзыв на дипломПубликация статьи в ВАКПубликация статьи в ScopusДипломная работа MBAПовышение оригинальностиКопирайтингДругое

Нажимая кнопку "Продолжить", я принимаю политику конфиденциальности

1. Архангельський А.С. Borland C builder.

2. Джаррод Холінгворт, Боб Сворт, Марк Кешмен, Поль Густавсон Borland C + + Builder 6. Керівництво розробника = Borland C + + Builder 6 Developer's Guide. - М.: «Вільямс», 2004. - С. 976. - ISBN 0-672-32480-6

3. Джерод Холлінгворс, Ден Баттерфілд, Боб свот C + + Builder 5. Керівництво розробника = C + + Builder 5 Developer's Guide. - М.: «Діалектика», 2001. - С. 884. - ISBN 0-672-31972-1

4.  Краснов М. Графіка в проектах Borland C builder. - Санкт-Петербург: БХВ, 1998. - 356 с.

5.  Проценко С. С., Чаленко П. Й., Ставровській А. Б. Техніка програмування на мові Сі. - До: Лебідь, 1993 - 224 с.

6.  Шелест С. Д. Програмування: материал технічної інформації. Санкт-Петербург: БХВ, 2002. - 592 с.

7. http://www.compdoc.ru/prog/builder/builder/3.shtml

8. http://citforum.ru/programming/application/cb2.shtml

9. http://cbuilder.ru/

Додаток

Лістинг програми:

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

float p=1,b=1,l,g,m,x,a,c,d,e,buff,Find,z=1,w=0.3,k;

int i;

AnsiString aFileName;

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

__fastcall TForm1::TForm1(TComponent* Owner)

 : TForm(Owner)

{

aFileName = "";

}

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

// Кнопка закрыть

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::StringGrid1Click(TObject *Sender)

{

StringGrid1->Options = StringGrid1->Options >> goEditing;

}

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

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

if (p>=1)

{

StringGrid1->RowCount = StringGrid1->RowCount+1;

StringGrid1->Cells[0][b]=p;

p=p+1;

}

if ( Edit1->Text =="")

{

ShowMessage("Введите Номер телефона");

}

else

{

StringGrid1->Cells[1][b]=Edit1->Text;

}

if ( Edit4->Text =="")

{

ShowMessage("Введите Ф.И.О. аб.");

}

else

{

StringGrid1->Cells[2][b]=Edit4->Text;

}

if ( ComboBox1->Text=="" )

{

ShowMessage("Выберите Вашего Оператор");

}

else

{

StringGrid1->Cells[3][b]= ComboBox1->Text;

}

if ( ComboBox2->Text=="" )

{

ShowMessage("Выберите Оператора вызываемого абонента");

}

else

{

StringGrid1->Cells[4][b]= ComboBox2->Text;

}

if ( Edit2->Text=="" )

{

ShowMessage("Введите продолжительность звонка");

}

else

{

StringGrid1->Cells[5][b]=Edit2->Text;

}

//Для МТСа

if (ComboBox1->Text =="МТС" && ComboBox2->Text == "МТС" )

{

StringGrid1->Cells[6][b]= w;

}

if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Киевстар" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Life :)" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Билайн" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Городской телефон" )

{

StringGrid1->Cells[6][b]= z;

}

//Для Киевстара

if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Киевстар" )

{

StringGrid1->Cells[6][b]= w;

}

if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "МТС" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Life :)" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Билайн" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Городской телефон" )

{

StringGrid1->Cells[6][b]= z;

}

//Для Life :)

if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Life :)" )

{

StringGrid1->Cells[6][b]= w;

}

if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "МТС" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Киевстар" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Билайн" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Городской телефон" )

{

StringGrid1->Cells[6][b]= z;

}

//Для Билайна

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Билайн" )

{

StringGrid1->Cells[6][b]= w;

}

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "МТС" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Киевстар" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Life :)" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Городской телефон" )

{

StringGrid1->Cells[6][b]= z;

}

//Для Городского телефона

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Городской телефон" )

{

StringGrid1->Cells[6][b]= w;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "МТС" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Киевстар" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Life :)" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Билайн" )

{

StringGrid1->Cells[6][b]= z;

}

else

{

x= StrToFloat(StringGrid1->Cells[5][b]);

l= StrToFloat(StringGrid1->Cells[6][b]);

m= StrToFloat(x*l);

StringGrid1->Cells[7][b] = m;

}

b=b+1;

}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

StringGrid1->Options << goEditing << goTabs;

StringGrid1->FixedCols = 0;

StringGrid1->Cells[0][0]="№";

StringGrid1->Cells[1][0]="Номер телефона";

StringGrid1->Cells[2][0]="Ф.И.О выз. аб.";

StringGrid1->Cells[3][0]="Оператор выз. аб.";

StringGrid1->Cells[4][0]="Оператор наб. аб.";

StringGrid1->Cells[5][0]="Продолж звонка";

StringGrid1->Cells[6][0]="Стоимость 1 минуты (в грн.)";

StringGrid1->Cells[7][0]="Сумма к оплате";

StringGrid1->RowCount = 2;

}

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

void __fastcall TForm1::BitBtn3Click(TObject *Sender)

{

int DeleteIndex = i;

if(StringGrid1->RowCount > 2)

{

for ( int q = DeleteIndex,MaxRowIndex=StringGrid1->RowCount-1;q<MaxRowIndex;q++)

StringGrid1->Rows[q]->Assign(StringGrid1->Rows[q+1]);

StringGrid1->RowCount = StringGrid1->RowCount-1;

b=b-1;

int q=1;

for(int x=1;x<=b;x++)

{

StringGrid1->Cells[0][x]=q;

q=q+1;

}

p=p-1;

}

else

{

StringGrid1->Cells[1][1] = "";

StringGrid1->Cells[2][1] = "";

StringGrid1->Cells[3][1] = "";

StringGrid1->Cells[4][1] = "";

StringGrid1->Cells[5][1] = "";

StringGrid1->Cells[6][1] = "";

StringGrid1->Cells[7][1] = "";

}

}

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

bool draw_it;

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,

 int ARow, TRect &Rect, TGridDrawState State)

{

i=ARow;

if (Find && Edit3->Text == StringGrid1->Cells[ACol][ARow])

{

StringGrid1->Canvas->Brush->Color = clRed; //цвет

StringGrid1->Canvas->FillRect(Rect);

StringGrid1->Canvas->Font->Color = clWhite;

StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);

//Find = false; - раз комментировать если надо найти только первый экземпляр

}

}

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

void __fastcall TForm1::BitBtn4Click(TObject *Sender)

{

if(OpenDialog1->Execute())

 {

 TStringList *pStrings = new TStringList;

 pStrings->LoadFromFile(OpenDialog1->FileName);

 StringGrid1->RowCount = pStrings->Count+1;

 for(int i=0; i < pStrings->Count; i++)

 {

 StringGrid1->Rows[i+1]->Delimiter = wchar_t(" ");

 StringGrid1->Rows[i+1]->DelimitedText = pStrings->Strings[i];

}

 delete pStrings;

 }

}

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

void __fastcall TForm1::BitBtn5Click(TObject *Sender)

{

if(SaveDialog1->Execute()){TStringList *pStrings = new TStringList;

 for(int i=1; i <= StringGrid1->RowCount; i++)

 {

 pStrings->Add(StringGrid1->Cells[0][i] + " " + StringGrid1->Cells[1][i] + " " + StringGrid1->Cells[2][i]+ " " + StringGrid1->Cells[3][i]+ " " + StringGrid1->Cells[4][i]+ " " + StringGrid1->Cells[5][i]+ " " + StringGrid1->Cells[6][i]+ " " + StringGrid1->Cells[7][i]+ " " + StringGrid1->Cells[8][i]+ " " + StringGrid1->Cells[9][i]+ " " + StringGrid1->Cells[10][i]+ " " + StringGrid1->Cells[11][i]);

 }

 pStrings->SaveToFile(SaveDialog1->FileName);

 delete pStrings;

 }

}

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

void __fastcall TForm1::BitBtn6Click(TObject *Sender)

{

Find = true;

StringGrid1->Repaint();

}

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

void __fastcall TForm1::BitBtn7Click(TObject *Sender)

{

AboutBox->Show();

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

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

#pragma resource "*.dfm"

TAboutBox *AboutBox;

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

__fastcall TAboutBox::TAboutBox(TComponent* AOwner)

    : TForm(AOwner)

{

}

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

void __fastcall TAboutBox::OKButtonClick(TObject *Sender)

{

AboutBox->Close();

}

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