Создать приложение Светофор

@Mark1615 · Регистрация: 04.04.2014

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

Создать приложение «Светофор.
Код для данного предложения есть но он очень большой.
Подскажите как его изменить например сделать что бы цвета зажигались в другом порядке и т п.

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
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
Public Class Form1
    Dim n As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Dim Гр As Graphics = Me.CreateGraphics
        'Объявляем точки и прямоугольники:
        Dim П1, П2 As Rectangle
        'Задаем координаты и размеры:
        П1.X = 350 : П1.Y = 50 : П1.Width = 300 : П1.Height = 300
        П2.X = 475 : П2.Y = 350 : П2.Width = 50 : П2.Height = 350
        Гр.DrawRectangle(Pens.Black, П1)
        Гр.DrawRectangle(Pens.Black, П2)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        n = n + 1
        If n = 12 Then n = 0
        Select Case n
            Case 0
                выкл1.Visible = False
                If выкл1.Visible = False Then
                    выкл2.Visible = True
                    выкл3.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 5000
                End If
            Case 1
                выкл2.Visible = False
                If выкл2.Visible = False Then
                    выкл1.Visible = True
                    выкл3.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 1500
                End If
            Case 2
                выкл3.Visible = False
                If выкл3.Visible = False Then
                    выкл2.Visible = True
                    выкл1.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    зеленый.Visible = True
                    Timer1.Interval = 7000
                End If
            Case 3
                выкл3.Visible = False
                выкл2.Visible = True
                выкл1.Visible = True
                зеленый1.Visible = False
                зеленый2.Visible = False
                зеленый4.Visible = False
                зеленый5.Visible = True
                зеленый3.Visible = False
                Timer1.Interval = 1000
            Case 4
                выкл3.Visible = False
                выкл2.Visible = True
                выкл1.Visible = True
                зеленый1.Visible = False
                зеленый2.Visible = False
                зеленый4.Visible = True
                зеленый5.Visible = False
                зеленый3.Visible = False
                Timer1.Interval = 1000
 
 
            Case 5
                выкл3.Visible = True
                If выкл3.Visible = True Then
                    выкл2.Visible = True
                    выкл1.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 500
                End If
 
            Case 6
                выкл3.Visible = False
                If выкл3.Visible = False Then
                    выкл2.Visible = True
                    выкл1.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = True
                    зеленый.Visible = False
                    Timer1.Interval = 500
                End If
            Case 7
                выкл3.Visible = True
                If выкл3.Visible = True Then
                    выкл2.Visible = True
                    выкл1.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 500
                End If
            Case 8
                выкл3.Visible = False
                If выкл3.Visible = False Then
                    выкл2.Visible = True
                    выкл1.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = True
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 500
                End If
            Case 9
                выкл3.Visible = True
                If выкл3.Visible = True Then
                    выкл2.Visible = True
                    выкл1.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 500
                End If
            Case 10
                выкл3.Visible = False
                If выкл3.Visible = False Then
                    выкл2.Visible = True
                    выкл1.Visible = True
                    зеленый2.Visible = False
                    зеленый1.Visible = True
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 500
                End If
            Case 11
                выкл2.Visible = False
                If выкл2.Visible = False Then
                    выкл1.Visible = True
                    выкл3.Visible = True
                    зеленый1.Visible = False
                    зеленый2.Visible = False
                    зеленый4.Visible = False
                    зеленый5.Visible = False
                    зеленый3.Visible = False
                    Timer1.Interval = 3000
                End If
        End Select
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

@Visualist · 15.11.2014, 14:04

прикрепи проектик свой, а то не совсем понятно, что такое "выкл...", "зеленый..." и т.д. подозреваю, что picturebox

@Mark1615 · 15.11.2014, 14:10 **[ТС]**

Visualist, а как его прикрепить сюда?

@Mark1615 · 15.11.2014, 14:21 **[ТС]**

В архиве само приложение.

@ovva · 15.11.2014, 15:50

Для начала неплохо воспользоваться поиском, например

Нарисовать светофор со сменой цветов
Программа "светофор"

@Visualist · 15.11.2014, 17:06

Вот, написал работу настоящего светофора, приложение прилагается

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
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
Dim PerehSRed, PerehSGreen
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Гр As Graphics = Me.CreateGraphics
        'Объявляем точки и прямоугольники:
        Dim П1, П2 As Rectangle
        'Задаем координаты и размеры:
        П1.X = 350 : П1.Y = 50 : П1.Width = 300 : П1.Height = 300
        П2.X = 475 : П2.Y = 350 : П2.Width = 50 : П2.Height = 350
        Гр.DrawRectangle(Pens.Black, П1)
        Гр.DrawRectangle(Pens.Black, П2)
 
        pbR.Show()
        pbY.Hide()
        pbG.Hide()
 
        timR.Start()
    End Sub
 
    Private Sub timR_Tick(sender As Object, e As EventArgs) Handles timR.Tick
        pbY.Show()
        PerehSRed = True : PerehSGreen = False
        timY.Start()
        timR.Stop()
    End Sub
 
    Private Sub timY_Tick(sender As Object, e As EventArgs) Handles timY.Tick
        If PerehSRed Then
            pbR.Hide()
            pbY.Hide()
            pbG.Show()
            timG.Start()
        Else
            pbY.Hide()
            pbR.Show()
            timR.Start()
        End If
        timY.Stop()
    End Sub
 
    Private Sub timG_Tick(sender As Object, e As EventArgs) Handles timG.Tick
        TimMor.Start()
        timG.Stop()
    End Sub
 
    Private Sub TimMor_Tick(sender As Object, e As EventArgs) Handles TimMor.Tick
        Static MN As Integer
        If MN > 5 Then
            pbG.Hide()
            pbY.Show()
            PerehSRed = False : PerehSGreen = True
            timY.Start()
            TimMor.Stop()
            MN = 0
        Else
            If pbG.Visible Then
                pbG.Hide()
            Else
                pbG.Show()
            End If
            MN += 1
        End If
    End Sub

@Mark1615 · 19.11.2014, 12:26 **[ТС]**

Visualist, спасибо конечно но у меня на 2008 не идет как его под 2008 сделать?

@Fragus · 19.11.2014, 16:22

Посмотря варианты выше я чуть не упал.
Я обошелся буквально 30 строками кода. И использовал более гибкий способ

@Fragus · 19.11.2014, 16:24

Mark1615, Удиви препода моим вариантом. Я всегда делал из слона муху.

@Visualist · 19.11.2014, 16:31

Fragus, то, что 30 строк - это конечно круто, но где в твоем приложении светофор?)

@Fragus · 19.11.2014, 16:46

Visualist, А чем не светофор? Каждую секунду зажигает цвет светофора.

@Visualist · 19.11.2014, 16:53

Fragus, сделай на 30 строк эмуляцию настоящего светофора, как у меня.
алгоримт:
- горит красный,
- зажигается желтый
- тухнет красный и желтый
- загорается зеленый, горит
- начинает моргать зеленый, тухнет
- загорается желтый, тухнет
- загорается красный - идем в начало

@Fragus · 19.11.2014, 16:57

С работы приеду - сделаю

@Qwertiy · 19.11.2014, 17:42

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

Я обошелся буквально 30 строками кода.

Что, соревнование, кто сделает светофор за меньшее число строк? Надо поучаствовать)))

@Visualist · 19.11.2014, 17:48

Fragus, только без ":"

@Fragus · 19.11.2014, 18:21

Visualist,Ну и так сойдет

@Visualist · 19.11.2014, 18:44

Fragus, не работает программа твоя

@Fragus · 19.11.2014, 19:14

Visualist, У меня работает все.
Может из за разных версий студии ругается судя по отрезку сообщения "Virsion 10.0..."
Пишу на 2010

@Visualist · 19.11.2014, 20:15

Fragus, нет, не думаю, что тут виновата версия студии, т.к. с под винды приложение не запускается. Ведь не обязательно же на каждый комп ставить студию, чтобы запускать программы?
А первое твое приложение, что сбрасывал днем отлично запускается. Или оно не на 2010 написано?

Добавлено через 16 минут

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

Что, соревнование, кто сделает светофор за меньшее число строк? Надо поучаствовать)))

да, давай с нами)

@Fragus · 19.11.2014, 21:18

2010.

Новые блоги и статьи Все статьи Все блоги /
TypeScript: Интерфейсы vs Типы run.dev 11.04.2025 Современная разработка на JavaScript сталкивается с множеством проблем при масштабировании проектов. Типизация кода стала хорошим инструментом, помогающим избежать ошибок во время выполнения,. . .	Управление топиками и разделами Kafka Javaican 11.04.2025 Apache Kafka — распределенная платформа потоковой передачи данных, которая стала стандартом для построения высоконагруженных систем обмена сообщениями. В современной архитектуре микросервисов,. . .	Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .
Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи будет иметь приблизительный результат вычисления для метода обработки данных из double buffering. Hrethgir 10.04.2025 Вообще изначально я пренебрёг квадратурой числа, но потом понял, что для вычисления приблизительного значения - сгодится, формулу можно будет корректировать по ходу. Это потому что прямое соотношение. . .	Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	15.11.2014, 14:04
	прикрепи проектик свой, а то не совсем понятно, что такое "выкл...", "зеленый..." и т.д. подозреваю, что picturebox 0

@Mark1615 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 30
	15.11.2014, 14:10 [ТС]
	Visualist, а как его прикрепить сюда? 0

@ovva 4704 / 3658 / 856 Регистрация: 02.02.2013 Сообщений: 3,509 Записей в блоге: 2
	15.11.2014, 15:50
	Для начала неплохо воспользоваться поиском, например Нарисовать светофор со сменой цветов Программа "светофор" 1

@Mark1615 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 30
	19.11.2014, 12:26 [ТС]
	Visualist, спасибо конечно но у меня на 2008 не идет как его под 2008 сделать? 0

@Fragus 37 / 37 / 10 Регистрация: 16.09.2014 Сообщений: 167
	19.11.2014, 16:24
	Mark1615, Удиви препода моим вариантом. Я всегда делал из слона муху. 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	19.11.2014, 16:31
	Fragus, то, что 30 строк - это конечно круто, но где в твоем приложении светофор?) 0

@Fragus 37 / 37 / 10 Регистрация: 16.09.2014 Сообщений: 167
	19.11.2014, 16:46
	Visualist, А чем не светофор? Каждую секунду зажигает цвет светофора. 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	19.11.2014, 16:53
	Fragus, сделай на 30 строк эмуляцию настоящего светофора, как у меня. алгоримт: - горит красный, - зажигается желтый - тухнет красный и желтый - загорается зеленый, горит - начинает моргать зеленый, тухнет - загорается желтый, тухнет - загорается красный - идем в начало 0

@Fragus 37 / 37 / 10 Регистрация: 16.09.2014 Сообщений: 167
	19.11.2014, 16:57
	С работы приеду - сделаю 0

@Qwertiy 835 / 643 / 101 Регистрация: 20.08.2013 Сообщений: 2,524
	19.11.2014, 17:42
	Сообщение от Fragus Я обошелся буквально 30 строками кода. Что, соревнование, кто сделает светофор за меньшее число строк? Надо поучаствовать))) 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	19.11.2014, 17:48
	Fragus, только без ":" 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	19.11.2014, 18:44
	Fragus, не работает программа твоя Миниатюры 0

@Fragus 37 / 37 / 10 Регистрация: 16.09.2014 Сообщений: 167
	19.11.2014, 19:14
	Visualist, У меня работает все. Может из за разных версий студии ругается судя по отрезку сообщения "Virsion 10.0..." Пишу на 2010 Миниатюры 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	19.11.2014, 20:15
	Fragus, нет, не думаю, что тут виновата версия студии, т.к. с под винды приложение не запускается. Ведь не обязательно же на каждый комп ставить студию, чтобы запускать программы? А первое твое приложение, что сбрасывал днем отлично запускается. Или оно не на 2010 написано? Добавлено через 16 минут Сообщение от Qwertiy Что, соревнование, кто сделает светофор за меньшее число строк? Надо поучаствовать))) да, давай с нами) 0

@Fragus 37 / 37 / 10 Регистрация: 16.09.2014 Сообщений: 167
	19.11.2014, 21:18
	2010. 0