home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MORE WinGames
/
WINGAMES.iso
/
edm
/
edm10.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-08-28
|
6KB
|
270 lines
OnlyForm
Executive Decision Maker 1.0
Form1,
FlashLabels
FlashLabels
Sit on it
FlashLabels
Lunchtime!
FlashLabels
Pass the Buck
FlashLabels
Ah, fuck it!
FlashLabels
StartBut
START/RESTART
StopBut
STOP /CHOOSE
StartBut_Clickg
YesBut_Click
AhBut_Click
PassBut_ClickF
SitBut_Click5
NoBut_Click
LunchBut_Click
StopBut_ClickV
FALSE;
SHIFT_MASK
CTRL_MASK
ALT_MASK
LEFT_BUTTON
RIGHT_BUTTON8
MIDDLE_BUTTON
WRONG_FORMAT
REQUEST_WITHOUT_INIT
DDE_WITHOUT_INIT
ADVISE_WITHOUT_INIT
POKE_WITHOUT_INIT
DDE_SERVER_CLOSED
TOO_MANY_LINKSS
STRING_TOO_LONGq
INVALID_CONTROL_ARRAY_REFERENCE[
UNEXPECTED_DDE
OUT_OF_MEMORY:
!SERVER_ATTEMPTED_CLIENT_OPERATIONb
KEY_LBUTTON
KEY_RBUTTON
KEY_CANCEL
KEY_MBUTTONv
KEY_BACK
KEY_TAB
KEY_CLEARr
KEY_RETURN,
KEY_SHIFT
KEY_CONTROL+
KEY_MENU
KEY_PAUSE
KEY_CAPITAL
KEY_ESCAPEC
KEY_SPACE
KEY_PRIORO
KEY_NEXT
KEY_END
KEY_HOMEe
KEY_LEFT
KEY_UP~
KEY_RIGHT
KEY_DOWN
KEY_SELECT
KEY_PRINT
KEY_EXECUTE
KEY_SNAPSHOT
KEY_INSERT
KEY_DELETE
KEY_HELP)
KEY_NUMPAD0
KEY_NUMPAD1
KEY_NUMPAD2
KEY_NUMPAD3
KEY_NUMPAD4
KEY_NUMPAD5
KEY_NUMPAD6
KEY_NUMPAD7
KEY_NUMPAD8v
KEY_NUMPAD9
KEY_MULTIPLY
KEY_ADD
KEY_SEPARATOR
KEY_SUBTRACT
KEY_DECIMAL
KEY_DIVIDE4
KEY_F1?
KEY_F2J
KEY_F3U
KEY_F4`
KEY_F5k
KEY_F6
KEY_F7
KEY_F8%
KEY_F9L
KEY_F10
KEY_F11n
KEY_F12]
KEY_F13
KEY_F14v
KEY_F15p
KEY_F16f
KEY_NUMLOCK
ENTER
LEAVE
MB_OK
MB_OKCANCEL/
MB_ABORTRETRYIGNORE
MB_YESNOCANCEL
MB_YESNO
MB_RETRYCANCEL
MB_ICONSTOP
MB_ICONQUESTION6
MB_ICONEXCLAMATION
MB_ICONINFORMATION
MB_DEFBUTTON12
MB_DEFBUTTON2"
MB_DEFBUTTON3
IDCANCEL
IDABORT\
IDRETRY
IDIGNORE
IDYESK
CANCEL
BEGIN_DRAG
END_DRAG&
CF_LINK/
CF_TEXT
CF_BITMAP
CF_METAFILE
CF_DIB
MODAL
MODELESS
LEFT_JUSTIFYP
RIGHT_JUSTIFY
CENTER
BLACK
GREEN
YELLOW
MAGENTAt
WHITE
SCROLL_BARS
DESKTOPP
ACTIVE_TITLE_BARa
INACTIVE_TITLE_BAR
MENU_BAR|
WINDOW_BACKGROUND
WINDOW_FRAME
MENU_TEXT
WINDOW_TEXT
TITLE_BAR_TEXT
ACTIVE_BORDER
INACTIVE_BORDERy
APPLICATION_WORKSPACE
HIGHLIGHT
HIGHLIGHT_TEXT`
BUTTON_FACE
BUTTON_SHADOW
GRAY_TEXTP
BUTTON_TEXT
FIXED_SINGLE
SIZABLE
FIXED_DOUBLE:
MANUAL
AUTOMATIC`
BLACKNESS`
NOT_MERGE_PEN
MASK_NOT_PEN
NOT_COPY_PEN
MASK_PEN_NOT
INVERT
XOR_PEN
NOT_MASK_PEN
MASK_PEN
NOT_XOR_PEN'
MERGE_NOT_PENC
COPY_PEN
MERGE_PEN_NOT
MERGE_PEN
WHITENESS
SOLID9
DASHS
DASH_DOT
DASH_DOT_DOTo
INVISIBLE
INSIDE_SOLIDm
TRANSPARENT
HORIZONTAL_LINE
VERTICAL_LINEG
UPWARD_DIAGONAL
DOWNWARD_DIAGONAL
CROSS
DIAGONAL_CROSS
SERVER
Default
ARROW
CROSSHAIR
IBEAM
ICON_POINTERG
SIZE_POINTER0
SIZE_NE_SW8
SIZE_N_Sa
SIZE_NW_SE
SIZE_W_E
UP_ARROW
HOURGLASS&
NO_DROP
TWIPS
POINTS
PIXELS
CHARACTERS
INCHES
MILLIMETERS
CENTIMETERST
HORIZONTAL
VERTICAL
UNCHECKED
CHECKEDi
GRAYEDv
NORMAL
MINIMIZED
MAXIMIZED
StopBool
AhBut
BackColor
LunchBut
NoBut
PassBut
SitBut
YesBut
Picker
FlashButtons_Click
Index
Countm
FlashButtons
Click
PrickerD
Delay*
FlashButtons_FlashL
StopButX
Form_Click
continue
StartBut
FlashLabels_Flash
FlashLabels
Visible
State
FlashLabels_Clickf
Standard values when using Integer's as booleans
StartBut_Click
set initial value to "Stop button not clicked" / reset initial value
Reset all flashing buttons' Visible property to FALSE - this is for multiple rounds
Here beginneth the loop structure!
re-seed random number generator and
get a random value from 0 to 5
Flash the randomly selected button
yield execution, allowing Stop-click event to be processed
here endeth the loop structure!
Now "light up" the button with focus after Stop button pressed:
StopBut_Click
set StopBool to "Stop button clicked" - SHOULD interrupt flash cycle (*%$!)h
FlashLabels_Flash
recall that default state is "invisible"
provides a reasonable pausep
between flashes