Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
EAleX_X
0 / 0 / 0
Регистрация: 16.04.2016
Сообщений: 8
1

Рисование светофорных кругов

23.04.2016, 08:49. Просмотров 860. Ответов 4
Метки нет (Все метки)

Помогите с задачей)
Разработать приложение, рисующее светофорные круги. Самые большие круги красные, средние – желтые, маленькие – зеленые . Число кругов вводится после запуска программы.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2016, 08:49
Ответы с готовыми решениями:

Рисование кругов
Задача: нарисовать несколько кругов (закрашенных окружностей) с центрами в заданных точках,...

Рисование кругов
В целочисленный массив, размерность (количество элементов) которого задается в программе...

Рисование линий, кругов и т.д.
В общем пишу что-то типа Паинта умею рисовать круги итд, но когда рисую круги, линии,...

Рисование кругов AutoLisp
помогите пожалуйста сделать задание (Autocad через лисп ) Нарисовать несколько графических...

Рисование кругов рекурсией

4
Pro_grammer
Модератор
6182 / 2266 / 443
Регистрация: 24.04.2011
Сообщений: 4,020
Записей в блоге: 10
23.04.2016, 11:10 2
Цитата Сообщение от EAleX_X Посмотреть сообщение
рисующее светофорные круги.
Я вот ни чего не понял. Почему круги в светофоре разного размера, и как так вышло, что кол-во кругов кем то регулируется?
Вы бы хоть от руки нарисовали, как это должно выглядеть?
0
EAleX_X
0 / 0 / 0
Регистрация: 16.04.2016
Сообщений: 8
23.04.2016, 11:31  [ТС] 3
вот картинка к заданию
0
Миниатюры
Рисование светофорных кругов  
Pro_grammer
Модератор
6182 / 2266 / 443
Регистрация: 24.04.2011
Сообщений: 4,020
Записей в блоге: 10
23.04.2016, 14:50 4
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Цитата Сообщение от EAleX_X Посмотреть сообщение
Число кругов вводится после запуска программы.
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
Option Explicit
Dim n As Integer
 
Private Sub Form_Load()
    n = Val(InputBox("Введите кол-во кругов ", "", "3"))
    Form1.ScaleMode = 3
End Sub
Private Sub Form_Paint()
    Dim x As Integer
    Dim y As Integer
    Dim i As Integer
    x = 20: y = 20
    For i = 1 To n
            With Form1
                    .FillColor = vbRed
                    Circle (x, y), 20, vbRed
                    .FillColor = vbYellow
                    Circle (x, y), 12, vbYellow
                    .FillColor = vbGreen
                    Circle (x, y), 6, vbGreen
            End With
            x = x + 40
    Next
End Sub
1
EAleX_X
0 / 0 / 0
Регистрация: 16.04.2016
Сообщений: 8
26.04.2016, 13:26  [ТС] 5
Большое вам спасибо !!!
0
26.04.2016, 13:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2016, 13:26

Рисование кругов в Паскале
Пишу курсовую (игра), лягушка прыгает по болоту. И вот на что наткнулся Код: uses graph; ...

Рисование нескольких кругов в панели
нужно написать программу : при клике по панели рисуется новый круг. Как это реализовать?

Рисование кругов по данным из файла
Надо нарисовать круги, с условием, что данные(координата х, координата у и радиус считываются с...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru