Помогите с двумя задачами для экзамена плиз

@DenSuper007x · Регистрация: 25.03.2008

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

Помогите с двумя задачами для экзамена плиз, 13 сделал осталось ещё две:

1. Создайте приложение, на форму которого помещены компоненты: Timer, Label и Edit. Напишите обработчик события OnTimer компонента Timer, который каждую секунду отображает с помощью компонента Label период времени (в формате ЧЧ:ММ:СС), прошедший с момента, указанного в компоненте Edit (также в формате ЧЧ:ММ:СС).[/FONT][/SIZE]

2.Создайте приложение, на форму которого помещены компоненты: Label —2 шт. Image — 1 шт. Напишите обработчик события OnMouseMove компонента Image, который отображает с помощью первого компонента Label координаты мыши, а с помощью второго компонента Label — цвет каждой составляющей (красной, синей, зелёной) пикселя в текущих координатах.

@DenSuper007x · 26.03.2008, 22:12 **[ТС]**

?????

@filippchik · 26.03.2008, 22:23

Если так неуверен, выложи исходник свой

@DenSuper007x · 26.03.2008, 22:24 **[ТС]**

Я просто спросил так и должно быть? Просто скажи да или нет

@DenSuper007x · 26.03.2008, 22:25 **[ТС]**

вот код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 var
  Form1: TForm1;
  color:Tcolor;
  n,m,k:integer;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
If ssLeft in shift then
begin
Label1.Caption:=inttostr(x)+','+inttostr(y);
Color:=Image1.Canvas.Pixels[x,y];
Label2.Caption:= 'R' + IntToStr ( GetRValue ( ColorToRGB ( Image1.Canvas. Pixels[x,y] ) ) ) + 'G' + IntToStr (GetGValue ( ColorToRGB (Image1.Canvas. Pixels[x,y]) ) ) + 'B' + IntToStr (GetBValue (ColorToRGB (Image1.Canvas. Pixels[x,y] ) ) );
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('6.bmp');
end;
end.

@filippchik · 26.03.2008, 22:29

Так

@DenSuper007x · 26.03.2008, 22:30 **[ТС]**

Ну тогда спасибо большое, извини мне пора, сидел думал, у меня уже 03:30 времени, с

@DenSuper007x · 26.03.2008, 22:31 **[ТС]**

Ну тогда спасибо большое, извини мне пора, сидел думал, у меня уже 03:30 времени, спать хочу

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@DenSuper007x 0 / 0 / 0 Регистрация: 25.03.2008 Сообщений: 15

	Помогите с двумя задачами для экзамена плиз 25.03.2008, 13:32. Показов 4949. Ответов 26 Метки нет (Все метки) Помогите с двумя задачами для экзамена плиз, 13 сделал осталось ещё две: 1. Создайте приложение, на форму которого помещены компоненты: Timer, Label и Edit. Напишите обработчик события OnTimer компонента Timer, который каждую секунду отображает с помощью компонента Label период времени (в формате ЧЧ:ММ:СС), прошедший с момента, указанного в компоненте Edit (также в формате ЧЧ:ММ:СС).[/FONT][/SIZE] 2.Создайте приложение, на форму которого помещены компоненты: Label —2 шт. Image — 1 шт. Напишите обработчик события OnMouseMove компонента Image, который отображает с помощью первого компонента Label координаты мыши, а с помощью второго компонента Label — цвет каждой составляющей (красной, синей, зелёной) пикселя в текущих координатах. 0

@DenSuper007x 0 / 0 / 0 Регистрация: 25.03.2008 Сообщений: 15
	26.03.2008, 22:12 [ТС]
	????? 0

@filippchik 2 / 2 / 0 Регистрация: 26.03.2008 Сообщений: 40
	26.03.2008, 22:23
	Если так неуверен, выложи исходник свой 0

@DenSuper007x 0 / 0 / 0 Регистрация: 25.03.2008 Сообщений: 15
	26.03.2008, 22:24 [ТС]
	Я просто спросил так и должно быть? Просто скажи да или нет 0

@filippchik 2 / 2 / 0 Регистрация: 26.03.2008 Сообщений: 40
	26.03.2008, 22:29
	Так 0

@DenSuper007x 0 / 0 / 0 Регистрация: 25.03.2008 Сообщений: 15
	26.03.2008, 22:30 [ТС]
	Ну тогда спасибо большое, извини мне пора, сидел думал, у меня уже 03:30 времени, с 0

@DenSuper007x 0 / 0 / 0 Регистрация: 25.03.2008 Сообщений: 15
	26.03.2008, 22:31 [ТС]
	Ну тогда спасибо большое, извини мне пора, сидел думал, у меня уже 03:30 времени, спать хочу 0