1-Mavzu: Ilovalar yaratishning zamonaviy usullari. Delphi dasturlash muhiti. Ilova va uning oynasi. Boshqarish tugmasi




Download 163,73 Kb.
bet4/10
Sana21.05.2024
Hajmi163,73 Kb.
#248451
1   2   3   4   5   6   7   8   9   10
Bog'liq
1-Mavzu Ilovalar yaratishning zamonaviy usullari. Delphi dastur

8-mavzu: Test dasturi loyihasi
Reja:
1.Delphi tilida test dasturini yaratish texnologiyasi.
2.Bloknot dasturidan foydalanish.
3.Label,Edit,Button kompanentalarini o‘rganib mustahkamlash.
DTS:katakcha, katakchalar bloki,adres, ma’lumot turi, formula haqida tasavvurga ega bo`lish. Kompetensiya: 1. TK1-kommunikativ kompetensiya 2. TK3-o‘zini-o‘zi rivojlantirish kompetensiyasi 3. Kommunikativ kompetentsiya — ijtimoiy vaziyatlarda ona tilida hamda birorta xorijiy tilda o‘zaro muloqotga kirisha olishni, muloqotda muomala madaniyatiga amal qilishni, ijtimoiy moslashuvchanlikni, hamkorlikda jamoada samarali ishlay olish layoqatlarini shakllantirishni nazarda tutadi.
Delphi tilida test dasturini yaratish texnologiyasi Biz Delphi dasturlash tilida test dasturini yaratish uchun bizga test dasturi uchun bloknotda sovol tuzib olamiz. Bunda 1 fanning nomi,2 savollar soni, misol uchun: 5 ta savol uchun 5 raqam yoziladi. 3 minut vaqt, misol uchun 1 minut uchun 1:00 yoziladi,savollar ketma-ketligi qatorma-qator yoziladi. To‘g'ri javobga 1,2,3,4 sonlar qo‘yiladi, agarda javoblar 4 tadan iborat bo‘lsa, savoldan keyingi 1 qatordagi javob to‘g'ri bo‘lsa, 1 raqam qo‘yiladi va ikkinchi savol boshlanadi va shu ketma-ketlik davom ettiriladi. Savolning javobini ixtiyoriy qatorga qo‘yish mumkin
Delphida dasturi dizayni quyidagicha berilgan: Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, ExtCtrls; type // vaqt TPrTime = Record Min: Byte; Sec: Byte; end; TForm1 = class(TForm) MainMenu1: TMainMenu; N11: TMenuItem; Panel1: TPanel; Lbl_Last: TLabel; Lbl_FQuestion: TLabel; BtnV1: TButton; BtnV2: TButton; BtnV3: TButton; BtnV4: TButton; MQuestion: TMemo; MIAbout: TMenuItem; Timer1: TTimer; MITest: TMenuItem; MITBegin: TMenuItem; MIOpenFile: TMenuItem; Memo_Temp: TMemo; MV1: TMemo; MV2: TMemo; MV3: TMemo; MV4: TMemo; OpenDialog1: TOpenDialog; GBox: TGroupBox; MIExit: TMenuItem; MITEnd: TMenuItem; LblNameTest: TLabel; Label1: TLabel; Label2: TLabel; PanelButton: TPanel; Label3: TLabel; Lbl_NomQuestion: TLabel; procedure FormCreate(Sender: TObject); function DecTime(Var aa:TPrTime; Sender: TObject): string; procedure PrTimeOut(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure MIOpenFileClick(Sender: TObject); procedure MIAboutClick(Sender: TObject); procedure PrFillFileds(Sender: TObject); procedure MITBeginClick(Sender: TObject); procedure PrClickButton(Sender: TObject); procedure MIExitClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; PrTimeLast: TPrTime; PrTimeFull: TPrTime; //nomer bo‘yicha savol NomQuestion: Byte; // to‘g’ri javoblar bali PrVAnsverOK: Byte; //nomer savol bo‘yicha massiv PrOrderQuestion: array [1..255] of byte; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin GBox.Visible:=False; Timer1.Enabled:=False; PrTimeLast.Min:=0; PrTimeLast.Sec:=0; MITBegin.Enabled:=True; MITEnd.Enabled:=False; NomQuestion:=1; Memo_Temp.Lines.Clear; PrVAnsverOK:=0; PanelButton.Visible:=True; end; // --- Vaqt nazorati --- Function PrFormatConvert(aa:TPrTime): String; Begin if aa.Min<=9 then result:='0'+IntToStr(aa.Min) else result:=IntToStr(aa.Min); if aa.Sec<=9 then result:=result+':0'+IntToStr(aa.Sec) else result:= result:=result+':'+IntToStr(aa.Sec); end;
Vaqtni o‘zgartiriash function TForm1.DecTime(Var aa:TPrTime; Sender: TObject): string; begin if aa.Sec=0 then if aa.Min>0 then begin dec(aa.Min); aa.Sec:=59; end else PrTimeOut(Sender) else dec(aa.Sec); result:=PrFormatConvert(aa); end; // Vaqt bo‘yicha savollarga javobni nazorat qilish procedure TForm1.PrTimeOut(Sender: TObject); begin // Test variantlarini kiritish if NomQuestion=StrToInt(copy(Memo_Temp.Lines[1],1,pos(' ',Memo_Temp.Lines[1])-1)) then begin Timer1.Enabled:=False; PanelButton.Visible:=False; // Tugmachani tanlashni to‘xtatish. ShowMessage('Javob (Jami to`g`ri javob):'+#13+#10 +IntToStr(NomQuestion)+'\'+IntToStr(PrVAnsverOK)); //PrStatisticsTest(Sender); Abort; end; {v0103} PrTimeLast.Min:=StrToInt(copy(Memo_Temp.Lines[1], pos(' ',Memo_Temp.Lines[1])+1,pos(':',Memo_Temp.Lines[1])-pos(' ',Memo_Temp.Lines[1])-1)); {v0103} PrTimeLast.Sec:=StrToInt(copy(Memo_Temp.Lines[1], pos(':',Memo_Temp.Lines[1])+1,Length(Memo_Temp.Lines[1])pos(':',Memo_Temp.Lines[1]))); inc(NomQuestion); PrFillFileds(Sender); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Lbl_Last.Caption:=DecTime(PrTimeLast,Sender); end; procedure TForm1.MIOpenFileClick(Sender: TObject); begin FormCreate(Sender); OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName); if OpenDialog1.Execute then Memo_Temp.Lines.LoadFromFile(OpenDialog1.FileName); end; procedure TForm1.MIAboutClick(Sender: TObject); begin ShowMessage('Administrator: Tami;'+#13+#10+ ' '+#13+#10+ 'http:\\www.tami.uz'+#13+#10+#13+#10+ 'e-mail: shoydullo@mail.ru; '); end; procedure TForm1.PrFillFileds(Sender: TObject); begin MQuestion.Clear; MV1.Clear; MV2.Clear; MV3.Clear; MV4.Clear; MQuestion.Lines[0]:=Memo_Temp.Lines[2+6*(PrOrderQuestion[NomQuestion]-1)]; MV1.Lines[0]:=Memo_Temp.Lines[3+6*(PrOrderQuestion[NomQuestion]-1)]; MV2.Lines[0]:=Memo_Temp.Lines[4+6*(PrOrderQuestion[NomQuestion]-1)]; MV3.Lines[0]:=Memo_Temp.Lines[5+6*(PrOrderQuestion[NomQuestion]-1)]; MV4.Lines[0]:=Memo_Temp.Lines[6+6*(PrOrderQuestion[NomQuestion]-1)]; Lbl_NomQuestion.Caption:=IntToStr(NomQuestion); if MQuestion.Lines.Count>=3 then MQuestion.scrollbars:=ssVertical else MQuestion.scrollbars:=ssNone; procedure TForm1.MITBeginClick(Sender: TObject); Var Stroka: String; tempNomQuestion, i: byte; Begin // Test faylni yuklash if Memo_Temp.Lines.Count<4 then begin ShowMessage('Test faylini yuklang!'); Abort; end; Stroka:=Memo_Temp.Lines[1]; PrTimeLast.Min:=StrToInt(copy(Stroka,pos(' ',Stroka)+1,pos(':',Stroka)-pos(' ',Stroka)-1)); PrTimeLast.Sec:=StrToInt(copy(Stroka,pos(':',Stroka)+1,Length(Stroka)pos(':',Stroka))); PrTimeFull.Sec:=StrToInt(copy(Stroka,1,pos(' ',Stroka)-1)) *PrTimeLast.Sec mod 60; PrTimeFull.Min:=StrToInt(copy(Stroka,1,pos(' ',Stroka)-1)) *PrTimeLast.Min + StrToInt(copy(Stroka,1,pos(' ',Stroka)-1)) *PrTimeLast.Sec div 60; for i:=1 to 255 do PrOrderQuestion[i]:=0; tempNomQuestion:=0; while tempNomQuestionif StrToInt(Memo_Temp.Lines[7+6*(NomQuestion-1)])=(Sender as TButton).Tag Then begin ShowMessage('To`g`ri'); inc(PrVAnsverOK); end else ShowMessage('Noto`g`ri'); PrTimeOut(Sender); end; procedure TForm1.MIExitClick(Sender: TObject); begin Close; end; end.
YODDA SAQLANG!
Bloknotda testni qoidalari boyicha kiritish lozim. MAVZUNI MUSTAHKAMLASH UCHUN SAVOL VA TOPSHIRIQLAR 1.Test kiritish uchun qaysi dasturdan foydalandik? 2.Bloknot dasturi nima uchun mo‘ljallangan? 3.ShowMessagening vazifasi? Kichik guruhlarda ishlash qoidasi.
1. Talabalar ishini bajarish uchun zarur bilim va masalalarga ega bo‘lmogi lozim. 2. Guruhlarga aniq topshiriqlar berilmog’i lozim. 3. Kichik guruh oldiga qo‘yilgan topshiriqni bajarish uchun etarli vaqtajratiladi. 4. Guruhlardagi fikrlar chegaralanmaganligi va tazyiqqa uchramasligi xaqida ogohlantirilishi zarur. 5. Guruh ish natijalarini qanday taqdim etishini aniq bilishlari, o‘qituvchi ularga yo‘riqnoma berishi lozim. 6. Nima bo‘lganda ham muloqotda bo‘ling, o‘z fikringizni erkin namoyon eting. 4-Ilova 1-o‘quv topshiriq «Blits-so‘rov» savollari Bilishi lozim bo‘lgan savollar Berilgan savollarning mazmuni Test kiritish uchun qaysi dasturdan foydalandik?
Bloknot dasturi nima uchun mo‘ljallangan?
ShowMessagening vazifasi?
1-o‘quv topshiriq FSMU texnologiyasi
Ushbu texnologiya munozarali masalalarni hal etishda hamda o‘quv jarayonini baxs-munozarali o‘tkazishda qo‘llaniladi, chunki bu texnologiya talabalarni o‘z fikrini himoya qilishga, erkin fikrlash va o‘z fikrini boshqalarga o‘tkazishga, ochiq holda baxslashishga hamda shu bilan birga baxslashish madaniyatini o‘ratadi.Tinglovchilarga tarqatilgan oddiy qog’ozga o‘z fikrlarini aniq va qisqa xolatda ifoda etib, tasdiqlovchi dalillar yoki inkor etuvchi fikrlarni bayon etishga yordam beradi. F – fikringizni bayon eting S – fikringiz bayoniga sabab ko‘rsating M – ko‘rsatgan sababingizni isbotlovchi dalil keltiring U – fikringizni umumlashtiring
Tayanch bilimlarni faollashtirish: 4. Uyga berilgan vazifani nazorat qiladi hamda o‘tilgan mavzu bo‘yicha o‘quvchilarga savollar beradi, ularni baholaydi. Maqsad va vazifani belgilanishi: 5. Mashg‘ulotning nomi, rejasi, maqsad va o‘qitish natijalar bilan tanishtiradi. 6. Mustaqil ishlash uchui adabiyotlar bilan tanishtiradi; 7.O‘quv mashg‘ulotida o‘quv ishlarni baholash mezoni va ko‘rsatkichlari bilan tanishtiradi (1-ilova). Ta’lim oluvchilar bilimini faollashtirish: 2.1Tezkor - so‘rov, savol - javob, aqliy xujum, pinbord, “o‘ylang va juftlikda fikr almashing”, va boshka texnikalar orqali bilimlarni faollashtiradi. YAngi o‘quv material bayoni: Yangi o‘quv materiali bayoni. 2.2 Slaydlarlar va sharhlash bilan mavzu bo‘yicha asosiy nazariy holatlarni bayon qiladi. ( 2- ilova) 2.3 Jalb qiluvchi savollar beradi. 2.4 Mavzu har bir qismi bo‘yicha xulosalanadi, eng asosiylariga etibor qaratadi, berilayotgan ma’lumotlarni daftarga qayd etishlarini eslatadi 2.5 ListBox boshqarish obyekti va uning xossalari tushunchasi va uning berilishi elementlari xususiyatlarini yoritadi. 2.6 ComboBox boshqarish obyekti va uning xossalari bilan ishlash va ular orasidagi bog’lanish haqida tushuntiradi. Yangi o‘quv matrialini mustahkamlash. 2.7 Jarayon kichik guruhlarda davom etishini ma’lum qiladi. 2.8 O‘quvchilarni 3 ta kichik guruhlarga bo‘ladi, kichik guruhda ishlash qoidasi bilan tanishtiradi va ishni bajarish uchun yo‘riqnoma beradi ( 4-ilova ). Har bir guruhga topshiriq beradi va baxolash mezoni bilan tanishtiradi (5ilova). 2.9 Guruhlarda ishlarni boshlashga ruxsad beradi. Har bir kichik guruh ishtirokchisi vazifani bajarish tartibini tushun ganligini aniqlash maqsadida teskari aloqa taashkil etadi: bajarish tartibini gapirib berish vazifasini beradi. 2.10 Bajarish jarayonini kuzatadi maslaxatlar beradi. 2.11 Mashg’ulotga ajratilgan vaqt tugaganini ma’lum qiladi. Guruh a’zolariga diqqat bilan eshitishlarini va savollar berishlarini, shu bilan birga o‘zaro bir- birlarini baholashlarini eslatadi. Javoblarini to‘ldiradi va qisqacha xulosalar qiladi. 2.12 Guruhlar ishini o‘zaro baholashni o‘tkazadi.
Uy vazifasini takdim etadilar. Savollarga javob beradilar.

UYGA VAZIFA


Mavzuni mustahkamlash

Download 163,73 Kb.
1   2   3   4   5   6   7   8   9   10




Download 163,73 Kb.

Bosh sahifa
Aloqalar

    Bosh sahifa



1-Mavzu: Ilovalar yaratishning zamonaviy usullari. Delphi dasturlash muhiti. Ilova va uning oynasi. Boshqarish tugmasi

Download 163,73 Kb.