|
Programiranje Programski jezici, tehnike, alatke... |
|
Alatke vezane za temu | Vrste prikaza |
17.4.2006, 17:59 | #1 |
Član
Član od: 6.1.2006.
Poruke: 78
Zahvalnice: 3
Zahvaljeno 3 puta na 2 poruka
|
Potrebna pomoc (vb.net)
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. |
17.4.2006, 20:15 | #2 |
Mythbuster
|
Re: Potrebna pomoc (vb.net)
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.
|
17.4.2006, 23:16 | #3 |
V.I.P. GNU/Linux
Član od: 1.11.2005.
Poruke: 11.166
Zahvalnice: 2.085
Zahvaljeno 4.923 puta na 2.859 poruka
|
Re: Potrebna pomoc (vb.net)
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...
|
18.4.2006, 12:10 | #4 |
Član
Član od: 4.3.2006.
Lokacija: grad u oblacima
Poruke: 288
Zahvalnice: 1
Zahvaljeno 5 puta na 4 poruka
|
Re: Potrebna pomoc (vb.net)
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. |
18.4.2006, 13:01 | #5 |
Član
Član od: 6.1.2006.
Poruke: 78
Zahvalnice: 3
Zahvaljeno 3 puta na 2 poruka
|
Re: Potrebna pomoc (vb.net)
[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: 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 Poslednja ispravka: Marko_L (18.4.2006 u 21:04) Razlog: Dodati code tagovi |
18.4.2006, 13:02 | #6 |
Član
Član od: 6.1.2006.
Poruke: 78
Zahvalnice: 3
Zahvaljeno 3 puta na 2 poruka
|
Re: Potrebna pomoc (vb.net)
Kod:
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 Poslednja ispravka: Marko_L (18.4.2006 u 21:06) |
18.4.2006, 17:34 | #7 |
Starosedelac
|
Re: Potrebna pomoc (vb.net)
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 Poslednja ispravka: MG-RAY (22.4.2006 u 19:07) |
Bookmarks sajtovi |
|
|
Slične teme | ||||
tema | temu započeo | forum | Odgovora | Poslednja poruka |
Potrebna pomoc za skolu(Hitno) | rocky4 | Programiranje | 4 | 6.4.2006 20:27 |
Laptop racunar- pomoc pri kupovini | firefly | ŠDK - Prenosni računari | 4 | 9.3.2006 13:58 |
Potrebna pomoc pri kupovini novog racunara. | Persun | Šta da kupim? | 18 | 10.12.2005 17:28 |
Treba mi pomoc oko konfiguracije | polarnimeda | Šta da kupim? | 8 | 10.11.2005 19:00 |