How do you make your Sims have fun?

When that fun bar is getting red, how do you help your Sims have some fun? I'm asking because I feel the only thing I do is get them to the computer faster than you can say blickblock. But there...