20-Mavzu: Edit komponenti. ”Parol kiritish oynasi” loyixasi. O’quv mashg’ulotining o’qitish texnologiyasi modeli
Download 0.79 Mb.
|
20-mavzudan boshlab
- Bu sahifa navigatsiya:
- 23-Mavzu: Chiziqli jadval elementlari yig‘indisini hisoblash loyixasi: StringGrid komponenti. O’quv mashg’ulotining o’qitish texnologiyasi modeli
- O’quv mashg’ulotining texnologik xaritasi
- Tayanch bilimlarni faollashtirish
- Ta’lim oluvchilar bilimini faollashtirish
- Yangi materialini mustahkamlash
- Mashg’ulot yakuni
- 1-ilova O’quvchilarni baholash ko’rsatkichlari va mezonlari
- Guruhlarga qo’yilgan ballar ko’rsatkichlari
- 2-ilova «Bli t s-so’rov» organayzeri
- 3-ilova Mustahkamlash uchun savollar.
- 4-ilova Uyga vazifa.
- Var i,j,cod:integer; A:array[1..4,1..4] of Real; S:real; s1:String; begin For i:=1 to 4 do
- Label1: TLabel; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations }
- {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var i,j,cod:integer; A:array[1..4,1..4] of Real;
- For i:=1 to 4 do For j:=1 to 4 do s:=s+a[i,j]; Str(s:7:2,s1); Memo1.Clear; Memo1.Lines.add(Summa =+s1);
SAVOL VA TOPSHIRIQLAR. Grafika bilan ishlash qanday qilib amalgaoshiriladi? Image obyekti obyektlar panelining qayeridajoylashgan? RGB funksiyasi qanday vazifabajaradi? Ekranga qizil yashil va qora rangli uchta to‘g‘ri to‘rtburchak chizadigan ilovayarating. Ekranda ko‘k, kumushrang va sariq rangli uchta ellips chizadigan ilovayarating. 23-Mavzu: Chiziqli jadval elementlari yig‘indisini hisoblash loyixasi: StringGrid komponenti. O’quv mashg’ulotining o’qitish texnologiyasi modeli
O’quv mashg’ulotining texnologik xaritasi
1-ilova O’quvchilarni baholash ko’rsatkichlari va mezonlari
Guruhlarga qo’yilgan ballar ko’rsatkichlari
5 ball – a’lo 4 ball – yaxshi 3 ball – qoniqarli 2-ilova «Blits-so’rov» organayzeri
3-ilova Mustahkamlash uchun savollar. 1. Grafika bilan ishlash qanday qilib amalga oshiriladi? 2. Image obyekti obyektlar panelining qayerida joylashgan?
RGB funksiyasi qanday vazifa bajaradi? Ekranga qizil yashil va qora rangli uchta to‘g‘ri to‘rtburchak chizadigan ilova yarating. Ekranda ko‘k, kumushrang va sariq rangli uchta ellips chizadigan ilova yarating. 4-ilova Uyga vazifa. Qalam obyektining asosiy xossalarini aytibbering. Cho‘tka obyektining qanday xossalaribor? 23-Mavzu: Chiziqli jadval elementlari yig‘indisini hisoblash loyixasi: StringGrid komponenti. StringGrid jadval komponentasi ikki o‘lchovli ma’lumotlarni, masalan matritsa elementlari qiymatini ekranda jadval ko‘rinishda tasvirlash, ular qiymatini kiritish va tahrirlash uchun ishlatiladi. Jadval qator va ustun numerlari nuldan boshlanadi. Jadval ustun va qatorlar sonini keraklicha o‘zgartirish mumkin. Bu uning xossasi yordamida aniqlanadi. Jadvalning har bir kesishgan ustun va satri yacheyka deyilib, unga kiritilgan ma’lumot simvol qatori bo‘lib aniqlanadi. Masalan, (3,5) yacheyka to‘rtinchi ustun va oltinchi qatorda joylashgan. StringGrid jadval komponentasining asosiy xossalari: ColCount -jadvaldagi ustunlar sonini aniqlaydi; RowCount -jadvaldagi satrlar sonini aniqlaydi; FixedCols -fiksirlangan ustunlar sonini aniqlaydi; FixedRows -fiksirlangan satrlar sonini aniqlaydi; Options –jadvad holatini aniqlaydi (aniqlash uning pamametrlariga asosan bajariladi, masalan GoEditing parametr true qiymatga ega bo‘lsa yacheykani tahrirlash mumkin, aks holda mumkin emas. Bu parametrlarni aniqlash uchun Options xossasiga o‘tib u ikki marta tez-tez bosiladi); ColWidths -jadvaldagi har bir ustun kengligini aniqlaydi; DefaultColWidth -jadvalning boshlang‘ich ustunlar kengligini aniqlaydi; DefaultRowHeight -jadval satrining boshlang‘ich balandligini aniqlaydi. FixedColor -fiksirlangan yacheyka rangini aniqlaydi; RowHeights -jadval satri balandligini aniqlaydi; Cells -simvol qatorli ikki o‘lchamli massivni aniqlaydi. Misol. Butun qiymatli A(4,4) massiv elementlari yig‘indisi va o‘rta armfmetik qiymati topilsin. Yechish. YAngi ilova yaratamiz. 2.Formaga Additional komponentalar palitrasidan StrinGrid komponentasini StrinGrid1 nom bilan, Standart komponentalar palitrasidan Memo komponentasini Memo1 nom bilan va Botton1 tugmalarini o‘rnatamiz. 3.StrinGrid komponentasining xossalarini o‘rnatamiz. FixedCols -0, FixedRows -0, ColCount -4, RowCount -4. Demak, hosil qilinadigan jadval 4 ta ustun va 4 ta satrga ega. Option xossasiga kiramiz va uni ikki marta tez-tez chiqillatamiz. U erdan GoEditing parametrini True qiymatga tenglashtiramiz. 4.Botton1 tugmasining Coption xossasiga kirib uning nomini “Echish” nomiga o‘zgartiramiz. 5.”Echish” tugmasini aktivlashtiramiz, ya’ni uni ikki marta tez-tez bosib dastur kodlarini yozish oynasiga o‘tamiz va quyidagi kodlarni kiritamiz. Var i,j,cod:integer; A:array[1..4,1..4] of Real; S:real; s1:String; begin For i:=1 to 4 do For j:=1 to 4 do Val(StringGrid1.cells[i-1,j-1],a[i,j],cod); S:=0; For i:=1 to 4 do For j:=1 to 4 do s:=s+a[i,j]; Str(s:7:2,s1); Memo1.Clear; Memo1.Lines.add('Summa ='+s1); s:=s/4/4; Str(s:7:2,s1); Memo1.Lines.add('Ortacha='+s1); end;
4.Tuzilgan loyiha (proekt) ya’ni Project1 va Unit1 standart modul nomlarini mos nomlar bilan almashtirib saqlaymiz. 5.YAngi nom bilan saqlangan proekt, ya’ni ilova F9 tugmachasini bosish bilan ishga tushuriladi. Ilova ishga tushirilganda uning quyidagi ko‘rinishi ekranda namayon bo‘ladi. Tashkil qilingan modulning to‘liq ko‘rinishini keltiramiz. unit j1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; Label1: TLabel; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var i,j,cod:integer; A:array[1..4,1..4] of Real; S:real; s1:String; begin For i:=1 to 4 do For j:=1 to 4 do Val(StringGrid1.cells[i-1,j-1],a[i,j],cod); S:=0; For i:=1 to 4 do For j:=1 to 4 do s:=s+a[i,j]; Str(s:7:2,s1); Memo1.Clear; Memo1.Lines.add('Summa ='+s1); s:=s/4/4; Str(s:7:2,s1); Memo1.Lines.add('Ortacha='+s1); end; end. Download 0.79 Mb. Do'stlaringiz bilan baham: |
ma'muriyatiga murojaat qiling