Delphida muloqot oynalarini olish Muallif: Mengliyev sh. Qo`shilgan sana: 2015-02-13 Delphida m uloqot o'yinlarini olish


Download 233.5 Kb.
Sana20.01.2023
Hajmi233.5 Kb.
#1105140
Bog'liq
Delphida muloqot oynalarini olish


Delphida muloqot oynalarini olish

Muallif: Mengliyev SH.
Qo`shilgan sana: 2015-02-13
Delphida m uloqot o'yinlarini olish
Kiritish oynasi -InputBox funksiyasini chaqirish orqali ekranga chiqarish. Bu funksiya o'zgaruvchilar narxlarida Paskaldagi O'qish operatori foydalanishni o'zgartirdi. InputBox funktsiyalari - foydalanuvchi kiritgan qatordir. U umumiy holda ko'rinishga ega:
O'zgaruvchi := InputBox(Sarlavha, Izoh, Qiymat);
Uning dialog oynasi ko'rinishi nuqtai nazaridan:

Bu oyna dasturda hisobga olingan:
s:=InputBox('Kilogramm-gramm','Og'irlikni kilogrammda kiriting','0');
M izol. Aylana radiusi R beilgan. Aylana quvvatni L va uning ichki S maydoni ni topish ilovasini yarating.
Bajarish: Formaga Label1'yilib, uning Caption xossasiga “A bilan bog'liq va ichki maydonini qo'shimcha” so'zi o' belgisi. Natijani Memo1 komponentasiga chiqarish uchun formaga o'rtacha va forma ikki marta chertilib olingan dastur kiritiladi:
protsedurasi TForm1.FormCreate(Sender: TObject);
Var R,L,S: Real;
begin
R:=StrToFloat(InputBox('Aylana','Aylana radiusini kiriting:','1'));
L:=Pi*R; S:=Pi*R*R; Memo1.Clear;
Memo1.Lines.Add('Radius='+FloatToStr(R));
Memo1.Lines.Add('Uzunlik='+FloatToStr(L));
Memo1.Lines.Add('Maydon ='+FloatToStr(S));
oxiri;
Ilova ishga tushganda muloqot oynasi chiqadi:

Ma'lumot oynasini chiqarish
ShowMessage protsedurasi ekranga matnli hamda OK buyrq tugmasiga ega bo'lgan ma'lumot oynasini hosil qiladi. U ko'rinishga ega:
ShowMessage(Ma'lumot);
Rasmda ma'lumot oynasi ko'rsatuvchi:

Uning dasturda yozilishi kiritilishi:
ShowMessage('Ogirlikni kilogrammdaing');
MessageDig funksiyasi ma'li oynaga standart asboblar, masalan "Vnimanie", buyruq tugmalari sonini va turini etkazib berish, hamda foydalanuvchi qaysi tugmani bosganliginiga imkon beradi.
Tanlov:=MessageDlg(Ma'lumot,Tur,Tugmalar,KontekstSpravka);
Rasmda ma'lumot oynasi ko'rsatuvchi:

Uning dasturda yozilishi:
r:=MessageDlg('Fayl uchiriladi.', mtWarning, [mbOk,mbCancel],0);
  Tanlov: = MessageDlg (Ma'lumot, Tur, Tugmalar, KontekstSpravkalar);

Kontekst Spravkalar - foydalanuvchi bosganda ekranda paydo bo'luvchi spravka bo'limidir.
Download 233.5 Kb.

Do'stlaringiz bilan baham:




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