Редактируя треугольник сделать из него равнобедренный

@hexe87 · Регистрация: 08.08.2011

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

Нужна программка на VB 6.0: Редактируя треугольник сделать из него равнобедренный. Так вот, я треугольник могу построить, а как сделать из него равнобедренный??? Кто-нибудь, помогите, пожалуйста!!!

Построение треугольника (на нажатие правой кнопкой мыши появляется точка, затем 3 точки соединяются в треугольник. а на нажатие левой кнопкой на вершину, треугольник можно редактировать):

Visual Basic
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
Option Base 1
Dim i As Integer, ii As Integer
Dim a1 As Single, a2 As Single, a3 As Single, b1 As Single, b2 As Single, b3 As Single
Dim fl As Boolean
Dim xx() As Single
Dim xxx() As Single
Dim yyy() As Single
Dim yy() As Single
 
Private Sub Form_Activate()
Picture1.Scale (-10, 10)-(10, -10)
fl = False
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
i = i + 1
If i < 4 Then
ReDim Preserve xx(i)
ReDim Preserve yy(i)
xx(i) = X
yy(i) = Y
Picture1.Circle (X, Y), 0.1
If i = 3 Then
Picture1.Line (xx(2), yy(2))-(xx(1), yy(1))
Picture1.Line (xx(3), yy(3))-(xx(2), yy(2))
Picture1.Line (xx(1), yy(1))-(xx(3), yy(3))
End If
End If
End If
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
For i = 1 To 3
If Sqr((xx(i) - X) ^ 2 + (yy(i) - Y) ^ 2) < 0.2 Then
ii = i
Picture1.MousePointer = vbCrosshair
fl = True
Exit Sub
End If
Next i
End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And fl = True Then
xx(ii) = X
yy(ii) = Y
Picture1.Cls
Triangle
End If
End Sub
 
Private Sub Triangle()
For i = 1 To 3
Picture1.Circle (xx(i), yy(i)), 0.1
Next i
Picture1.Line (xx(2), yy(2))-(xx(1), yy(1))
Picture1.Line (xx(3), yy(3))-(xx(2), yy(2))
Picture1.Line (xx(1), yy(1))-(xx(3), yy(3))
End If
End Sub

@Alexey Spirin · 09.08.2011, 16:26

МатФак? )))))) чему вас там учат то?
Я бы ещще понял, если бы, к примеру медицинский...
Но на матфаке основные предметы Матан и Ангем....
Как можно там учиться и не знать вещей, проходимых в средней школе?

@hexe87 · 09.08.2011, 16:27 **[ТС]**

В средней школе проходят VB? Видимо нев в той школе, гду училась я, потому что мы программирование там вообще не проходили... никак... :-((

@Alexey Spirin · 09.08.2011, 16:28

ну а что такого? конечно в IF..
if Sqr(a1 ^ 2 + b1 ^ 2) = Sqr(a2 ^ 2 + b2 ^ 2) Or Sqr(a3 ^ 2 + b3 ^ 2) = Sqr(a2 ^ 2 + b2 ^ 2) Or Sqr(a1 ^ 2 + b1 ^ 2) = Sqr(a3 ^ 2 + b3 ^ 2) then msgbox 'OK'

@Aniskov · 09.08.2011, 16:30

Тут нужна в основном геометрия

)
(Но это и без меня здесь уже говорили).

А VB можно и по самоучителю освоить.

@Aniskov · 09.08.2011, 16:34

Да и еще, я тут писал sqrt вместо sqr, не сочтите за неграмотность, просто я пишу чаще на СИ, а там это пишется именно так.

@hexe87 · 09.08.2011, 16:45 **[ТС]**

Я не тупая как кажется, написала вот программку. Толку-то только? Теперь у меня другой вопрос, как попасть в ту точку, где треугольник станет равнобедренным? Я имею в виду, как сделать не точное, а приближенное попадание курсором в вершину треугольника?

Visual Basic
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Option Explicit
Option Base 1
Dim i As Integer, ii As Integer
Dim fl As Boolean
Dim xx() As Single
Dim yy() As Single
 
Private Sub Form_Activate()
Picture1.Scale (-10, 10)-(10, -10)
fl = False
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
i = i + 1
If i < 4 Then
ReDim Preserve xx(i)
ReDim Preserve yy(i)
xx(i) = X
yy(i) = Y
Picture1.Circle (X, Y), 0.1
If i = 3 Then
Picture1.Line (xx(2), yy(2))-(xx(1), yy(1))
Picture1.Line (xx(3), yy(3))-(xx(2), yy(2))
Picture1.Line (xx(1), yy(1))-(xx(3), yy(3))
End If
End If
End If
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
For i = 1 To 3
If Sqr((xx(i) - X) ^ 2 + (yy(i) - Y) ^ 2) < 0.2 Then
ii = i
Picture1.MousePointer = vbCrosshair
fl = True
Exit Sub
End If
Next i
End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And fl = True Then
xx(ii) = X
yy(ii) = Y
Picture1.Cls
Triangle
End If
End Sub
 
Private Sub Triangle()
For i = 1 To 3
Picture1.Circle (xx(i), yy(i)), 0.1
Next i
Picture1.Line (xx(2), yy(2))-(xx(1), yy(1))
Picture1.Line (xx(3), yy(3))-(xx(2), yy(2))
Picture1.Line (xx(1), yy(1))-(xx(3), yy(3))
If Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2) = Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2) Or Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2) = Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2) Or Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2) = Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2) Then
MsgBox 'треугольник равнобедренный'
End If
End Sub

@Alexey Spirin · 09.08.2011, 16:59

мдааа..... логики, у вас, девушка, никакой.
Вот так вот надо:

If Abs(Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2) - Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2) < 90) Or Abs(Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2) - Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2)) < 90 Or Abs(Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2) - Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2)) < 90 Then

где 90 - максимальное возможное отклонение.
Abs - модуль числа.

@hexe87 · 09.08.2011, 16:59 **[ТС]**

Всем БОЛЬШУЩЕЕЕ СПАСИБО!!! Спасибо за помощь и за внимание!!! Всё, программка работает.......
=^_^=

@hexe87 · 09.08.2011, 17:01 **[ТС]**

Можно, кстати, проще поступить:
(Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2)) - (Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2)) < 0.3 Or (Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2)) - (Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2)) < 0.3 Or (Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2)) - (Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2)) < 0.3
ну не проще, так понятнее для меня)
:-)))

@Aniskov · 09.08.2011, 17:02

>>Я имею в виду, как сделать не точное, а приближенное попадание курсором в вершину треугольника?

Не понятно поясни.

@Aniskov · 09.08.2011, 17:04

Прошу прощения, пока я отправлял сообщение, вы решили проблему.

@hexe87 · 09.08.2011, 17:04 **[ТС]**

To Aniskov: Трудно курсором попасть в необходимую нам точку, поэтому надо взять окрестность точки побольше

@kpoxa · 09.08.2011, 17:09

Попасть в точку мышью, да еще чтобы получился равнобедренный треугольник, это все равно, что попасть пальцем в небо. Почему? потому что вычисления проводятся для чисел с точкой, в то время как мышь работает с пикселями (целыми числами).
Поэтому предлагаю прежде, чем делать сравнение отсекать числа после запятой, или более того, надо принять некую допустимую погрешность (например 2-5 пикселей). Сделав проверку с учетом погрешности и приняв результат (согласится что треугольник равнобедренный) просто в коде подкорректировать точку. В этом случае, визуально, при приближении мыши к необходимой точке, треугольник будет устанавливаться сам.
(конечно не совсем сам, надо эту проблему решить в коде

).

@kpoxa · 09.08.2011, 17:11

Ну у вас и скорость, пока писал свой ответ, вы уже набросали тут похожих ответов.
Молодцы!!!

@hexe87 · 09.08.2011, 17:15 **[ТС]**

Всё равно всем огроменное спасибо за помощь :-)

09.08.2011, 17:17

Ну ничего себе, вы тут напостили

)

09.08.2011, 22:12

Так, пора делать в профайле обязательной для заполнения графу 'Пол' и 'Возраст'

И фотку по возможности...

@VladConn · 09.08.2011, 22:20

I ravnobedrennyiy treugol'nik

@hexe87 · 10.08.2011, 08:06 **[ТС]**

Ага, фотку, пол и возраст в профайле это идея....
А я прям сейчас могу сознаться, что мне 17 лет... :-)

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	09.08.2011, 16:26
	МатФак? )))))) чему вас там учат то? Я бы ещще понял, если бы, к примеру медицинский... Но на матфаке основные предметы Матан и Ангем.... Как можно там учиться и не знать вещей, проходимых в средней школе? 0

@hexe87 0 / 0 / 0 Регистрация: 08.08.2011 Сообщений: 23
	09.08.2011, 16:27 [ТС]
	В средней школе проходят VB? Видимо нев в той школе, гду училась я, потому что мы программирование там вообще не проходили... никак... :-(( 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	09.08.2011, 16:28
	ну а что такого? конечно в IF.. if Sqr(a1 ^ 2 + b1 ^ 2) = Sqr(a2 ^ 2 + b2 ^ 2) Or Sqr(a3 ^ 2 + b3 ^ 2) = Sqr(a2 ^ 2 + b2 ^ 2) Or Sqr(a1 ^ 2 + b1 ^ 2) = Sqr(a3 ^ 2 + b3 ^ 2) then msgbox 'OK' 0

@Aniskov 1 / 1 / 0 Регистрация: 07.03.2010 Сообщений: 111
	09.08.2011, 16:30
	Тут нужна в основном геометрия ) (Но это и без меня здесь уже говорили). А VB можно и по самоучителю освоить. 0

@Aniskov 1 / 1 / 0 Регистрация: 07.03.2010 Сообщений: 111
	09.08.2011, 16:34
	Да и еще, я тут писал sqrt вместо sqr, не сочтите за неграмотность, просто я пишу чаще на СИ, а там это пишется именно так. 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	09.08.2011, 16:59
	мдааа..... логики, у вас, девушка, никакой. Вот так вот надо: If Abs(Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2) - Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2) < 90) Or Abs(Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2) - Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2)) < 90 Or Abs(Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2) - Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2)) < 90 Then где 90 - максимальное возможное отклонение. Abs - модуль числа. 0

@hexe87 0 / 0 / 0 Регистрация: 08.08.2011 Сообщений: 23
	09.08.2011, 16:59 [ТС]
	Всем БОЛЬШУЩЕЕЕ СПАСИБО!!! Спасибо за помощь и за внимание!!! Всё, программка работает....... =^_^= 0

@hexe87 0 / 0 / 0 Регистрация: 08.08.2011 Сообщений: 23
	09.08.2011, 17:01 [ТС]
	Можно, кстати, проще поступить: (Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2)) - (Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2)) < 0.3 Or (Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2)) - (Sqr((xx(3) - xx(2)) ^ 2 + (yy(3) - yy(2)) ^ 2)) < 0.3 Or (Sqr((xx(2) - xx(1)) ^ 2 + (yy(2) - yy(1)) ^ 2)) - (Sqr((xx(1) - xx(3)) ^ 2 + (yy(1) - yy(3)) ^ 2)) < 0.3 ну не проще, так понятнее для меня) :-))) 0

@Aniskov 1 / 1 / 0 Регистрация: 07.03.2010 Сообщений: 111
	09.08.2011, 17:02
	>>Я имею в виду, как сделать не точное, а приближенное попадание курсором в вершину треугольника? Не понятно поясни. 0

@Aniskov 1 / 1 / 0 Регистрация: 07.03.2010 Сообщений: 111
	09.08.2011, 17:04
	Прошу прощения, пока я отправлял сообщение, вы решили проблему. 0

@hexe87 0 / 0 / 0 Регистрация: 08.08.2011 Сообщений: 23
	09.08.2011, 17:04 [ТС]
	To Aniskov: Трудно курсором попасть в необходимую нам точку, поэтому надо взять окрестность точки побольше 0

@kpoxa 5 / 5 / 0 Регистрация: 08.12.2009 Сообщений: 213
	09.08.2011, 17:09
	Попасть в точку мышью, да еще чтобы получился равнобедренный треугольник, это все равно, что попасть пальцем в небо. Почему? потому что вычисления проводятся для чисел с точкой, в то время как мышь работает с пикселями (целыми числами). Поэтому предлагаю прежде, чем делать сравнение отсекать числа после запятой, или более того, надо принять некую допустимую погрешность (например 2-5 пикселей). Сделав проверку с учетом погрешности и приняв результат (согласится что треугольник равнобедренный) просто в коде подкорректировать точку. В этом случае, визуально, при приближении мыши к необходимой точке, треугольник будет устанавливаться сам. (конечно не совсем сам, надо эту проблему решить в коде ). 0

@kpoxa 5 / 5 / 0 Регистрация: 08.12.2009 Сообщений: 213
	09.08.2011, 17:11
	Ну у вас и скорость, пока писал свой ответ, вы уже набросали тут похожих ответов. Молодцы!!! 0

@hexe87 0 / 0 / 0 Регистрация: 08.08.2011 Сообщений: 23
	09.08.2011, 17:15 [ТС]
	Всё равно всем огроменное спасибо за помощь :-) 0

Comanche
	09.08.2011, 17:17
	Ну ничего себе, вы тут напостили )

Messir
	09.08.2011, 22:12
	Так, пора делать в профайле обязательной для заполнения графу 'Пол' и 'Возраст' И фотку по возможности...

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	09.08.2011, 22:20
	I ravnobedrennyiy treugol'nik 0

@hexe87 0 / 0 / 0 Регистрация: 08.08.2011 Сообщений: 23
	10.08.2011, 08:06 [ТС]
	Ага, фотку, пол и возраст в профайле это идея.... А я прям сейчас могу сознаться, что мне 17 лет... :-) 0