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;}
}
//---------------------------------------------------------------------------
Достарыңызбен бөлісу: |