1 / 5

Winning Streak with VBSA: Flip Coin for Fun

Dive into the world of coin flipping with VBSA and experience the thrill of a winning streak! This program allows you to flip coins, track consecutive outcomes, and declare a winner based on your luck. Discover the excitement of flipping coins and challenging your luck streak with VBSA. Engage in a fun and interactive game while enhancing your programming skills. Feel the rush of consecutive outcomes and aim for the ultimate streak! Try your luck and see if you can achieve a winning streak with VBSA.

thor
Download Presentation

Winning Streak with VBSA: Flip Coin for Fun

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