Программирование на Visual Basic.Net, элемент Timer (таймер)

Урок из серии: «Программирование на Visual Basic для школьников»

На этом уроке вы узнаете еще об одном применении компонента Windows Forms Timer (Таймер). Научитесь использовать Таймер для задержки времени появления объектов на экране.

Очень часто требуется вывести информацию на экран не всю сразу, а порциями, через указанные промежутки времени.

На языке программирования Visual Basic.Net вы создадите проект, в котором на экран через определенный интервал времени будет выводиться текст.

Проект «Цвета радуги»

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

Технология выполнения

Создайте новый проект. Назовите его: «Цвета радуги»
На форме разместите 7 надписей и кнопку как показано в образце.
В окне свойств установите для надписей (Label) начальное значение свойства Text : «пусто», текст надписей будет выводиться во время выполнения приложения. Для кнопки установите значение свойства Text: «Начало» .
Расположите в любом месте формы элемент управления Timer (Таймер).
В окне свойств установите для таймера интервал 1000 мс (1с.), для формы установите размер шрифта (Font Size) равный 12.
Во время загрузки формы обнуляется счетчик, отключается таймер. Напишите программный код в обработчике события Form1_Load:
i = 0 ' обнуление счетчика Timer1.Enabled = False 'таймер недоступен
После щелчка на кнопке таймер запускается. Напишите код в обработчике события Button1_Click:
' таймер доступен

Timer1.Enabled = True

Напишите соответствующий код в обработчике события Timer1_Tick. Код этого обработчика будет выполняться с интервалом в 1 секунду. Будет выводиться очередное слово соответствующим цветом. После 7-ой метки таймер блокируется.

 i = i + 1
 Select Case i
    Case 1
        Label1.ForeColor = System.Drawing.Color.Red
        Label1.Text = "Каждый "
    Case 2
        Label2.ForeColor = System.Drawing.Color.DarkOrange
        Label2.Text = "Охотник"
    Case 3
        Label3.ForeColor = System.Drawing.Color.Yellow
        Label3.Text = "Желает"
    Case 4
        Label4.ForeColor = System.Drawing.Color.Lime
        Label4.Text = "Знать"
    Case 5
        Label5.ForeColor = System.Drawing.Color.SkyBlue
        Label5.Text = "Где"
    Case 6
        Label6.ForeColor = System.Drawing.Color.Blue
        Label6.Text = "Сидят"
    Case 7
        Label7.ForeColor = System.Drawing.Color.BlueViolet
        Label7.Text = "Фазаны"
        Timer1.Enabled = False
 End Select

Запустите программу. На форму с интервалом в секунду выведутся ключевые слова для запоминания основных цветов спектра.
Сохраните проект. До встречи на следующем уроке.

Урок 17. Элемент управления Timer и вывод объектов на экран

Проект «Цвета радуги»