Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Apr 24th, 2012  |  syntax: None  |  size: 7.13 KB  |  hits: 12  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Public Class Form2
  2.     Private strnumbers(5) As String
  3.  
  4.     Private Sub btnPlay_Click(sender As System.Object, e As System.EventArgs) Handles btnPlay.Click
  5.  
  6.         btnNumberButton1.Text = CStr(Int(Rnd() * 10)) 'Creates Random Values'
  7.  
  8. 1:      btnNumberButton2.Text = CStr(Int(Rnd() * 10))
  9.         If btnNumberButton2.Text = btnNumberButton1.Text Then
  10.             GoTo 1
  11.         Else
  12.  
  13.         End If
  14. 2:      btnNumberButton3.Text = CStr(Int(Rnd() * 10))
  15.         If btnNumberButton3.Text = btnNumberButton1.Text OrElse
  16.             btnNumberButton3.Text = btnNumberButton2.Text Then
  17.             GoTo 2
  18.         Else
  19.         End If
  20. 3:      btnNumberButton4.Text = CStr(Int(Rnd() * 10))
  21.         If btnNumberButton4.Text = btnNumberButton1.Text OrElse
  22.             btnNumberButton4.Text = btnNumberButton2.Text OrElse
  23.              btnNumberButton4.Text = btnNumberButton3.Text Then
  24.             GoTo 3
  25.         Else
  26.         End If
  27.  
  28.  
  29. 4:      btnNumberButton5.Text = CStr(Int(Rnd() * 10))
  30.         If btnNumberButton5.Text = btnNumberButton1.Text OrElse
  31.             btnNumberButton5.Text = btnNumberButton2.Text OrElse
  32.              btnNumberButton5.Text = btnNumberButton3.Text OrElse
  33.               btnNumberButton5.Text = btnNumberButton4.Text Then
  34.             GoTo 4
  35.         Else
  36.  
  37.         End If
  38.  
  39. 5:
  40.         btnNumberButton6.Text = CStr(Int(Rnd() * 10))
  41.         If btnNumberButton6.Text = btnNumberButton1.Text OrElse
  42.             btnNumberButton6.Text = btnNumberButton2.Text OrElse
  43.              btnNumberButton6.Text = btnNumberButton3.Text OrElse
  44.               btnNumberButton6.Text = btnNumberButton4.Text OrElse
  45.                btnNumberButton6.Text = btnNumberButton5.Text Then
  46.             GoTo 5
  47.         Else
  48.         End If
  49.  
  50.  
  51.         ProgressBar1.Increment(+12.8)
  52.         ProgressBar1.Visible = True
  53.         btnNumberButton1.Enabled = True
  54.         btnNumberButton2.Enabled = True
  55.         btnNumberButton3.Enabled = True
  56.         btnNumberButton4.Enabled = True
  57.         btnNumberButton5.Enabled = True
  58.         btnNumberButton6.Enabled = True
  59.         btnPlay.Enabled = False
  60.  
  61.     End Sub
  62.  
  63.     Private Sub btnNumberButton1_Click(sender As System.Object, e As System.EventArgs) Handles btnNumberButton1.Click
  64.  
  65.         TextBox1.Text = TextBox1.Text + "          " + btnNumberButton1.Text
  66.         btnNumberButton1.Enabled = False
  67.         ProgressBar1.Increment(+12.8)
  68.         btnPlay.Enabled = False
  69.  
  70.     End Sub
  71.  
  72.     Private Sub btnNumberButton2_Click(sender As System.Object, e As System.EventArgs) Handles btnNumberButton2.Click
  73.  
  74.         TextBox1.Text = TextBox1.Text + "          " + btnNumberButton2.Text 'Displays the random number on button in the textbox'
  75.         btnNumberButton2.Enabled = False
  76.         ProgressBar1.Increment(+12.8)
  77.         btnPlay.Enabled = False
  78.  
  79.     End Sub
  80.  
  81.     Private Sub btnNumberButton3_Click(sender As System.Object, e As System.EventArgs) Handles btnNumberButton3.Click
  82.  
  83.         TextBox1.Text = (TextBox1.Text + "         " + btnNumberButton3.Text) 'Displays the random number on button in the textbox'
  84.         btnNumberButton3.Enabled = False
  85.         ProgressBar1.Increment(+12.8)
  86.         btnPlay.Enabled = False
  87.  
  88.     End Sub
  89.  
  90.     Private Sub btnNumberButton4_Click(sender As System.Object, e As System.EventArgs) Handles btnNumberButton4.Click
  91.  
  92.         TextBox1.Text = (TextBox1.Text + "         " + btnNumberButton4.Text) 'Displays the random number on button in the textbox'
  93.         btnNumberButton4.Enabled = False
  94.         ProgressBar1.Increment(+12.8)
  95.         btnPlay.Enabled = False
  96.  
  97.     End Sub
  98.  
  99.     Private Sub btnNumberButton5_Click(sender As System.Object, e As System.EventArgs) Handles btnNumberButton5.Click
  100.  
  101.         TextBox1.Text = (TextBox1.Text + "         " + btnNumberButton5.Text) 'Displays the random number on button in the textbox'
  102.         btnNumberButton5.Enabled = False
  103.         ProgressBar1.Increment(+12.8)
  104.         btnPlay.Enabled = False
  105.  
  106.     End Sub
  107.  
  108.     Private Sub btnNumberButton6_Click(sender As System.Object, e As System.EventArgs) Handles btnNumberButton6.Click
  109.  
  110.         TextBox1.Text = (TextBox1.Text + "         " + btnNumberButton6.Text) 'Displays the random number on button in the textbox'
  111.         btnNumberButton6.Enabled = False
  112.         ProgressBar1.Increment(+12.8)
  113.         btnPlay.Enabled = False
  114.  
  115.     End Sub
  116.  
  117.     Private Sub btnGo_Click(sender As System.Object, e As System.EventArgs) Handles btnGo.Click
  118.  
  119.         strnumbers(0) = CInt(btnNumberButton1.Text)
  120.         strnumbers(1) = CInt(btnNumberButton2.Text)
  121.         strnumbers(2) = CInt(btnNumberButton3.Text)
  122.         strnumbers(3) = CInt(btnNumberButton4.Text)
  123.         strnumbers(4) = CInt(btnNumberButton5.Text)
  124.         strnumbers(5) = CInt(btnNumberButton6.Text)
  125.  
  126.         For num As Integer = 0 To strnumbers.Length - 1
  127.             Array.Sort(strnumbers)
  128.             listarrays.Items.Add(strnumbers(num))
  129.  
  130.         Next
  131.  
  132.         ProgressBar1.Increment(+12.8)
  133.         listarrays.Visible = True
  134.         lblAnswer.Visible = True
  135.  
  136.  
  137.  
  138.         If listarrays.Items(5) = TextBox1.Text Then
  139.             l.Visible = True
  140.         End If
  141.         Dim listcontents As String
  142.         listcontents = listarrays.Items(0)
  143.         For i As Integer = 1 To 5
  144.             listcontents = listcontents + "         " + listarrays.Items(i)
  145.         Next
  146.  
  147.         If listcontents = TextBox1.Text Then
  148.             Label3.Visible = True
  149.         End If
  150.  
  151.     End Sub
  152.  
  153.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
  154.  
  155.         'this command closes the window'
  156.         Me.Close()
  157.         Form1.Close()
  158.  
  159.     End Sub
  160.  
  161.     Private Sub btnReset_Click(sender As System.Object, e As System.EventArgs) Handles btnReset.Click
  162.  
  163.         btnNumberButton1.Text = ""
  164.         btnNumberButton2.Text = ""
  165.         btnNumberButton3.Text = ""
  166.         btnNumberButton4.Text = ""
  167.         btnNumberButton5.Text = ""
  168.         btnNumberButton6.Text = ""
  169.         btnNumberButton1.Enabled = False
  170.         btnNumberButton2.Enabled = False
  171.         btnNumberButton3.Enabled = False
  172.         btnNumberButton4.Enabled = False
  173.         btnNumberButton5.Enabled = False
  174.         btnNumberButton6.Enabled = False
  175.         ProgressBar1.Increment(-100)
  176.         TextBox1.Text = ""
  177.         listarrays.Visible = False
  178.         lblAnswer.Visible = False
  179.         listarrays.Items.Clear()
  180.         ProgressBar1.Visible = True
  181.         btnPlay.Enabled = True
  182.  
  183.     End Sub
  184.  
  185.     Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  186.  
  187.         l.Visible = False  'This makes sure that the labels are not visible'
  188.         Label3.Visible = False
  189.         listarrays.Visible = False
  190.         lblAnswer.Visible = False
  191.  
  192.         btnNumberButton1.Enabled = False
  193.         btnNumberButton2.Enabled = False
  194.         btnNumberButton3.Enabled = False
  195.         btnNumberButton4.Enabled = False
  196.         btnNumberButton5.Enabled = False
  197.         btnNumberButton6.Enabled = False
  198.         btnGo.Enabled = True
  199.  
  200.  
  201.  
  202.     End Sub
  203.  
  204.     Private Sub listarrays_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles listarrays.SelectedIndexChanged
  205.  
  206.  
  207.     End Sub
  208. End Class
create a new version of this paste RAW Paste Data