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.

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


 

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

40609. Представление конкретной модели ИС в виде DFD диаграмм 254 KB
  Шаг 1: Создание новой модели В меню File выбрать NewПоявится диалоговое окно BPwin В поле Nme напечатать Банкомат Проверить что в группе Type выбрано Dtflow DFD Нажать OKПоявился пустой прямоугольник контекстного действия. Напечатать:Банкоматзатем нажать OK. Нажать OK. Шаг 4: Рисование внешней ссылки На инструментальной панели BPwin нажать кнопку Externl Reference.
40610. Разработка диаграмм по методу Баркера 44 KB
  Печатать накладные на отпущенные товары. Следить за наличием товаров на складе. Выделим все существительные в этих предложениях это будут потенциальные кандидаты на сущности и атрибуты и проанализируем их непонятные термины будем выделять знаком вопроса: Написать сущностиСразу возникает очевидная связь между сущностями покупатели могут покупать много товаров и товары могут продаваться многим покупателям . Причем каждый товар может храниться на нескольких складах и быть проданным с любого склада.
40611. Визначення жанрово-стильових особливостей медійного продукту Д. Гордона, пошук спільних та відмінних ознак медійного продукту Дмитра Гордона 428.5 KB
  В ходе работы на примере конкретного медийного продукта доказано, что авторская журналистика придерживается своим жанрово стилистическим особенностям. Особое внимание уделено анализу программы «В гостях у Дмитрия Гордона».
40613. Технология внедрения CASE-средств 118.11 KB
  CSEсредство любое программное средство автоматизирующее ту или иную совокупность процессов жизненного цикла ПО и обладающее следующими основными характерными особенностями: мощные графические средства для описания и документирования ИС обеспечивающие удобный интерфейс с разработчиком и развивающие его творческие возможности; интеграция отдельных компонент CSEсредств обеспечивающая управляемость процессом разработки ИС; использование специальным образом организованного хранилища проектных метаданных репозитория. Процесс...
40614. Управление требованиями к системе. Оценка затрат на разработку ПО 23.18 KB
  Средства управления требованиями Перед тем как управлять требованиями разберемся что такое требование и что такое управление требованиями и зачем это нужно. Требование это любое условие которому должна соответствовать разрабатываемая система или программное средство. Требованием может быть возможность которой система должна обладать и ограничение которому система должна удовлетворять. В соответствии с Глоссарием терминов программной инженерии IEEE являющимся общепринятым международным стандартным глоссарием требование это:Условия...
40617. Общая характеристика CASE-средств 58.5 KB
  Первоначальное значение термина CSE ограниченное вопросами автоматизации разработки только лишь программного обеспечения в настоящее время приобрело новый смысл охватывающий процесс разработки сложных ИС в целом. С самого начала CSEтехнологии развивались с целью преодоления ограничений при использовании структурной методологии проектирования сложности понимания высокой трудоемкости и стоимости использования трудности внесения изменений в проектные спецификации и т. Таким образом CSEтехнологии не могут считаться самостоятельными они...