51072

Вивчаємо англійську мову

Практическая работа

Информатика, кибернетика и программирование

Розробити програму для перевірки знань англійських слів шляхом тестування. Користувач має за обмежений час методом перетягування розташувати три малюнки під відповідними англійськими словами.

Украинкский

2014-02-05

31.35 KB

3 чел.

Розробив

Олійник Д.А.

13.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова М.

1

Змін

Арк.

№ Докум

Підпис

Дата

Практична робота№6

Тема: Вивчаємо англійську мову.

Мета: Розробити програму для перевірки знань англійських слів шляхом

          тестування. Користувач має за обмежений час методом перетягування

          розташувати три малюнки під відповідними англійськими словами.

Хід роботи:

unit Unit1;

interface

uses

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

 ExtCtrls,StdCtrls,MPlayer,Spin,Buttons,Gauges,jpeg;

type

 TForm1=class(TForm)

   Label1:TLabel;

   Label2:TLabel;

   Label3:TLabel;

   Label4:TLabel;

   Shape1:TShape;

   Shape2:TShape;

   Shape3:TShape;

   Image1:TImage;

   Image2:TImage;

   Timer1:TTimer;

   Timer2:TTimer;

   MediaPlayer1:TMediaPlayer;

   Gauge1:TGauge;

   BitBtn1:TBitBtn;

   BitBtn2:TBitBtn;

   SpinEdit1:TSpinEdit;

   Image3:TImage;

   procedure BitBtn2Click(Sender:TObject);

   procedure Timer1Timer(Sender:TObject);

   procedure FormCreate(Sender:TObject);

   procedure Information;

   procedure Musik;

   procedure BitBtn1Click(Sender:TObject);

   procedure Timer2Timer(Sender:TObject);

   procedure SetPicture(Z:Integer;var Finita:Boolean);

   procedure MediaPlayer1Notify(Sender:TObject);

   procedure Image1MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);

   procedure Image2MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);

   procedure Image3MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);

   procedure Image1MouseDown(Sender:TObject;Button:TMouseButton;

       Shift:TShiftState;X,Y:Integer);

   procedure Image1MouseUp(Sender:TObject;Button:TMouseButton;

       Shift:TShiftState;X,Y:Integer);

procedure Image2MouseUp(Sender:TObject;Button:TMouseButton;

Розробив

Олійник Д.А.

13.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова М.

2

Змін

Арк.

№ Докум

Підпис

Дата

 Shift:TShiftState;X,Y:Integer);

   procedure Image2MouseDown(Sender:TObject;Button:TMouseButton;

       Shift:TShiftState;X,Y:Integer);

   procedure Image3MouseDown(Sender:TObject;Button:TMouseButton;

       Shift:TShiftState;X,Y:Integer);

   procedure Image3MouseUp(Sender:TObject;Button:TMouseButton;

       Shift:TShiftState;X,Y:Integer);

 private

   { Private declarations }

 public

   { Public declarations }

 function ImageInShape(Image:TImage;Shape:TShape):Boolean;

 end;

const

K = 4;

A:Array[1..K,1..3] of String=

   (('Data\Telephone.wmf','Data\Printer.wmf','Data\Books.wmf'),

   ('Data\church.wmf','Data\Rabbit.wmf','Data\Letters.wmf'),

   ('Data\Lemon.wmf','Data\Clock.wmf','Data\Computer.wmf'),

   ('Data\Cake.wmf','Data\Sportmens.wmf','Data\Owl.wmf'));

B:Array[1..K,1..3] of String=

   (('Telephone','Printer','Books'),

   ('Church','Rabbit','Letters'),

   ('Lemon','Clock','Computer'),

   ('Cake','Sportmens','Owl'));

Check:Array[1..K,1..3] of Integer=((1,2,3),(2,1,3),(3,1,2),(3,2,1));

var

 Form1:TForm1;

 i,Score,ShiftX,ShiftY,Left1,Left2,Left3,Top1,Top2,Top3:Integer;

 Fin:Boolean=False;

implementation

{$R *.dfm}

procedure TForm1.SetPicture(Z:Integer; var Finita:Boolean);

 begin

   if (Z>=K) then Finita:=True

     else

       begin

         Label2.Caption:=B[Z,1];

         Label3.Caption:=B[Z,2];

         Label4.Caption:=B[Z,3];

         Image1.Picture.LoadFromFile(A[Z,1]);

         Image2.Picture.LoadFromFile(A[Z,2]);

         Image3.Picture.LoadFromFile(A[Z,3]);

       end;

 end;

function TForm1.ImageInShape(Image:TImage;Shape:TShape):Boolean;

 begin

Розробив

Олійник Д.А.

13.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова М.

3

Змін

Арк.

№ Докум

Підпис

Дата

   if (Image.Left>=Shape.Left) and (Image.Left+Image.Width<=Shape.Left

       +Shape.Width) and (Image.Top>=Shape.Top) and (Image.Top+Image.Height<=

       Shape.Top+Shape.Height) then  ImageInShape:=True

     else

       ImageInShape:=False;

 end;

procedure TForm1.Information;

 begin

   Form1.Timer1.Enabled:=False;

   Form1.Timer2.Enabled:=False;

   Score:=(Score*100) div K;

     if Score>=75 then Form1.MediaPlayer1.FileName:='Music\Win.mp3';

       if Score<75 then Form1.MediaPlayer1.FileName:='Music\Bed.mp3';

         Form1.MediaPlayer1.Open;

         Form1.MediaPlayer1.Play;

         MessageDlg('Вы набрали '+IntToStr(score)+' баллов из 100',

             MtInformation,[MbOk],0);

           Form1.Close;

 end;

procedure TForm1.BitBtn2Click(Sender:TObject);

 begin

   Information;

 end;

procedure TForm1.Timer1Timer(Sender:TObject);

 begin

   if Label1.Visible=True then Label1.Visible:=False

     else

       Label1.Visible:=True;

 end;

procedure TForm1.Musik;

 begin

   MediaPlayer1.FileName:='Music\Base.mp3';

   MediaPlayer1.Open;

   MediaPlayer1.Play;

 end;

procedure TForm1.FormCreate(Sender:TObject);

 begin

   Musik;

     i:=0;

     Score:=0;

     Left1:=Image1.Left;

     Left2:=Image2.Left;

     Left3:=Image3.Left;

     Top1:=Image1.Top;

     Top2:=Image2.Top;

     Top3:=Image3.Top;

 end;

Розробив

Олійник Д.А.

13.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

4

Змін

Арк.

№ Докум

Підпис

Дата

procedure TForm1.Image1MouseDown(Sender:TObject;Button:TMouseButton;

   Shift:TShiftState;X,Y:Integer);

 begin

   Image1.Tag:=1;

   ShiftY:=Y;

   ShiftX:=X;

 end;

procedure TForm1.Image1MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);

 begin

   if Image1.Tag=1 then

     begin

       Image1.Top:=Image1.Top+Y-ShiftY;

       Image1.Left:=Image1.Left+X-ShiftX;

     end;

 end;

procedure TForm1.Image1MouseUp(Sender:TObject;Button:TMouseButton;

   Shift:TShiftState;X,Y:Integer);

 begin

   Image1.Tag:=0;

 end;

procedure TForm1.Image2MouseDown(Sender:TObject;Button:TMouseButton;

   Shift:TShiftState;X,Y:Integer);

 begin

   Image2.Tag:=1;

   ShiftY:=Y;

   ShiftX:=X;

 end;

procedure TForm1.Image2MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);

 begin

   if Image2.Tag=1 then

     begin

       Image2.Top:=Image2.Top+Y-ShiftY;

       Image2.Left:=Image2.Left+X-ShiftX;

     end;

 end;

procedure TForm1.Image2MouseUp(Sender:TObject;Button:TMouseButton;

   Shift:TShiftState;X,Y:Integer);

 begin

   Image2.Tag:=0;

 end;

procedure TForm1.Image3MouseDown(Sender:TObject;Button:TMouseButton;

   Shift:TShiftState;X,Y:Integer);

 begin

   Image3.Tag:=1;

   ShiftY:=Y;

   ShiftX:=X;

 end;

Розробив

Олійник Д.А.

13.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова М.

5

Змін

Арк.

№ Докум

Підпис

Дата

procedure TForm1.Image3MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);

 begin

   if Image3.Tag=1 then

     begin

       Image3.Top:=Image3.Top+Y-ShiftY;

       Image3.Left:=Image3.Left+X-ShiftX;

     end;

 end;

procedure TForm1.Image3MouseUp(Sender:TObject;Button:TMouseButton;

   Shift:TShiftState;X,Y:Integer);

 begin

   Image3.Tag:=0;

 end;

procedure TForm1.BitBtn1Click(Sender:TObject);

 var

   Check1,Check2,Check3:Integer;

 begin

   Timer1.Enabled:=False;

   Timer2.Enabled:=True;

     if ImageInShape(Image1,Shape1) and ImageInShape(Image2,Shape2) and

         ImageInShape(Image3,Shape3) then

       begin

         MediaPlayer1.FileName := 'Music\Yes.mp3';

         MediaPlayer1.Open;

         MediaPlayer1.Play;

         MessageDlg('Правильно!',MtInformation,[MbOk],0);

           Score:=Score+1;

             Inc(i);

               SetPicture(i,Fin);

                 Musik;

                   if (Fin=True) then Information;

       end

         else

           begin

             Form1.MediaPlayer1.FileName:='Music\Not.mp3';

             Form1.MediaPlayer1.Open;

             Form1.MediaPlayer1.Play;

             MessageDlg('He правильно!',MtInformation,[MbOk],0);

               Inc(i);

                 SetPicture(i,Fin);

                   Musik;

                     if (Fin=True) then Information;

           end;

 end;

procedure TForm1.Timer2Timer(Sender:TObject);

 begin

   Timer2.Interval:=SpinEdit1.Value*100;

Розробив

Олійник Д.А.

13.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова М.

6

Змін

Арк.

№ Докум

Підпис

Дата

Gauge1.Progress:=Gauge1.Progress-1;

     if Gauge1.Progress=0 then Information;

 end;

procedure TForm1.MediaPlayer1Notify(Sender:TObject);

 begin

   if MediaPlayer1.Position>=MediaPlayer1.Length then

     begin

       MediaPlayer1.Stop;

       MediaPlayer1.Play;

     end;

 end;

end.

Висновок: я навчився розробляти програму для перевірки знань англійських слів шляхом тестування.


 

А также другие работы, которые могут Вас заинтересовать

64401. УПРАВЛІННЯ ЗОВНІШНЬОЕКОНОМІЧНОЮ ДІЯЛЬНІСТЮ АГРАРНИХ ПІДПРИЄМСТВ НА РЕГІОНАЛЬНОМУ РІВНІ 246 KB
  У працях зазначених вчених основна увага приділяється дослідженню організаційноекономічних аспектів здійснення зовнішньоекономічної діяльності аграрними підприємствами ролі державного регулювання цього процесу та напрями її децентралізації.
64402. ЕФЕКТИВНІСТЬ РЕКУРЕНТНОГО ДОБОРУ НА ПІДВИЩЕННЯ ПРОДУКТИВНОСТІ ПРИ СТВОРЕННІ ГІБРИДІВ ЦУКРОВИХ БУРЯКІВ 298 KB
  Серед заходів підвищення продуктивності цукрових буряків важливе місце займає селекційногенетичний шлях покращення існуючих і створення нових компонентів гібридизації зокрема багатонасінних запилювачів для формування...
64403. Судово-медична характеристика та експертна оцінка ушкоджень, заподіяних при пострілах пістолетними боєприпасами 9,2х18 мм, які споряджені кулями з протирикошетною здатністю 154.5 KB
  Особливості соціальнополітичних умов існування суспільства які за останні роки склалися як в Україні так і в більшості країн пострадянського простору підняли проблему вогнепальних ушкоджень на одну із актуальних серед інших проблем судовомедичної експертизи.
64404. РОЗВИТОК ПІЗНАВАЛЬНОЇ АКТИВНОСТІ МАЙБУТНІХ ОФІЦЕРІВ-ПРИКОРДОННИКІВ У ПРОЦЕСІ НАВЧАННЯ ФАХОВИХ ДИСЦИПЛІН 1.18 MB
  Аналіз психолого-педагогічних військово-педагогічних досліджень засвідчив що проблема розвитку пізнавальної активності особистості була і залишається актуальною.
64405. Удосконалення конструкції залізничних піввагонів з метою зниження матеріалоємності 4.34 MB
  Відповідно до Стратегії розвитку залізничного транспорту на період до 2020 року яка схвалена розпорядженням Кабінету Міністрів України від 16 грудня 2009 року за № 1555р однією з пріоритетних задач розвитку залізниць є удосконалення конструкції рухомого складу...
64406. ОБҐРУНТУВАННЯ МЕТОДІВ ТА СПОСОБІВ ІНТЕНСИФІКАЦІЇ ВІДТВОРНОЇ ЗДАТНОСТІ БУГАЇВ-ПЛІДНИКІВ 268.5 KB
  У звязку з цим прискорене поліпшення племінних якостей тварин можливе лише за умови застосування методу штучного осіменіння який забезпечує інтенсивне використання спермопродукції від бугаївплідників.
64407. МЕТОД ФОРМУВАННЯ СТРУКТУР СИСТЕМ БЕЗПЕРЕБІЙНОГО ЕЛЕКТРОПОСТАЧАННЯ СТАРТОВИХ КОМПЛЕКСІВ РАКЕТ-НОСІЇВ НА ОСНОВІ МОДЕЛЮВАННЯ 376 KB
  Усі сучасні ракетнокосмічні комплекси як ті що експлуатуються так і ті що розроблюються вимагають забезпечення високонадійного й безперебійного електропостачання.
64408. Розвиток наукових основ та розробка технологічних режимів холодної пільгерної прокатки прецизійних труб з прогнозованим рівнем властивостей металу 1.93 MB
  Це не дозволяє у повній мірі використовувати відомий ефект знакозмінності деформації при холодній пільгерній прокатці труб що у свою чергу призводить до значного збільшення кількості проміжних термічних обробок деформаційних циклів та підвищеній витраті...
64409. Продуктивні показники бичків абердин-ангуської породи при згодовуванні високобілкових кормів та природної мінеральної добавки 331 KB
  Вдосконалення технологій виробництва яловичини з використанням спеціалізованих м’ясних порід великої рогатої худоби є важливою науково-практичною проблемою аграрного сектора економіки нашої держави.