home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
ruthie
/
game2.frm
(
.txt
)
next >
Wrap
Visual Basic Form
|
1992-03-15
|
60KB
|
167 lines
Game2
RuthieWare
DIIDD
DIIDD
DIIDD
DIIDD
DIIDD
DIIDD
DIIDD
DIIDD
DIIDD
Form1%
Timer2
Storage
Storage
Storage
Storage
Actions
GoToGame3
GoToGame1
Timer1
Yippee
Picture2
Picture3
Background
FrownFace
Picture1
&File
1 FileAbout
&About Ruthie
FileExit
E&xit
&Game
4 GameGame1
Game &1
5 GameGame2
Game &2
6 GameGame3
Game &3
Instructions
&Instructions
InstructionsGame2
Playing Game &2
Picture1_Click
WidthFree
Background
ScaleWidth
Picture1"
HeightFree
ScaleHeightt
Timer1$
IntervalT
HOWLONG
Form1
Command1_Click
FinalXs
FinalY
Picture3
Height`
Picture2B
Picture2_Click
Picture3_Click
ScaleTop
Increment
Storage_Click
Index|
Counter
Storage
Form_Click^
@ Form_Load
PictureN
Quit_Click
GoToGame1_Click
Game2C
Form_GotFocus
RuthieA
GoToGame3_Click
Background_Click
FrownFace
Visible
Timer1_Timer
Whatever#
Game3
Width
Screen
InitializeG
LiveArea
Actionsl
Form_ResizeI
CurrentX-
CurrentY
BorderTypeR
Border
BorderStyle
GoToGame1
GoToGame3
Yippee7
Timer2
Timer2_TimerY
FileExit_Click
FileAbout_Click
InstructionsGame2_Click
InstPicture
InstContinue_Click
Open2
File_Click}
InstPicture_Click
InstGame2
ThenInitialize
GameGame1_Click
GameGame2_Clicke
GameGame3_Click
Actions_Click
MODALs
FrownFace_Click
Game_Click
HEADER
Instructions_Click
FALSE
Yippee_Click
Background_Click
Turns FrownFace on
Sets clock for 3 seconds
FileAbout_Click
FileExit_Click
Form_Load
Form_Resize
Reset scale to twipsh
If the Height is smaller, than it's beena
minimized. We don't want to initialize if
that's the case.n
GameGame1_Click
GameGame2_Click
So, okay, we'll ask. If you are already playing Game 2, why are you clicking on this menu instruction?
GameGame3_Click
GoToGame1_Click
GoToGame3_Click
Initialize
Define the scale for the form
Place Background
Define the live area scale'
Place the starting picturee
Place and size the thermometer
Define scale for the thermometer
Place and size the "mercury"
Place the action icons (Stop, Game2, etc.)s
Force a refresh of all controls
Reseed the random number generatorS
InstructionsGame2_Click
Picture1_Click
If the picture is successfully clicked, the "thermometer" in Picture2
(the "mercury" is actually Picture3) will increase. Initially Picture33
is set to a small height--it will grow for seven successful clicks.
On the 8th successful click the thermometer will be filled, and the
procedure will open a new picture, reset the thermometer, and start
over.
First off, let's increase the size of the thermometer::
Now, let's move the picture..
ffffff
If thermometer close to the top, reset the picturer
Turn on the success picture
This is a rotating countery
Quit_Click
Timer1_Timer
Turn FrownFace offs
Timer2_Timer