1 / 5

CSC110 Fundamentals of CSC L3P3 Winning Streak

CSC110 Fundamentals of CSC L3P3 Winning Streak. Using VBSA. How It Works (Load). NEW : Clears the ListBox , then adds in the word FLIPS. How It Works (Flip Coin). flipCoin third Picture1 ( Num before WAIT) WAIT List2.index = third ( Num after WAIT) ‘1 = HEADS, 2 = TAILS

thor
Download Presentation

CSC110 Fundamentals of CSC L3P3 Winning Streak

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. CSC110Fundamentals of CSCL3P3 Winning Streak Using VBSA

  2. How It Works (Load) NEW: Clears the ListBox, thenadds in the word FLIPS.

  3. How It Works (Flip Coin) flipCoin third Picture1 (Num before WAIT) WAIT List2.index = third(Num after WAIT) ‘1 = HEADS, 2 = TAILS SELECT CASE List2 CASE 1 List1.Add = HEADS CASE 2 List1.Add = TAILS CASE ELSE END SELECT ‘Multiply all three together product = first * second product = product * third IF product = 1 THEN MsgBox 3 HEADS in a row – HEADS wins!!! END ELSE ENDIF IF product = 8 THEN MsgBox 3 TAILS in a row – TAILS wins!!! END ELSE ENDIF ‘Prepare for the next flip first = second second = third ‘Try again! BeforeWAIT & After

  4. How It Works (Flip Coin) flipCointhird Picture1 (Num before WAIT) WAIT List2.index = third(Num after WAIT) ‘1 = HEADS, 2 = TAILS SELECT CASE List2 CASE 1 List1.Add = HEADS CASE 2 List1.Add = TAILS CASE ELSE END SELECT ‘Multiply all three together product = first * second product = product * third IF product = 1 THEN MsgBox 3 HEADS in a row – HEADS wins!!! END ELSE ENDIF IF product = 8 THEN MsgBox 3 TAILS in a row – TAILS wins!!! END ELSE ENDIF ‘Prepare for the next flip first = second second = third ‘Try again! BeforeWAIT & After

  5. How It Works (Flip Coin) flipCointhird Picture1 (Num before WAIT) WAIT List2.index = third(Num after WAIT) ‘1 = HEADS, 2 = TAILS SELECT CASE List2 CASE 1 List1.Add = HEADS CASE 2 List1.Add = TAILS CASE ELSE END SELECT ‘Multiply all three together product = first * second product = product * third IF product = 1 THEN MsgBox 3 HEADS in a row – HEADS wins!!! END ELSE ENDIF IF product = 8 THEN MsgBox 3 TAILS in a row – TAILS wins!!! END ELSE ENDIF ‘Prepare for the next flip first = second second = third ‘Try again! BeforeWAIT & After

More Related