Уроки, алгоритмы, программы, примеры

Вход на сайт

Материалы по разделам

Построения
на плоскости (2D)
Графика
в пространстве (3D)
Вычислительная
геометрия
Физическое
моделирование
Фрактальная
графика

Новые комментарии

Выдаёт ошибку glut32.dll не найден! При том, что он лежит в System32! Всё решил) Нужно отправить не в System32, а в System.
Спасибо за статью. Я не Ваш студент. Но мне она помогла написать функцию для Канторова множества на Python для черепашки: import turtle def kanter(x, y, d):     if d > 1:         turtle...
Как реализовать в данном примере границы расчёта?

Счетчики и рейтинг

Рейтинг@Mail.ru Яндекс.Метрика
Скриншот к примеру
Среда программирования: 
Visual Studio 2019
Статья по теме: 

В примере показана элементарная анимация человечка

В pictureBox1,Image - добавляем спрайты
Interval Таймера - 100
При использовании Таймера, мы перебираем картинки, при помощи переменной k, которую мы увеличиваем на единицу, когда наша переменная будет равна, последнему элементу, мы обнуляем нашу переменную k

Код программы: 

 Programm Sasha;
Public Class Form1
    Dim k As Integer
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick '
        k = k + 1 'При работе нашего таймера будем прибавлять каждый раз единицу
        If k = 1 Then PictureBox1.Image = My.Resources._1  'Если k=1, то показываем изображение на PictureBox1, первую картинку
        If k = 2 Then PictureBox1.Image = My.Resources._2  'Если k=2, то показываем изображение на PictureBox1, вторую картинку
        If k = 3 Then PictureBox1.Image = My.Resources._3  'Если k=3, то показываем изображение на PictureBox1, третью картинку
        If k = 4 Then PictureBox1.Image = My.Resources._4  'Если k=4, то показываем изображение на PictureBox1, четвертую картинку
        If k = 5 Then PictureBox1.Image = My.Resources._5  'Если k=5, то показываем изображение на PictureBox1, пятую картинку
        If k = 6 Then PictureBox1.Image = My.Resources._6  'Если k=6, то показываем изображение на PictureBox1, шестую картинку
        If k = 7 Then PictureBox1.Image = My.Resources._7  'Если k=7, то показываем изображение на PictureBox1, седьмую картинку
        'В конце обнуляем k, чтобы картинка не останавливалась
        If k = 8 Then PictureBox1.Image = My.Resources._8 : k = 0 'Если k=8, то показываем изображение на PictureBox1, восьмую картинку
    End Sub
End Class
<code/>

Прикрепленный файлРазмер
Moskvitina AnimationPeople.zip172.94 кб