Разработать программу, которая рисует на экране изображение светофора

@Yorksik · Регистрация: 10.12.2011

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

Ребят набросайте что нить плз. Графику вообще не изучал(

Разработать программу, которая рисует на экране изображение светофора. При помощи клавиш со стрелками обеспечить перемещение светофора, при помощи функциональных клавиш обеспечить смену цветов светофора.

SoftIce · 17.05.2012, 18:27

Могу предложить светофор

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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
Private Sub Command1_Click()
    Svetofor
End Sub
Public Sub Svetofor()
Form1.Line (66, 5)-(66, 6)
Form1.Line (67, 4)-(67, 7)
Form1.Line (68, 4)-(68, 7)
Form1.Line (69, 4)-(69, 7)
Form1.Line (70, 4)-(70, 7)
Form1.Line (71, 4)-(71, 106)
Form1.Line (72, 4)-(72, 106)
Form1.Line (72, 187)-(72, 200)
Form1.Line (73, 3)-(73, 106)
Form1.Line (73, 187)-(73, 200)
Form1.Line (74, 3)-(74, 106)
Form1.Line (74, 187)-(74, 200)
Form1.Line (75, 3)-(75, 106)
Form1.Line (75, 187)-(75, 200)
Form1.Line (76, 3)-(76, 106)
Form1.Line (76, 187)-(76, 200)
Form1.Line (77, 3)-(77, 106)
Form1.Line (77, 187)-(77, 200)
Form1.Line (78, 2)-(78, 106)
Form1.Line (78, 187)-(78, 200)
Form1.Line (79, 2)-(79, 106)
Form1.Line (79, 187)-(79, 200)
Form1.Line (80, 2)-(80, 23)
Form1.Line (80, 24)-(80, 56)
Form1.Line (80, 57)-(80, 88)
Form1.Line (80, 89)-(80, 106)
Form1.Line (80, 187)-(80, 200)
Form1.Line (81, 2)-(81, 19)
Form1.Line (81, 28)-(81, 52)
Form1.Line (81, 61)-(81, 84)
Form1.Line (81, 93)-(81, 106)
Form1.Line (81, 187)-(81, 200)
Form1.Line (82, 2)-(82, 17)
Form1.Line (82, 29)-(82, 50)
Form1.Line (82, 62)-(82, 82)
Form1.Line (82, 94)-(82, 106)
Form1.Line (82, 187)-(82, 200)
Form1.Line (83, 1)-(83, 16)
Form1.Line (83, 30)-(83, 49)
Form1.Line (83, 63)-(83, 81)
Form1.Line (83, 95)-(83, 106)
Form1.Line (83, 187)-(83, 200)
Form1.Line (84, 1)-(84, 15)
Form1.Line (84, 31)-(84, 48)
Form1.Line (84, 64)-(84, 80)
Form1.Line (84, 96)-(84, 106)
Form1.Line (84, 187)-(84, 200)
Form1.Line (85, 1)-(85, 14)
Form1.Line (85, 32)-(85, 47)
Form1.Line (85, 65)-(85, 79)
Form1.Line (85, 97)-(85, 106)
Form1.Line (85, 187)-(85, 200)
Form1.Line (86, 1)-(86, 13)
Form1.Line (86, 33)-(86, 46)
Form1.Line (86, 66)-(86, 78)
Form1.Line (86, 98)-(86, 106)
Form1.Line (86, 187)-(86, 200)
Form1.Line (87, 1)-(87, 13)
Form1.Line (87, 33)-(87, 46)
Form1.Line (87, 66)-(87, 78)
Form1.Line (87, 98)-(87, 106)
Form1.Line (87, 187)-(87, 200)
Form1.Line (88, 1)-(88, 12)
Form1.Line (88, 34)-(88, 45)
Form1.Line (88, 67)-(88, 77)
Form1.Line (88, 99)-(88, 106)
Form1.Line (88, 187)-(88, 200)
Form1.Line (89, 1)-(89, 12)
Form1.Line (89, 34)-(89, 45)
Form1.Line (89, 67)-(89, 77)
Form1.Line (89, 99)-(89, 106)
Form1.Line (89, 187)-(89, 200)
Form1.Line (90, 1)-(90, 12)
Form1.Line (90, 34)-(90, 45)
Form1.Line (90, 67)-(90, 77)
Form1.Line (90, 99)-(90, 106)
Form1.Line (90, 187)-(90, 200)
Form1.Line (91, 1)-(91, 12)
Form1.Line (91, 34)-(91, 45)
Form1.Line (91, 67)-(91, 77)
Form1.Line (91, 99)-(91, 200)
Form1.Line (92, 1)-(92, 12)
Form1.Line (92, 34)-(92, 45)
Form1.Line (92, 67)-(92, 77)
Form1.Line (92, 99)-(92, 200)
Form1.Line (93, 1)-(93, 12)
Form1.Line (93, 34)-(93, 45)
Form1.Line (93, 67)-(93, 77)
Form1.Line (93, 99)-(93, 200)
Form1.Line (94, 1)-(94, 12)
Form1.Line (94, 34)-(94, 45)
Form1.Line (94, 67)-(94, 77)
Form1.Line (94, 99)-(94, 200)
Form1.Line (95, 1)-(95, 12)
Form1.Line (95, 34)-(95, 45)
Form1.Line (95, 67)-(95, 77)
Form1.Line (95, 99)-(95, 200)
Form1.Line (96, 1)-(96, 12)
Form1.Line (96, 34)-(96, 45)
Form1.Line (96, 67)-(96, 77)
Form1.Line (96, 99)-(96, 106)
Form1.Line (96, 187)-(96, 200)
Form1.Line (97, 1)-(97, 12)
Form1.Line (97, 34)-(97, 45)
Form1.Line (97, 67)-(97, 77)
Form1.Line (97, 99)-(97, 106)
Form1.Line (97, 187)-(97, 200)
Form1.Line (98, 1)-(98, 13)
Form1.Line (98, 33)-(98, 46)
Form1.Line (98, 66)-(98, 78)
Form1.Line (98, 98)-(98, 106)
Form1.Line (98, 187)-(98, 200)
Form1.Line (99, 1)-(99, 13)
Form1.Line (99, 33)-(99, 46)
Form1.Line (99, 66)-(99, 78)
Form1.Line (99, 98)-(99, 106)
Form1.Line (99, 187)-(99, 200)
Form1.Line (100, 1)-(100, 14)
Form1.Line (100, 32)-(100, 47)
Form1.Line (100, 65)-(100, 79)
Form1.Line (100, 97)-(100, 106)
Form1.Line (100, 187)-(100, 200)
Form1.Line (101, 1)-(101, 15)
Form1.Line (101, 31)-(101, 48)
Form1.Line (101, 64)-(101, 80)
Form1.Line (101, 96)-(101, 106)
Form1.Line (101, 187)-(101, 200)
Form1.Line (102, 2)-(102, 16)
Form1.Line (102, 30)-(102, 49)
Form1.Line (102, 63)-(102, 81)
Form1.Line (102, 95)-(102, 106)
Form1.Line (102, 187)-(102, 200)
Form1.Line (103, 2)-(103, 17)
Form1.Line (103, 29)-(103, 50)
Form1.Line (103, 62)-(103, 82)
Form1.Line (103, 94)-(103, 106)
Form1.Line (103, 187)-(103, 200)
Form1.Line (104, 2)-(104, 19)
Form1.Line (104, 28)-(104, 52)
Form1.Line (104, 61)-(104, 84)
Form1.Line (104, 93)-(104, 106)
Form1.Line (104, 187)-(104, 200)
Form1.Line (105, 3)-(105, 106)
Form1.Line (105, 187)-(105, 200)
Form1.Line (106, 3)-(106, 106)
Form1.Line (106, 187)-(106, 200)
Form1.Line (107, 3)-(107, 106)
Form1.Line (107, 187)-(107, 200)
Form1.Line (108, 3)-(108, 106)
Form1.Line (108, 187)-(108, 200)
Form1.Line (109, 4)-(109, 106)
Form1.Line (109, 187)-(109, 200)
Form1.Line (110, 4)-(110, 106)
Form1.Line (110, 187)-(110, 200)
Form1.Line (111, 4)-(111, 106)
Form1.Line (111, 187)-(111, 200)
Form1.Line (112, 5)-(112, 106)
Form1.Line (112, 187)-(112, 200)
Form1.Line (113, 5)-(113, 106)
Form1.Line (113, 187)-(113, 200)
Form1.Line (114, 5)-(114, 106)
Form1.Line (114, 187)-(114, 200)
Form1.Line (115, 6)-(115, 9)
Form1.Line (116, 6)-(116, 9)
Form1.Line (117, 6)-(117, 9)
Form1.Line (118, 7)-(118, 8)
End Sub
Private Sub Form_Load()
      ScaleMode = 3
End Sub

SoftIce · 17.05.2012, 18:39

А если серьёзно - то вот ребята делали:

@Yorksik · 17.05.2012, 18:50 **[ТС]**

Спасибо конешн)) но это немного не то)) там что-то типа первого кода должно быть только вот с выполнением условий задачи)

@Yorksik · 17.05.2012, 19:14 **[ТС]**

вот наверное аналогичная задача

@Yorksik · 17.05.2012, 20:17 **[ТС]**

Ребят есть кто нить понимающий в графике??)
Завтра сдать надо ужо)

SoftIce · 17.05.2012, 20:18

Ну вот посмотри

@Yorksik · 17.05.2012, 20:24 **[ТС]**

То что надо)))) Спасибо)
Попробую разобраться в коде самостоятельно))

Добавлено через 1 минуту
Совершенно не так как в лекции читали))
Кода в раз пять меньше)))хд

@PAnT0P · 17.05.2012, 22:49

Сообщение от Yorksik

Совершенно не так как в лекции читали))
Кода в раз пять меньше)))хд

Не по теме:

У вас лектор наверно с каменного века преподает :D

@Yorksik · 17.05.2012, 22:52 **[ТС]**

Возможно))) в примере что кидал собственно и представлен его способ реализации)

@Yorksik · 21.05.2012, 14:07 **[ТС]**

Ребят возможно ли доработать эту программу чтоб светофор не выходил за пределы формы

SoftIce · 21.05.2012, 14:39

Сообщение от Yorksik

чтоб светофор не выходил за пределы формы

____________

@Yorksik · 21.05.2012, 17:42 **[ТС]**

Благодарю

@Yorksik · 17.09.2012, 14:55 **[ТС]**

Сообщение от SoftIce

____________

Измени пожалуйста программу светофор. Нужна лампочка с теми же свойствами. Включаем отключаем по кнопке (F1)

@Yorksik · 23.09.2012, 17:54 **[ТС]**

Кто нить может поправить код???!

Dragokas · 23.09.2012, 17:58

Дак, это... будьте любезны, объясните более внятно, пожалуйста.

У меня при попытке это сделать возникло сразу куча вопросов:
1) F1 - уже завешана над действием.
2) Что за лампочка - еще одну влепить - что-ли...

@Yorksik · 23.09.2012, 18:10 **[ТС]**

Сообщение от Dragokas

Дак, это... будьте любезны, объясните более внятно, пожалуйста.

Естественно так.

Сообщение от Dragokas

У меня при попытке это сделать возникло сразу куча вопросов:
1) F1 - уже завешана над действием.
2) Что за лампочка - еще одну влепить - что-ли...

Тот Светофор вообще уничтожить, a вместо него должна быть лампочка перемещающаяся по форме не выходя за ее граници при помощи стрелочек и включающаяся при помощи функциональных клавиш.

SoftIce · 23.09.2012, 18:14

Вот лампочку сделал.

Не по теме:

Движение делать уже неохота, устал я после выходных:D

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
Dim LampOn As Boolean
 
Private Sub Lamp(drawW As Integer, fillS As Integer, foreC As Long)
    Cls
    FillStyle = fillS: FillColor = vbYellow:  Circle (272, 150), 60
    Line (256, 216)-(288, 224): Line (256, 224)-(288, 232): Line (256, 232)-(288, 240)
    Line (256, 240)-(288, 248): Line (256, 216)-(288, 216): Line (256, 248)-(288, 248)
    Line (288, 216)-(304, 200): Line (240, 200)-(256, 216): Line (256, 216)-(256, 248)
    Line (288, 216)-(288, 248): Line (256, 136)-(264, 208): Line (288, 136)-(280, 208)
    Line (256, 248)-(264, 256): Line (288, 248)-(280, 256): Line (264, 256)-(280, 256)
    ForeColor = foreC: DrawWidth = drawW
    Line (256, 136)-(264, 144): Line (288, 136)-(280, 144)
    Line (272, 136)-(264, 144): Line (272, 136)-(280, 144)
    ForeColor = vbBlack: DrawWidth = 1
End Sub
 
Private Sub Form_Load()
    Form1.ScaleMode = 3: AutoRedraw = True: KeyPreview = True
    Me.Show
    'Label1.Caption = "F1 - погасить/зажечь."
    Lamp 1, 1, vbBlack
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
   If KeyCode = 112 Then LampOn = Not LampOn
   If LampOn Then Lamp 5, 0, RGB(255, 50, 50) Else Lamp 1, 1, vbBlack
End Sub

@Yorksik · 23.09.2012, 19:44 **[ТС]**

SoftIce, сильная лампочка.
Для себя представлял круг поставленный на прямоугольник

Добавлено через 1 час 24 минуты
Подскажите плз почему внизу и справа лампочка выходит за пределы формы условия вродь правильно стоят.

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
Option Explicit
Dim LampOn As Boolean
Dim i, l, r, u, d As Integer
Dim j As Integer
 Private Sub Lamp(drawW As Integer, fillS As Integer, foreC As Long)
  Cls
    FillStyle = fillS: FillColor = vbYellow:  Circle (272 + i, 150 + j), 60
    Line (256 + i, 216 + j)-(288 + i, 224 + j): Line (256 + i, 224 + j)-(288 + i, 232 + j): Line (256 + i, 232 + j)-(288 + i, 240 + j)
    Line (256 + i, 240 + j)-(288 + i, 248 + j): Line (256 + i, 216 + j)-(288 + i, 216 + j): Line (256 + i, 248 + j)-(288 + i, 248 + j)
    Line (288 + i, 216 + j)-(304 + i, 200 + j): Line (240 + i, 200 + j)-(256 + i, 216 + j): Line (256 + i, 216 + j)-(256 + i, 248 + j)
    Line (288 + i, 216 + j)-(288 + i, 248 + j): Line (256 + i, 136 + j)-(264 + i, 208 + j): Line (288 + i, 136 + j)-(280 + i, 208 + j)
    Line (256 + i, 248 + j)-(264 + i, 256 + j): Line (288 + i, 248 + j)-(280 + i, 256 + j): Line (264 + i, 256 + j)-(280 + i, 256 + j)
    ForeColor = foreC: DrawWidth = drawW
    Line (256 + i, 136 + j)-(264 + i, 144 + j): Line (288 + i, 136 + j)-(280 + i, 144 + j)
    Line (272 + i, 136 + j)-(264 + i, 144 + j): Line (272 + i, 136 + j)-(280 + i, 144 + j)
    ForeColor = vbBlack: DrawWidth = 1
End Sub
 Private Sub Form_Load()
    Form1.ScaleMode = 3: AutoRedraw = True: KeyPreview = True
    'Me.Show
    Label1.Caption = "F1 - погасить/зажечь."
    Lamp 1, 1, vbBlack
End Sub
 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'определяем какая клавиша нажата
   If KeyCode = 112 Then LampOn = Not LampOn
   If LampOn Then Lamp 5, 0, RGB(255, 50, 50) Else Lamp 1, 1, vbBlack
 l = 210 + i
 r = 304 + i
 u = 90 + j
 d = 280 + j
 Select Case KeyCode
        Case vbKeyUp:: If u > 0 Then i = i: j = j - 5 Else: i = i: j = j
        Case vbKeyDown: If d < Me.Height Then i = i: j = j + 5 Else i = i: j = j
        Case vbKeyLeft: If l > 0 Then i = i - 5: j = j Else i = i: j = j
        Case vbKeyRight: If r < Me.Width Then i = i + 5: j = j Else i = i: j = j
 End Select
 
Print Me.Width; Me.Height
End Sub

SoftIce · 23.09.2012, 21:13

Сообщение от Yorksik

Подскажите плз почему внизу и справа лампочка выходит за пределы формы условия вродь правильно стоят

Потому что у тебя Me.Height и Me.Width в твипах, а ScaleMode в пикселях.

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
Option Explicit
Dim LampOn As Boolean, dX As Integer, dY As Integer
Private Sub Lamp(drawW As Integer, fillS As Integer, foreC As Long)
    Cls
    FillStyle = fillS: FillColor = vbYellow:  Circle (272 + dX, 150 + dY), 60
    Line (256 + dX, 216 + dY)-(288 + dX, 224 + dY): Line (256 + dX, 224 + dY)-(288 + dX, 232 + dY): Line (256 + dX, 232 + dY)-(288 + dX, 240 + dY)
    Line (256 + dX, 240 + dY)-(288 + dX, 248 + dY): Line (256 + dX, 216 + dY)-(288 + dX, 216 + dY): Line (256 + dX, 248 + dY)-(288 + dX, 248 + dY)
    Line (288 + dX, 216 + dY)-(304 + dX, 200 + dY): Line (240 + dX, 200 + dY)-(256 + dX, 216 + dY): Line (256 + dX, 216 + dY)-(256 + dX, 248 + dY)
    Line (288 + dX, 216 + dY)-(288 + dX, 248 + dY): Line (256 + dX, 136 + dY)-(264 + dX, 208 + dY): Line (288 + dX, 136 + dY)-(280 + dX, 208 + dY)
    Line (256 + dX, 248 + dY)-(264 + dX, 256 + dY): Line (288 + dX, 248 + dY)-(280 + dX, 256 + dY): Line (264 + dX, 256 + dY)-(280 + dX, 256 + dY)
    ForeColor = foreC: DrawWidth = drawW
    Line (256 + dX, 136 + dY)-(264 + dX, 144 + dY): Line (288 + dX, 136 + dY)-(280 + dX, 144 + dY)
    Line (272 + dX, 136 + dY)-(264 + dX, 144 + dY): Line (272 + dX, 136 + dY)-(280 + dX, 144 + dY)
    ForeColor = vbBlack: DrawWidth = 1
End Sub
 
Private Sub Form_Load()
    Form1.ScaleMode = 3: AutoRedraw = True: KeyPreview = True
    'Me.Show
    'Label1.Caption = "F1 - погасить/зажечь."
    Lamp 1, 1, vbBlack
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim l As Integer, r As Integer, u As Integer, d As Integer
l = 210 + dX: r = 340 + dX: u = 90 + dY: d = 295 + dY
  Select Case KeyCode
        Case vbKeyUp:: If u > 0 Then dY = dY - 5
        Case vbKeyDown: If d < Me.Height / Screen.TwipsPerPixelY Then dY = dY + 5
        Case vbKeyLeft: If l > 0 Then dX = dX - 5
        Case vbKeyRight: If r < Me.Width / Screen.TwipsPerPixelX Then dX = dX + 5
 End Select
If KeyCode = 112 Then LampOn = Not LampOn
If LampOn Then Lamp 5, 0, RGB(255, 50, 50) Else Lamp 1, 1, vbBlack
End Sub

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383

	Разработать программу, которая рисует на экране изображение светофора 17.05.2012, 17:58. Показов 3216. Ответов 19 Метки нет (Все метки) Ребят набросайте что нить плз. Графику вообще не изучал( Разработать программу, которая рисует на экране изображение светофора. При помощи клавиш со стрелками обеспечить перемещение светофора, при помощи функциональных клавиш обеспечить смену цветов светофора. 0

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383
	17.05.2012, 18:50 [ТС]
	Спасибо конешн)) но это немного не то)) там что-то типа первого кода должно быть только вот с выполнением условий задачи) 0

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383
	17.05.2012, 20:17 [ТС]
	Ребят есть кто нить понимающий в графике??) Завтра сдать надо ужо) 0

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383
	17.05.2012, 20:24 [ТС]
	То что надо)))) Спасибо) Попробую разобраться в коде самостоятельно)) Добавлено через 1 минуту Совершенно не так как в лекции читали)) Кода в раз пять меньше)))хд 0

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383
	17.05.2012, 22:52 [ТС]
	Возможно))) в примере что кидал собственно и представлен его способ реализации) 0

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383
	21.05.2012, 14:07 [ТС]
	Ребят возможно ли доработать эту программу чтоб светофор не выходил за пределы формы 0

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383
	21.05.2012, 17:42 [ТС]
	Благодарю 0

@Yorksik 31 / 50 / 2 Регистрация: 10.12.2011 Сообщений: 383
	23.09.2012, 17:54 [ТС]
	Кто нить может поправить код???! 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	23.09.2012, 17:58
	Дак, это... будьте любезны, объясните более внятно, пожалуйста. У меня при попытке это сделать возникло сразу куча вопросов: 1) F1 - уже завешана над действием. 2) Что за лампочка - еще одну влепить - что-ли... 0

Разработать программу, которая рисует на экране изображение светофора

Решение