Liren Large Software Subsidy 10

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

/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / BJ / BJFORM.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-10-30 | 17.6 KB | 564 lines

BJForm Las Vegas BlackJack System Form1 Label1 Dealer has ScoreBox DividerBar System BaseBetText &Base Bet System BaseBetAmount System R StakeText Stake System Amount System AdvanceText Markers System Amount System DeckButton &1 Deck System DeckButton &2 Deck System DeckButton &6 Deck System StandButton &Deal / &Stand System Z HitButton System DoubleButton D&ouble Down System SplitButton S&plit System AdvanceButton Get &Marker System CardBox System CardBox System CardBox System CardBox System CardBox System HandIndicator """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""" """"""" """"""" """"""" """"""" """"""" """"""" """"""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" """"""""""" System CardBox System CardBox System CardBox System CardBox System Label2 Player has ScoreBox CardBox System CardBox System CardBox System CardBox System CardBox System HandIndicator System CardBox System CardBox System CardBox System CardBox System PlayerbTextBox Player has ScoreBox CardBox System CardBox System CardBox System CardBox System CardBox System CardBox System CardBox System CardBox System CardBox System HandIndicator System MenuGame &Game MenuNew MenuSelect De&ck MenuExit E&xit MenuHelp &Help MenuInstructions &Instructions MenuAbout &About Form_ClickO Text1 Text1_Change BaseBetAmount Label1* Markers MarkerText BaseBetText AdvanceAmount Option1 Option2 Option3X Form1 AdvanceText StakeText_ StakeAmountL Label2 Command1p Command2 Command3 Command4 Command5 Label3v Frame1 Game@ Help\ Help_Click2 MenuNew Game_Click MenuDeck MenuHelp MenuGame MenuSelect MenuInstructions9 MenuValue MenuAbout MenuExit Command1_Click @ Form_Load@ Stakef AdvanceT doubledownokp doubledown; Busted PlayerDone PLAYER# Picture1 Picture27 Picture3 Picture4 Picture5c Picture6 Picture7# CardBoxR Label4J Label5/ Label6` ScoreBox HandIndicator) Amoutn Amount StandButton HitButtonH DoubleButtonV SplitButton AdvanceButton, PlayerBTextBox Form_LinkClose Form_LinkError LinkErr" Form_LinkExecute CmdStru Cancelt Form_LinkOpen xstep0 ystep DividerBar BjForm Height BaseBetAmount_Change Amount_Click Index Option1_Click SINGLEDECKBUTTONS DOUBLEDECKBUTTONY SIXDECKBUTTON SingleDeckButton_ClickJ DoubleDeckButton_Clickr SixDeckButton_Click] StandButton_Click: HitButton_Clicke @ DoubleButton_Clickg SplitButton_Click AdvanceButton_Click MenuInstructions_ClickE IDM_INSTRUCTIONSf ShowStakeAmount MessageBox MB_TASKMODAL MB_ICONINFORMATIONB MB_OKy LocalSetFocus IDM_NEW DEALER PLAYERB@ Decks WhichDeckw ShowBetAmount ShowAdvanceAmount Shuffle! SetUpForDeal break IDM_EXITg DestroyWindow IDM_DECK lpSelectDeck MakeProcInstancet SelectDeck hInstr DialogBox4 current instance resourceN parent handle address FreeProcInstance8 lpProc5 IDM_ABOUT About GetWindowText, GetDlgItem atoiR MB_ICONEXCLAMATION myDlgP ScoreBox_Click PlayerbTextBox_Click DeckButton DeckButton_Click^ True5 stand^ Disable HandInPlay adjust{ ShowValue AnalyzeHand Split ShowHandIndicator' Enable/ tempshort% PlayerHasBj Insurance( calculate Totalq HandValue hasE ace< wants, CardValueG MB_ICONQUESTION MB_YESNO switch IDYES YouLoseInsurance4 DrawCard YouWinK YouPush YouLose= YouWinBJ HowManyCards EqualTestD OKToSplit more< thanv temphDC{ GetDC MainWindow oldback SetBkMode TRANSPARENT ShowHand2Text^ ReleaseDC Hands MIRAGEHOTEL BLUESQUARE REDSQUARE BLUEDIAMOND REDDIAMOND NewDeck wParam( MenuNew_Click MenuSelect_Clickk Textv BaseBetAmount_GotFocus StandButton_GotFocus BaseBetAmount_KeyPressT KeyAscii DeckButton_KeyPress PLAYERtempshort PLAYERBtempshort ActivePlayer. CRLF` StakeText_Clickr MsgBoxNULL* EnabledI False MsgBoxtemp MSGBOXYESW HandIndicator_Click CaptionN Value DividerBar_Click Visible BitmapDir^ HORIZONTALSEPARATION Width BorderStylei CardColumn MasterCardColumn% debugprint MenuExit_Click MirageDeck BlueSq RedSq RedDi BlueDiP Option4 Option5 SelectOk SelectCancel AboutForm WhichCard= BmpDir MenuGame_Click BackColor NewDecks tbetD tstake tadvance tdecksn twhichdeck. tShowBetAmount tShowAdvanceAmount tShufflea tSetUpForDeal) tLocalSetFocus SelectForm DeckNum DeckNum_Click8 MenuAbout_Clickb AboutForm_GotFocus4 ActiveForm BaseBetAmount_DragDrop Form_KeyPressH BaseBetAmount_KeyDown KeyCode" Shift Picture Form_Unload Loadingj LoadBmps BaseBetText_Click Form_KeyDown Form_LostFocusf Form_MouseDownH ButtonO Form_MouseMove3 AdvanceButton_KeyDown KeyDown AdvanceText_Click CardBox_Click DeckButton_KeyDown DividerBar_KeyDown DoubleButton_KeyDown HandIndicator_KeyDown HitButton_KeyDown Label1_ClickX SplitButton_KeyDown StandButton_KeyDown SetFocusStandButton AutoRedraww FullDeck Form_DblClick WhichBox Difference FirstX SelDeck Form_Resizet MinWidth= MinHeight ScaleWidth ScaleHeight DBWidth DBHeight} BJWidth BJHeight DBLeft DBTop WinHelp HELP_QUIT CreateHelpFileNamee HelpFileName MenuHelp_Click HELP_INDEX byval0 BaseBetAmount_LostFocus MhExePath HELPKEYCODE HTemp MhExeName FDeck MhTrue MhFalse StandButton_Click deal or stand - if deal, disable bet box Then he wants to stand If the player has only two cards, and the stake is greater than or equal to two betsd He wants a deal - check bet amount You must bet something or I can't deal!" Bad Bet" You can't bet what you don't have! Hint - Get a marker. Dealer Cannot Extend Credit! You don't have a stake." Please get a marker at the cage. You Are Broke" Bet amount is OK. Go ahead and deal calculate dealer's hand If dealer has ace up, ask if player wants insurance Do you want insurance? Dealer has an Ace Showing! If he said yes to insurance, and the dealer has Blackjack, the hand is over If either the dealer or the player has BJ,r Show the dealer's hidden card If both have BJ If only dealer has BJ If Player has BJ, but not DealerR If the player has only two cards, and the stake is greater than or equal to two betsd Check if it's OK to split the cards HitButton_Click If it's OK to hit If you're not done playing the hand If you're busted, or have 21, If it's a split hand If you were playing the 2nd handa You're done Play the second handh DoubleButton_Click see if two bets are more than stake w If doubling bet would end up betting more thano stake, adjust the bet If the player has only two cards, and the stake is greater than or equal to two betsd SplitButton_Click Player has if split aces, then you're done AdvanceButton_Click MenuInstructions_Click DeckButton_Click The cards have been shuffled!" New Dealer!" BaseBetAmount_KeyPress Restrict input to numbers MenuExit_Click MenuNew_Click MenuSelect_Click MenuAbout_Click AdvanceButton_KeyDown Process in SUBS.BAS KeyDown DeckButton_KeyDown Process in SUBS.BAS KeyDown DividerBar_KeyDown Process in SUBS.BAS KeyDown DoubleButton_KeyDown Process in SUBS.BAS KeyDown HandIndicator_KeyDown Process in SUBS.BAS KeyDown HitButton_KeyDown Process in SUBS.BAS KeyDown SplitButton_KeyDown Process in SUBS.BAS KeyDown StandButton_KeyDown Process in SUBS.BAS KeyDown Form_Load Save original values for form in case it's resizedm VB.EXE \bj.hlp" Startup values Set properties for cardboxes > 5 for each hand. Difference is x coordinate, or width of card + spacer If we have > 5 cards for a hand, first we overlap the first 5 cards, then we start overlapping with 6 Where card 6 goes Assign CardColumn array and keep track of original .LEFT properties for later restoration, in case a player has > 5 cards. Make unused carboxes visibleb Make hand indicator arrow boxes invisible Don't show split hand "Player" Form_Resize BaseBetAmount_LostFocus Convert to string first to ensure we won't get an overflow. If not valid bet You must bet from $1 to $9999, but not more than your stake" BadBet!" BaseBetAmount_KeyDown