C++ buiider ортасындағы графика графиктік файлдардың форматтары
жүктеу/скачать 0,56 Mb.
|
- Бұл бет үшін навигация:
- 4-тапсырма
| 2-тапсырма:«А» жүгі тиелген арба, қозғалып барып «В» бағанының үстіне «А» жүгін орнатуға(1-сурет) мүмкіндік беретін программа құрыңыз.
void __fastcall TForm1::Button1Click(TObject *Sender) { Timer1->Enabled=true; Timer1->OnTimer=Button1Click; Shape1->Tag=8; Shape2->Tag=8; if (Shape3->Left != Shape8->Left) Shape3->Tag=8; Shape4->Tag=8; Shape5->Tag=8; Shape6->Tag=8; if (Shape2->Left + Shape2->Width==Shape8->Left) { Timer1->Enabled=false; } else{ for (int i=0; i if (Components[i]->Tag==8) ((TControl *)Components[i])->Left +=1; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { { Timer1->Enabled=true; Timer1->OnTimer=Button2Click; Shape2->Tag=2; if (Shape3->Left + Shape3->Width <= Shape8->Left) Shape3->Tag=2; if (Shape2->Top==Shape8->Top) { Timer1->Enabled=false; } else{ for (int i=0; i if (Components[i]->Tag==2) ((TControl *)Components[i])->Top-=1; } } } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { { Timer1->Enabled=true; Timer1->OnTimer=Button3Click; if ((Shape2->Left + Shape2->Width == Shape8->Left) && (Shape3->Top + Shape3->Height - 1 == Shape8->Top)) Shape3->Tag=3; if (Shape3->Left + Shape3->Width == Shape8->Left + Shape8->Width) { Timer1->Enabled=false; } else{ for (int i=0; i if (Components[i]->Tag==3) ((TControl *)Components[i])->Left+=1; } } } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { { Timer1->Enabled=true; Timer1->OnTimer=Button4Click; if (Shape3->Left + Shape3->Width == Shape2->Left + Shape2->Width || Shape3->Left + Shape3->Width == Shape8->Left + Shape8->Width) Shape2->Tag=4; if (Shape3->Left + Shape3->Width <= Shape8->Left) Shape3->Tag=4; if (Shape4->Top==Shape2->Top) { Timer1->Enabled=false; } else { for (int i=0; i if (Components[i]->Tag==4) ((TControl *)Components[i])->Top+=1; } } } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { Timer1->Enabled=true; Timer1->OnTimer=Button5Click; if (Shape3->Left + Shape3->Width <= Shape8->Left || Shape3->Left + Shape3->Width == Shape8->Left + Shape8->Width) { Shape1->Tag=5; Shape2->Tag=5; Shape4->Tag=5; Shape5->Tag=5; Shape6->Tag=5; if (Shape3->Left + Shape3->Width <= Shape8->Left) Shape3->Tag=5; } if (Shape4->Left==100) { Timer1->Enabled=false; } else{ for (int i=0; i if (Components[i]->Tag==5) ((TControl *)Components[i])->Left -=1; } } } 3-тапсырма:Компьютерде уақытты көрсете алатын «Сандық сағат - күнтізбе» қосымшасын құрастырыңыз #include #pragma hdrstop #include "utimedate.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { StaticText1->Caption=Now() .TimeString(); Form1->Caption=Now() . DateString(); } 4-тапсырма: «Жұлдызшаның» суретін салу және оның бөліктерінің түсін жыпылықтатып қозғалысқа келтіру программасын құрыңыз. #include #pragma hdrstop #include "Unit1.h" #include "math.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Timer1->Enabled=true; Timer1->Interval=4800; Timer2->Enabled=true; Timer1->Interval=4000; Timer3->Enabled=true; Timer1->Interval=3200; Timer4->Enabled=true; Timer1->Interval=2400; Timer5->Enabled=true; Timer1->Interval=1600; Timer6->Enabled=true; Timer1->Interval=800; Timer7->Enabled=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { Image1->Picture->LoadFromFile ("a1.bmp"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer2Timer(TObject *Sender) { Image2->Picture->LoadFromFile ("a2.bmp"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer3Timer(TObject *Sender) { Image3->Picture->LoadFromFile ("a3.bmp"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer4Timer(TObject *Sender) { Image4->Picture->LoadFromFile ("a4.bmp"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer5Timer(TObject *Sender) { Image5->Picture->LoadFromFile ("a5.bmp"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer6Timer(TObject *Sender) { Image6->Picture->LoadFromFile ("a6.bmp"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer7Timer(TObject *Sender) { Image7->Picture->LoadFromFile ("a7.bmp"); } жүктеу/скачать 0,56 Mb. Достарыңызбен бөлісу:
|