Карта города - Помощь студентам

voron.kz · 01.09.2010, 17:33

люди не подскажите на чем можно написать программу КАРТА ГОРОДА? в ней должна быть БД, приблежение и отделение картинки, при навведении на дом выходило сообщение ИНФОРМАЦИЯ О НАВЕДЕНОМ ОБЪЕКТЕ, и т.д.....какой язык или программу лучше использовать?

RuVarez · 01.09.2010, 18:12

Пиши на Delphi (если умееш). Из БД рекомендую Interbase

_-Re@l-_ · 01.09.2010, 19:21

Цитата:

люди не подскажите на чем можно написать программу КАРТА ГОРОДА? в ней должна быть БД, приблежение и отделение картинки, при навведении на дом выходило сообщение ИНФОРМАЦИЯ О НАВЕДЕНОМ ОБЪЕКТЕ, и т.д.....какой язык или программу лучше использовать?

Лучше всего скачать ДубльГис и не париться.

artemavd · 02.09.2010, 05:57

Цитата:

Лучше всего скачать ДубльГис и не париться

Вопрос был поставлен: на чем можно написать программу КАРТА ГОРОДА?
не надо советовать всякую ерунду, типа скачай и все. Тема интересная на самом деле и мне бы тоже пригодилась.

voron.kz · 03.09.2010, 12:34

не подскажите тогда как сделать что б можно было увеличить и уменьшить, перемещение на все 4 стороны? сейчас это моя самая большая трудность...

voron.kz · 03.09.2010, 12:40

не подскажите коды для:

1.увеличение и уменьшение IMG на форме
2.перемещение IMG при помощи мыши и TButton(налево,на права,верх,вниз)

Alex Cones · 03.09.2010, 12:50

Для своих целей уже делал карту, правда всего мира

На Lazarus, без использования БД.

Кусочек исходника:

Код:

Procedure DrawMark;
  Begin
   FRMMain.Image1.Canvas.Draw(0,0,Minimap);
   FRMMain.Image1.Canvas.Pen.Color := $0000FF;
   FRMMain.Image1.Canvas.MoveTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRmMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));

   FRMMain.Image1.Canvas.MoveTo(2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), 2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), -2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(-2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), -2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(-2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), 2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRmMain.Image1.Canvas.LineTo(2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), 2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));

   FRMMain.Edit1.Text := IntToStr(X);
   FRMMain.Edit2.Text := IntToStr(Y);
  End;

voron.kz · 03.09.2010, 12:55

Цитата:

Сообщение от Alex Cones

Для своих целей уже делал карту, правда всего мира

На Lazarus, без использования БД.

Кусочек исходника:

Код:

Procedure DrawMark;
  Begin
   FRMMain.Image1.Canvas.Draw(0,0,Minimap);
   FRMMain.Image1.Canvas.Pen.Color := $0000FF;
   FRMMain.Image1.Canvas.MoveTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRmMain.Image1.Canvas.LineTo(Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));

   FRMMain.Image1.Canvas.MoveTo(2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), 2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), -2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(-2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), -2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRMMain.Image1.Canvas.LineTo(-2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))) + Round(256 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), 2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));
   FRmMain.Image1.Canvas.LineTo(2 + Round(X * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))), 2 + Round(Y * 128 / Round(Exp((FRMMain.Combobox1.ItemIndex) * Ln(2)))));

   FRMMain.Edit1.Text := IntToStr(X);
   FRMMain.Edit2.Text := IntToStr(Y);
  End;

Спасибо, а как объявить "FRMMain"?

_-Re@l-_ · 03.09.2010, 12:58

Цитата:

"FRMMain"?

Как я понял, это TForm

01.09.2010, 17:33	#1
voron.kz Пользователь Регистрация: 24.09.2009 Сообщений: 43	Карта города люди не подскажите на чем можно написать программу КАРТА ГОРОДА? в ней должна быть БД, приблежение и отделение картинки, при навведении на дом выходило сообщение ИНФОРМАЦИЯ О НАВЕДЕНОМ ОБЪЕКТЕ, и т.д.....какой язык или программу лучше использовать?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиграем в города?	Hallo	Свободное общение	178	24.07.2011 23:35
Карта города	zzzzz	Общие вопросы Delphi	16	15.06.2011 15:19
Выпадющие города	timon777777	JavaScript, Ajax	1	14.08.2010 18:50
Карта города	Vadimok	Общие вопросы Delphi	4	26.08.2008 17:36
Карта города 2	Archangel	Помощь студентам	3	04.03.2007 05:19

01.09.2010, 18:12	#2
RuVarez Форумчанин Регистрация: 25.08.2010 Сообщений: 258	Пиши на Delphi (если умееш). Из БД рекомендую Interbase

03.09.2010, 12:34	#5
voron.kz Пользователь Регистрация: 24.09.2009 Сообщений: 43	не подскажите тогда как сделать что б можно было увеличить и уменьшить, перемещение на все 4 стороны? сейчас это моя самая большая трудность...

03.09.2010, 12:40	#6
voron.kz Пользователь Регистрация: 24.09.2009 Сообщений: 43	не подскажите коды для: 1.увеличение и уменьшение IMG на форме 2.перемещение IMG при помощи мыши и TButton(налево,на права,верх,вниз)