Keskustelu: Koodit: VB6: Reaaliaikainen moottori peliin

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long 'Kertoo tarkan ajan
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Nukkuu eli idlaa

Private Nappaimet(255) As Boolean 'Sisältää kaikkien näppäimistön näppäinten tilan
Private NopeusX As Single 'Vaakanopeus
Private NopeusY As Single 'Pystynopeus
Private PaikkaX As Single 'PictureBoxin kokonaislukutarkkuus ei riitä sujuvaan liikkumiseen joten,
Private PaikkaY As Single 'se pitää tallentaa omaan muuttujaan

Const Kitka As Single = 0.997 '1=ei kitkaa
Const Teho As Single = 0.002 '0=ei tehoa

Private Sub Form_Activate()
  Dim Aika As Long
  Dim VanhaAika As Long

  Do
    VanhaAika = Aika
    Aika = GetTickCount 'Merkitään kulunut aika jolloin osataan siirtää objektia oikea matka

    If Nappaimet(38) = True Then NopeusY = NopeusY + (Teho * (Aika - VanhaAika)) 'Kiihdytys
    If Nappaimet(40) = True Then NopeusY = NopeusY - (Teho * (Aika - VanhaAika))
    If Nappaimet(37) = True Then NopeusX = NopeusX + (Teho * (Aika - VanhaAika))
    If Nappaimet(39) = True Then NopeusX = NopeusX - (Teho * (Aika - VanhaAika))

    NopeusY = NopeusY * (Kitka ^ (Aika - VanhaAika)) 'Kitka
    NopeusX = NopeusX * (Kitka ^ (Aika - VanhaAika))

    PaikkaX = PaikkaX - (NopeusX * (Aika - VanhaAika))
    PaikkaY = PaikkaY - (NopeusY * (Aika - VanhaAika))

    Picture1.Left = PaikkaX
    Picture1.Top = PaikkaY

    'Tämä on vain debuggia varten, näytetään nopeudet ikkunan otsikkossa
    Form1.Caption = "X = " & Format(NopeusX, "###0.00") & " Y = " & Format(NopeusY, "###0.00")

    DoEvents 'Päivitetään ruutu ja tehdään työt jotta ohjelma ei jumi
    'Sleep (50) 'Tällä voi simuloida hidasta konetta
  Loop
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Nappaimet(KeyCode) = True 'Merkitään näppäin pohjaan
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  Nappaimet(KeyCode) = False 'Merkitään näppäin vapaaksi
End Sub

Private Sub Form_Load()
  Form1.KeyPreview = True
  Form1.ScaleMode = 3
  Form1.WindowState = 2
  Picture1.Width = 50
  Picture1.Height = 50
  Picture1.Appearance = 0
  PaikkaX = 100
  PaikkaY = 100
End Sub

Private Sub Form_Unload(Cancel As Integer)
  End 'Koska ollaan loputtomassa luupissa pitää se katkaista
End Sub

Public Class Form1
    Inherits System.Windows.Forms.Form

    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Nukkuu eli idlaa

    Private Picture1 As New PictureBox
    Private Nappaimet(255) As Boolean 'Sisältää kaikkien näppäimistön näppäinten tilan
    Private NopeusX As Single 'Vaakanopeus
    Private NopeusY As Single 'Pystynopeus
    Private PaikkaX As Single 'PictureBoxin kokonaislukutarkkuus ei riitä sujuvaan liikkumiseen joten,
    Private PaikkaY As Single 'se pitää tallentaa omaan muuttujaan

    Const Kitka As Single = 0.997 '1=ei kitkaa
    Const Teho As Single = 0.002 '0=ei tehoa

'Poistin #Region " Windows Form Designer generated code "
'koska ikkunaan ei tarvitse tehdä mitään

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Nappaimet(e.KeyCode) = True 'Merkitään näppäin pohjaan
        Form1.ActiveForm.Text = CStr(e.KeyCode)
    End Sub

    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        Nappaimet(e.KeyCode) = False 'Merkitään näppäin vapaaksi
    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Dim Aika As Long
        Dim VanhaAika As Long

        Me.Controls.Add(Picture1) 'Lisätään pictureboxi lennosta
        Form1.ActiveForm.WindowState = FormWindowState.Maximized

        Do
            VanhaAika = Aika
            Aika = CLng(Now.Ticks / 10000) 'Merkitään kulunut aika jolloin osataan siirtää objektia oikea matka

            If Nappaimet(38) = True Then NopeusY = NopeusY + (Teho * (Aika - VanhaAika)) 'Kiihdytys
            If Nappaimet(40) = True Then NopeusY = NopeusY - (Teho * (Aika - VanhaAika))
            If Nappaimet(37) = True Then NopeusX = NopeusX + (Teho * (Aika - VanhaAika))
            If Nappaimet(39) = True Then NopeusX = NopeusX - (Teho * (Aika - VanhaAika))

            NopeusY = CSng(NopeusY * (Kitka ^ (Aika - VanhaAika))) 'Kitka
            NopeusX = CSng(NopeusX * (Kitka ^ (Aika - VanhaAika)))

            PaikkaX = PaikkaX - (NopeusX * (Aika - VanhaAika))
            PaikkaY = PaikkaY - (NopeusY * (Aika - VanhaAika))

            Picture1.Left = CInt(PaikkaX)
            Picture1.Top = CInt(PaikkaY)

            'Tämä on vain debuggia varten, näytetään nopeudet ikkunan otsikkossa
            Form1.ActiveForm.Text = "X = " & Format(NopeusX, "###0.00") & " Y = " & Format(NopeusY, "###0.00")

            Application.DoEvents() 'Päivitetään ruutu ja tehdään työt jotta ohjelma ei jumi
            'Sleep(50)  'Tällä voi simuloida hidasta konetta
        Loop
    End Sub

    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        End 'Koska ollaan loputtomassa luupissa pitää se katkaista
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Picture1.Height = 50
        Picture1.Width = 50
        Picture1.BorderStyle = BorderStyle.FixedSingle
        PaikkaX = 100
        PaikkaY = 100
    End Sub
End Class