Принадлежит ли точка окружности?

@lisov · Регистрация: 16.03.2010

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

Дорогие, помогите, пожалуста.
Делаю курсач. Не могу справиться с такой вещью - когда запускаешь прогу, нужно кликнуть мышью на поле, где нарисованы оси координат и окружность. Хочу ограничить возможность ткнуть только на окружность (не внутрь, а на саму)... Как это сделать?

VB.NET
1
2
3
4
5
6
7
8
9
10
 g = Panel1.CreateGraphics()
        g.DrawLine(p1, 0, 200, Panel1.Width, 200) ' ось х
        g.DrawLine(p1, 200, 0, 200, 400) 'ось у
        g.DrawEllipse(p2, 50, 50, 300, 300) 'окружность
' вот то, чем тычем!
Dim p3 As New Pen(Color.Yellow, 3)
        Dim b As New SolidBrush(Color.Red)
        x = e.X
        y = e.Y
        g.FillEllipse(b, x - 5, y - 5, 10, 10)

@Toxa33rus · 16.06.2010, 11:24

Может округлить до ближайшей точки окружности?

@lisov · 16.06.2010, 12:23 **[ТС]**

я хочу сделать так - если ткнули мимо - выдает лейбл с просьбой ткунь на окружность.
можно проверять пренадлежит ли точка данной окружности, но не знаю как это сделать...?

@аналитика · 16.06.2010, 15:13

(x-x0)^2+(y-y0)^2 > R^2 - вне окружности, < - внутри.
M(x, y) - точка, куда тыкнули
O(x0, y0) - центр окружности, R - ее радиус
Это банально, а вот прикрепление курсора к окружности...

правда, сдается мне, код-то твой не VB6

@lisov · 16.06.2010, 19:25 **[ТС]**

Вот именно этой банальщины не хватало ))) Реально, нужно было уравнение окружности.. Сейчас прям стыдно!
Дальше, думаю, справлюсь.
Код в VB6... а что ты имеешь ввиду прикрепление курсора к окружности?...

Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown...

MouseDown, считываю данные х и у, и проверяю, пренадлежат ли они окружности... Надеюсь, правильно мыслю...

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	16.06.2010, 11:24
	Может округлить до ближайшей точки окружности? 1

@lisov 0 / 0 / 0 Регистрация: 16.03.2010 Сообщений: 11
	16.06.2010, 12:23 [ТС]
	я хочу сделать так - если ткнули мимо - выдает лейбл с просьбой ткунь на окружность. можно проверять пренадлежит ли точка данной окружности, но не знаю как это сделать...? 0

@lisov 0 / 0 / 0 Регистрация: 16.03.2010 Сообщений: 11
	16.06.2010, 19:25 [ТС]
	Вот именно этой банальщины не хватало ))) Реально, нужно было уравнение окружности.. Сейчас прям стыдно! Дальше, думаю, справлюсь. Код в VB6... а что ты имеешь ввиду прикрепление курсора к окружности?... Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown... MouseDown, считываю данные х и у, и проверяю, пренадлежат ли они окружности... Надеюсь, правильно мыслю... 0