Laboratoriya ishi №5 “html tilida web sahifalar yaratish” Ishning maqsadi


Download 1.3 Mb.
bet8/8
Sana14.09.2023
Hajmi1.3 Mb.
#1677836
1   2   3   4   5   6   7   8
Bog'liq
Лаб 5-

Obyekt

Svoystvo

Znacheniye

Form1
Label1
Label1
Label1
Label1

Name
Caption
Color
Font.Size
Font.Color

Clock
00:00:00 clYellow
24
Krasnыy



  1. TClock.Timer1Timer protsedurasiga vaqtni yangilash uchun quyidagicha dastur kodini kiriting:

Label1.Caption:=TimeToStr(Time);

  1. Vaqtni yangilanish tezligini boshqarish uchun tugma qoʻshing.

    1. Formaga GroupBox va RadioButton obyekt kompanentlarini joylang:

    2. Bu obyektlarni xodisalarini quyidagicha oʻrnating:

GroupBox1

Caption

Skorost

RadioButton1

Caption

Medlenno

RadioButton2

Caption

Umerenno

RadioButton3

Caption

Bыstro

4.3. TForm1.RadioButton3Click protsedurasiga quyidagicha dastur kodini kiriting: Timer1.Interval := 1000;


Oʻzingiz quyidagi protseduralar uchun dastur kodini kiriting: TForm1.RadioButton1Click (3000) va TForm1.RadioButton2Click (2000)

  1. Vazifa. Matn redaktori dasturini yaratish.



Ishning maqsadi: Matn faylini (*.txt) yaratish ochi shva taxrirlash imkongiyatiga ega boʻlgan matn muxariri dasturini tuzish.

  1. Form1 formasiga RichEdit (Additional boʻlimi), MainMenu, RadioButton (Standard boʻlimi) va OpenDialog, ColorDialog (Dialogs boʻlimi) komponentlarini joylang.



  1. Bloknot matn muxarriri yordamida text.txt nomli mati faylini yarating unga oʻzingiz xaqingizdagi maʼlumotlarni kiriting va saqlang, Formadigi joylangan obyektlarni xossalarini quyidagicha oʻrnating:

Obyekt

Svoystvo

Znacheniye

Form1

Caption

Redaktirovaniye

RichEdit

Caption




RichEdit

Alignment

TaLeftJustify

Otkrыt Ctrl+O

Caption

Otkrыt

-

Caption




Vыxod

Caption

V&ыxod

OpenDialog

Filter

Tekstovыe faylы (*.txt; *.rtf) |*.txt; *.rtf

RadioButton

Caption

Pereklyuchatel

GroupBox1

Caption

-

2. Xosil qilingan loyixa fayllarini RichEdit nomli papka yarating va unga saqlang.
3. Formadagi RichEdit komponentini ScrollBars xossasiga
(oʻtkazish belgisi) ssBorth kattaligini oʻrnating, Align (joylashviye) xossasi uchun
alLeft kattaligni oʻrnating (formani chap qismiga).
4. OpenFile ichki menyusini Click xodisasi (sichqoncha yorlamida chertilganda) protsedurasiga kuyidagi dastur kodini kiriting:
procedure TForm1.OpenFileClick(Sender: TObject);
begin
if (OpenDialog1.Execute) then
RichEdit1.lines.LoadFromFile(OpenDialog1.FileName);
end;
5. Dastruni yopishda, faylni saqlash imkonini beruvchi dastur kodini kiriting:

procedure TForm1.CloseEditClick(Sender: TObject);
begin
Form1.Close;
end;


  1. Dasturni ishga tushiring. Xosil boʻlgan madonga istalgan matnni kiriting. Dasturni yoping.

  2. Dasturni qayta ishga tushiring va kiritilgan matnlar mavjud boʻlgan matnni yuklanayotganligiga ishln xosil qiling.

  3. RadioButton – yoqish-oʻchirish guruxiga oyna rangini oʻzgartishrish imkonini beruvchi boʻlim qoʻshing va unga mos dastur kodini kiriting.

  4. RadioButton – yoqish-oʻchirish guruxiga matn shriftini oʻlchamini oʻzgartirsh boʻlimini qoʻshinga va unga mos dastur kodini kiriting.

  5. RadioButton – yoqish-oʻchirish guruxiga matn shrifti rangini oʻzgartirsh boʻlimini qoʻshinga va unga mos dastur kodini kiriting.


Nazorat svollari.

  1. Delphi dasturlash muxiti oynalarini izoxlab bering?

  2. Blok sxema va lur bilan ishlashni tushuntirib bering?

  3. Delphi dasturida kompanentlar panelidagi Dialogs bщlimi kompanentlarini izoxlab bering?

  4. Delphi dasturida kompanentlar panelidagi Additional bщlimi kompanentlarini izoxlab bering?

  5. Delphi dasturida kompanentlar panelidagi System bщlimi kompanentlarini izoxlab bering?

  6. Delphi dasturida kompanentlar panelidagi Standard bщlimi kompanentlarini izoxlab bering?

  7. Delphi xosil ыilinga loyixa fayllari bilan ishlashni tushuntirib bering?

Download 1.3 Mb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6   7   8




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling