Дипломдық ЖҰмыс 5В011100 «Информатика»
Delphi-де компьютерлiк оқыту жүйесiн жасау негiздерi
жүктеу/скачать 1.75 Mb.
|
2.3 Delphi-де компьютерлiк оқыту жүйесiн жасау негiздерiDelphi ортасында «Delphi» курсының компьютерлiк оқыту жүйесін жасаудың алгоритмi: Оқыту жүйесінiң бас мәзiрiнiң интерфейсiн жобалау; Курс мазмұнын даярлау; Тапсырмалар жүйесін даярлау; Тест жүйесін даярлау; Оқыту жүйесінiң интерфейсiн жобалау технологиясы: 1. Delphi ортасын iске қосып, 5-суреттегi форма дайындамасын жасау керек. Суретте келтiрiлген компоненттердi форма бетiне орнатып, олардың қасиеттерiне мәндер меншiктеу керек. Cурет 9 – Delphi курсының компьютерлiк оқыту жүйесінiң интерфейсi 2. Негiзгi программаны ашып, бас мәзiрдегi командалық түймелер шертiлген кезде шақырылатын сәйкес процедураларды жариялау керек. procedure TForm1.TreeView1Click(Sender: TObject); begin ClickTreeView(TreeView1,WebBrowser1,'data\teor\t'); end; procedure TForm1.TreeView2Click(Sender: TObject); begin ClickTreeView(TreeView2,WebBrowser1,'data\taps\l'); end; procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode); begin ExpandedTreeView(TreeView1); end; procedure TForm1.TreeView2Expanded(Sender: TObject; Node: TTreeNode); begin ExpandedTreeView(TreeView2); end; 3. Форманың onCreate оқиғасын өңдеуiш процедура құру: procedure TForm1.FormCreate(Sender: TObject); var i:Shortint;j:word; begin sum:=0; Findfirst('data\teor\*.teor',0,tf); repeat j:=FindNext(tf); sum:=sum+1; until j<>0; Findclose(tf); Gauge1.MaxValue:=sum; ii:=0; HLIst:=TStringList.Create; historyIndex:=-1; if fileexists('data\taps\tap.mzm') then TreeView2.LoadFromFile('data\taps\tap.mzm') else begin showmessage('Áèáëåîòåêà íå íàéäåíà. Ðàáîòà áóäåò çàâåðøåíà'); halt; end; if fileexists('data\teor\neg.mzm') then TreeView1.LoadFromFile('data\teor\neg.mzm') else begin showmessage('Áèáëåîòåêà íå íàéäåíà. Ðàáîòà áóäåò çàâåðøåíà'); halt; end; if fileexists('data\term\ter.mzm') then ComboBox1.Items.LoadFromFile('data\term\ter.mzm') else begin showmessage('Áèáëåîòåêà íå íàéäåíà. Ðàáîòà áóäåò çàâåðøåíà'); halt; end; for i:=0 to TreeView1.Items.Count-1 do begin if TreeView1.Items.Item[i].Count=0 then begin TreeView1.Items[i].ImageIndex:=1; TreeView1.Items[i].SelectedIndex:=1; end; end; for i:=0 to TreeView2.Items.Count-1 do begin if TreeView2.Items.Item[i].Count=0 then begin TreeView2.Items[i].ImageIndex:=1; TreeView2.Items[i].SelectedIndex:=1; end; end; if FileExists(WebBrowser1.Path+'data\teor\t0.teor')then WebBrowser1.Navigate(WebBrowser1.Path+'data\teor\t0.teor'); 4. Бас мәзiрдегi Мазмұны, Тапсырма, Тест, Оқытушы, Баспа және Автор командалық түймелерiнiң басып қайта жiберген кезде орындалатын өңдеуiш процедураларды жазу керек: procedure TForm1.bt_mazmunMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Splitter2.Hide; TreeView2.Hide; Splitter1.Visible:=not Splitter1.Visible; TreeView1.Visible:=not TreeView1.Visible; bt_share_mouseup(bt_mazmun,x,y); end; procedure TForm1.bt_tapsirmaMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Splitter1.Hide; TreeView1.Hide; Splitter2.Visible:=not Splitter2.Visible; TreeView2.Visible:=not TreeView2.Visible; bt_share_mouseup(bt_tapsirma,x,y); end; procedure TForm1.bt_okutishiMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin bt_share_mouseup(bt_okutishi,x,y); Notebook2.ActivePage:='root'; Notebook2.Show; end; 4. Бас мәзiр даярланып болған соң оның әрбiр пунктiнiң қызметiн сипаттайтын форма терезелерi мен программалық кодтарды жазып шығу қажет. 6-суретте компьютерлiк оқыту құралының мазмұны және Тапсырмалар беттерiнiң интерфейсiнiң дайындамасы келтiрiлген. Сурет 10 – Бас мәзірдегі тапсырмалар тізімі. WebBrowser1 TreeView1 Сурет 11 Компьютерлiк оқыту құралының Негізгі бет интерфейсiнiң дайындамасы 5. 7-суреттегi TreeView компонентiне шерткен кезде орындалатын және Мазмұн пен Тапсырм-алар мазмұнын шақыратын процедураларды жазып шығу: procedure TForm1.TreeView1Click(Sender: TObject); begin ClickTreeView(TreeView1,WebBrowser1,'data\teor\t'); end; procedure TForm1.TreeView2Click(Sender: TObject); begin ClickTreeView(TreeView2,WebBrowser1,'data\taps\l'); end; procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode); begin ExpandedTreeView(TreeView1); end; procedure TForm1.TreeView2Expanded(Sender: TObject; Node: TTreeNode); begin ExpandedTreeView(TreeView2); end; 6. Мазмұн және Тапсырмалар бөлiмiн аяқтағаннан соң, Тест тапсыру бөлiмiне көшемiз. Тест тапсыру бөлiмiне кiру терезесiнiң түрі 6-суретте келтiрiлген. Cурет 12 – Тест тапсыру терезесі Тест тапсыру бөлiмi күрделі бөлiмдердiң бiрi болғандықтан оған толығырақ тоқталғанды жөн көрдiк. Сонымен тест тапсыру бөлiмi бiрнеше интерфейстiк терезелерден тұрады. Бас мәзiрдегi Тест командалық тұймесi шертiлген кезде тест жүйесіне кiру терезесi ашылады. Тест жүйесінiң ерекшелігі мұнда оқытушы түймесі арқылы өзі тест енгізеді, редакциялайды. Мұнда пәнге байланысты тест сұрақтарын өзгертіп ендіруге болады. 13-суретте көрсетілген. Cурет 13 – Тест сұрақтарын енгiзу терезесiнiң дайындамасы жүктеу/скачать 1.75 Mb. Достарыңызбен бөлісу:
|