Здравствуйте.
В процессе моей производственной деятельности (производство программ ) возникла нужда построить что-то типа графа - т.е. отмечены точки, некоторые из которых соединены между собой.
Т.е. надо изобразить точки и отрезки.
Рисовать ручками не очень-то хочется: надо учитывать размеры формы, переворачивать ось OY etc.
Может, есть какой компонент для этого? Или со стандартным MSChart как-нибудь поколдовать?
Буду искренне рад ответу...

А зачем 0Y переворачивать? Об этом поподробнее пжлста...
А нарисовать отрезки и точки можно вери изи... не надо и на ограничения формы смотреть...

Вери изи?
В общем так.
Создается программа для социологических исследований. Но сейчас это не имеет значение. Нужно:
Есть точки:
допустим:
(100,100), (-100,5) , (-300,500)
Мне эти точки нужно отметить на форме, считая середину формы центром координат.
1-ю и 2-ю точки соединить отрезком.
Выбрать правильный масштаб - чтоб все точки были видны.
А так же эти точки должны быть изображены в соответствии с представлением простых смертных об осях координат ("OY - это когда ось направлена снизу вверх").
З.Ы. Реально будет около 500 точек. Но соединены будут немногие...

Ну так помоему тут нет ничего сложного. Вот мои мысли по этому поводу:

1. Рисовать ты хочешь от центра формы. Отлично, вычисляем этот центр. Координаты у него такие
P ( x | y ), где x = width / 2 и y = height/2
2. Подстраиваешь координаты своих точек под новый центр и получаешь:
Z ( x + a | y - b ) a = X-координата твоей точки, b = Y-координата твоей точки
для твоих примеров получаем:
A ( x + 100 | y - 100 ), B ( x - 100 | y - 5 ), C ( x - 300, y - 500 )
3. масштаб выберешь сам
4. соединяешь те новые точки, которые тебе надо.

Может я ошибаюсь , все же просто вроде...

Цитата

Выбрать правильный масштаб - чтоб все точки были видны.

Очень просто.
Элементарная зависимость.

maxPoint - SizeOfGraf

tekPoint - iskKoord

откуда:

iskKoord = tekPoint * SizeOfGraf / maxPoint

Где iskKoord - искомая координата
tekPoint - текущее значение точки (из соц. опроса)
SizeOfGraf - размер оси в пикселах
maxPoint - максимальное значение

Цитата

Выбрать правильный масштаб - чтоб все точки были видны.

Очень просто.
Элементарная зависимость.

maxPoint - SizeOfGraf

tekPoint - iskKoord

откуда:

iskKoord = tekPoint * SizeOfGraf / maxPoint

Где iskKoord - искомая координата
tekPoint - текущее значение точки (из соц. опроса)
SizeOfGraf - размер оси в пикселах
maxPoint - максимальное значение

Извини, не подписался.

Цитата

2. Подстраиваешь координаты своих точек под новый центр и получаешь: Z ( x + a | y - b ) a = X-координата твоей точки, b = Y-координата твоей точки для твоих примеров получаем: A ( x + 100 | y - 100 ), B ( x - 100 | y - 5 ), C ( x - 300, y - 500 )

А можно, дорогие друзья, сделать ЕЩЕ проще
Как я уже сказал "вери изи"

Установка "размера" координат:
me.Scale(x1,y1,x2,y2)
где x1,y1 - левый верхний угол
x2,y2 - правый нижний.
Например:
me.Scale(-5,-5,5,5)
me.Pset(0,0),vbRed

и точка будет точно по центру формы...
Остается только знать мин. и макс. значения по Х и по У.

И еще поправка, чтобы форма было похожа на реальную 2х мерную систему, надо писать:
me.Scale(-5,5,5,-5)

Всем спасибо.
Balck_Star, мне твой метод больше всех понравился..
Я об этом не знал...

Да, он прав. Еще осталось только сделать что-нибудь типа:

Код

Me.Scale (-Width / 10, Height / 10)-(Width / 10, -Height / 10)

для того чтобы квадрат

Код

Me.PSet (0, 0), vbRed Me.PSet (-100, -100), vbGreen Me.PSet (-100, 100), vbGreen Me.PSet (100, -100), vbGreen Me.PSet (100, 100), vbGreen

оставался квадратом. Но тут есть какая-то недодумка с моей стороны потому, что квадрат не совсем квадратный, но почему это так я пока не допер.

Цитата

Но тут есть какая-то недодумка с моей стороны потому, что квадрат не совсем квадратный, но почему это так я пока не допер.

Естественно, он не будет квадратный - происходит трансформация координат "под форму" - цена деления привязывается к Width и Height:
на одну координату вверх= на 5 пикселей вверх
на одну координату влево = на 10 пикселей влево.
Цифры 5, 10.. зависят от размеров формы - поэтому и квадрат "не будет квадратным" на неквадратной форме... (во загнул... )

Kurt, ты проведи такой эксперимент

Код

Private Sub Command1_Click() Me.Scale (-Width / 10, Height / 10)-(Width / 10, -Height / 10) Me.PSet (0, 0), vbRed Me.PSet (-100, -100), vbGreen Me.PSet (-100, 100), vbGreen Me.PSet (100, -100), vbGreen Me.PSet (100, 100), vbGreen End Sub

и увидившь, что разницу между фигурами на глаз даже не видно, когда нарисуешь их несколько штук меняя при этом каждый раз размер формы. Поэтому я бы именно так и сделал: простая зависимость от размера формы. Мне просто в голову не приходит, как сделать Me.Scale по другому, чтобы квадрат более квадратный был . В Си++ то что тут нам в принципе надо называется MapMode. Так вот там прописывается ANISOTROPIC или ISOTROPIC, и таким образом у тебя, например, или квадрат или прямоугольник получается.

[QUOTE]Но тут есть какая-то недодумка с моей стороны потому, что квадрат не совсем квадратный, но почему это так я пока не допер.[QUOTE]

Возможно причина в том, что сама форма имеет "неквадратные" размеры
Ежели width будет равна height, то квадрат будет похож на то, как называется

Цитата

Возможно причина в том, что сама форма имеет "неквадратные" размеры

"Возможно" означает, что ты не уверен? Я просто еще раз хочу подчеркнуть, что если растягивать форму по горизонтали от совсем узкой до широкой (на весь экран) размер "квадрата" меняется не пропорционально этой растяжке.

О чем я и говорю!
А "неуверен", такого не бывает...
Есть 3 причины:
1) растянута форма;
2) настройки экрана непропорциональны;
3) глаза косят .