API tools faq
paste
Guest User

Untitled

a guest
Feb 11th, 2019
69
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 33.07 KB | None | 0 0
raw download clone embed print report
  1. 'Tic Tac Toe game by
  2. 'Programmer: Tyler Bolhuis
  3. 'Date: 10/16/2012
  4. 'Application use : Recreational and Informational only!
  5. 'Application Revise: Revision 1.0
  6. 'Version 1.0
  7. 'This code is very long!
  8.  
  9. 'Please use my name in you're credits if you use this code!
  10. 'Thank you, and enjoy!
  11. Public Class frmMain
  12.  
  13.     'Turn Calls
  14.    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
  15.         If lblTurn.Text = "X" Then
  16.             btn1.Text = "X"
  17.             lblTurn.Text = "O"
  18.  
  19.         Else
  20.             btn1.Text = "O"
  21.             lblTurn.Text = "X"
  22.  
  23.         End If
  24.         btn1.Enabled = False
  25.  
  26.  
  27.         'X win code
  28.  
  29.  
  30.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  31.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  32.             lblx.Text = Val(lblx.Text) + 1
  33.         End If
  34.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  35.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  36.             lblx.Text = Val(lblx.Text) + 1
  37.         End If
  38.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  39.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  40.             lblx.Text = Val(lblx.Text) + 1
  41.         End If
  42.  
  43.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  44.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  45.             lblx.Text = Val(lblx.Text) + 1
  46.         End If
  47.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  48.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  49.             lblx.Text = Val(lblx.Text) + 1
  50.         End If
  51.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  52.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  53.             lblx.Text = Val(lblx.Text) + 1
  54.         End If
  55.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  56.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  57.             lblx.Text = Val(lblx.Text) + 1
  58.         End If
  59.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  60.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  61.             lblx.Text = Val(lblx.Text) + 1
  62.         End If
  63.  
  64.         'O winning
  65.  
  66.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  67.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  68.             lblo.Text = Val(lblo.Text) + 1
  69.         End If
  70.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  71.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  72.             lblo.Text = Val(lblo.Text) + 1
  73.         End If
  74.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  75.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  76.             lblo.Text = Val(lblo.Text) + 1
  77.         End If
  78.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  79.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  80.             lblo.Text = Val(lblo.Text) + 1
  81.         End If
  82.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  83.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  84.             lblo.Text = Val(lblo.Text) + 1
  85.         End If
  86.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  87.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  88.             lblo.Text = Val(lblo.Text) + 1
  89.         End If
  90.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  91.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  92.             lblo.Text = Val(lblo.Text) + 1
  93.         End If
  94.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  95.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  96.             lblo.Text = Val(lblo.Text) + 1
  97.         End If
  98.  
  99.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  100.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  101.             lblo.Text = Val(lblo.Text) + 1
  102.         End If
  103.     End Sub
  104.  
  105.     Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
  106.         If lblTurn.Text = "X" Then
  107.             btn2.Text = "X"
  108.             lblTurn.Text = "O"
  109.  
  110.         Else
  111.             btn2.Text = "O"
  112.             lblTurn.Text = "X"
  113.         End If
  114.         btn2.Enabled = False
  115.         'X win code
  116.  
  117.  
  118.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  119.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  120.             lblx.Text = Val(lblx.Text) + 1
  121.         End If
  122.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  123.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  124.             lblx.Text = Val(lblx.Text) + 1
  125.         End If
  126.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  127.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  128.             lblx.Text = Val(lblx.Text) + 1
  129.         End If
  130.  
  131.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  132.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  133.             lblx.Text = Val(lblx.Text) + 1
  134.         End If
  135.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  136.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  137.             lblx.Text = Val(lblx.Text) + 1
  138.         End If
  139.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  140.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  141.             lblx.Text = Val(lblx.Text) + 1
  142.         End If
  143.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  144.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  145.             lblx.Text = Val(lblx.Text) + 1
  146.         End If
  147.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  148.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  149.             lblx.Text = Val(lblx.Text) + 1
  150.         End If
  151.  
  152.         'O winning
  153.  
  154.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  155.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  156.             lblo.Text = Val(lblo.Text) + 1
  157.         End If
  158.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  159.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  160.             lblo.Text = Val(lblo.Text) + 1
  161.         End If
  162.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  163.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  164.             lblo.Text = Val(lblo.Text) + 1
  165.         End If
  166.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  167.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  168.             lblo.Text = Val(lblo.Text) + 1
  169.         End If
  170.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  171.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  172.             lblo.Text = Val(lblo.Text) + 1
  173.         End If
  174.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  175.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  176.             lblo.Text = Val(lblo.Text) + 1
  177.         End If
  178.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  179.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  180.             lblo.Text = Val(lblo.Text) + 1
  181.         End If
  182.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  183.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  184.             lblo.Text = Val(lblo.Text) + 1
  185.         End If
  186.  
  187.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  188.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  189.             lblo.Text = Val(lblo.Text) + 1
  190.         End If
  191.     End Sub
  192.  
  193.     Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
  194.  
  195.         If lblTurn.Text = "X" Then
  196.             btn3.Text = "X"
  197.             lblTurn.Text = "O"
  198.  
  199.         Else
  200.             btn3.Text = "O"
  201.             lblTurn.Text = "X"
  202.         End If
  203.         btn3.Enabled = False
  204.  
  205.         'X win code
  206.  
  207.  
  208.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  209.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  210.             lblx.Text = Val(lblx.Text) + 1
  211.         End If
  212.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  213.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  214.             lblx.Text = Val(lblx.Text) + 1
  215.         End If
  216.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  217.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  218.             lblx.Text = Val(lblx.Text) + 1
  219.         End If
  220.  
  221.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  222.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  223.             lblx.Text = Val(lblx.Text) + 1
  224.         End If
  225.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  226.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  227.             lblx.Text = Val(lblx.Text) + 1
  228.         End If
  229.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  230.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  231.             lblx.Text = Val(lblx.Text) + 1
  232.         End If
  233.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  234.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  235.             lblx.Text = Val(lblx.Text) + 1
  236.         End If
  237.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  238.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  239.             lblx.Text = Val(lblx.Text) + 1
  240.         End If
  241.  
  242.         'O winning
  243.  
  244.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  245.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  246.             lblo.Text = Val(lblo.Text) + 1
  247.         End If
  248.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  249.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  250.             lblo.Text = Val(lblo.Text) + 1
  251.         End If
  252.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  253.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  254.             lblo.Text = Val(lblo.Text) + 1
  255.         End If
  256.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  257.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  258.             lblo.Text = Val(lblo.Text) + 1
  259.         End If
  260.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  261.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  262.             lblo.Text = Val(lblo.Text) + 1
  263.         End If
  264.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  265.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  266.             lblo.Text = Val(lblo.Text) + 1
  267.         End If
  268.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  269.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  270.             lblo.Text = Val(lblo.Text) + 1
  271.         End If
  272.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  273.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  274.             lblo.Text = Val(lblo.Text) + 1
  275.         End If
  276.  
  277.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  278.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  279.             lblo.Text = Val(lblo.Text) + 1
  280.         End If
  281.     End Sub
  282.  
  283.     Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
  284.  
  285.         If lblTurn.Text = "X" Then
  286.             btn4.Text = "X"
  287.             lblTurn.Text = "O"
  288.  
  289.         Else
  290.             btn4.Text = "O"
  291.             lblTurn.Text = "X"
  292.         End If
  293.         btn4.Enabled = False
  294.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  295.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  296.             lblx.Text = Val(lblx.Text) + 1
  297.         End If
  298.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  299.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  300.             lblx.Text = Val(lblx.Text) + 1
  301.         End If
  302.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  303.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  304.             lblx.Text = Val(lblx.Text) + 1
  305.         End If
  306.  
  307.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  308.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  309.             lblx.Text = Val(lblx.Text) + 1
  310.         End If
  311.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  312.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  313.             lblx.Text = Val(lblx.Text) + 1
  314.         End If
  315.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  316.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  317.             lblx.Text = Val(lblx.Text) + 1
  318.         End If
  319.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  320.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  321.             lblx.Text = Val(lblx.Text) + 1
  322.         End If
  323.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  324.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  325.             lblx.Text = Val(lblx.Text) + 1
  326.         End If
  327.  
  328.         'O winning
  329.  
  330.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  331.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  332.             lblo.Text = Val(lblo.Text) + 1
  333.         End If
  334.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  335.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  336.             lblo.Text = Val(lblo.Text) + 1
  337.         End If
  338.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  339.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  340.             lblo.Text = Val(lblo.Text) + 1
  341.         End If
  342.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  343.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  344.             lblo.Text = Val(lblo.Text) + 1
  345.         End If
  346.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  347.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  348.             lblo.Text = Val(lblo.Text) + 1
  349.         End If
  350.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  351.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  352.             lblo.Text = Val(lblo.Text) + 1
  353.         End If
  354.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  355.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  356.             lblo.Text = Val(lblo.Text) + 1
  357.         End If
  358.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  359.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  360.             lblo.Text = Val(lblo.Text) + 1
  361.         End If
  362.  
  363.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  364.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  365.             lblo.Text = Val(lblo.Text) + 1
  366.         End If
  367.     End Sub
  368.  
  369.     Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
  370.  
  371.         If lblTurn.Text = "X" Then
  372.             btn5.Text = "X"
  373.             lblTurn.Text = "O"
  374.  
  375.         Else
  376.             btn5.Text = "O"
  377.             lblTurn.Text = "X"
  378.         End If
  379.         btn5.Enabled = False
  380.  
  381.         'X win code
  382.  
  383.  
  384.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  385.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  386.             lblx.Text = Val(lblx.Text) + 1
  387.         End If
  388.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  389.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  390.             lblx.Text = Val(lblx.Text) + 1
  391.         End If
  392.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  393.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  394.             lblx.Text = Val(lblx.Text) + 1
  395.         End If
  396.  
  397.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  398.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  399.             lblx.Text = Val(lblx.Text) + 1
  400.         End If
  401.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  402.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  403.             lblx.Text = Val(lblx.Text) + 1
  404.         End If
  405.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  406.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  407.             lblx.Text = Val(lblx.Text) + 1
  408.         End If
  409.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  410.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  411.             lblx.Text = Val(lblx.Text) + 1
  412.         End If
  413.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  414.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  415.             lblx.Text = Val(lblx.Text) + 1
  416.         End If
  417.  
  418.         'O winning
  419.  
  420.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  421.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  422.             lblo.Text = Val(lblo.Text) + 1
  423.         End If
  424.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  425.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  426.             lblo.Text = Val(lblo.Text) + 1
  427.         End If
  428.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  429.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  430.             lblo.Text = Val(lblo.Text) + 1
  431.         End If
  432.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  433.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  434.             lblo.Text = Val(lblo.Text) + 1
  435.         End If
  436.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  437.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  438.             lblo.Text = Val(lblo.Text) + 1
  439.         End If
  440.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  441.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  442.             lblo.Text = Val(lblo.Text) + 1
  443.         End If
  444.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  445.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  446.             lblo.Text = Val(lblo.Text) + 1
  447.         End If
  448.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  449.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  450.             lblo.Text = Val(lblo.Text) + 1
  451.         End If
  452.  
  453.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  454.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  455.             lblo.Text = Val(lblo.Text) + 1
  456.         End If
  457.     End Sub
  458.  
  459.     Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
  460.  
  461.         If lblTurn.Text = "X" Then
  462.             btn6.Text = "X"
  463.             lblTurn.Text = "O"
  464.  
  465.         Else
  466.             btn6.Text = "O"
  467.             lblTurn.Text = "X"
  468.         End If
  469.         btn6.Enabled = False
  470.  
  471.         'X win code
  472.  
  473.  
  474.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  475.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  476.             lblx.Text = Val(lblx.Text) + 1
  477.         End If
  478.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  479.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  480.             lblx.Text = Val(lblx.Text) + 1
  481.         End If
  482.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  483.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  484.             lblx.Text = Val(lblx.Text) + 1
  485.         End If
  486.  
  487.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  488.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  489.             lblx.Text = Val(lblx.Text) + 1
  490.         End If
  491.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  492.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  493.             lblx.Text = Val(lblx.Text) + 1
  494.         End If
  495.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  496.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  497.             lblx.Text = Val(lblx.Text) + 1
  498.         End If
  499.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  500.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  501.             lblx.Text = Val(lblx.Text) + 1
  502.         End If
  503.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  504.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  505.             lblx.Text = Val(lblx.Text) + 1
  506.         End If
  507.  
  508.         'O winning
  509.  
  510.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  511.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  512.             lblo.Text = Val(lblo.Text) + 1
  513.         End If
  514.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  515.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  516.             lblo.Text = Val(lblo.Text) + 1
  517.         End If
  518.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  519.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  520.             lblo.Text = Val(lblo.Text) + 1
  521.         End If
  522.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  523.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  524.             lblo.Text = Val(lblo.Text) + 1
  525.         End If
  526.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  527.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  528.             lblo.Text = Val(lblo.Text) + 1
  529.         End If
  530.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  531.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  532.             lblo.Text = Val(lblo.Text) + 1
  533.         End If
  534.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  535.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  536.             lblo.Text = Val(lblo.Text) + 1
  537.         End If
  538.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  539.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  540.             lblo.Text = Val(lblo.Text) + 1
  541.         End If
  542.  
  543.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  544.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  545.             lblo.Text = Val(lblo.Text) + 1
  546.         End If
  547.     End Sub
  548.  
  549.  
  550.     Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
  551.  
  552.         If lblTurn.Text = "X" Then
  553.             btn7.Text = "X"
  554.             lblTurn.Text = "O"
  555.  
  556.         Else
  557.             btn7.Text = "O"
  558.             lblTurn.Text = "X"
  559.         End If
  560.         btn7.Enabled = False
  561.  
  562.         'X win code
  563.  
  564.  
  565.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  566.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  567.             lblx.Text = Val(lblx.Text) + 1
  568.         End If
  569.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  570.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  571.             lblx.Text = Val(lblx.Text) + 1
  572.         End If
  573.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  574.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  575.             lblx.Text = Val(lblx.Text) + 1
  576.         End If
  577.  
  578.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  579.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  580.             lblx.Text = Val(lblx.Text) + 1
  581.         End If
  582.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  583.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  584.             lblx.Text = Val(lblx.Text) + 1
  585.         End If
  586.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  587.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  588.             lblx.Text = Val(lblx.Text) + 1
  589.         End If
  590.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  591.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  592.             lblx.Text = Val(lblx.Text) + 1
  593.         End If
  594.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  595.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  596.             lblx.Text = Val(lblx.Text) + 1
  597.         End If
  598.  
  599.         'O winning
  600.  
  601.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  602.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  603.             lblo.Text = Val(lblo.Text) + 1
  604.         End If
  605.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  606.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  607.             lblo.Text = Val(lblo.Text) + 1
  608.         End If
  609.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  610.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  611.             lblo.Text = Val(lblo.Text) + 1
  612.         End If
  613.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  614.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  615.             lblo.Text = Val(lblo.Text) + 1
  616.         End If
  617.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  618.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  619.             lblo.Text = Val(lblo.Text) + 1
  620.         End If
  621.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  622.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  623.             lblo.Text = Val(lblo.Text) + 1
  624.         End If
  625.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  626.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  627.             lblo.Text = Val(lblo.Text) + 1
  628.         End If
  629.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  630.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  631.             lblo.Text = Val(lblo.Text) + 1
  632.         End If
  633.  
  634.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  635.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  636.             lblo.Text = Val(lblo.Text) + 1
  637.         End If
  638.     End Sub
  639.  
  640.     Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
  641.  
  642.  
  643.         If lblTurn.Text = "X" Then
  644.             btn8.Text = "X"
  645.             lblTurn.Text = "O"
  646.  
  647.         Else
  648.             btn8.Text = "O"
  649.             lblTurn.Text = "X"
  650.         End If
  651.         btn8.Enabled = False
  652.         'X win code
  653.  
  654.  
  655.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  656.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  657.             lblx.Text = Val(lblx.Text) + 1
  658.         End If
  659.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  660.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  661.             lblx.Text = Val(lblx.Text) + 1
  662.         End If
  663.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  664.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  665.             lblx.Text = Val(lblx.Text) + 1
  666.         End If
  667.  
  668.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  669.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  670.             lblx.Text = Val(lblx.Text) + 1
  671.         End If
  672.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  673.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  674.             lblx.Text = Val(lblx.Text) + 1
  675.         End If
  676.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  677.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  678.             lblx.Text = Val(lblx.Text) + 1
  679.         End If
  680.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  681.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  682.             lblx.Text = Val(lblx.Text) + 1
  683.         End If
  684.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  685.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  686.             lblx.Text = Val(lblx.Text) + 1
  687.         End If
  688.  
  689.         'O winning
  690.  
  691.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  692.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  693.             lblo.Text = Val(lblo.Text) + 1
  694.         End If
  695.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  696.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  697.             lblo.Text = Val(lblo.Text) + 1
  698.         End If
  699.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  700.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  701.             lblo.Text = Val(lblo.Text) + 1
  702.         End If
  703.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  704.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  705.             lblo.Text = Val(lblo.Text) + 1
  706.         End If
  707.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  708.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  709.             lblo.Text = Val(lblo.Text) + 1
  710.         End If
  711.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  712.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  713.             lblo.Text = Val(lblo.Text) + 1
  714.         End If
  715.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  716.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  717.             lblo.Text = Val(lblo.Text) + 1
  718.         End If
  719.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  720.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  721.             lblo.Text = Val(lblo.Text) + 1
  722.         End If
  723.  
  724.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  725.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  726.             lblo.Text = Val(lblo.Text) + 1
  727.         End If
  728.     End Sub
  729.  
  730.     Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
  731.  
  732.         If lblTurn.Text = "X" Then
  733.             btn9.Text = "X"
  734.             lblTurn.Text = "O"
  735.  
  736.         Else
  737.             btn9.Text = "O"
  738.             lblTurn.Text = "X"
  739.         End If
  740.         btn9.Enabled = False
  741.         'X win code
  742.  
  743.  
  744.         If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
  745.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  746.             lblx.Text = Val(lblx.Text) + 1
  747.         End If
  748.         If btn4.Text = "X" And btn5.Text = "X" And btn6.Text = "X" Then
  749.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  750.             lblx.Text = Val(lblx.Text) + 1
  751.         End If
  752.         If btn7.Text = "X" And btn8.Text = "X" And btn9.Text = "X" Then
  753.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  754.             lblx.Text = Val(lblx.Text) + 1
  755.         End If
  756.  
  757.         If btn1.Text = "X" And btn4.Text = "X" And btn7.Text = "X" Then
  758.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  759.             lblx.Text = Val(lblx.Text) + 1
  760.         End If
  761.         If btn2.Text = "X" And btn5.Text = "X" And btn8.Text = "X" Then
  762.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  763.             lblx.Text = Val(lblx.Text) + 1
  764.         End If
  765.         If btn3.Text = "X" And btn6.Text = "X" And btn9.Text = "X" Then
  766.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  767.             lblx.Text = Val(lblx.Text) + 1
  768.         End If
  769.         If btn3.Text = "X" And btn5.Text = "X" And btn7.Text = "X" Then
  770.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  771.             lblx.Text = Val(lblx.Text) + 1
  772.         End If
  773.         If btn1.Text = "X" And btn5.Text = "X" And btn9.Text = "X" Then
  774.             MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
  775.             lblx.Text = Val(lblx.Text) + 1
  776.         End If
  777.  
  778.         'O winning
  779.  
  780.         If btn1.Text = "O" And btn2.Text = "O" And btn3.Text = "O" Then
  781.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  782.             lblo.Text = Val(lblo.Text) + 1
  783.         End If
  784.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  785.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  786.             lblo.Text = Val(lblo.Text) + 1
  787.         End If
  788.         If btn4.Text = "O" And btn5.Text = "O" And btn6.Text = "O" Then
  789.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  790.             lblo.Text = Val(lblo.Text) + 1
  791.         End If
  792.         If btn7.Text = "O" And btn8.Text = "O" And btn9.Text = "O" Then
  793.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  794.             lblo.Text = Val(lblo.Text) + 1
  795.         End If
  796.         If btn1.Text = "O" And btn4.Text = "O" And btn7.Text = "O" Then
  797.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  798.             lblo.Text = Val(lblo.Text) + 1
  799.         End If
  800.         If btn2.Text = "O" And btn5.Text = "O" And btn8.Text = "O" Then
  801.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  802.             lblo.Text = Val(lblo.Text) + 1
  803.         End If
  804.         If btn3.Text = "O" And btn6.Text = "O" And btn9.Text = "O" Then
  805.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  806.             lblo.Text = Val(lblo.Text) + 1
  807.         End If
  808.         If btn1.Text = "O" And btn5.Text = "O" And btn9.Text = "O" Then
  809.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  810.             lblo.Text = Val(lblo.Text) + 1
  811.         End If
  812.  
  813.         If btn3.Text = "O" And btn5.Text = "O" And btn7.Text = "O" Then
  814.             MsgBox("THE O PLAYER HAS ONE!  GOOD JOB!")
  815.             lblo.Text = Val(lblo.Text) + 1
  816.         End If
  817.     End Sub
  818.  
  819.     Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
  820.         'Clear and reset forum, clears everything!
  821.        Application.Restart()
  822.  
  823.     End Sub
  824.  
  825.  
  826.     Private Sub btnNewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewGame.Click
  827.         'New Game button, resets data but not score.
  828.  
  829.  
  830.         btn1.Text = ""
  831.         btn2.Text = ""
  832.         btn3.Text = ""
  833.         btn4.Text = ""
  834.         btn5.Text = ""
  835.         btn6.Text = ""
  836.         btn7.Text = ""
  837.         btn8.Text = ""
  838.         btn9.Text = ""
  839.         btn1.Enabled = True
  840.         btn2.Enabled = True
  841.         btn3.Enabled = True
  842.         btn4.Enabled = True
  843.         btn5.Enabled = True
  844.         btn6.Enabled = True
  845.         btn7.Enabled = True
  846.         btn8.Enabled = True
  847.         btn9.Enabled = True
  848.         lblTurn.Text = "X"
  849.  
  850.     End Sub
  851.  
  852.     Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
  853.  
  854.     End Sub
  855. End Class
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!