Rivojlantirish va muvofiqlashtirish hududiy boshqarmasi amudaryo tuman kasb-hunar maktabi


Download 3.49 Mb.
Pdf ko'rish
bet176/290
Sana30.10.2023
Hajmi3.49 Mb.
#1734972
1   ...   172   173   174   175   176   177   178   179   ...   290
Bog'liq
Rivojlantirish va muvofiqlashtirish hududiy boshqarmasi amudaryo (1)

 
Program XY; 
 
Var 
 
x1,y1,x2,y2,d: Real; 
 
Begin 
 
Write(‘Nukta koordinatalarini kiriting:’); 
 
Read(x1,y1,x2,y2); 
 
d:=Sqrt(Sqr(x1-x2)+Sqr(y1-y2)); 
 
Writeln; 
 
Writeln(‘Nukta koordinatalari:’,x1,y1,x2,y2); 
 
Writeln(‘Masofa=’,d); 
 
Readln; 
 
End. 


Timer obyektining xossalari. Ba’zan ilovada vaqtga bog‘liq
amallarni bajarishga to‘g‘ri keladi. Masalan, ilovada joriy vaqtni
ko‘rsatuvchi soat bo‘lsa, har sekundda ko‘rsatilayotgan vaqtni yangilab turish 
kerak. Aks holda soatdagi vaqt orqada qolib ketadi. 
Taymer obyektining o‘ziga xos xususiyati uning ekranda 
ko‘rinmasligidir. Taymer obyekti obyektlar panelining System (Tizim) jildida 
joylashgan: 
2. Elektron soat va Taymer ilovasi. Elektron soat ilovasini yaratamiz. 
Yangi ilova yaratib, uning sarlavhasini elektron soatga o‘zgartiramiz. Ilova
oynasiga ikkita obyekt: Label va Timer joylaymiz. Label ning Font (shrift) 
xossasini ikki marta bosib, shrift muloqot oynasida shrift o‘lchamini 24 ga teng 
qilib o‘rnatamiz: 
Timer obyektini ikki marta bosib,
uning protsedurasiga
Label1.Caption:=TimeToStr(Now);
operatorini kiritamiz. Bu operatorda
ikkita standart funksiyadan 
foydalanilayapti. Ulardan birinchisi 
Now (hozir)
bo‘lib, uning qiymati kompyuterning
soati bu funksiya ishga tushgandagi vaqtiga teng: 


Taymer ilovasi. Yangi ilova yaratib, uning oynasiga Label, Button,
SpinEdit va Timer obyektlarini joylaymiz. Label va Button sarlavhalarini
QOLGAN VAQT: va START larga o‘zgartiramiz. 
SpinEditning xossalarini quyidagicha o‘rnatamiz: 
SpinEdit1.MaxValue:=100; SpinEdit1.Value:=30; 
SpinEdit1.Enabled:=False; Button tugmasini ikki marta bosib, uning
protsedurasiga Timer1.Enabled:=True; operatorini kiritamiz. Timerni ikki marta
bosib, TForm1.Timer1Timer protsedurasiga quyidagi dastur kodini kiritamiz: 
SpinEdit1.Value:=SpinEdit1.Value-1; 
if SpinEdit1.Value=0 then
begin 
Timer1.Enabled:=False; 
ShowMessage('VAQT TUGADI.'); 
Form1.Close; 


end;

Download 3.49 Mb.

Do'stlaringiz bilan baham:
1   ...   172   173   174   175   176   177   178   179   ...   290




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