Results 1 to 5 of 5

Thread: Make a random animation apear in a form.

  1. #1

    Thread Starter
    Lively Member
    Join Date
    Jun 2000
    Location
    Ca
    Posts
    93
    I have a form that is 564x463 in size. I want an animation to apear every time you press a button. Can someone tall me what I have to do?
    Timbudtwo
    I have no life, only one with computers.

    VB 6.0 Enterprise Edition
    [hr]

  2. #2
    Guest
    What type of animation do you want? With Pictures? Or with Lines and Shapes?

  3. #3
    transcendental analytic kedaman's Avatar
    Join Date
    Mar 2000
    Location
    0x002F2EA8
    Posts
    7,221
    I think you have to use your imagination a lot if your going to just make some cool animation
    Here's an example i made:
    Code:
    Private Sub Command1_Click()
            x = Rnd * ScaleWidth: y = Rnd * ScaleWidth
        For n = 0 To 200
            Rnd -1
            Randomize a
            b = ScaleWidth / 2
            Do
                b = b * 0.95: a = a + b / 100
                Line -(x - Cos(a) * b, y - Sin(a) * b), Rnd * &H1000000
            Loop Until b < 10
            DoEvents
        Next n
    End Sub
    For positioning randomly you use RND function (that returns a "random" value between 0 and 1) And use scalewidth and scaleheight to return your form size.
    Use
    writing software in C++ is like driving rivets into steel beam with a toothpick.
    writing haskell makes your life easier:
    reverse (p (6*9)) where p x|x==0=""|True=chr (48+z): p y where (y,z)=divMod x 13
    To throw away OOP for low level languages is myopia, to keep OOP is hyperopia. To throw away OOP for a high level language is insight.

  4. #4

    Thread Starter
    Lively Member
    Join Date
    Jun 2000
    Location
    Ca
    Posts
    93

    first off...

    you you guy's can help me find some animations of fireworks in the colors of red blue green and white. The type that make bit explotions in the sky. If you have heard of artilery shels (firework type, not war type) You know what I mean. I Now think you get the idea.
    Timbudtwo
    I have no life, only one with computers.

    VB 6.0 Enterprise Edition
    [hr]

  5. #5

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width