Advertisement
Guest User

Untitled

a guest
Mar 22nd, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.43 KB | None | 0 0
  1. Public Class Easy
  2.     Dim count As Integer
  3.     Dim point As Integer
  4.     Dim answerArray = New String() {"late", "excuses", "in bunch or cluster", "unfortunate", "broken"}
  5.  
  6.     Private Sub Easy_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  7.         Timer1.Interval = 1000
  8.         Timer1.Start()
  9.     End Sub
  10.  
  11.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  12.         If ProgressBar1.Value <> 0 Then
  13.             ProgressBar1.Value -= 1
  14.         ElseIf ProgressBar1.Value = 0 Then
  15.             ProgressBar2.Value -= 1
  16.         ElseIf ProgressBar2.Value = 0 Then
  17.             ProgressBar3.Value -= 1
  18.         Else
  19.             Timer1.Stop()
  20.             MessageBox.Show("Time is up")
  21.         End If
  22.     End Sub
  23.  
  24.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  25.         If TextBox1.Text.ToLower = answerArray(0) Then
  26.             point += 1
  27.         End If
  28.         If TextBox2.Text.ToLower = answerArray(1) Then
  29.             point += 1
  30.         End If
  31.         If TextBox3.Text.ToLower = answerArray(2) Then
  32.             point += 1
  33.         End If
  34.         If TextBox4.Text.ToLower = answerArray(3) Then
  35.             point += 1
  36.         End If
  37.         If TextBox5.Text.ToLower = answerArray(4) Then
  38.             point += 1
  39.         End If
  40.  
  41.         MessageBox.Show(point)
  42.     End Sub
  43. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement