Вторник, 22.05.2018, 16:40
Приветствую Вас Гость | RSS

ПОРТФОЛИО
УЧИТЕЛЯ ИНФОРМАТИКИ


Категории раздела
Программы [14]
Программы элективных курсов, учебные программы
Обобщение опыта [8]
статьи, отчеты
Практикумы [6]
Нормативные документы [3]
Стандарты, техника безопасности,нормативы
Рекомендации [3]
письма, статьи, приказы по внедрению
Календарно-тематическое планирование [9]
Примерные календарно-тематические планы
Форма входа
Поиск
Это полезно
Методическая копилка учителя информатики



Друзья сайта
  • Сайт МОУ: СОШ п.Горноправдинск

  • Комитет по образованию Ханты-Мансийского района
  • Переводчик
    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    ...
    Главная » Файлы » Практикумы

    Visual Basic. Практическая работа "Пляшущий человечек"
    [ Скачать с сервера (28.0Kb) ] 10.06.2010, 17:00
    Проект «Пляшущий человечек».
    Создайте в любом графическом редакторе 3 рисунка человечка
    Присвойте им имена chel.bmp, chel1.bmp, chel2.bmp

    Разместите на форме кнопку CommandButton
    и запишите программный код для кнопки.

    Private Sub Command1_Click()

    Dim objPics(2) As Picture
    For i = 1 To 20                                                   Кол-во повторений движения
    For J = 1 To 20050000                                       Пустой цикл для задержки смены картинок
    Next J
    Set objPics(0) = LoadPicture("chel.bmp")
    Set objPics(1) = LoadPicture("chel1.bmp")
    Set objPics(2) = LoadPicture("chel2.bmp")

    Static intCount As Integer
    If intCount = 0 Then
    intCount = 1
    ElseIf intCount = 1 Then
    intCount = 2
    Else
    intCount = 0
    End If
    PaintPicture objPics(intCount), 0, 0
    Next i

    В проекте две формы Form1 с размещенными на ней меню
    и Form2 с кнопкой запускающей анимацию
    Программный код для меню Анимация, открывает Form2

    Private Sub anim_Click()
    Form2.Show
    End Sub

    Программный код для меню Выход, закрывает форму Form1

    Private Sub exit_Click()
    Unload Form1
    End Sub



    Категория: Практикумы | Добавил: ugra
    Просмотров: 939 | Загрузок: 208 | Комментарии: 18 | Рейтинг: 4.0/1
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]