Stop med at blinke!

Dont know anything about this but at a guess, its your PC/Graphic card that is too slow due to the ammount of data your trying to show. Have you tried showing a lower resolution, also in your little JPG?

Altsååå.... Tværs over skærmen? Med Visual Basic?

det kan måske være noget med din refresh rate

eller din skærm Hz ???

jeg ved godt hvorfor !
det sker også for mig !
men kun med winamp ( nye skins )
så hakker dennår jeg flytter den rundt på skærmen så hjælper det lige med en refresh !

men prøv at kør defragmenter eller scanddisk !

Start > programmer > tilbehør > systemværktøjer >

prøv jeg er sikker på det virker..
ellers så køb nogle flere ram eller noget !
det har tit noget med plads på computeren at gøre..

og det sker tiot med windows !

bruger du windows eller ?


/ lala Joker

ps. ryd lidt op så går fejlen væk ;-)

Det er fordi den datamængde der beregnes er ganske stor. Hvis du vil have det til at køre hurtigere eller forhindrer at det blinker, så må du til at rode med noget DirectX. Så kan du udnytte dit/folks accl. grafikkort bedre.

Christian

Hvordan ser ser din procedure ud der flytter billedet ?
Kan du ikke vise os noget kode ? Det kan jo være at den kan optimeres !

jeg har koden til en splash ting jeg lavede engang til et poolspil... det flimrer ikke....
indhold : 1 stk picturebox + en bunke shapes og nogle timere :
Option Explicit
Dim dx, dy, dx1, dy1, dx2, dy2, dx3, dy3, dx4, dy4 As Integer

Private Sub Form_Load()
Height = Screen.Height
Width = Screen.Width
Top = 0
Left = 0
end sub

Private Sub Timer1_Timer()
If Ball.Left + Ball.Width + dx >= Picture1.ScaleWidth Then
    dx = -dx
    End If
If Ball.Left <= 0 Then
    dx = -dx
    End If
If Ball.Top + Ball.Height + dy >= Picture1.ScaleHeight Then
    dy = -dy
    End If
If Ball.Top <= 0 Then
    dy = -dy
    End If
    If Ball.Left + Ball.Width = (scball.Left + scball.Width) Then
dx = -dx
End If

If Ball.Top + Ball.Height + dy = (scball.Top - scball.Height) Then
    dy = -dy
    End If
    Ball.Move (Ball.Left + dx), (Ball.Top + dy)


 

End Sub

Private Sub Timer2_Timer()
If scball.Left + scball.Width + dx1 >= Picture1.ScaleWidth Then
    dx1 = -dx1
    End If
If scball.Left <= 0 Then
    dx1 = -dx1
    End If
If scball.Top + scball.Height + dy1 >= Picture1.ScaleHeight Then
    dy1 = -dy1
    End If
If scball.Top <= 0 Then
    dy1 = -dy1
    End If
    scball.Move (scball.Left + dx1), (scball.Top + dy1)
    If (scball.Left + scball.Width) = (Ball.Left + Ball.Width) Then
dx1 = -dx1
End If
End Sub

Private Sub Timer3_Timer()
If ball1.Left + ball1.Width + dx2 >= Picture1.ScaleWidth Then
    dx2 = -dx2
    End If
If ball1.Left <= 0 Then
    dx2 = -dx2
    End If
If ball1.Top + ball1.Height + dy2 >= Picture1.ScaleHeight Then
    dy2 = -dy2
    End If
If ball1.Top <= 0 Then
    dy2 = -dy2
    End If
  ball1.Move (ball1.Left + dx2), (ball1.Top + dy2)
   

End Sub

Private Sub Timer4_Timer()
If ball2.Left + ball2.Width + dx3 >= Picture1.ScaleWidth Then
    dx3 = -dx3
    End If
If ball2.Left <= 0 Then
    dx3 = -dx3
    End If
If ball2.Top + ball2.Height + dy3 >= Picture1.ScaleHeight Then
    dy3 = -dy3
    End If
If ball2.Top <= 0 Then
    dy3 = -dy3
    End If
  ball2.Move (ball2.Left + dx3), (ball2.Top + dy3)
End Sub

Private Sub Timer5_Timer()
If ball3.Left + ball3.Width + dx4 >= Picture1.ScaleWidth Then
    dx4 = -dx4
    End If
If ball3.Left <= 0 Then
    dx4 = -dx4
    End If
If ball3.Top + ball3.Height + dy4 >= Picture1.ScaleHeight Then
    dy4 = -dy4
    End If
If ball3.Top <= 0 Then
    dy4 = -dy4
    End If
  ball3.Move (ball3.Left + dx4), (ball3.Top + dy4)
End Sub

Jeg kan ikke helt huske hvordan man flytter billedet, men prøv at flytte i mindre hak.

Jeg har 800 Hz - 128 Ram - Og kører i 1024 * 768 med Windows Me.

Og koden er ganske simpel:


Private Sub Timer1_timer8)

image1.left = image1.left + 10

End Sub

Det er ikke computeren der er for langsom! - Det er bare Visual Basic 6.0 der ikke kan lave animationer!!

PS.

Lige så glidende som F.eks C ,C++ kan klare.

Have you tried putting the movement in a loop

Dim i as Integer
for i = 1 to 1000
  image1.left = image1.left + 10
next i

It moves MUCH faster, but the flimmer is still there.

Thommehawk siger at du skal læse afsnittet om \"bitblt\" på msdn.

Jeg giver op!!, så må jeg jo lave nogle mindre grafiske spil!.

Har VB ikke noget som i C, C++ og Delphi der hedder DoubleBuffer???