Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
TZaRD
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 6
1

Лесенка

23.04.2011, 03:07. Просмотров 1317. Ответов 6
Метки нет (Все метки)

Привет программисты!!!
Подскажите пожалуйста код программы!
Задача программы: при нажатии кнопки "вправо" рисовался отрезок определенной длины вправо, при нажитии кнопки "вниз" отрезок такой же длины рисовался вниз из конца предыдущего. нажатее кнопок происходит в различном порядке.(рисутся что-то похожее на лесенку)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2011, 03:07
Ответы с готовыми решениями:

У меня не_работает прога Шифр Лесенка
Мне нужно написать прогу с Шифром Лесенка, что бы оно шифровала и дешифровала. Я тут кое-что...

Шифр «Лесенка»
К открытому тексту был применен шифр «Лесенка». Восстановите сообщение по шифрованному тексту...

Лесенка
Ограничение времени: 1 с Ограничение памяти: 64 M На каждой из N+2 ступенек лестницы записано...

Лесенка
На каждой из n + 2 ступенек лестницы записано целое число, причем на первой и на последней...

6
kukuruku310
199 / 186 / 26
Регистрация: 14.02.2010
Сообщений: 540
23.04.2011, 13:56 2
и где Вы желаете рисовать? на форме или ышо где-то?
0
TZaRD
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 6
23.04.2011, 18:15  [ТС] 3
На форме, в окне - Image.
0
kukuruku310
199 / 186 / 26
Регистрация: 14.02.2010
Сообщений: 540
23.04.2011, 19:12 4
Так в чем тогда проблемы. Используйте LineTo
Например, чтобы рисовать на канве самой формы:

Delphi
1
2
3
MoveToEx(Self.Canvas.Handle, 10, 20, nil); // выставляем начальное положение линии в 10 пикселей по горизонтали от левого края и 20 пикселей от верха (или используйте Canvas.MoveTo)
 
LineTo(Self.Canvas.Handle, 50, 20); // проводим линию от текущего положения до точки 50 пикселей от левого края и 20 пикселей от верхнего (или используйте Canvas.LineTo).
Запомните где-нибудь в переменной координаты конца последней нарисованной линии и пляшите от нее
Если надо определить цвет/толщину линии используйте Canvas.Pen.Color и Canvas.Pen.Width соответственно. Через Pen.Style можно задать стиль линии

Если надо рисовать именно на Image, то используйте не просто Canvas, а Image.Canvas
0
TZaRD
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 6
24.04.2011, 15:40  [ТС] 5
Спасибо, с этим проблем нет..
Подскажи пожалуйса как выразить координаты через переменные?
0
kukuruku310
199 / 186 / 26
Регистрация: 14.02.2010
Сообщений: 540
24.04.2011, 16:23 6
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
type
  TForm1 = class(TForm)
    ...
  private
    pt: TPoint; // или сделать глобальную переменную
    ...
 
implementation
 
const
  STEP = 10; // длина "ступеньки" в пикселях
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  pt.x := 5; // начальная координата X
  pt.y := 5; // начальная координата Y
  with Image1.Canvas do begin
    Pen.Color := clRed; // задаем цвет линии
    Pen.Width := 1;     //        толщину линии
    Pen.Style := psDot; //        стиль линии
    PenPos := pt; // выставляем начальное положение
    // или MoveTo(pt.x, pt.y);
  end;
end;
 
procedure TForm1.BtnRightClick(Sender: TObject);
begin
  Inc(pt.x, STEP);
  Image1.Canvas.LineTo(pt.x, pt.y);
end;
 
procedure TForm1.BtnDownClick(Sender: TObject);
begin
  Inc(pt.y, STEP);
  Image1.Canvas.LineTo(pt.x, pt.y);
end;
2
TZaRD
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 6
24.04.2011, 17:19  [ТС] 7
Большое спасибо!!
0
24.04.2011, 17:19
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2011, 17:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Лесенка
Лесенкой называется набор кубиков, в котором каждый более верхний слой содержит кубиков меньше, чем...

Лесенка из пробелов и #
нужно создать программу в которой пользователь будет вводить число, а результат должен быть такой...

Шифр «Лесенка»
К открытому тексту был применен шифр «Лесенка». Восстановите сообщение по шифрованному тексту...

программа лесенка
Напишите программу вывода на экран последовательности целых чисел, отличающихся на единицу, в виде...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.