All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Public Class frmproject5 Inherits System.Windows.Forms.Form Dim intNumberToGuess As Long Dim Count As Integer Dim Index As Integer Dim previousGuesses As New System.Collections.Hashtable Private Sub Button1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguess.Click Dim intGuess As Long Dim UpperBound As Long Dim LowerBound As Long 'check the number being entered into the textbox against the random number set If IsNumeric(txtguess.Text) Then intGuess = CLng(txtguess.Text) Else ' If no text enetered and button cliked, display message MsgBox("Enter a number into the textbox!") End If ' If the number being enetered is lower than the random number, Update() If Not (previousGuesses(intGuess) Is Nothing) Then lblinfo.Text() = "You've already tried this number - try again" MsgBox("You've already tried this number - try again") Else If intGuess < intNumberToGuess Then lblinfo.Text() = "Too Low!" MsgBox("Number is Too Low - Have another go!") ElseIf intGuess > intNumberToGuess Then lblinfo.Text = "Too High!" MsgBox("Number is Too High - Have another go!") ElseIf intGuess = intNumberToGuess Then lblinfo.Text = "You've Got It!" MsgBox("Well Done - You've worked out the random number - Now have another go!") intNumberToGuess = Int((UpperBound - LowerBound + 100) * Rnd() + LowerBound) End If 'Add the numbers guessed into the listbox listguess.Items.Add(txtguess.Text) previousGuesses(intGuess) = intGuess End If End Sub Private Sub btnhowtoplay_enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhowtoplay.Click MsgBox("Type a number between 0 and 100 into the box labeled Type Guess Here. The program will generate a random number and will tell you if you've gone to high or to low, keep guessing until you are CORRECT!") End Sub Private Sub Btnreset_enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreset.Click listguess.Items.Clear() txtguess.Text = "" listguess.Text = "" lblinfo.Text = "" btnguess.Enabled = True Randomize() End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim intNumberToGuess As Long Dim UpperBound As Long Dim LowerBound As Long Randomize() intNumberToGuess = Int((UpperBound - LowerBound + 100) * Rnd() + LowerBound) End Sub End Class
|Need Help,, i m beginner in vba,, i'm writing a code for exporting the data from Userform to Access Database||13||94|
|VBA error replacing data||6||34|
|Adding to a VBA?||6||46|
|Access query that references subform||5||35|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!