Посмотрите (движение спрайта на purebasic)

Цитата:

---

Сообщение от jerri

newart, а мою программку переделаешь под то как оно должно правильно выглядеть?

---

Я тут в Самаре человека с дискетами нашел. Перегонишь? :)
Их немного и потому слать в питер, а потом обратно как то накладно...

По просьбе newart, вот на XNA/VB (хотя я, лично, предпочитаю С#):

Код:

---

Module Program
    Private Class MyGame
        Inherits Game

        Private graphics As GraphicsDeviceManager
        Private batch As SpriteBatch
        Private background As Texture2D
        Private sprite As Texture2D
        Private frame As Integer

        Public Sub New()
            graphics = New GraphicsDeviceManager(Me)
            graphics.PreferredBackBufferWidth = 388
            graphics.PreferredBackBufferHeight = 462

            TargetElapsedTime = TimeSpan.FromMilliseconds(1000 / 16)
        End Sub

        Protected Overrides Sub LoadContent()
            batch = New SpriteBatch(GraphicsDevice)
            background = Texture2D.FromStream(GraphicsDevice, File.OpenRead("dizzy pic.png"))
            sprite = Texture2D.FromStream(GraphicsDevice, File.OpenRead("dizzy1.png"))
        End Sub

        Protected Overrides Sub Update(gameTime As GameTime)
            Dim state = Keyboard.GetState()

            frame = frame Xor 1

            MyBase.Update(gameTime)
        End Sub

        Protected Overrides Sub Draw(gameTime As GameTime)
            GraphicsDevice.Clear(Color.Black)

            batch.Begin()
            batch.Draw(background, Vector2.Zero, Color.White)
            batch.Draw(sprite, New Vector2(220, 238), New Rectangle(frame * 23, 74, 23, 20), Color.White)
            batch.End()

            MyBase.Draw(gameTime)
        End Sub
    End Class

    Sub Main(ByVal args As String())
        Using game As New MyGame()
            game.Run()
        End Using
    End Sub
End Module

---

Но в смысле поддержки, расширяемости, удобства IDE, количества библиотек и размера комьюнити заруливает по полной. Никакие пуребасики и рядом не валялись.

Цитата:

---

Сообщение от newart

стучи в аську

---

ок

Цитата:

---

Сообщение от thims

Но в смысле поддержки, расширяемости, удобства IDE, количества библиотек и размера комьюнити заруливает по полной.

---

Домыслы.

Цитата:

---

Сообщение от AER

кому он его только непредлагал.

---

Эт точно! http://vrcp.ru/smiles/light/ap.gif

---------- Post added at 16:44 ---------- Previous post was at 16:39 ----------

Цитата:

---

Сообщение от Rindex

Ооо, слышу слова прямо-таки Илиты, которая никак на баннер сверху крестик поставить не может, чтобы желающие могли его убрать.

---

Согласен, баннер нервирует.

---------- Post added at 16:50 ---------- Previous post was at 16:44 ----------

newart ты бы хоть учебник нормальный по PureBasic подкинул, а то я так нормальный и не нашёл.

Цитата:

---

Сообщение от zx_demon

newart ты бы хоть учебник нормальный по PureBasic подкинул, а то я так нормальный и не нашёл.

---

Да ,сам замучился,там конечно есть офигенная справка,но без помощи людей,я бы не сдвинулся. например

Color = Point(x, y)
вроде должно работать,но откуда я знал что надо так писать-
StartDrawing
Color = Point(x, y)
StopDrawing()

женя999, там же в примерах описано

Вот теперь диззи идёт вправо не скользя,через один пиксель,перерисовывал спрайты.
разрешение 640х480

Цитата:

---

Сообщение от женя999

разрешение 640х480

---

Не увидел такого, просто растянут экран на весь монитор. И очень часто идя справа-налево происходит такое.

Скрытый текст

http://img196.imageshack_.us/img196/388/47890476.png

[свернуть]

Хотя вот нажав на принт скрин экран отобразился 640х480, а на мониторе был растянут на полную.

Я имею ввиду монитор переключается в режим 640х480 (просто у кого-то 320х240 не работала),а картика (игровое поле ) на верху растянуто в длинну. Но это не важно. Мне главное посмотрите движение вправо ,я спрайты изменил ,их теперь больше и диззи движется через 1 пиксель.
Скорость передвижения вправо как ?