Hemisdagi raqami

GURUH
|
F.I
|
HEMISDAGI RAQAMI
|
BALL(5)
|
612-23
|
Turonboyev Oybek
|
18
|
|
2-dedline.Blaknot dasturini tayyorlash.
Men Blaknot dasturini tayyorlash uchun C++ Builder dasturlash muhitining Rad Studio XE3 versiyasidan foydalandim. C++ Builderda yangi loyiha yaratamiz:
Birinchi navbatda Form oynasini hosil qilib olamiz. Menyulardan foydalanish uchun MainMenu komponentasida foydalanamiz.
Va unga kerakli menyularni yozib olamiz.
Songra ularga ShotCut (tezkor tugmalarni) boglab chiqamiz.Bu ishni Properities->ShotCut bolimida bajaramiz.
Dizayinimiz chiroyli bo’lishi uchun ikonkalardan foydalanamiz bu ish uchun bizga ImageList komponentasi kerak boladi.
Unga kerakli ikonkalarni yuklab olamiz va Main Menuga bog’lab olamiz.
Shrift dan foydalanishimiz uchun FontDialog komponentasidan foydalanamiz va uni ham MainMenuga bog’lab olamiz.
Bloknotdan foydalanish uchun unga Memo komponentasini olamiz va uning hususiyatini alClient Qilib qoyamiz.Memo ham Edit ga oxshagan kompnenta lekin farqi u 65536 ta qiymat qabul qiladi va enterlarni ham oz ichiga oladi.
Dasturimizga kerakli kodlarni yozamiz:
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String fn;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if (OpenDialog1->Execute()) {
Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
fn=OpenDialog1->FileName ;
Form1->Caption=fn;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveAs1Click(TObject *Sender)
{
if (SaveDialog1->Execute()) {
Memo1->Lines->SaveToFile(SaveDialog1->FileName) ;
fn=SaveDialog1->FileName ;
Form1->Caption=fn;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Save1Click(TObject *Sender)
{ if (Form1->Caption=="Dokument 1") {
SaveAs1->Click();
}
if (Memo1->Modified) {
Memo1->Lines->SaveToFile(fn);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::New1Click(TObject *Sender)
{
if (Memo1->Modified) {
switch (MessageDlg("O'zgarishlarni saqlaysizmi",
mtConfirmation,mbYesNoCancel,0)) {
case mrYes: SaveAs1->Click();break;
case mrNo: Memo1->Clear();break;
case mrCancel: break;
default:
;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::exit1Click(TObject *Sender)
{
if (Memo1->Modified) {
switch (MessageDlg("O'zgarishlarni saqlaysizmi",
mtConfirmation,mbYesNoCancel,0)) {
case mrYes: SaveAs1->Click();break;
case mrNo: Form1->Close();break;
case mrCancel: break;
default:
;
}
}
else {
Form1->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (Memo1->Modified) {
switch (MessageDlg("O'zgarishlarni saqlaysizmi",
mtConfirmation,mbYesNoCancel,0)) {
case mrYes: SaveAs1->Click();break;
case mrNo: Form1->Close();break;
case mrCancel: break;
default:
;
}
}
else {
Form1->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Print1Click(TObject *Sender)
{
if (PrintDialog1->Execute()) {
AnsiString tempFileName = "c:/toprint.txt";
Memo1->Lines->SaveToFile(tempFileName);
ShellExecuteA(Handle, "print", tempFileName.c_str(), NULL, NULL, NULL);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Cut1Click(TObject *Sender)
{
Memo1->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Paste1Click(TObject *Sender)
{
Memo1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Copy1Click(TObject *Sender)
{
Memo1->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SelectAll1Click(TObject *Sender)
{
Memo1->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Delete1Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Font1Click(TObject *Sender)
{ if (FontDialog1->Execute()) {
Memo1->Font=FontDialog1->Font;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AboutUs1Click(TObject *Sender)
{
ShowMessage(" Men Turonboyev Oybek Abdumannon o'g'li 2004-yil 19- sentabrda tavallud topganman.2023-yil TATU Farg'ona filiali talabasi bo'ldim. Hozirda KIF fakulteti Kompyuter injinering yo'nalishi 612-23 guruhda tahsil olmoqdaman. ");}
//---------------------------------------------------------------------------
void __fastcall TForm1::Uzb1Click(TObject *Sender)
{
File1->Caption="Fayl";
New1->Caption="Yangi";
Open1->Caption="Ochish";
Save1->Caption="Saqlash";
SaveAs1->Caption="Yangi Saqlash";
exit1->Caption="Chiqish";
Edite1->Caption="Tahrirlash";
Cut1->Caption="Qirqish";
Copy1->Caption="Nusxalash";
Paste1->Caption="Qo`yish";
SelectAll1->Caption="Barchasini belgilash";
Delete1->Caption="O`chirish";
Shirift1->Caption="Shrift";
Font1->Caption="Font";
Lang1->Caption="Til";
AboutUs1->Caption="Biz haqimizda";
Help1->Caption="Yordam" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Rus1Click(TObject *Sender)
{
File1->Caption="Файл";
New1->Caption="Новый";
Open1->Caption="Открыть";
Save1->Caption="Сахранять";
SaveAs1->Caption="Сахранять все";
exit1->Caption="Выход";
Edite1->Caption="Редактировать";
Cut1->Caption="Резать";
Copy1->Caption="Копировать";
Paste1->Caption="Вставить";
SelectAll1->Caption="Выбрать все";
Delete1->Caption="Удалить";
Shirift1->Caption="Шрифт";
Font1->Caption="Шрифт";
Lang1->Caption="Язык";
AboutUs1->Caption="О нас";
Help1->Caption="Помощь" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Eng1Click(TObject *Sender)
{
File1->Caption="File";
New1->Caption="New";
Open1->Caption="Open";
Save1->Caption="Save";
SaveAs1->Caption="Save As";
exit1->Caption="Exit";
Edite1->Caption="Edit";
Cut1->Caption="Cut";
Copy1->Caption="Copy";
Paste1->Caption="Paste";
SelectAll1->Caption="Select All";
Delete1->Caption="Delete";
Shirift1->Caption="Shrift";
Font1->Caption="Font";
Lang1->Caption="Lang";
AboutUs1->Caption="About Us";
Help1->Caption="Help" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Help1Click(TObject *Sender)
{
ShowMessage("Ustoz Helpga qandey kod yozishni bilmadim. Hudo xohlasa endi o'zizdan o'rganib olarman ");
}
//---------------------------------------------------------------------------
Blaknotimiz tayyor!
|