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.

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


 

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

20151. Оптико-механические однокоординатные приборы работающие по принципу сравнения с концевой мерой 73 KB
  Методы исследовательских испытаний на надёжность. для исследования надёжности приборов значение имеют неразрушающие методы испыт: метод акустической эмиссии кот. методы базир. методы базир.
20152. Оптические однокоординатные приборы, работающие по принципу сравнения с концевой мерой 123.5 KB
  Последний может поворачиваться на оси 9 обеспечивая возможность наблюдения необходимого участка шкалы через середину окуляра при минимальных оптических искажениях. При освещении белым светом на фоне шкалы видна одна черная ахроматическая полоса и по обе стороны от нее несколько окрашенных полос убывающей интенсивности. Интерференционные полосы при освещении монохроматическим светом используются для определения цены деления шкалы прибора и для его поверки. Для получения необходимой цены деления с задаются к интерференционных полос и...
20153. Нормативно-правовые акты об охране труда 95.5 KB
  Основные законодательные акты об охране труда. Конституция Украины как основной источник охраны труда. Кодекс законов о труде Украины. Основные положения Закона Украины Об охране труда. Подзаконные нормативно- правовые акты, регулирующие вопросы охраны труда. Локальные нормативно- правовые акты в сфере охраны труда.
20154. Проекторы 61 KB
  Применение совмещенного изображения . проектор оптикомеханический или оптикоцифровой прибор позволяющий при помощи источника света проецировать изображения объектов на поверхность расположенную вне прибора на экран. Для поддержания картинки не требуется постоянного питания – энергия расходуется только в момент изменения изображения. Оптикомеханическая система развёртки изображения и система фокусировки расположены в проекционной головке которая соединяется с источником лазерного излучения при помощи гибкого оптоволоконного кабеля.
20155. Микроскопы 111 KB
  1 освещается источником света 1 через конденсор 2 и преломившись в объективе световой поток дает нам изображение которое будет увеличенным действительным но перевернутое. Если в плоскости изображения предмета поместить экран в виде стеклянной пластины то оператор увидит через окуляр в плоскости этой пластины обратное изображение предмета которое по сравнению с изображением будет еще увеличенным но уже мнимым.ИЗО2 ОГУ22 эта головка двойного изображения которая используется для измерений расстояния между осями отверстий. Если...
20156. Классификация КИМ и область применения 74 KB
  1 Ручной трехкоординатный прибор ОУ отсчетное устройство; ЦПМ принтер Все операции связанные с измерением детали на ручном типе КИМ выполняются оператором вручную. Типичными операциями для такого типа машин являются: измерение межцентровых расстояний; определение расстояний между плоскостями; определение координат точек плавных криволинейных поверхностей и др. В настоящее время такой тип машин практически не выпускается. КИМ данного типа обеспечивают высокую точность измерения но обладают низкой производительностью поэтому не нашли...
20157. Узлы координатных перемещений и измерительные преобразователи КИМ 33.5 KB
  Трехкоординатные измерительные приборы предназначены для измерения и контроля размеров корпусных деталей блоки цилиндров корпуса насосов для контроля штампов прессформ для подготовки программ к станкам с ЧПУ. Измерительные системы координатных перемещений предназначены для отсчета перемещения подвижных узлов ТИП при измерении координат точек. Подавляющее большинство ТИП до 80 оснащено фотоэлектрическими измерительными системами имеющими растровые измерительные линейки штриховые меры.
20158. Устройства взаимодействия с измеряемой деталью КИМ 221.5 KB
  Три группы устройств: жесткие щупы; щуповые головки; оптические и проекционнооптические устройства. Щуповые головки являются одним из основных узлов и они в равной степени с измерительным преобразователем и узлами координатных перемещений участвуют в измерении координат точек и определяют точность универсальность и производительность КИМ. Щуповые головки дают возможность автоматизировать процесс измерения на КИМах. Все щуповые головки по принципу функционирования подразделяются на 2е большие группы: щуповые головки нулевыеголовки...
20159. Приборы для измерения угловых величин. Автоколлиматоры. Гоннометры. ОДГ 308 KB
  Изображение секундной и минутной шкал наблюдается с помощью окуляра 6 через полупентопризму 13 которая из мнимого изображения делает действительное. Неподвижный узел – сетка с минутной шкалой и указателем секундной шкалы. Изображение марки отразившись от зеркала 1 попадает между штрихами минутной шкалы и в процессе измерения его совмещают с ближайшим штрихом минутной шкалы. Смещение Δ измеряется по секундной шкале жестко связанной с линзой относительно указателя на минутной шкале и т.