Алматинская академия экономики и статистики

77 
 
Алматинская академия экономики и статистики 
 
Кафедра «Информатика» 
 
 
 
 
 
 
 
 
 
 
ТӘЖІРИБЕЛІК  САБАҚТАРДЫ ОРЫНДАУ БОЙЫНША ӘДІСТЕМЕЛІК 
НҦСҚАУЛАР 
 
 
 
 
 
«C++/C# тілдерінде Windows қосымшаларын қҧру» 
 
«5В070300 – Ақпараттық жҥйелер», мамандығы ҥшін 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Алматы, 2013 

78 
 
Практикалық жҧмыс №1.  Визуальды проекциялау ортасыC++ Builder 
технологиясы.Электр тізбегіндегі ток кҥшін есептеу. 
Мақсаты: Студенттерді C++ Builder ортасымен таныстыру 
 
Практикалық жҧмыс№2. C++ Bulder ортасында терезе қосымшаларын қҧру 
Мысал  1.  «вычислить»  деген  кнопканы  басқанда  S=1+1/2+1/3+…+1/10  қатарының 
қосындысын  есептейтін  және  нәтижені  арнайы  белгіленген  орынға  жазатын  терезе 
қосымшасын құрыңыздар.  
 
//--------------------------------------------------------------------------- 
#include 
#pragmahdrstop 
#include "del1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
int i,n; 
float s; 
s=0; 
n=10; 
for(i=1;i<=n;i++) 
s+=(float)1/(float)i; 
Label1->Caption="summa="+ FloatToStrF(s,ffFixed,5,2); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
Close(); 
} 
//--------------------------------------------------------------------------- 

79 
 
Мысал  2.  Қарапайым  элементарлық  арифметикалық  операцияларды  орындайтын 
калькуляторпрограммасын құрыңыз.  
 
 
#include  
#pragma hdrstop 
#include "calc1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
int a,b; 
float c; 
a=StrToInt(Edit1->Text); 
b=StrToInt(Edit2->Text); 
if (b!=0) 
{c=(float)a/(float)b; 
Edit3->Text=FloatToStrF(c,ffFixed,5,2);} 
else 
{Edit3->Text=""; 
ShowMessage("delenie na 0");         
} } 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
int a,b,c; 

80 
 
a=StrToInt(Edit1->Text); 
b=StrToInt(Edit2->Text); 
c=a+b; 
Edit3->Text=IntToStr(c); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button3Click(TObject *Sender) 
{ 
int a,b,c; 
a=StrToInt(Edit1->Text); 
b=StrToInt(Edit2->Text); 
c=a-b; 
Edit3->Text=IntToStr(c); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button4Click(TObject *Sender) 
{ 
int a,b,c; 
a=StrToInt(Edit1->Text); 
b=StrToInt(Edit2->Text); 
c=a*b; 
Edit3->Text=IntToStr(c); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button5Click(TObject *Sender) 
{ 
Close();         
} 
//--------------------------------------------------------------------------- 
 
Практикалық жҧмыс№3. C++ Bulder ортасында CheckListBox1 и 
ListBox1компоненттерін пайдаланып қосымшалар қҧру. 
 
Мысал 1. Тізімнің элементіне CheckListBox1 басқанда, оны ListBox1 екінші тізімге 
кӛшіретін және екінші тізімнің қосындысын есептеп, нәтижені арнайы ӛріске жазатын,  
егер қосынды 50-ге тең болса, арнайы ӛріске ―Pobeda 50‖  деген сӛзді шығаратын, екі 
тізімді де ӛзгертілмейтін ету. 
 
 

81 
 
//--------------------------------------------------------------------------- 
#include  
#pragma hdrstop 
#include "Unit1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::CheckListBox1ClickCheck(TObject *Sender) 
{ 
int i,s; 
ListBox1->Clear(); 
for(i=0;iItems->Count;i++) 
if(CheckListBox1->Checked[i]) 
ListBox1->Items->Add(CheckListBox1->Items->Strings[i]); 
s=0; 
for(i=0;iItems->Count;i++) 
s+=StrToInt(ListBox1->Items->Strings[i]); 
Label1->Caption="summa="+IntToStr(s); 
if(s==50) 
{ 
Label1->Caption="Pobeda"+IntToStr(s); 
CheckListBox1->Enabled=false; 
ListBox1->Enabled=false;} 
} 
//---------------------------------------------------------------------------