12 Сентябрь 2008

Как сделать светофор с помощью таймера?

Timer |  Таги: , , ,

Как сделать светофор с помощью таймера?
Просто, только нам понадобятся 2 картинки, соответствующие красному и зеленому цвету светофора.

Их можно найти в одном из каталогов Visual Studio.

Загрузите изображения в 2 Image и расположите, один Image точно над другим.

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If Image1.Visible = False Then
    Image1.Visible = True: Image2.Visible = False
Else: Image2.Visible = True: Image1.Visible = False
End If
End Sub

Запись опубликована on 12.09.2008 at 9:54 и размещена в рубрике: Timer. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



У нас куча комментариев (2) на запись “Как сделать светофор с помощью таймера?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 16.10.2008, МП41А said:

    Странный код. Если уж все равно придется располагать один Image над другим, то не проще было бы сделать так:

    Private Sub Form_Load()
    Timer1.Interval = 500
    End Sub

    Private Sub Timer1_Timer()
    ‘ Image2 должен находиться поверх Image1
    Image2.Visible = Not Image2.Visible
    End Sub

  2. 2 On 16.10.2008, Александр said:

    Когда то я хотел, чтобы было реализовано так.

Оставить комментарий

Я не робот.