Приложение: timer2_clic.rar
timer1.rar

Занятие 38.1  Анимация средствами Visual Basic Задание 1 . Разработка проекта " Таймер - часы".  

Интерфейс проекта

Элементы управления: Timer1;   PictureBox1,2,3,4;  Label1,2,3,4;   Button1,2.

Программный код

 Public c As Short

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If c = 0 Then
            PictureBox1.Visible = True
            PictureBox3.Visible = False
            PictureBox2.Visible = False
            PictureBox4.Visible = False
        End If

        If c = 1 Then
            PictureBox3.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox4.Visible = False
        End If

        If c = 2 Then
            PictureBox2.Visible = True
            PictureBox1.Visible = False
            PictureBox3.Visible = False
            PictureBox4.Visible = False
        End If

        If c = 3 Then
            PictureBox4.Visible = True
            PictureBox3.Visible = False
            PictureBox1.Visible = False
            PictureBox2.Visible = False
        End If

        c = c + 1

        If c = 4 Then
            c = 0
        End If

    End Sub

Задание 2 . Разработка проекта " Таймер - дата, время".  

Интерфейс проекта

Элементы управления: Timer1 (Interval = 500, Enabled - true);   ToolTip1;  Label1,2.

Элемент управления  ToolTip1:

Программный код проекта

Функции, используемые в программном коде:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = CStr(TimeOfDay)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label2.Text = CStr(Today)
    End Sub

• 2017 Февраль