Создайте приложение «Развивающее задание для малышей»

@kent555 · Регистрация: 26.11.2012

Студворк — интернет-сервис помощи студентам

Создайте приложение «Развивающее задание для малышей». Вверху расположите пояснительный текст: «Перетащи слово на соответствующую картинку». Разместите ряд слов и ряд картинок, содержащих контуры изображений, соответствующих словам, а также кнопку «Проверка». При нажатии на кнопку «Проверка» должен быть произведен анализ правильности выполнения задания и вывод одного из сообщений: «Правильно!» или «Неправильно!». Задание должно содержать 4 изображения детских игрушек и 4 слова.

@cotseec · 24.06.2013, 21:37

интересная задача...
а в чем загвоздка?

@kent555 · 24.06.2013, 22:22 **[ТС]**

не знаю как сделать...помогите(

@ilyaKZ · 25.06.2013, 20:21

Вы более-менее ориентируетесь в среде delphi, и возникла какая-то неясность, или вы просто хотите чтобы вам все написали, и вы не напрягались?

@kent555 · 25.06.2013, 21:12 **[ТС]**

да возникла не ясность алгоритма....не могу его толком построить...

@ilyaKZ · 25.06.2013, 21:13

В какой части?

@kent555 · 25.06.2013, 22:13 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ActnList;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    StaticText1: TStaticText;
    Button1: TButton;
    procedure Label1EndDock(Sender, Target: TObject; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Label1EndDock(Sender, Target: TObject; X, Y: Integer);
begin
//если текст бросили не на панель на на форму, избегаем появления плавающего окна
  if not (Target is TPanel) then
    TLabel(Sender).ManualDock(Form1);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//проверяем, все надписи расставлены по местам

дальше незнаю что делать...т.е мне надо проверить эти надписи,закончино ли задание или нет соответствие на картинка,и правельно это или нет

@ilyaKZ · 26.06.2013, 11:01

ну у каждого элемента есть свои координаты. Ну и проверяй, скажем, if (label1.left<50) and (label1.left>25) then...
так же и с label1.top

@BabyGluk · 01.07.2013, 20:01

Вобщем смотрите, код ниже сделаешь для каждого лейбла, щас он сделан для картинок.
лейблам в events маус мувин,маус ап, маус давн..
Щас они под картинки, нашел в инете, юзал для себя тоже.

пишу для 1 лейб 1 картинка, по этому же примеру для остальных 3х картинок сделаешь.

Идея моя така, для каждого и имейджа я запишу его область только картинки должны быть на одном месте, ну если они будут меняться местами каждый раз может как то можно еще придумать...но зачем усложнять. можно лейблы есил что менять местами))))

count :integer;
count:=0; //если каунт в конце = 4 значит все 4 надписи на тех картинках что нужно.

Const img1left =[1..10]; // 1 это лефт левого края картинки, 10 лефт правого края
Img1top =[1..10]; //1 топ верха 10 топ низа.
Imgleft берешь лефт левого края и л ефт правого края
Ну а imgtop берешь топ верха картинк и топ низа, так у тебя будет область имейджа.

Потом в процедуре где маус ап сделай условие что то типо
if (lbl1.left in img1left) and (lbl1.top in img1top) then
begin
что то..
например int(count);
end;

на своей кнопке какойто сделай условие if count = 4 then messageshow('Все верно..'); close;//закрываешь прогу.. ну или где то записывай топ и лефт кажого лейбла и в конце возвращай их назад.

вот сам код..

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
{------------------------}
implementation
var x0,y0:integer;
move:boolean;
count:integer;
//все это глобальное.
{$R *.DFM}
{------------------------} 
 
Теперь напишем обработчик OnMouseDown для нашей картинки:
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false //если нажали не левой кнопкой, то перемещать не будем!
else begin
move:=true;
x0:=x; //запоминаем начальные координаты
y0:=y; //запоминаем начальные координаты
 
end;
end;
 
В этом участке кода проверяется какой кнопкой нажали на картинку. Если левой, то запоминаем координаты, а если любой другой, то перемещать нельзя.
 
Теперь напишем обработчик OnMouseMove для нашей картинки:
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move then begin
image1.Left:=image1.Left+x-x0; // Изменяем позицию левого края
image1.Top:=image1.Top+y-y0; // Изменяем позицию верхнего края
end;
end;
 
Ну и наконец обработчик OnMouseUp для нашей картинки будет таким:
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:=false;
//вот сюда условие пиши.
end;

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@kent555 2 / 2 / 1 Регистрация: 26.11.2012 Сообщений: 102

	Создайте приложение «Развивающее задание для малышей» 24.06.2013, 21:35. Показов 1473. Ответов 8 Метки нет (Все метки) Создайте приложение «Развивающее задание для малышей». Вверху расположите пояснительный текст: «Перетащи слово на соответствующую картинку». Разместите ряд слов и ряд картинок, содержащих контуры изображений, соответствующих словам, а также кнопку «Проверка». При нажатии на кнопку «Проверка» должен быть произведен анализ правильности выполнения задания и вывод одного из сообщений: «Правильно!» или «Неправильно!». Задание должно содержать 4 изображения детских игрушек и 4 слова. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	24.06.2013, 21:37
	интересная задача... а в чем загвоздка? 0

@kent555 2 / 2 / 1 Регистрация: 26.11.2012 Сообщений: 102
	24.06.2013, 22:22 [ТС]
	не знаю как сделать...помогите( 0

@ilyaKZ 2 / 2 / 0 Регистрация: 12.09.2012 Сообщений: 42
	25.06.2013, 20:21
	Вы более-менее ориентируетесь в среде delphi, и возникла какая-то неясность, или вы просто хотите чтобы вам все написали, и вы не напрягались? 0

@kent555 2 / 2 / 1 Регистрация: 26.11.2012 Сообщений: 102
	25.06.2013, 21:12 [ТС]
	да возникла не ясность алгоритма....не могу его толком построить... 0

@ilyaKZ 2 / 2 / 0 Регистрация: 12.09.2012 Сообщений: 42
	25.06.2013, 21:13
	В какой части? 0

@ilyaKZ 2 / 2 / 0 Регистрация: 12.09.2012 Сообщений: 42
	26.06.2013, 11:01
	ну у каждого элемента есть свои координаты. Ну и проверяй, скажем, if (label1.left<50) and (label1.left>25) then... так же и с label1.top 0