|
компьютерл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лген.
6-сурет.Бас мәзірдегі тапсырмалар тізімі.
WebBrowser1
TreeView1
7-сурет. Компьютерл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лген.
8-сурет. Тест тапсыру терезесі
Тест тапсыру бөлiмi күрделі бөлiмдердiң бiрi болғандықтан оған толығырақ тоқталғанды жөн көрдiк. Сонымен тест тапсыру бөлiмi бiрнеше интерфейстiк терезелерден тұрады. Бас мәзiрдегi Тест командалық тұймесi шертiлген кезде тест жүйесіне кiру терезесi ашылады.
Тест жүйесінiң ерекшелігі мұнда оқытушы түймесі арқылы өзі тест енгізеді, редакциялайды. Мұнда пәнге байланысты тест сұрақтарын өзгертіп ендіруге болады. 9-суретте көрсетілген.
9-сурет. Тест сұрақтарын енгiзу терезесiнiң дайындамасы
Достарыңызбен бөлісу: | 
