|
-Mavzu: Amaliy mashg‘ulot. “Oddiy arifmetika trenajori” loyixasi
|
| bet | 4/5 | | Sana | 28.02.2024 | | Hajmi | 0.58 Mb. | | #163623 |
Bog'liq 23-30 kurs ishi, test (1), Обратные задачи-макала, 301-000563, 99999999999999999999, moddiy texnika resurslari, ij5pbryAD9N0szc8s3qwn9xGGNxC496ER9Z3m9RH, 52659209065406, 1 savolga javob, 4-mustaqil ish biznes Nilufar, Egamberdiyeva Nodira Anvarovna. malaka ish slayd, Ornatilgan Tizinlar Fully, e-imzo taqdimot, 17159, ummatov-d26-Mavzu: Amaliy mashg‘ulot. “Oddiy arifmetika trenajori” loyixasi.
1 dan 11 gacha bo‘lgan sinflarni ListBox obyektida aks ettiruvchi ilova yarating.
Yangi ilova yaratib, uning oynasiga ListBox obyektini joylang.
Ilova oynasining bo‘sh joyini ikki marta bosib, ekranda hosil bo‘lgan protsedurani quyidagichato‘ldiring:
procedure TForm1.FormCreate(Sender: TObject); var
i:integer; begin
listbox1.Columns:=3; for i:=0 to 10 do
listBox1.Items[i]:=inttostr(i+1)+'-sinf'; end;
Ilovani ishga tushiring va to‘g’ri ishlashinitekshiring:
27-Mavzu: Memo boshqarish obyekti. "Kiril – Lotin tarjimon dasturi” loyixasi.
Ba’zi ilovalarda katta hajmdagi ma’lumotlar bilan ishlash imkoniyatlari ham bo‘lishi kerak. Delphi ning biz shu paytgacha tanishib chiqqan imkoniyatlarida buning iloji yo‘q. Endi biz bunday imkoniyatni yaratadigan boshqarish obyekti bilan tanishamiz.
Bu obyektning nomi Memo bo‘lib, u Memorandum so‘zining qisqartirilgan ko‘rinishi va xizmat uchun yozuvlar degan ma’noni bildiradi. Bu obyekt obyektlar panelining standart jildida joylashgan:
Delphida yangi ilova yaratib, unga bu obyektni joylaymiz. Ilovani ishga tushirib, sichqonchani Memo ustida bossak, uning ish maydonchasida kursor paydo bo‘ladi. Demak, unga matn kiritishmumkin:
Unga matn kiritganimizda satr to‘lsa, keyingi satrdan matn kiritishni davom ettirish mumkin. Oyna matnga to‘lganda esa matn tepaga qarab siljib, yangi qator paydo bo‘ladi. Matnni kiritishni davom ettirishmumkin.
Sichqonchani sudrab yoki kursorni boshqarish tugmalari yordamida matn bo‘lagini ajratib olish, ajratib olingan matnni Ctrl+X, Ctrl+C, Ctrl+V tugmalari yordamida nusxalash, kesib olish va matnga joylash mumkin. Qisqasi, bu obyekt sodda matn muharriri vazifasini bajara oladi.
Memo obyektiga qancha matn kiritish mumkin? Unga chegara bormi? Albatta, bor. Bu obyektga kiritilgan matnda ko‘pi bilan ta harf va boshqa belgilar bo‘lishi mumkin. Bu esa 1000 dan ortiq matn satri degani.
Lekin, biz bu obyektda matn kiritishni emas, unga ma’lumotlarni chiqarishni mo‘ljallagan edik. Agar biz unga foydalanuvchi ma’lumot kirgiza olmasligini xohlasak, bu obyektning ReadOnly (faqat o‘qish uchun) nomli xossasini False (yolg‘on) dan True (rost) ga o‘tkazishimiz kerak:
Memo ga kiritilgan matn uning Text xossasida saqlanadi. Unda bittadan ko‘p matn satrlari bo‘lishi mumkin. Matn satrlarini bir-biridan ajratish uchun ular orasiga satr oxiri va satr boshiga o‘tish belgilarini qo‘yish kerak bo‘ladi. Buni quyidagicha amalga oshirishmumkin.
Memo1.Text:=’1-satr’+#13+#10+’2-satr’;
Undan foydalanishni o‘rganish uchun dastlabki ta natural sonning kvadratlarini topadigan ilova yaratamiz. Unga bittadan Memo, Edit, Button obyektlarini joylab xossalarini quyidagi rasmda ko‘rsatilgandek qilib o‘zgartiramiz:
Button tugmasini ikki marta bosib, ekranda paydo bo‘lgan protseduraga quyidagilarni kiritamiz:
procedure TForm1.Button1Click(Sender: TObject);
var i,i2,n:integer;
begin
n:=StrToInt(Edit1.Text);
for i:=1 to ndo begin i2:=i*i;
Memo1.Text:=Memo1.Text+IntToStr(i)+'ning_kvatrat i:'+IntToStr(i2)+#13+#10;
end; end;
|
| |
