Re: Generating Random number

[pang tee]

Thanks.

 

COuld you advise on how to make the bouncing ball 3D?

 

Also, after the ball has finished bouncing, why does the ball disappear sometimes?

How do i make the random number generated appear in the box with nice big font.

 

Thanks,

PangTee

Kamal Bhatt <[EMAIL PROTECTED]> wrote:

Note that RectangleShape creates a rectangle shape and EllipseShape creates an elliptical shape. In the code below I am using EllipseShape to dyaw a ball (See canval c2).

 

I need a CommandButton to click to, to start animation. For the animation purpose I am using a Timer that goes off every .1s, 30 times (for 3s). Note that that inside the timer event I am changing the position of the ball using a random number, to show you how you can generate number numbers.

 

--Kamal

 

{curl 4.0 applet}
{curl-file-attributes character-encoding = "windows-latin-1"}

 

{import * from CURL.GUI.SHAPES}

 

{let c1:Canvas=
    {Canvas
        background = "",
        width = 9cm,
        height = 8cm,
        {ShapeGroup
            translation = {Distance2d 0cm, 7cm},
            {RectangleShape
                {GRect 0cm, 1cm, 1cm, 0cm},
                color = "#006968",
                translation = {Distance2d (1.1cm * 1), 0cm}
            },
            {RectangleShape
                {GRect 0cm, 1cm, 5cm, 0cm},
                    color = "#2462a2",
                translation = {Distance2d (1.1cm * 6), 0cm}
            }
        }
    }
}

 

{value c1}

 

{hrule}

 

{let e1:EllipseShape =
    {EllipseShape
        {GRect 0cm, 1cm, 1cm, 0cm},
        color = "#006968"
    }
}

 

{e1.apply-translation 0cm, 1cm}
{let c2:Canvas=
    {Canvas
        background = "",
        width = 9cm,
        height = 8cm,
        e1   
    }
}

 

{value c2}

 

{let f:Frame = {Frame}}
{value f}
{CommandButton
    label = "bounce",
    {on Action do
        let random:RolledRandom = {RolledRandom 0, 5}       
        {let t:Timer =
            {Timer
                interval = .1s,
                repeat = 30,
                {on TimerEvent do
                    let delta:int = {random.next-roll}
                    {f.add delta, replace? = true}
                    {c2.move-to-xy e1, 1cm, delta * 1cm}
                }
            }
        }
    }
}

 

 

----- Original Message -----

From: pang tee

To: curlbreaker-l@curl.com

Sent: Monday, December 19, 2005 12:21 AM

Subject: Re: Generating Random number

Hi Duke,

 

Ok. I have changed the code to below and I am getting 2 rectangles showing up. But I dont see the random number generated anywhere in the displayed applet.

 

How to display the random number generated?

 

How do i change the rectangles into bouncing spheres?

I would like the bouncing spheres to bounce for 3 secs before a new random number is generated everytime the user clicks on a button to generate a new number.

 

Thanks,
PT

 

{curl 4.0 applet}
{curl-file-attributes character-encoding = "windows-latin-1"}
{import * from CURL.GUI.SHAPES}

{let v:View =
    {View
        {Canvas
            width = 9cm,
            he i ght = 8cm,
            {ShapeGroup
                translation = {Distance2d 0cm, 7cm},
                {RectangleShape
                    {GRect 0cm, 1cm, 1cm, 0cm},
                    color = "#006968",
                    translation = {Distance2d (1.1cm * 1), 0cm}
                },
                {RectangleShape
                    {GRect 0cm, 1cm, 5cm, 0cm},
                    color = "#2462a2",
                    translation = {Distance2d (1.1cm * 6), 0cm}
                }
            }
        }
    }
}
 
{v.show}
 
    {value
        let random:RolledRandom = {RolledRandom 1, 1328}
        {random.next-roll}
    }

Duke Briscoe <[EMAIL PROTECTED]> wrote:

On Dec 18, 2005, at 10:39 PM, pang tee wrote:

> Thanks Kamal,
>  
> I tried to combine the two codes together, but ended with the errors
> attached in randomgenerator.doc.
>  
> Actually i just to get the screen to appear like in
> randomgenerator.jpg if anyone can help. The shape that is in the code
> here is calling rectangles not spheres.
>  
> Thanks,
> PT

The error is telling you that a View can only have one graphical child,
while you have two, one is the random number and the other is the
Canvas. So you need to choose some other layout.


*******************************************
To unsubscribe from this list, send a mail to:
mailto:[EMAIL PROTECTED]
To contact a human list administra tor, send a mail to:
mailto:[EMAIL PROTECTED]
To recieve a list of other options for this list, send a mail to:
mailto:[EMAIL PROTECTED]

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com