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

@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.

Новые блоги и статьи Все статьи Все блоги /
Результаты исследования от команды MCM (март 2025 г.) Programma_Boinc 07.04.2025 Результаты исследования от команды MCM (март 2025 г. ) В рамках наших текущих исследований мы продолжаем изучать гены, которые имеют наибольшую вероятность развития рака легких, выявленные в рамках. . .	Рекурсивные типы в Python py-thonny 07.04.2025 Рекурсивные типы - это типы данных, которые определяются через самих себя или в сочетании с другими типами, которые в свою очередь ссылаются на исходный тип. В мире программирования такие структуры. . .	C++26: Объединение и конкатенация последовательностей и диапазонов в std::ranges NullReferenced 07.04.2025 Работа с последовательностями данных – одна из фундаментальных задач, с которой сталкивается каждый разработчик. C++ прошел длинный путь в эволюции средств для манипуляции коллекциями – от. . .	Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .
Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .	Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .

@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 4701 / 3655 / 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