Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
 Аватар для Marine
8 / 8 / 1
Регистрация: 12.03.2010
Сообщений: 44

Рисование окружностей с демонстрацией процесса

24.10.2011, 19:43. Показов 3556. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте форумчане, нужна ваша помощь. Написала я программу для рисования окружностей, одно НО. Когда я рисую окружность сам процесс рисования не показывается... Подскажите пожалуйста как это можно реализовать.
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
'Переменные уровня модуля
Dim X0 As Integer
Dim Y0 As Integer
 
Private Sub Form_Initialize()
Caption = "Графический редактор"
Icon = LoadPicture(App.Path & "\PEN01.ICO")  'задание значка формы
Top = (Screen.Height - Height) \ 2  'отображение формы
Left = (Screen.Width - Width) \ 2   'в центре экрана
DrawWidth = 1  'задание ширины линии
DrawStyle = 2  'задание стиля линии
End Sub
 
'Процедура загрузки и отображения формы на экране
Private Sub Form_Load()
Show
End Sub
 
'Процедура обработки события нажатия кнопки мыши
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Запоминается точка, где была нажата кнопка мыши
X0 = X
Y0 = Y
'Указатель мыши устанавливается как перекрестие
MousePointer = vbCrosshair
End Sub
 
'Процедура обработки события отпускания кнопки мыши
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Определяется радиус окружности
R = Sqr((X - X0) ^ 2 + (Y - Y0) ^ 2)
'Строится окружность
Circle (X0, Y0), R
'Указатель мыши устанавливается тот, который используется по умолчанию
MousePointer = vbDefault
End Sub
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.10.2011, 19:43
Ответы с готовыми решениями:

Рисование спиралей и окружностей (некорректная отрисовка окружностей)
Здравствуйте! Возникла проблема, разобраться в которой не получается Задача:нарисовать две спирали (по часовой и против) цвет ...

Рисование окружностей
Требуется нарисовать концентрические окружности уменьшающегося радиуса. Радиус каждой следующей окружности равен 9/10 радиуса предыдущей....

Рисование окружностей на turtle
Нужно нарисовать это Обязательно закрасив

2
Почетный модератор
 Аватар для Памирыч
23249 / 9161 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
24.10.2011, 19:50
Цитата Сообщение от Marine Посмотреть сообщение
Когда я рисую окружность сам процесс рисования не показывается
В смысле, не видно сам процесс прорисовки?
Ну так, времена ZX Spectrum вроде как прошли?
0
 Аватар для Marine
8 / 8 / 1
Регистрация: 12.03.2010
Сообщений: 44
24.10.2011, 19:55  [ТС]
Ну просто в задании сказано что нужно показать сам процесс..ну когда мы например выделяем какие то файлы мышью, показывается область выделения..как то так)) Короч моя программа должна рисовать круги как в пэинте..а делается вовсе не так)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
24.10.2011, 19:55
Помогаю со студенческими работами здесь

Рисование окружностей в PictureBox
Нужно нарисовать в PictureBox окружности по зпдпнным координатам центра и радиусу. Данные о каждой окружности хранятся в динамическом...

Рисование линий и окружностей
Ребята объясните как рисовать линии и кружки в microsoft visual studio 2010(новичок в этом деле, нужно сделать курсовую) искал в MSDNe ,...

Рекурсивное рисование окружностей
Здравствуйте! Подскажите такую вещь, как написать программу, которая бы строила окружности, центры которых лежат на другой окружности, при...

Рисование окружностей с graphABC
Составьте программу для данного рисунка (задание на скриншоте), где N=10, а n=0.

Рисование окружностей разных цветов
Написать программу, которая рисует на экране каждую окружность с задержкой по времени в 1000 мс. После полной прорисовки стирать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru