Программа должна рисовать шестиугольник, менять цвета

@in_box · Регистрация: 21.10.2010

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

Прога должна рисовать шестиугольник менять цвета и перемещаться стрелками
рисует,но не меняет цвета и не перемещается

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Public x1 As Long
Public y1 As Long
Public x2 As Long
Public y2 As Long
Public B As Long
Public x As Long
Public y As Long
Public R As Long
Public c As Long
Const pi = 3.1415926
 
 
 
Private Sub Form_Load()
 
 
Dim CX As Single, CY As Single, R As Single
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single, i As Long
Cls
AutoRedraw = True
DrawStyle = 0
DrawWidth = 1
 CX = ScaleWidth / 2
  CY = ScaleHeight / 2
  R = (CY + CX) / 4
  For i = 0 To 5
    x1 = CX + R * Cos(i * pi / 3)
    y1 = CY + R * Sin(i * pi / 3)
    x2 = CX + R * Cos((i + 1) * pi / 3)
    y2 = CY + R * Sin((i + 1) * pi / 3)
    Line (x1, y1)-(x2, y2)
  Next i
  End Sub
    
 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Cls
Select Case KeyCode
 
Case 112
    c = RGB(255, 255, 255)
Case 113
    c = RGB(0, 200, 255)
Case 114
    c = RGB(255, 0, 0)
Case 115
    c = RGB(0, 255, 0)      '
Case 116
    c = RGB(0, 0, 255)
Case 117
    c = RGB(0, 255, 255)
Case 118
    c = RGB(255, 0, 255)
Case 119
    c = RGB(255, 255, 0)
Case 120
    c = RGB(200, 0, 0)
Case 121
    c = RGB(0, 200, 0)
Case 37
    If x > R + 300 Then
                   Circle (x, y), R, Form1.BackColor
                     x = x - 300
    End If
Case 40
     If y + 300 < Form1.Height - (2 * R + 300) Then
                   Circle (x, y), R, Form1.BackColor
                      y = y + 300
    End If
Case 38
   If y > (R + 300) Then
                  Circle (x, y), R, Form1.BackColor
                      y = y - 300
    End If
Case 39
    If x < Form1.Width - (R + 300) Then
                   Circle (x, y), R, Form1.BackColor
                      x = x + 300
    End If
End Select
Line (x1, y1)-(x2, y2), , B
End Sub

кто ,что посоветует сделать?

@Linoge · 16.12.2011, 16:04

Правильно, потому что отрисовка происходит только раз при загрузке формы.
А по клавишам меняются просто параметра.
Цвета вывел на цифры.

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
65
66
67
68
69
70
71
72
73
Dim X As Long
Dim Y As Long
Dim R As Long
Dim c As Long
Const pi = 3.1415926
 
Function draw()
Cls
R = 500
For i = 0 To 5
x1 = X + R * Cos(i * pi / 3)
y1 = Y + R * Sin(i * pi / 3)
x2 = X + R * Cos((i + 1) * pi / 3)
y2 = Y + R * Sin((i + 1) * pi / 3)
Line (x1, y1)-(x2, y2), c
Next i
End Function
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Cls
Select Case KeyCode
Case 49
c = RGB(255, 255, 255)
Case 50
c = RGB(0, 200, 255)
Case 51
c = RGB(255, 0, 0)
Case 52
c = RGB(0, 255, 0)
Case 53
c = RGB(0, 0, 255)
Case 54
c = RGB(0, 255, 255)
Case 55
c = RGB(255, 0, 255)
Case 56
c = RGB(255, 255, 0)
Case 57
c = RGB(200, 0, 0)
Case 58
c = RGB(0, 200, 0)
Case 37
If X > R + 300 Then
Circle (X, Y), R, Form1.BackColor
X = X - 300
End If
Case 40
If Y + 300 < Form1.Height - (2 * R + 300) Then
Circle (X, Y), R, Form1.BackColor
Y = Y + 300
End If
Case 38
If Y > (R + 300) Then
Circle (X, Y), R, Form1.BackColor
Y = Y - 300
End If
Case 39
If X < Form1.Width - (R + 300) Then
Circle (X, Y), R, Form1.BackColor
X = X + 300
End If
End Select
Call draw
End Sub
 
Private Sub Form_Load()
AutoRedraw = True
DrawStyle = 0
DrawWidth = 1
X = ScaleWidth / 2
Y = ScaleHeight / 2
Call draw
End Sub

@in_box · 16.12.2011, 16:09 **[ТС]**

огромное спасибо за помощь!!!

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@in_box 0 / 0 / 0 Регистрация: 21.10.2010 Сообщений: 41
	16.12.2011, 16:09 [ТС]
	огромное спасибо за помощь!!! 0