home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
rollem
/
rollem1.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1995-02-26
|
15KB
|
123 lines
Form1
Roll em
Form1%
Command1
Picture7
Picture8
Picture9
+ Picture10
, Picture11
- Picture12
Picture1
Picture2
Picture3
Picture4
Picture5
Picture6
&File
byebye
&Exit
aboutbox
&Help
" taboutbox
About Roll em
&How did I do?
byebye_ClickK
Command1_Clickx
Form_Click
misc_12
Picture1
Picture1_Click
Picturec
rollem
Form1D
Picture2
paint
autoredrawv
randf
RndDemo
Dice1K
Dice2
stuff<
bye_Click'
drawu
dPictureY
taboutbox_Click
form2L
aboutbox_Click
TOTAL?
Score
Picture2_Click
Picture2_paintc
Thenscore
WINNER
NewScore
WandL_Click
Form3
LossY
HDID_Click
Label3
Label43
Text1
Text2
Picture3
Picture4
TXT_TextBox2
TXT_TextBox
Help_Rules_Click
Form4
Visible
Picture6
Picture5
Picture7
Fform1
Picture8
Picture9
Picture10
Picture11
Picture12
Currentdude~
False
hidepic
byebye_Click
Only (I have found) way to COMPLETELY close a VB app
Command1_Click
Make sure all boxes are not visibleo
Call random number generator
assign the total of the dice to a seperate global vars
Check the total "comming out"C
You are a WINNER!!!
WINNER
You are a WINNER!!!
WINNER
You Craped out!!!
CRAPS
You Craped out!!!
CRAPS
You Craped out!!!
CRAPS
Point to make is
Make Point
Tell the user what point he has to score to win
User made the point to win B-4 Craps
You are a WINNER!!!
WINNER
Check case if point is set (hmmm seems somewhat repetive?)
You Craped Out!!!
CRAPS
HDID_Click
Put vars in a noneditable Text box
Show the form on the DC locked no min max no resize no control box
hidepic
Looks like kluge but it is the only way I could find that wouldl
insure that ALL 12 picture windows were hidden
stuff
Seed random number generator.
Generate first die value.
Generate second die value.
Get total to pass to command1 sub
Show the correct die in box #1
Show the correct die in box #2
taboutbox_Click
Show the form in the DC locked only way out is OK button