Информатиканы оқыту әдiстемесiнде бiрiктiрiлген барлық әдiстемелiк педагогикалық бiлiмдер мен тәжiрибелер жиынтығынан "Информатика" курсы бөлiнiп шығады

жүктеу 2,02 Mb.

бет	4/9
Дата	09.01.2020
өлшемі	2,02 Mb.
	#26128
түрі	Программа

1 2 3 4 5 6 7 8 9

5-сурет. Информатика курсының компьютерл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;

//Òàïñûðìà

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;

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 TForm2.b_1Click(Sender: TObject);

begin

WebBrowser1.Navigate(cdir+'\teor\t1.htm');

Notebook1.ActivePage:='oku';

end;

procedure TForm2.b_2Click(Sender: TObject);

var usrfile:file of usr;usrD:usr;pass_enable:Boolean;

tf:TextFile;fn:ShortString;

begin

AssignFile(tf,cdir+'\test\font.dat');

reset(tf);read(tf,fn);CloseFile(tf);

Surak.Font.Name:=fn;

variant1.Font.Name:=fn;variant2.Font.Name:=fn;

variant3.Font.Name:=fn;variant4.Font.Name:=fn;

variant5.Font.Name:=fn;

//Panel9.Caption:='Кѕте тЅры»ыз. Тест сЅраєтары жѕктелiп жатыр...';

Timer1.Enabled:=true;

init;

// Timer2.Enabled:=true;

randomize;

bal:=0;

Action1Execute(Sender);

// Timer2.Enabled:=true;

Notebook1.ActivePage:='test';

end;

procedure TForm2.b_3Click(Sender: TObject);

begin

Notebook1.ActivePage:='root';

end;

procedure TForm2.b_4Click(Sender: TObject);

begin

Form1.Gauge1.Hide;

Form1.BitBtn1.Show;

Form1.Show;

Hide;

Form1.Tag:=1;

end;

4. Бас мәзiр даярланып болған соң оның әрбiр пунктiнiң қызметiн сипаттайтын форма терезелерi мен программалық кодтарды жазып шығу қажет. 6-суретте компьютерлiк оқыту құралының мазмұны оқу беттерiнiң интерфейсiнiң дайындамасы келтiрiлген.

6-сурет. Оқулық бөлімі.

жүктеу 2,02 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9