Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic .NET

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.90
Mark1615
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 30
#1

Создать приложение Светофор - Visual Basic .NET

15.11.2014, 13:52. Просмотров 1917. Ответов 28
Метки нет (Все метки)

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

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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2014, 13:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать приложение Светофор (Visual Basic .NET):

Создать приложение «Светофор» - Visual Basic .NET
Создать приложение «Светофор». Его назначение – демонстрация «логики» работы уличного светофора: правильного чередования включения и...

Создать полноэкранное приложение - Visual Basic .NET
Добрый вечер, подскажите как создать форму, чтобы она закрывала весь экран вместе с панелью задач. И как создать приложение чтобы оно...

Как создать мультиязыковое приложение - Visual Basic .NET
Доброго времени суток! На форме лабел Имя, два баттона Войти и Выйти и комбобокс. Как сделать что бы при выборе в комбобоксе Англ. все...

Создать приложение в корне сервера - .NET
Подскажите, кто знает, может есть возможность создать ASP-NET проект в корне Web-сервера (с помощью VS) А то она (VS) предлагает только...

Как создать бесформенное приложение - Visual Basic .NET
Добрый день знатоки Visual Basic 2010 Express! Мне нужно написать программу без формы, что бы просто отрабатывала. Попробовал Console но...

Как создать приложение не требующее framework? - .NET
В универе попросили сделать прогу, которая будет очищать Все рабочие столы данного компа (ничего сложного) Сделал за полтора часа =) (на...

28
Visualist
51 / 51 / 24
Регистрация: 01.02.2014
Сообщений: 201
15.11.2014, 14:04 #2
прикрепи проектик свой, а то не совсем понятно, что такое "выкл...", "зеленый..." и т.д. подозреваю, что picturebox
0
Mark1615
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 30
15.11.2014, 14:10  [ТС] #3
Visualist, а как его прикрепить сюда?
0
Mark1615
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 30
15.11.2014, 14:21  [ТС] #4
В архиве само приложение.
0
Вложения
Тип файла: rar задание 2.rar (842.7 Кб, 32 просмотров)
ovva
2153 / 1857 / 460
Регистрация: 02.02.2013
Сообщений: 1,732
Записей в блоге: 2
15.11.2014, 15:50 #5
Для начала неплохо воспользоваться поиском, например

Нарисовать светофор со сменой цветов
Программа "светофор"
1
Visualist
51 / 51 / 24
Регистрация: 01.02.2014
Сообщений: 201
15.11.2014, 17:06 #6
Вот, написал работу настоящего светофора, приложение прилагается
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
0
Вложения
Тип файла: 7z WindowsApplication3.7z (42.3 Кб, 24 просмотров)
Mark1615
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 30
19.11.2014, 12:26  [ТС] #7
Visualist, спасибо конечно но у меня на 2008 не идет как его под 2008 сделать?
0
Fragus
34 / 34 / 10
Регистрация: 16.09.2014
Сообщений: 127
19.11.2014, 16:22 #8
Посмотря варианты выше я чуть не упал.
Я обошелся буквально 30 строками кода. И использовал более гибкий способ
0
Вложения
Тип файла: rar Архив WinRAR.rar (104.2 Кб, 29 просмотров)
Fragus
34 / 34 / 10
Регистрация: 16.09.2014
Сообщений: 127
19.11.2014, 16:24 #9
Mark1615, Удиви препода моим вариантом. Я всегда делал из слона муху.
0
Visualist
51 / 51 / 24
Регистрация: 01.02.2014
Сообщений: 201
19.11.2014, 16:31 #10
Fragus, то, что 30 строк - это конечно круто, но где в твоем приложении светофор?)
0
Fragus
34 / 34 / 10
Регистрация: 16.09.2014
Сообщений: 127
19.11.2014, 16:46 #11
Visualist, А чем не светофор? Каждую секунду зажигает цвет светофора.
0
Visualist
51 / 51 / 24
Регистрация: 01.02.2014
Сообщений: 201
19.11.2014, 16:53 #12
Fragus, сделай на 30 строк эмуляцию настоящего светофора, как у меня.
алгоримт:
- горит красный,
- зажигается желтый
- тухнет красный и желтый
- загорается зеленый, горит
- начинает моргать зеленый, тухнет
- загорается желтый, тухнет
- загорается красный - идем в начало
0
Fragus
34 / 34 / 10
Регистрация: 16.09.2014
Сообщений: 127
19.11.2014, 16:57 #13
С работы приеду - сделаю
0
Qwertiy
821 / 629 / 75
Регистрация: 20.08.2013
Сообщений: 2,524
19.11.2014, 17:42 #14
Цитата Сообщение от Fragus Посмотреть сообщение
Я обошелся буквально 30 строками кода.
Что, соревнование, кто сделает светофор за меньшее число строк? Надо поучаствовать)))
0
Visualist
51 / 51 / 24
Регистрация: 01.02.2014
Сообщений: 201
19.11.2014, 17:48 #15
Fragus, только без ":"
0
19.11.2014, 17:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2014, 17:48
Привет! Вот еще темы с ответами:

Как создать приложение с использованием winapi - Visual Basic .NET
подскажите кто-нибудь как в Visual Basic.NET создать приложение с использованием winapi. Я пробовал написать, но у меня ничего не...

Как создать приложение без формы - Visual Basic .NET
Как создать приложение без формы, т.е. чтобы класс который создается при запуске программы(form1) был не form, а обычный?

Как создать приложение для работы с БД - Visual Basic .NET
Недавно познакомился с Акцессом, стало получаться, теперь узнал, что всё можно реализовать с помощью Visual Studio 8. Стал делать попытки...

Создать приложение иллюстрирующее работу операторов And, Or, Xor, Not, Is - Visual Basic .NET
Создать приложение иллюстрирующее работу операторов And, Or, Xor, Not, Is каким оно может быть?


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

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

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