Тест бағдарламасын жасау

Программа сәйкес  жолдарды таңдауда пайда болатын кестелік және өрістік формалардан тұрады. Әрбір форма ақпараттық модельдің  бөлімдері жайлы өрістер мен  кестеде кескінделеді.

 

 

 

        

     

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

    3 ӨНДІРІСТІ ҰЙЫМДАСТЫРУ БӨЛІМІ

 

3.1 Қолданушыға  нұсқау

Программа тағайындалуы

Қосымшаның функционалдық  тағайындалуы – қолданушыларға көмек, яғни қызметкерлерге тапсырыстар қабылдауға және тапсыруға мүмкіндік беретін деректік автоматтандырылған қарапайым модель.

Программаның  логикалық құрылымын сипаттау: модель құрамын тапсырыс механизмдерін жылдамдату үшін желілік қызметпен  байланыстыру, қолданушымен сұхбат, қолданушы сұраныстары мен іздеу амалдарына жауап беру.

Программа орындалуының шарты

Қолданылатын техникалық құрал:программаның тиімді қызметатқаруы үшін келесі минимальды талаптарға сай : процессор Pentium немесе 16 және одан жоғары мегабайттық оперативтік жадты және 3МБ қатты дискте бос орны бар компьютер болуы шарт.

Программаның  орындалуы

Delphi ортасында Анықтамалық модель  бойынша жобаланған деректік программа Project1.exe атауымен аталған жәнеде D дискісінде Delphi катологында орналасқан.

 Шақыру және жүктеу: Программа мына файлдардың көмегімен жүктеледі project1.exe жолы бойынша D:\Delphi\Project1.exe.

Операторға  хабарлама

• Шақыру және жүктеу: Программа келесі файлдың көмегімен жүктеледі project1.exe жолы бойынша D:\Delphi\Project1.exe.

             

Тест бағдарламасын жобалауының алгоритмі

Бағдарламаны жобалау үшін  Delphi программалау ортасының құралдары қолданылды. Жоба стандартты жүйелік батырмаларды қамтитын, форма алаңында тақырып жолы, сонымен қатар модель терезесіне стандартты құралдар орналастырылған бас формадан тұрады. Бас форма Тест формасы деп аталады. (1 – сурет).

1– сурет. Тест формасының терезесі

Формада Image, Label, 0 Edit, SpeedButton, CheckBox, ImageList компоненттері қолданылды. Бұл формадан қажетті  бөлімдерді таңдау арқылы қосымшамен жұмыс атқаруға болады.

2. Тестілеуді бастау бөлімі. Бұл бөлім оқушыларға арналған, яғни оқушы информатика курсы бойынша енгізілген тест тапсырмаларына жауап бере алады. Ол үшін бірінші оқушы тестілеу терезесінде тіркелуі қажет. Сонда тестілеу терезесі ашылады.

Бұл тестілеу жүйесінің  бір ерекшелігі, бір ғана пән емес бірнеше піндерден аралық бақылауды  бірден өткізуге болатындығында. Қорытындылай келе, мұндай электрондық бақылау  жүйесі тестің оқушыларға тестің үш түрімен жұмыс істеуге мүмкіндік береді. Ол оқушыларды жалықтырып алмай, қызыға жауап беруіне мүмкіндік береді. 

    

   2– сурет. Номер мен нұсқаулықты енгізу форма терезесі

 Бұл формада мына компоненттер орналастырылған: ComboBox, SpeedButton, Label, DateTimePicker, OpenPictureDialog ,Bevel, Edit

DateTimePicker1: TDateTimePicker;

    ComboBox1: TComboBox;

    DateTimePicker2: TDateTimePicker;

    Edit6: TEdit;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;

    OpenPictureDialog1: TOpenPictureDialog;

    SpeedButton10: TSpeedButton;

    Bevel1: TBevel;

    SpeedButton12: TSpeedButton;

    Label9: TLabel;

    Bevel2: TBevel;

    SpeedButton13: TSpeedButton;

    Image1: TImage;

3– сурет. Студенттерге арналған электронды тестілеу формасының терезесі

       procedure TForm1.FormCreate(Sender: TObject);

begin

DataPath:=GetCurrentDir;

table1.TableName:=DataPath + '\data\'+ 'RData.DB';

table1.Active:=true;

table1.IndexName:='Fioind';

OpenPictureDialog1.filter:='Все файлы (*.bmp;*.ico;*.emf;*.wmf;*.jpg;)|*.bmp;*.ico;*.emf;*.wmf;*.jpg;';

end;

 

 

 

4– сурет. Тест формасының терезесі

 

procedure ShowAll;

Begin

With form1 do begin

SpeedButton10.Visible:=true;

Label9.Visible:=true;

Edit5.Visible:=true;

ComboBox1.Visible:=true;

Edit7.Visible:=true;

DateTimePicker1.Visible:=true;

Edit6.Visible:=true;

DateTimePicker2.Visible:=true;

SpeedButton3.Visible:=true;

SpeedButton5.Visible:=true;

label8.Visible:=false;

DBText7.Visible:=false;

end;end;

 

 

5– сурет. Тесттерді енгізу формасының терезесі

SpeedButton10.Visible:=false;

Label9.Visible:=false;

Edit5.text:='';

ComboBox1.Text:='';

edit7.Text:='';

edit6.Text:='';

Edit5.Visible:=false;

ComboBox1.Visible:=false;

Edit7.Visible:=false;

DateTimePicker1.Visible:=false;

Edit6.Visible:=false;

DateTimePicker2.Visible:=false;

SpeedButton3.Visible:=false;

SpeedButton5.Visible:=false;

label8.Visible:=true;

DBText7.Visible:=true;

end

 

6– сурет. Тест формасының терезесі

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Mode:='add';

ShowAll;

end;

 

Procedure Clear;

 

with table1 do begin

if Mode = 'add' then append;

if Mode = 'ins' then edit;

FieldValues['fio'] := edit5.Text;

FieldValues['address'] := ComboBox1.Text;

FieldValues['tel'] := edit7.Text;

FieldValues['BDate'] := DateTimePicker1.Date;

FieldValues['Work'] := edit6.Text;

FieldValues['RDate'] := DateTimePicker2.Date;

 

if OpenPictureDialog1.FileName <> '' then begin

  B := TBitmap.Create;

  try

    B.LoadFromFile(OpenPictureDialog1.FileName);

    DBImage1.Picture.Assign(B);

  finally

    B.Free;

  end;

Тестілеу аяқталғаннан кейін оқушыларға тестілеу нәтижелері, яғни оқушының қанша сұраққа жауап  бергені және олардың ішінде қанша  сұраққа дұрыс жауап жайлы  мәлімет шығарылып беріледі де, бағасы көрсетіледі

 

 

 

 

 

7– сурет. Тесттілеудің нәтижесі формасының терезесі

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                           ҚОРЫТЫНДЫ

 

Оқушылардың білімін, біліктілігін және дағдысын бақылау оқу процесінң  құрамдас бөліктерінің бірі болып табылады. Бақылау оқушылардың білімін, біліктілігін айқындау, өлшеу және бағалау деген  түсінікті білдіретіні белгілі. Бақылаудың психологиялық-педагогикалық мәні-оқушыларға дер кезінде көмек көрсету, олардың шығармашылық күшіне, қабілетіне сенім білдіру, оқушыларды оқу тапсырмасын ынталандыру және іске жұмылдыру болып табылады.

Осыған орай түлектік жұмыста мектеп информатика курсының ақпараттық технология желісі бойынша оқушылардың білімін бақылау мақсатында көпнұсқалы тест тапсырмалары қоры жасалды.

Түлектік жұмыста мынадай мәселелер  қарастырылып, өз шешімін тапты:

• оқушылардың білімін бақылау түрлері мен әдістеріне жалпы шолу жасалды;
• тестің тапсырмаларын жасау әдістерімен таныстық;
• информатиканың ақпараттық технология желісі бойынша аралық бақылауға арналған көпнұсқалы тестер қоры жасалды;
• көпнұсқалы тест тапсырмаларының қорымен жабдықталған электрондық бақылау жүйесін жасалды.

«Тест» электрондық бақылау жүйесі тестілеу қабықшасы деп қарастыруға болады. Ол – әмбебап бақылау жүйесі. Оның көмегімен бір ғана емес төрт пән бойынша, оқушылардың білімін кешенді тексеруге болады.

«Тест» деп аталын көпнұсқалы тест тапсырмаларының қорымен жабдықталған электрондық бақылау жүйесін мектеп мұғалімдері мен жоғары оқу орындарының жалпы білім беретін информатика пәнінің оқытушылары оқушылар мен студенттердің білімін бақылау барысында пайдалануына болады.

Бұл бағыттағы ғылыми-зерттеу жұмыстары ары қарай жалғаса беретіні белгілі.

 

Қосымша

unit unPrepare;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons;

 

type

  TPrepareDlg = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    cbQuestionCount: TComboBox;

    cbSubjects: TComboBox;

    cbShowImages: TCheckBox;

    Label3: TLabel;

    cbBGInterval: TComboBox;

    cbTimeTest: TCheckBox;

    Label4: TLabel;

    cbTimeLimit: TComboBox;

    btnOk: TBitBtn;

    btnCancel: TBitBtn;

    procedure btnOkClick(Sender: TObject);

    procedure btnCancelClick(Sender: TObject);

    procedure cbShowImagesClick(Sender: TObject);

    procedure cbTimeTestClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  PrepareDlg: TPrepareDlg;

 

implementation

 

uses

  unTest, unInstructions, Data;

 

{$R *.dfm}

 

procedure TPrepareDlg.btnOkClick(Sender: TObject);

var

  i, r: integer;

  slAll, slSelected: TStringList;

  bContinue: boolean;

  StudentNumber, StudentFIO: string;

begin

  if cbSubjects.ItemIndex = -1 then

  begin

    MessageDlg('Пан  тандалмаган!', mtError, [mbOK], 0);

    Exit;

  end;

 

  DM.TableQuestions.Filtered := False;

  DM.TableQuestions.Filter := 'IDSubject = '

    + IntToStr(Integer(cbSubjects.Items.Objects[cbSubjects.ItemIndex]));

  DM.TableQuestions.Filtered := True;

  slAll := TStringList.Create;

  slSelected := TStringList.Create;

  DM.TableQuestions.First;

  while not DM.TableQuestions.Eof do

  begin

    slAll.Add(DM.TableQuestions.FieldByName('ID').AsString);

    DM.TableQuestions.Next;

  end;

 

  if slAll.Count < StrToInt(cbQuestionCount.Text) then

  begin

    MessageDlg('Маліметтер  базасында сурақтар жеткіліксіз!', mtWarning, [mbOK], 0);

    slAll.Free;

    slSelected.Free;

    Exit;

  end;

 

  Randomize;

  while slSelected.Count <> StrToInt(cbQuestionCount.Text) do

  begin

    r := Random(slAll.Count);

    bContinue := False;

    for i := 0 to slSelected.Count - 1 do

      if slSelected.Strings[i] = slAll.Strings[r] then

        bContinue := True;

    if bContinue then Continue;

    slSelected.Add(slAll.Strings[r]);

  end;

 

  with TInstructionsDlg.Create(Self) do

  try

    ShowModal;

    StudentNumber := IntToStr(seStudentNumber.Value);

  finally

    Release;

  end;

 

  if DM.TableStudents.Locate('StudentNumber', StudentNumber, []) then

    StudentFIO := DM.TableStudents.FieldByName('StudentFIO').AsString

  else

  begin

    MessageDlg('Енгізілген  студенттік билеттін номері табылган жоқ!', mtWarning, [mbOK], 0);

    StudentFIO := '<Студент>';

  end;

 

  with TfrmTest.Create(Self) do

  try

    FStudent := StudentFIO;

    FQuestionCount := StrToInt(cbQuestionCount.Text);

    for i := 1 to FQuestionCount do

   begin

      DM.TableQuestions.Locate('ID', slSelected.Strings[i - 1], []);

      FQuestions[i].QuestionText := DM.TableQuestions.FieldByName('Question').AsString;

      FQuestions[i].QuestionAnswers[1] := DM.TableQuestions.FieldByName('Answer1').AsString;

      FQuestions[i].QuestionAnswers[2] := DM.TableQuestions.FieldByName('Answer2').AsString;

      FQuestions[i].QuestionAnswers[3] := DM.TableQuestions.FieldByName('Answer3').AsString;

      FQuestions[i].QuestionAnswers[4] := DM.TableQuestions.FieldByName('Answer4').AsString;

      FQuestions[i].QuestionAnswers[5] := DM.TableQuestions.FieldByName('Answer5').AsString;

      FQuestions[i].CorrectAnswer := DM.TableQuestions.FieldByName('CorrectAnswer').AsInteger;

      FQuestions[i].AnswerIndex := 0;

    end;

    QuestionsCount.Caption := cbQuestionCount.Text;

    QuestionNumber.Caption := '1';

    FCurrentQuestion := 1;

    TimerChangeBg.Enabled := cbShowImages.Checked;

    TimerChangeBg.Interval := StrToInt(cbBGInterval.text) * 1000;

    TimerLimit.Enabled := cbTimeTest.Checked;

    if cbTimeTest.Checked then

      TimeRemaining.Caption := cbTimeLimit.Text;

    LoadQuestion(1);

    ShowModal;