| Вопрос: Один интересный вопросик | Добавлено: 09.10.05 11:50 |
Автор вопроса:  Игорь
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  Victor ICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #16 | Добавлено: 09.10.05 22:37 |
|
Я все равно плохо въезжаю.
Из середины длинной стороны радиусом 40 проведена вписаная окружность
Я так и не понял, во что вписана окружность, и длинная сторона чего и какая. Но короче. Координаты окружности: CX,CY. Private Function ВОкружности(x, y) As Boolean ВОкружности = (x - cx) ^ 2 + (y - cy) ^ 2 <= 40 End Function ... Счетчик = 0 For y = 1 to ВысотаПоля For x = 1 to ШиринаПоля If ВОкружности(x, y) And (условие на то, какие клетки учитывать) Then Счетчик = Счетчик + 1 End if Next x Next y Кстати. Некоторые клетки будут отчасти в окружности, а отчасти вне. Что с ними делать - сам разбирайся. |
||
|
Номер ответа: 17 Автор ответа: IgorS Вопросов: 0 Ответов: 9 |
Профиль | | #17 | Добавлено: 10.10.05 14:17 |
| Еще один вопрос как сделать так чтобы ты нажал в любой части формы и у тебя нарисовался полукруг заданного радиус в указанной точке | ||
|
Номер ответа: 18 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #18 | Добавлено: 10.10.05 15:30 |
|
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'object.Circle [Step] (x, y), radius, [color, start, end, aspect] Me.Circle (X, Y), 200, vbRed, 3.14, 6.28, 1 End Sub |
||
|
Номер ответа: 19 Автор ответа: IgorSВопросов: 0 Ответов: 9 |
Профиль | | #19 | Добавлено: 10.10.05 15:51 |
|
Спасибо всем, кто потратил на меня время, но у меня есть последний простой вопрос, как сделать так чтобы из этого кода, внутрення часть полукруга выделялась нужным цветом
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'object.Circle [Step] (x, y), radius, [color, start, end, aspect] Me.Circle (X, Y), 200, vbRed, 3.14, 6.28, 1 End Sub Всем спасибо!!! |
||
|
Номер ответа: 20 Автор ответа: NecoICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #20 | Добавлено: 13.10.05 05:05 |
|
Добавь в конце BF кажется...
Или просто F Или просто B Мля это ещё из курса "Бэйсик на Корветах"! 8) Не помню уже... Тока квадраты рисовать придётся позже, чем круг. |
||