Некоторые интересные возможности графики в Visual Basic Express - Программирование - Статьи по созданию игр

2 VedaViz (12 Ноября 2011 15:31) [Материал]

Вариант 2:
Public Class Form1
Dim gr As Graphics
Dim GoForward As Boolean = True
Dim MousePoint As Point
Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
MousePoint.X = e.X
MousePoint.Y = e.Y
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
GoForward = Not GoForward
gr = Me.CreateGraphics
gr.Clear(Me.BackColor)
Dim imageNum As Integer = GoForward + 1
gr.DrawImage(ImageList1.Images(imageNum), MousePoint)
End Sub
End Class
Задаем в свойствах таймера - enabled, то есть при запуске программы тамер будет включен. Картинка будет показываться в углу - в координате 0,0, если курсор не навести на форму. Нам это подходит. Добавляем событие MouseMove (например вместо MouseClick, или дополнительно к нему), и по перемещению курсора картинка будет показываться под курсором. Можно поставить таймер чаще, например 500, тогда картинка будет меняться чаще. Если вы знакомы с кино, то вам будет понятно, что в кино картинка меняется часто, 24 кадра в секнду (или даже чаще). Поэтому вы можете прорисовать плавные изменения от одного состояния объекта к другому, и поставить таймер еще более частым. Тогда анимация будет более реалистичной, но вам тогда надо добавить кол-во кадров. Кроме того, надо более качественно прорисовывать картинки и принимать во внимание отличия одной картинки и другой. Тогда будет достигнут более реалистический эффект.

1 VedaViz (12 Ноября 2011 15:18) [Материал]

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

Public Class Form1
Dim gr As Graphics
Dim GoForward As Boolean = True
Dim MousePoint As Point
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
GoForward = Not GoForward
gr = Me.CreateGraphics
gr.Clear(Me.BackColor)
Dim imageNum As Integer = GoForward + 1
gr.DrawImage(ImageList1.Images(imageNum), MousePoint)
End Sub
Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
MousePoint.X = e.X
MousePoint.Y = e.Y
Timer1.Start()
End Sub
End Class

в программе нужно лишь добавить два обхекта - таймер и список изображений. В списке изображений поставьте размер изображений побольше - например 64 на 64 вместо стандартных 16 или другой, зависимо от ваших изображений. В свойствах таймера можно поменять любое значение интервала - 1000 - картинка будет меняться раз в секунду. И нужно добавить два события - щелчок на форме, плюс тикание таймера. При щелчке на форме записываются координаты щелчка, и запускается таймер. При тиканию таймера запускается изменяется значение переменной (вы можете загрузить хоть 100 изображений, только вам надо добавить каунтер, счетчик. Это делается в Си при помощи комманды ++, единственное - надо сделать проверку на максимальное число, иначе будет ошибка). Итак, по тиканию изменилось значение на противоположное - для простоты. Потом оно преобразовывается в число. Это число мы напрямую используем для указания номера картинки. Единственное - добавляем единичку, ведь False - это -1. При каждом тикании экран очищается - для простоты - комманды Clear. Можно использовать более сложный процесс очищения экрана фоновым цветом, но нужно указать по крайней два числа - точка рисования плюс размер. Итак, получилась простая программка на Бейсике, которая может показывать две картинки как слайдшоу в месте щелкания мышки. Можно применять в играх - например для каких-то героев, которыми управляют мышкой. Анимацию же можно использовать для других целей - например для фоновых персонажей и так далее. Если вы хотите трехмерную графику - будет сложнее - тогда возможно ImageList-ом не обойтись. Но принцип тот же - по какой-то формуле изменяется изображение - или оно векторное или растровое, или оно двухмерное или трехмерное и так далее (цветно, черно-белое неважно).