FOYDALANILGAN ADABIYOTLAR VA INTERNET RESURSLARI

|
FOYDALANILGAN ADABIYOTLAR VA INTERNET RESURSLARI
|
bet | 10/10 | Sana | 15.05.2024 | Hajmi | 1,33 Mb. | | #235552 |
Bog'liq Multiplikatsiya va multimedia FOYDALANILGAN ADABIYOTLAR VA INTERNET RESURSLARI
Н.Культин. Самоучитель C++ Builder СПб.: БХВ-Петербург, 2004. -320 с.:
Н.Культин. C++ Builder в задачах и примерах. Петербург, 2005. — 336 с:
Х.М.Дейтел, П.Дж.Дейтел «Как программировать на С++», 5-издание, М-2008 г. 1454 стр.
Г.Шилдт –“Полный справочник по C++” – М-2006., 801 стр.
Sh. F. Madraximov “C++. Obyektga yo’naltirilgan dasturlash”, Toshkent, Mumtoz so’z, 2016 yil. 176 s.
Р.Седжвик – “Фундаментальные алгоритмы на С++” – М 2001., 687 стр.
Ш.Ф.Мадрахимов, С.М.Гайназаров “С++ тилида программалаш асослари” – Тошкент-2009 й., 196
М.Э.Абрамян “Электронный задачник по программированию” Ростов - на - Дону 2005 г. 182 стр.
Н.Н.Непейвода- Стили и методы программирования. Интернет университет информационных технологий. INTUIT.ru, 2005 г., 320 стр.
O.M.Shukurov, E.A.Eshboyev, B.H.Shovaliyev – “Delphi va C++ algoritmik tillarida dasturlash” – Qarshi-2012 y., 228 s.
E.A.Eshboyev, F.Yu.Shodiyev, F.G.Qlicheva – “C++ tilida dasturlash” – Toshkent-2014 yil. 206 s.
www.cplusplus.com
www.acm.timus.ru
www.codeforces.ru
www.cyberforum.ru
www.cybern.ru
www.delphisources.ru
www.ziyonet.uz
www.dastur.uz
ILOVALAR
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x=-340,y=250;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ Canvas->Brush->Color=Form1->Color;
Canvas->FillRect(Rect(x-1,y+1,x+340,y-250));
x+=3;
if(x>ClientWidth)
{ x=-340;
y=random(Form1->ClientHeight); }
int dx=20,dy=20;
Canvas->Pen->Color=clBlack;
Canvas->Brush->Color=clWhite;
TPoint p1[7];
p1[0]=Point(x,y);
p1[1]=Point(x,y-2*dy);
p1[2]=Point(x+10*dx,y-2*dy);
p1[3]=Point(x+11*dx,y-3*dy);
p1[4]=Point(x+17*dx,y-3*dy);
p1[5]=Point(x+14*dx,y);
p1[6]=Point(x,y);
Canvas->Polygon(p1,6);
TPoint p2[8];
p2[0]=Point(x+3*dx,y-2*dy);
p2[1]=Point(x+4*dx,y-3*dy);
p2[2]=Point(x+4*dx,y-4*dy);
p2[3]=Point(x+13*dx,y-4*dy);
p2[4]=Point(x+13*dx,y-3*dy);
p2[5]=Point(x+11*dx,y-3*dy);
p2[6]=Point(x+10*dx,y-2*dy);
p2[7]=Point(x+3*dx,y-2*dy);
Canvas->Polygon(p2,7);
Canvas->MoveTo(x+5*dx,y-3*dy);
Canvas->LineTo(x+9*dx,y-3*dy);
Canvas->Rectangle(x+8*dx,y-4*dy,x+11*dx,y-5*dy);
Canvas->Rectangle(x+7*dx,y-4*dy,x+8*dx,y-7*dy);
Canvas->Ellipse(x+11*dx,y-2*dy,x+12*dx,y-1*dy);
Canvas->Ellipse(x+13*dx,y-2*dy,x+14*dx,y-1*dy);
Canvas->MoveTo(x+10*dx,y-5*dy);
Canvas->LineTo(x+10*dx,y-10*dy);
Canvas->MoveTo(x+17*dx,y-3*dy);
Canvas->LineTo(x+10*dx,y-10*dy);
Canvas->LineTo(x,y-2*dy);
Timer1->Interval=50;
}
9-bet
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int CFrame;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{ TSearchRec sr;
if(FindFirst("*.avi",faAnyFile,sr)==0)
{ Edit1->Text=sr.Name;
try
{ Animate1->FileName=sr.Name; }
catch(Exception &e)
{ return;
}
RadioButton1->Enabled=true;
RadioButton2->Enabled=true;
Button1->Enabled=true; } }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{ OpenDialog1->InitialDir="";
OpenDialog1->FileName="*.avi";
if(OpenDialog1->Execute())
{ try
{ Animate1->FileName=OpenDialog1->FileName; }
catch(Exception &e)
{ Edit1->Text="";
AnsiString msg="faylni ochishda xatolik"+OpenDialog1->FileName+"\n ovoz soprovoj animatsiya bo'lishi mumkin";
ShowMessage(msg);
return; }
Edit1->Text=OpenDialog1->FileName;
RadioButton1->Enabled=true;
RadioButton2->Enabled=true; } }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ if(Animate1->Active)
{ Animate1->Active=false;
Button1->Caption="Boshlash";
RadioButton2->Enabled=true; }
else {
Animate1->StartFrame=1;
Animate1->StopFrame=Animate1->FrameCount;
Animate1->Active=true;
Button1->Caption="Stop";
RadioButton2->Enabled=false; } }
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{ Button1->Enabled=true;
Button2->Enabled=false;
Button3->Enabled=false;
Animate1->Active=false; }
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{ Button1->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=false;
Animate1->StartFrame=1;
Animate1->StopFrame==1;
Animate1->Active=true;
CFrame = 1; }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ CFrame++;
Animate1->StartFrame=CFrame;
Animate1->StopFrame==CFrame;
Animate1->Active=true;
if(CFrame>1)
Button3->Enabled=true;
if(CFrame==Animate1->FrameCount)
Button2->Enabled=false;}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{ if(CFrame==Animate1->FrameCount)
Button2->Enabled=true;
CFrame--;
Animate1->StartFrame=CFrame;
Animate1->StopFrame=CFrame;
Animate1->Active=true;
if(CFrame==1)
Button3->Enabled=false;}
15-bet
|
| |