Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6]Программа «светофор»

Автор: werta 20.4.2007, 17:31

Здравствуйте!

Дано - три объекта Shape и кнопка

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

smile

Спасибо!!!

Автор: Akina 20.4.2007, 17:37

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Anikmar 20.4.2007, 21:19

Весьма интересное задание.
Моя дочка в 5 классе. У нее была аналогичная задача про хомячка, который только жрет и спит. Проходили они тогда остаток от деления...

Я немного не понимаю, что должно быть запрограммировано? Получить остаток от деления заданного количества минут на 5? Или раскрасить фигурки в заданные цвета? И зачем три объекта, если про желтый свет ничего не говориться?

Автор: DimkraS 21.4.2007, 14:48

Чё с жёлтычм делать? Или он не нужен?

Автор: werta 21.4.2007, 21:27

Цитата(DimkraS @ 21.4.2007, 14:48)

Чё с жёлтычм делать? Или он не нужен?

да он(цвет) и не нужен smile

Автор: darkart 23.4.2007, 01:06

cmdResult - кнопка, shpResult - shape, txtMinutes - textbox

Код


Private Sub cmdResult_Click()
Dim Minutes As Integer 'кол-во минут
Minutes = Int(txtMinutes.Text) 'отбрасываем дробную часть
Minutes = Minutes Mod 5 'узнаем сколько прошло с последнего цикла
If Minutes < 3 Then 'если меньше 3, то свет зеленый
    shpResult.BackColor = vbGreen
Else 'иначе красный
    shpResult.BackColor = vbRed
End If
End Sub

Автор: werta 23.4.2007, 09:14

Цитата(darkart @ 23.4.2007, 01:06)

cmdResult - кнопка, shpResult - shape, txtMinutes - textbox

Код


Private Sub cmdResult_Click()
Dim Minutes As Integer 'кол-во минут
Minutes = Int(txtMinutes.Text) 'отбрасываем дробную часть
Minutes = Minutes Mod 5 'узнаем сколько прошло с последнего цикла
If Minutes < 3 Then 'если меньше 3, то свет зеленый
    shpResult.BackColor = vbGreen
Else 'иначе красный
    shpResult.BackColor = vbRed
End If
End Sub

Спасибо вам!!!!!!!!