Четверг, 14.11.2019, 23:07
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Приложение: 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

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz