BitBlt

naime počeo sam raditi packmana ali mislim da neče iči onako kako sam mislio...

?elim naučiti koristiti BitBlt funkciju i vidio sam da ju je edifreak na programiranju dao miskecu ali ja je ne mogu skinuti...Ako ju mo?e? ponovno staviti da malo pogledam i ne?to novo naučim...

javljat ču kako mi ide


hvala


evo ovaj uzaludni kod od djela zami?ljenog pakmana...




[vb]Private Sub form_keydown(keycode As Integer, shift As Integer)
If keycode = vbKeyRight Then ped.Enabled = True
If keycode = vbKeyLeft Then ped.Enabled = True
If keycode = vbKeyDown Then ped.Move ped.Left, ped.Top + 80

End Sub

Private Sub ped_keydown(keycode As Integer, shift As Integer)
If keycode = vbKeyRight Then ped.Move ped.Left + 80
If keycode = vbKeyLeft Then ped.Move ped.Left - 80
If keycode = vbKeyDown Then ped.Move ped.Left, ped.Top + 80
If keycode = vbKeyUp Then ped.Move ped.Left, ped.Top - 80
If keycode = vbKeyRight Then ped.Picture = LoadPicture("c:\windows\desktop\zunix\blue.jpg")
If keycode = vbKeyLeft Then ped.Picture = LoadPicture("c:\windows\desktop\zunix\blue.jpg")
If keycode = vbKeyDown Then ped.Picture = LoadPicture("c:\windows\desktop\zunix\blue.jpg")
If keycode = vbKeyUp Then ped.Picture = LoadPicture("c:\windows\desktop\zunix\blue.jpg")
End Sub
Private Sub Timer1_Timer()
If (ped.Top + ped.Height >= lopta1.Top And ped.Top < lopta1.Top + lopta1.Height) And _
(ped.Left + ped.Width >= lopta1.Left And ped.Left < lopta1.Left + lopta1.Width) Then
End If
End Sub

Private Sub Timer2_Timer()
If (ped.Top + ped.Height >= lopta.Top And ped.Top < lopta.Top + lopta.Height) And _
(ped.Left + ped.Width >= lopta.Left And ped.Left < lopta.Left + lopta.Width) Then
ped.Enabled = False
ped.Top = 855
End If
End Sub[/vb]
ped je image u koji sam htio stavljati slike packmana a lopta je command koji je kao zapreka...

Evo onog sto se izgubilo na prog...net:
Learn BitBlt and Getnset pixel.zip [262 Kb]

Ima puno boljih i kracih nacina da napravis kretnju paca ali potuno ok racunajuci na to da si tek poceo sad na tome.
If you need any help, just ask!

hvala idem to malo proučiti...javit ču vam se...


Kod onog koda mi se dešava jedna stvar:

kada pak ide na neku stranu nije bito gdje ja sam napravio da mjenja se slika...ALI ostaju tragovi...jer kako ja držim ljevo slika se stalno loadira i ostaju tragovi....pratio sam na programirnju dio razgovora...te ču probat rješiti to bitbl-om...


Hvala još jednom

Probaj stavit iza koda za pomicanje ovo:

Me.Cls

To se koristi u BitBlt, pa nisam siguran dali će raditi...

Zapravo, mislim da bi triba staviti

Me.Refresh

edi help...

Da da, znam tocno u cemu je problem, svaki frame on crta taj objekt na ekran a da ne ocisti sliku od proslog frame-a, zato ostaju tragovi...
Sve sto trebas napraviti je na pocetku loop-a staviti imekontrole.cls to znaci ako npr. koristis picturebox tj. u njega sve crtas i npr. zove se Field onda napises jednostavno field.cls i to ce ocistiti sliku na pocetku svakog framea..heh kako sam ovo lose objasnio
Umjesto toga mozes nacrtati jednu pozadinsku sliku na pocetku loop-a tako da ne treba koristiti cls za ciscenje ekrana.