IDE Borland C++ Builder

Scopul Lucrarii:

Familiarizarea cu mediul integrat IDE Borland C++ Builder.

Realizarea Sarcinilor:

2. Repetaţi exemplul din lucrare de sinestătător.

În exemplu din lucrare se creează o aplicaţie care are în sine o forma cu un EditBox, un ListBox, si butoane. Pentru aceasta accesăm File-New-Aplication. Dupa care apar 2 ferestre si anume, forma propriuzisă şi fişierul .cpp unde urmează să scriem codul aplicaţiei. Adăugăm pe forma un EditBox, un ListBox şi pentru început un buton (Fig 0).

Fig. 0 (Form1)

Dublu click pe buton si inseram codul între acolade.

if (!(Edit1->Text == ""))

ListBox1->Items->Add(Edit1->Text);

Edit1->Text = "" ;

După care mai inserăm 2 butoane „De Ştergere” şi de „Închidere”, şi scriem codul respectiv la evenimentul OnClick.

//Sterge

if (!(ListBox1->ItemIndex == -1))

ListBox1->Items->Delete(ListBox1->ItemIndex);

//Inchide

Close();

Salvam toate fisierele cu Save All din File, si compilăm aplicaţia.

După execuţie scriem ceva în EditBox, şi facem click pe butonul Add şi observăm că textul din EditBox a trecut în ListBox, iar EditBox-ul a fost curăţat (golit). După ce am inserat mai multe elemente în ListBox, selectăm unu din ele şi clickăm butonul Delete, şi observăm ca elementul selectat a fost şters. Aplicaţia o închidem cu click pe butonul Exit.

3. Modificaţi aplicaţia în aşa mod, că introducînd în cîmpul Edit1 cifră (0-9) în ListBox1 să apară descifrarea ei textuală (0 -> zero, 1 -> unu, etc.)

Pentru a citi cifra din EditBox şi a scrie în ListBox valoarea ei textuală (1 - unu) eu am folosit cel mai simplu switch(). Şi anume am schimbat evenimetul OnClick de la butonul Add în:

switch(Edit1->Text.ToInt())

{

case 0 : ListBox1->Items->Add("Zero") ; break;

case 1 : ListBox1->Items->Add("Unu") ; break;

case 2 : ListBox1->Items->Add("Doi") ; break;

case 3 : ListBox1->Items->Add("Trei") ; break;

case 4 : ListBox1->Items->Add("Patru") ; break;

case 5 : ListBox1->Items->Add("Cinci") ; break;

case 6 : ListBox1->Items->Add("Sase") ; break;

case 7 : ListBox1->Items->Add("Sapte") ; break;

case 8 : ListBox1->Items->Add("Opt") ;break;

case 9 : ListBox1->Items->Add("Noua") ; break;

default:

}

Acum în cazul cînd scriem o cifră în ListBox va apărea valoare ei textuală.

5. Perfecţionaţi punctul 3 în caz că a fost introdus un număr N > 9 ori N < 0 – mesaj de avertizare, sau a fost introdusă literă – alt mesaj de avertizare.

După pasul 3 observăm că în cazul cînd introducem un număr din afara intervalului (0-9) sau chiar o literă, primim eroare, în acest caz trebuie să verificăm datele introduse, şi să informăm utilizatorul ca a intrudus date greşite.

Pentru aceasta schimbăm evenimentul OnClick de la butonul Add în:

int c=0, i=1;

if (Edit1->Text == "")

{ Application->MessageBox("Nu ati introdus nimic n","Error",MB_ICONSTOP|MB_OK); }

else {

while (i <= Edit1->Text.Length()) {

if (isalpha(Edit1->Text[i]))

{ c++; }

i++; }

if (c != 0) {