АКТ-ны ағылшын тілі сабағын оқытуда қолдануды ұйымдастыру

17. Ағылшын тілі пәнін оқыту үдерісін ұйымдастыруда ақпараттық технологияның маңызы. /  Ұлт тағылымы. № 3, 2007. – Б. 243-246.

18. Ақпараттық технологияны шет тілдер үрдісінде қолданудың маңызы         / «Ізденістер, Нәтижелер» №2, 2007.- Б. 248-250 .

19. Жаңа оқыту технологияларының болашақ маман даярлаудағы маңызы. //12-жылдық мектеп мұғалімін кәсіби даярлаудың проблемалары. Республикалық ғылыми–практикалық конференция еңбектері. Алматы, 2008.-Б. 198-201 (Р.К.Төлеубековамен авторлық бірлестікте).

 

 

 

 

 

 

Қосымша

 

unit Unit1;

 

interface

 

uses

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

  Dialogs, Buttons, jpeg, ExtCtrls;

 

type

  TForm1 = class(TForm)

    SpeedButton1: TSpeedButton;

    Image1: TImage;

    procedure SpeedButton1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

Бірінші формадан екінші формаға өту коды:

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

form1.Hide;

form2.show;

end;

Теория бойынша Word-та жазылған *.rtf форматты мәліметті шақырту:

procedure TForm3.SpeedButton2Click(Sender: TObject);

begin

form3.Hide;

form4.show;

form4.richedit1.lines.LoadFromFile('1.rtf');

end;

 

Тест тапсырмалары бөліміндегі батырмалардың коды:

 

var  k,s,n:integer;

  Form6: TForm6;

 

implementation

 

uses Unit3, Unit2;

 

{$R *.dfm}

 

procedure TForm6.SpeedButton1Click(Sender: TObject);

begin

form6.Hide;

form2.show;

end;

 

procedure TForm6.SpeedButton2Click(Sender: TObject);

begin

k:=k+1; radiobutton1.Checked:=false;

radiobutton2.Checked:=false;

radiobutton3.Checked:=false;

if k=1 then begin Memo2.Lines.Text:='The fork is -?';

radiobutton1.Caption:='on the left';

radiobutton2.Caption:='on the right ';

radiobutton3.Caption:='in the middle ';end;

if k=2 then begin Memo2.Lines.Text:='The astronauts are floating in ';

radiobutton1.Caption:='the space station';

radiobutton2.Caption:='the solar panel';

radiobutton3.Caption:='the launch pad';end;

if k=3 then begin Memo2.Lines.Text:='The space station is - ';

radiobutton1.Caption:='listening to music';

radiobutton2.Caption:='orbiting the earth';

radiobutton3.Caption:='orbiting the Moon';end;

if k=4 then begin Memo2.Lines.Text:='What are you doing? ';

radiobutton1.Caption:='I like hamburgers.';

radiobutton2.Caption:='I am taking an English test.';

radiobutton3.Caption:='I eat lunch.';end;

if k=5 then begin Memo2.Lines.Text:='Bibigul -';

radiobutton1.Caption:='is a factory worker';

radiobutton2.Caption:='was a factory worker';

radiobutton3.Caption:='is going to be a factory worker';end;

if k=6 then begin Memo2.Lines.Text:='In 1962, "The Beatles" first record - ';

radiobutton1.Caption:='was a hit';

radiobutton2.Caption:='is going to be a hit';

radiobutton3.Caption:='can be a hit';end;

if k=7 then begin Memo2.Lines.Text:='Where was Arnold Schwarzenegger born?';

radiobutton1.Caption:='He is a movie star.';

radiobutton2.Caption:='He is in Austria.';

radiobutton3.Caption:='He was born in Austria.';end;

if k=8 then begin Memo2.Lines.Text:='Jupiter is -';

radiobutton1.Caption:='the five planet';

radiobutton2.Caption:='five planet';

radiobutton3.Caption:='the fifth planet';end;

if k=9 then begin Memo2.Lines.Text:='Juranus and Saturn -';

radiobutton1.Caption:='are made of gas and liquid';

radiobutton2.Caption:='are near the Sun';

radiobutton3.Caption:='are satellites';end;

If k=10 then Memo1.Lines.Text:=inttostr(s);

 

end;

 

procedure TForm6.SpeedButton3Click(Sender: TObject);

begin

n:=n+1;

If (n=1) and (radiobutton1.Checked) then S:=S+2;

If (n=1) and (radiobutton2.Checked) then S:=S+1;

If (n=1) and (radiobutton3.Checked) then S:=S+3;

If (n=2) and (radiobutton1.Checked) then S:=S+3;

If (n=2) and (radiobutton2.Checked) then S:=S+2;

If (n=2) and (radiobutton3.Checked) then S:=S+1;

If (n=3) and (radiobutton1.Checked) then S:=S+2;

If (n=3) and (radiobutton2.Checked) then S:=S+3;

If (n=3) and (radiobutton3.Checked) then S:=S+1;

If (n=4) and (radiobutton1.Checked) then S:=S+1;

If (n=4) and (radiobutton2.Checked) then S:=S+2;

If (n=4) and (radiobutton3.Checked) then S:=S+3;

If (n=5) and (radiobutton1.Checked) then S:=S+1;

If (n=5) and (radiobutton2.Checked) then S:=S+3;

If (n=5) and (radiobutton3.Checked) then S:=S+2;

If (n=6) and (radiobutton1.Checked) then S:=S+2;

If (n=6) and (radiobutton2.Checked) then S:=S+1;

If (n=6) and (radiobutton3.Checked) then S:=S+3;

If (n=7) and (radiobutton1.Checked) then S:=S+3;

If (n=7) and (radiobutton2.Checked) then S:=S+2;

If (n=7) and (radiobutton3.Checked) then S:=S+1;

If (n=8) and (radiobutton1.Checked) then S:=S+2;

If (n=8) and (radiobutton2.Checked) then S:=S+3;

If (n=8) and (radiobutton3.Checked) then S:=S+1;

If (n=9) and (radiobutton1.Checked) then S:=S+1;

If (n=9) and (radiobutton2.Checked) then S:=S+2;

If (n=9) and (radiobutton3.Checked) then S:=S+3;

 

end;

 

procedure TForm6.SpeedButton4Click(Sender: TObject);

begin

If (k=10) and (s>=7) and (s<=9) then begin memo1.Lines.Text:='Сіздін  баганыз "5" '; end;

If  (k=10) and (s>=5) and (s<=7) then begin memo1.Lines.Text:='Сіздін  баганыз "4"';end;

If  (k=10) and (s>=3) and (s<=5) then begin memo1.Lines.Text:='Сіздін баганыз "3" '; end;

 

end;

 

Сөздікте де Word-та жазылған мәліметтерді адрес бойынша алып келу:

 

procedure TForm7.SpeedButton2Click(Sender: TObject);

begin

richedit1.lines.LoadFromFile('46.rtf');

end;

 

Практикалық бөлімде хабарлама арқылы тапсырманы түсіндірудің коды:

 

procedure TForm8.SpeedButton1Click(Sender: TObject);

begin

showmessage('Төмендегі сөздер бойынша суретке сәйкес келетін сөздерді табыңыз');

end;