Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
joker994
9 / 3 / 0
Регистрация: 14.05.2012
Сообщений: 58
#1

Нужно сделать тело коричневым, внутренний круг тела серым

20.06.2012, 15:19. Просмотров 932. Ответов 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
37
38
39
Private Sub Command1_Click()
Picture1.Scale (-255, 255)-(255, -255)
Picture1.DrawWidth = 1
Picture1.FillStyle = 0
Picture1.BackColor = QBColor(2)
 
   'ГђГЁГ±ГіГ*îê
   Picture1.Circle (0, -60), 150, vbWhite
   Picture1.Circle (0, -70), 80, vbWhite
   Picture1.Circle (0, 130), 70, vbWhite
   Picture1.Circle (-20, 140), 10, vbWhite
   Picture1.Circle (20, 140), 10, vbWhite
   Picture1.Circle (0, 120), 7, vbWhite
   Picture1.Line (-15, 100)-(15, 100), vbWhite
   Picture1.Line (-70, 130)-(0, 120), vbWhite
   Picture1.Line (-70, 100)-(0, 120), vbWhite
   Picture1.Line (70, 130)-(0, 120), vbWhite
   Picture1.Line (70, 100)-(0, 120), vbWhite
   Picture1.Circle (-50, 190), 17, vbWhite
   Picture1.Circle (50, 190), 17, vbWhite
   Picture1.Line (-200, -110)-(-100, -150), vbWhite
   Picture1.Line (-200, -115)-(-100, -150), vbWhite
   Picture1.Line (-200, -120)-(-100, -150), vbWhite
   Picture1.Line (-200, -125)-(-100, -150), vbWhite
   Picture1.Line (-200, -130)-(-100, -150), vbWhite
   Picture1.Line (-200, -135)-(-100, -150), vbWhite
   Picture1.Line (-200, -140)-(-100, -150), vbWhite
   Picture1.Line (-200, -145)-(-100, -150), vbWhite
   Picture1.Line (-200, -150)-(-100, -150), vbWhite
   Picture1.Line (-200, -155)-(-100, -150), vbWhite
   Picture1.Line (-200, -160)-(-100, -150), vbWhite
   Picture1.Line (-200, -165)-(-100, -150), vbWhite
   Picture1.Line (-200, -170)-(-100, -150), vbWhite
   Picture1.Line (-200, -175)-(-100, -150), vbWhite
   Picture1.Line (-200, -180)-(-100, -150), vbWhite
   Picture1.Line (-200, -185)-(-100, -150), vbWhite
   Picture1.Line (-200, -190)-(-100, -150), vbWhite
   Picture1.Line (-200, -195)-(-100, -150), vbWhite
End Sub

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2012, 15:19
Ответы с готовыми решениями:

Нужно передать данные от одного устройства(с серым ip) к другим устройствам(с серым ip)
Нужно передать данные от одного устройства(с серым ip) к другим устройствам(с...

Нужно сделать редирект с внешенго ip на внутренний
Система:Windows 10 Pro Virtual: VirtualBox 5 -> Ubuntu + LAMP Server]...

Даны круг и полоса. Нужно выяснить, лежит ли круг в этой полосе
Даны круг и полоса. Нужно выяснить, лежит ли круг в этой полосе. Input Со...

Нужно сделать 2 круга, один по центру, другой должен проходить во круг него по окружности
Проблема в следующем. Нужно сделать 2 круга, один по центру, другой должен...

Изобразить тело, вычислить объем этого тела
Я новичок в mathcad помогите сделать задание. Изобразить тело, полученное...

2
SoftIce
comment ca va
10435 / 3943 / 1006
Регистрация: 27.07.2011
Сообщений: 9,526
Завершенные тесты: 1
20.06.2012, 16:43 #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
Private Sub Command1_Click()
Dim i As Integer
Picture1.Scale (-255, 255)-(255, -255)
Picture1.DrawWidth = 1          'толщина линий
Picture1.FillStyle = 0          'заливка - сплошная
Picture1.BackColor = QBColor(2) ' цвет фона
 
   'Рисунок
   Picture1.FillColor = RGB(120, 70, 60)       'цвет внешней части пуза
   Picture1.Circle (0, -60), 150, vbWhite      'внешняя часть пуза
   Picture1.FillColor = RGB(100, 100, 100)     'цвет внутренней части пуза
   Picture1.Circle (0, -70), 80, vbWhite       'внутренняя часть пуза
   Picture1.FillColor = RGB(120, 70, 60)       'цвет заливки морды
   Picture1.Circle (0, 130), 70, vbWhite       'морда
   Picture1.FillColor = vbBlue                 'цвет заливки глаз
   Picture1.Circle (-20, 140), 10, vbWhite     'левый глаз
   Picture1.Circle (20, 140), 10, vbWhite      'правый глаз
   Picture1.FillColor = vbRed                  'цвет заливки носа
   Picture1.Circle (0, 120), 7, vbWhite        'нос
   Picture1.Line (-15, 100)-(15, 100), vbWhite 'рот
   Picture1.Line (-70, 130)-(0, 120), vbWhite  'усы
   Picture1.Line (-70, 100)-(0, 120), vbWhite  'усы
   Picture1.Line (70, 130)-(0, 120), vbWhite   'усы
   Picture1.Line (70, 100)-(0, 120), vbWhite   'усы
   Picture1.FillColor = RGB(120, 50, 60)       'цвет заливки ушей
   Picture1.Circle (-50, 190), 17, vbWhite     'левое ухо
   Picture1.Circle (50, 190), 17, vbWhite      'правое ухо
   
   For i = 110 To 195 Step 5
       Picture1.Line (-200, -i)-(-100, -150), vbWhite 'хвост
   Next i
   
End Sub
1
joker994
9 / 3 / 0
Регистрация: 14.05.2012
Сообщений: 58
20.06.2012, 18:28  [ТС] #3
Огромное спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2012, 18:28

С башни высотой брошено тело. Определить время движения тела и др.
С башни высотой H = 40 м брошено тело со скоростью= 20м/c под углом =45градусов...

Тело ограничено заданными поверхностями. Построить изображение тела и найти
Помогите решить задачу: z=0, x^2+y^2=z, x^2+y^2=4 Тело ограничено заданными...

Как мне тело своей программки вписать в начало тела другой?
Как мне тело своей программки вписать в начало тела другой (что бы она сначало...


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

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

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