| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

NToXY

Страницы:   < 1 2 >

RASkov ©   (2006-08-19 19:31:00) 

Здравствуйте! Ну чего то никак не соображу как вычислить из одно числа два.
Есть 5 столбцов и 5 колонок с номерами клеток от 1 до 25 вот как написать такую хрень:

procedure NToXY(const N: Integer; var X, Y: Integer);
begin
 X:=?;
 Y:=?;
end;

procedure ButtonClick();
var C, R: Integer;
begin
 NToXY(TrackBar1.Position, C, R);
 Caption:=IntToStr(C)+' - '+IntToStr(R);
end;
СПАСИБО за правильные ответы.

---

RASkov   (2006-08-19 19:52:00) [21]

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

---

tesseract   (2006-08-19 19:50:00) [22]

прости но не въеду в принцип прогрессии.
Алгоритм расчёта X и Y?

---

Пусик   (2006-08-19 19:49:00) [23]

> RASkov


Как связан TrackBar1.Position с C и R?

---

RASkov   (2006-08-19 19:43:00) [24]

> размеры trackbar нужны

>размеры trackbar нужны
Нет не надо у него Min=1 Max=25;

---

RASkov   (2006-08-19 19:42:00) [25]

> или формулу для расчёта x и y рассказать?

УГУ...

---

RASkov   (2006-08-19 19:42:00) [26]

Знаю что простой вопрос, но че то несоображаю.... блин. Спасибо.
Передаем в NToXY значение например 7 надо получить X:=2 и Y:=2 если 9 то X:=2 и Y:=4 если 20 то X:=4 Y:=5 вот такая вот загагулина....

---

tesseract   (2006-08-19 19:42:00) [27]

> [2] RASkov   (19.08.06 19:38)


проблема в чём? Значения не возвращаються  или формулу для расчёта x и y рассказать? тебе размеры trackbar нужны?  Рассчитать координаты ячейки?
ЗЫ: Телепатор сломался извини? указывает на 17 строку.

---

RASkov   (2006-08-19 19:38:00) [28]

> [1] tesseract ©   (19.08.06 19:35)

Найти X и Y...:((

---

tesseract   (2006-08-19 19:35:00) [29]

переведи?

что не работает-то?

---

Страницы:   < 1 2 >

Наверх