Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / RUTHIE / GAME3.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-03-16 | 45.4 KB | 227 lines

Game3 RuthieWare Form1% Timer2 Timer1 Storage Storage pppppppppppppppp pppppppywppppppp ppppppy wpppppp pppppp pppppp ppppp ppppp ppppy wpppp pppppppppppppppp Storage Hooray 6 y + n Storage Storage Storage Storage IIIII Storage DDDDDDDDDDDDDDD DDDDDDDDDDDDDDD Storage Storage Storage Storage DDDDDDDDDDDDDDD DDDDDDDDDDDDDDD QUUTW Picture1 Actions g GoToGame4 i GoToGame2 SadFace SourcePicture DDDDDDDDDDDDDDD DDDDDDDDDDDDDDD QUUTW wwwwwwwwwwwwwwp wwwwwwwwwwwwwp Targets Target Target Target Target Target Target &File k FileAbout &About Ruthie FileExit E&xit &Game n GameGame1 &Game &1 o GameGame2 Game &2 p GameGame3 Game &3 Instructions &Instructions r PlayGame3 Playing Game &3 GoToGame2_Click8 Game2m RuthieM Game3 Quit_Click" SourcePicture_Click SourcePicture_MouseDown Button ShiftN SourcePictureG StartX7 StartY SourcePicture_MouseUp GoToGame4_Click Target_Click Index Target_DragOver Source State Picture Target Form_Click~ @ Form_Loadb Storage Counter numberZ between LoadEm SortPicturet Counter1 Counter27 OptionArray FillOptions PixOrderF Pictures PictureNum DragIcon Num2W StoragePicture Count1 array TempArray Counter3 Temp2h @ InitGame3 Target_DragDrop Hooray VisibleG Timer1 Interval- Timer1_Timer SadFace7 Timer2 Timer2_Timer Hooray_Click Hooray_Change Hooray_GotFocus Width Screen Height Picture1_ClickY InstContinue_Clickn InstPicture SuccessPict_Click PlayGame3_Click+ ScaleHeightP SuccessPict3_Click= FileExit_Click FileAbout_Clickj Open2 InstPicture_Click InstText2_Change Instructions_Click Form_Resize ScaleWidth InstGame3a Border BorderType+ BorderStyle Picture1_DragDrop Storage_Click File_Click Picture1 Targets Actions ScaleWidthSource ource} GameGame1_Click GameGame2_Click GameGame3_Click Actions_Click MODAL Game_Click HEADER TRUE. HOWLONG SadFace_Click Targets_Click FALSE Minimize WindowState Control FileAbout_Click FileExit_Click Form_Load Reset the scale to twipsd Define standard size (note 3/4 proportion)a Center form horizontally. Center form vertically. Upon loading the form, initialize the pictures Form_Resize Reset scale to twips Sorry, you can't make the game any shorter... RuthieWare Whoa, Dude! You can't make the game any narrower... RuthieWare GameGame1_Click GameGame2_Click GameGame3_Click We hate to break the bad news, but... You're already playing Game 3 GoToGame2_Click GoToGame4_Click Chu got a problem, main... There is no game 4 yet. InitGame3 What we need to do is initialize an array with 6 elements. We want to initialize the array in a random fashion, but we don't want the elements duplicated. That is, we wante to "shuffle" the elements. This "seeds" the random number generatorw Now we'll assign 0 to 5 to an array Now we'll swap 30 random pairs in that temporary array produces a value from 0-5 sometimes these'll be the same valueh Now we'll use the shuffled array to load the target picture array Now we'll pick a random picture for the source picture... and it's pair for the DragIcon. Some other Form_Load and Form_Resize events Define the internal scale (note the 3/4 proportion) No need to define height or width--it's a fixed-size icon Thus flush right on scale 90e Thus flush with scale 70e Adjust visible width to hide GoToGame4e 333333 Force refresh of Picture1 Picture1_Click Picture1_DragDrop PlayGame3_Click Quit_Click SourcePicture_MouseDown Initiate drag movementn SourcePicture_MouseUp Target_DragDrop Interval is defined in the (general declarations) section Timer1_Timer Turn off the Hooray! picture Depending on which picture was displayed, turn off SadFace... Timer2_Timer