R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

1.56-rasm. Rasmni yig’ish dastur formasi

#include "math.hpp" // Randomize va RandomRange

// murojaat uchun

// maydon o’lchami WxH

#define W 4

#define H 4

int wc, hc; // katak o’lchami

byte pole[H][W]; // o’yin maydoni

byte ex,ey; // bo’sh katak koordinatasi

bool GameOver;

AnsiString fn; // bmp-fayl nomi (rasm)

TSearchRec SearchRec; // faylni izkash natijasi

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

pic = new Graphics::TBitmap();

}

// dastur ishining boshlanishi

void __fastcall TForm1::FormShow(TObject *Sender)

{

NewGame();

}

// yangi o’yin

void __fastcall TForm1::NewGame()

{

static int Tag = 0;

// fayldan rasmni yukalsh

if((ParamCount()==0)&&(Tag==0)) Tag = 1;

switch(Tag)

{

case 0 : // fayl nomi – bo’yruqlar satridan

fn = ParamStr(1);

Tag = 1;

break;

case 1: // bmp-fayl tartibi bo’yicha birinchisini

// tanlash

FindFirst("*.bmp",faAnyFile,SearchRec);

fn = SearchRec.Name;

Tag = 2;

break;