Potrebna pomoc (vb.net)

[Damjan]

hteo da napravim igricu u vb.net-u i uradio sam nesto kao probu:
http://d.turboupload.com/d/521960/bin.rar.html
ali grafika mi je uvek losa. Animacije ne idu glatko vec trzaju i ne znam kako to da resim.

animacije sam radio preko timera (jedan timer za sve animacije) i nisam koristio ni open_gl ni directx,
da li moram da koristim nesto od ovo dvoje da bi animacija isla glatko

hvala na svakoj pomoci.

[Marko_L]

Pa kako misliš da ti neko pomogne kad nisi ostavio ništa koda. Niko ne može da zna kako si i šta radio. Elem, par hintova. Umesto timer kontrole koristi petlju. Što se tiče flickeringa, ne znam kako iscrtavaš sprajtove ili šta već radiš, ali valjalo bi da ih blituješ i naravno, zavisno od toga na čemu ih iscrtavaš podesi da holderu Autoredraw bude na True, ako toga još uvek ima u VB.NET-u (ne znam koju verziju koristiš). OpenGL i DX nisu potrebni, ali je svakako poželjno naučiti nešto od toga, ako želiš ozbiljnije da se baviš game dev-om.

[voodoo_]

Jel može u VB.NET-u da se uključi double buffering? U Delphiju i C++Builderu može fino da se udari DoubleBuffered property od forme na true i treperenje nestaje...

[priest (of_the_moon)]

Probaj ovde http://www.google.com/search?hl=en&q...=Google+Search tj. ovde http://www.vbcity.com/forums/topic.asp?tid=49353 .
Možda pomogne.

Offtopic @Voodoo_NBGD:
Ako u c/cpp želiš da sam crtaš sa Win32 GDI-jem onda double buffering moraš odraditi ručno.

[Damjan]

[QUOTE=Marko_L]Pa kako misliš da ti neko pomogne kad nisi ostavio ništa koda. Niko ne može da zna kako si i šta radio.QUOTE]

evo ovo je kod:

    Dim t, sx, sy As Double
    Dim br1, br As Integer
    Dim heading As String = "Right"
    Dim fired As Boolean = False
    Dim pog As Integer = 0
    Dim pr As Double = 0
    Dim b As Integer = 1
    Dim br2 As Integer = 0
    Dim br3 As Integer = 60


    Private Sub vreme_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vreme.Tick
 
        br2 += 1
        If br2 = 100 Then
            br2 = 0
            br3 -= 1
            time.Text = "Vreme: " & br3
            If br3 = 0 Then
                If pog >= 10 Then
                    MsgBox("Mozete preci na sljedeci nivo")
                Else
                    MsgBox("Morate ponoviti ovaj nivo, jer niste ostvarili zeljeni broj pogodaka(10)")
                    br1 = 0
                    br = 0
                    fired = False
                    pog = 0
                    pr = 0
                    b = 1
                    br2 = 0
                    br3 = 60
                    djule.Location = New Point(124 - 0.5 * ugao.Value, 293 - 0.5 * ugao.Value)
                    state.Text = "Napunjeno"
                    brpuc.Text = "Pucano:"
                    brpog.Text = "Pogodjeno:"
                    Proc.Text = "Procenat"
                    time.Text = "Vreme: 60"
                End If
            End If
        End If
        If fired = True Then
            t = t + 1 / 100
            sx = Snaga.Value * Cos(ugao.Value * 3.14 / 180) * t
            sy = Snaga.Value * Sin(ugao.Value * 3.14 / 180) * t - (9.81 * t ^ 2) / 2
            djule.Location = New Point(djule.Location.X + sx, djule.Location.Y - sy)
            If djule.Location.X > 379 And djule.Location.X < 400 And djule.Location.Y > 60 Then

                djule.Location = New Point(124 - 0.5 * ugao.Value, 293 - 0.5 * ugao.Value)
                fired = False
                t = 0
                djule.Hide()
                state.Text = "Napunjeno"
                ugao.Enabled = True
                Snaga.Enabled = True
            End If
            If djule.Location.X > targ.Location.X And djule.Location.X < targ.Location.X + targ.Width And djule.Location.Y > targ.Location.Y Then
                pog += 1


                djule.Location = New Point(124 - 0.5 * ugao.Value, 293 - 0.5 * ugao.Value)
                fired = False
                t = 0
                djule.Hide()
                b += 1
                state.Text = "Napunjeno"
                ugao.Enabled = True
                Snaga.Enabled = True
            End If

[Damjan]

If djule.Location.Y > dis.Location.Y + dis.Height Then

                djule.Location = New Point(124 - 0.5 * ugao.Value, 293 - 0.5 * ugao.Value)
                fired = False
                t = 0
                djule.Hide()
                state.Text = "Napunjeno"
                ugao.Enabled = True
                Snaga.Enabled = True
            End If
        End If


        Select Case targ.Location.X
            Case Is <= 441
                heading = "Right"
            Case Is >= 703
                heading = "Left"
        End Select
        'taget movement
        br1 = br1 + 1
        If br1 = 3 Then
            Select Case heading
                Case "Right"
                    targ.Location = New Point(targ.Location.X + b, targ.Location.Y)
                Case "Left"
                    targ.Location = New Point(targ.Location.X - b, targ.Location.Y)
            End Select
            br1 = 0
        End If
        pr = pog / br * 100
        brpuc.Text = "Pucano: " & br
        brpog.Text = "Pogodjeno: " & pog
        Proc.Text = "Procenat: " & pr

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        vreme.Enabled = True
        br = 0
    End Sub

    Private Sub ugao_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ugao.Scroll
        tenk.FrameNum = ugao.Value
        djule.Location = New Point(124 - 0.5 * ugao.Value, 293 - 0.5 * ugao.Value)
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        fired = True
        djule.Show()
        br += 1
        state.Text = "Ispaljeno"
        ugao.Enabled = False
        Snaga.Enabled = False
    End Sub

[MG-RAY]

ovo bi trebalo da ti pomogne sto se tice double-buffera...

---

Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer Or ControlStyles.Opaque ,true);

---

naravno moraces da koristis Paint/OnPaint override (ako neces , iskljuci AllPaintingInWmPaint),a kako se to radi u VB.NET , pojma nemam...
Naravno, moras da 'ponistis' prozor, da bi se sve ponovo iscrtalo...

I ja, inace, radim neku igru, ali u C# -u...
ako hoces da vidis dokle sam stigao - http://d.turboupload.com/d/536648/bin.rar.html