[Løst]Hjelp med Rnd-funksjonen (vb.net)

[norbat]

Skal få en animasjon til å finne en tilfeldig posisjon vertikalt når den beveger over skjermen. Har prøvd forskjellige rnd-snutter, men de er like håpløse som programmereren . Har noen et konkret forslag?

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

       Static VisFugl As Boolean
       
       Select Case Retning
           Case "Venstre"
               picFly.Left = picFly.Left - 2

               If VisFugl Then
                   picFly.Image = pic3.Image
               Else
                   picFly.Image = pic4.Image
               End If

               VisFugl = Not VisFugl
               If picFly.Left <= 0 Then Retning = "Høyre"

           Case "Høyre"
               picFly.Left = picFly.Left + 2

               If VisFugl Then
                   picFly.Image = pic1.Image
               Else
                   picFly.Image = pic2.Image
               End If
               VisFugl = Not VisFugl
               If picFly.Left >= 450 Then
                   Retning = "Venstre"
               End If

       End Select

   End Sub

[Z_IM]

Fjernet.

Endret 11. november 2004 av Z_IM

[Jonas]

Randomize Timer
Image1.Top = (Me.ScaleHeight - Image1.Height) * Rnd

[norbat]

Tusen takk for .Top Denne visste jeg ikke om.