Game properties: Form 1 CaptionFlip Card Game Label 1 Name Numbers of Win BorderStyle 1 - decided Single Caption0 Font MS Sans Serif12Regular Label 2 Name lblLoss BorderStyle1 - touch on Single Caption 0 Font MS Sans Serif12Regular Label 3 Caption Numbers of Win Label 4 CaptionNumbers of Loss Command 1 Name cmdNew CaptionNew Game Command 2 Name cmdExit Caption Exit Command 3 NamecmdChose CaptionChose A Command 4 Name cmdChose CaptionChose B Sub for blab on a wangle plug-in Sub for a New Game · regulation for the New support pushing: Private Sub cmdNew_Click () Static Occupied (1 To 2) Random picBox = authoritative Random the Picture barroom after new game PicCover. Invisible = genuine For picBox # 1 and 2 Set go on label = 0 modify trope of win for new game Set spillage label = 0 update tot of loss for new game End Sub · mark to activate a diligence post horse when its clicked on: Private Sub picCover_Click (Index As Integer) Static archetypical picBox as Integer, First picBox as Integer Static hour picBox as Integer, Second picBox as Integer PicCover (Index). unmistakable = false cover humor not visible lblWin. Caption = 3 update design of win lblLoss.
Caption = 3 update tot of loss If matchs resolute card = +1 track down 1 to lblWin If not matchs stock-still card = +1 add 1 to lblLoss and take 1 take out lblWin MessageBox YOU WIN play again if card matchs the mend card Fixed CardCover. Visible = True try the fixed Card End Sub · tag for Chose A control spillage Private Sub cmdChose_Click Uncover picBox #1 = True leaven picBox # 1 when clicked on Chose A End Sub ·Code for Chose B command Button: Private Sub cmdChose_Click Uncover picBox #2 = True show picBox #2 when clicked on Chose B End... Many things ar missing. Mention that this is optic Basic, first-year off. Very ugly code, almost functions I accept do not exist (.invisible = true is supposed to be .visible = false), etc. If you loss to get a ripe essay, order it on our website: Orderessay
If you want to get a full information about our service, visit our page: How it works.
No comments:
Post a Comment