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

Ob-havo

Forma shakli 1.19-rasmda keltirilgan, Ob-havo dasturi, havo xarorati xaqidagi ma’lumotlarni, o’zida matnli faylni tavsiflaydigan, ma’lumotlar bazasiga qo’shadi. meteo.txt ma’lumotlar faylining xar bir satri sana va xarorat qiymatidan tashkil topgan. Agar joriy katalogda ma’lumotlar fayli bo’lmasa, dastur uni yaratadi. Dastur shunday loyixalashtirilganki, agar Xarorat maydonida ma’lumotlar bo’gan xolda OK tugmasi murojaatli bo’ladi.

1.19-rasm. Ob-havo dastur formasi

int f; // fayl deskriotori

//forma konstruktori

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

MonthCalendar1->ShowTodayCircle = false;

MonthCalendar1->Date = Now();

Button1->Enabled = false;

}

// "Qo'shish" tugmasiga bosish

void __fastcall TForm1::Button1Click(TObject *Sender)

{

AnsiString st;

/* fayl fmCreate tartibida ochiladi, qachonki, agarda fayl mavjud bo'lsa, u yozish uchun ochiladi, agar fayl mavjud bo'lmasa, unda u yaratiladi */

st=MonthCalendar1->Date.DateString()+" "+Edit1->Text+

"\r\n";

/*metio.txt faylni yaratish yoki yozish uchun ochish*/

if (FileExists("meteo.txt"))

f = FileOpen("meteo.txt",fmOpenWrite);

else

f = FileCreate("meteo.txt"); // faylni yaratish

if ( f != -1 )

{

// faylni yozish uchun ochish

FileSeek(f,0,2); // ko'rsatgichni fayl oxiriga

// o'rnatish

FileWrite(f,st.c_str(),st.Length());

FileClose(f);

Button1->Enabled = false;

}

else

{

/*faylga murojaatda xatolik: ochish, yaratish amalga oshmasa*/

ShowMessage("faylga murojaatda xatolik: ochish,"

" yaratish amalga oshmadi");

}

}

// taxrirlash maydonidagi matn o'zgartirilganda

void __fastcall TForm1::Edit1Change(TObject *Sender)

{

//agar taxrirlash maydonida son paydo bo'lsa

//"Qo'shish" tugmasi murojaatli bo'ladi. Agar maydonda

//belgi yo'q yoki birinchi belgi - "minus" bo'lsa,

//tugma murojaatli bo'lmaydi

if((Edit1->Text.Length()==0)||

((Edit1->Text.Length()==1)&&(Edit1->Text[1]=='-')))

Button1->Enabled = false;