I'm thinking of a number!

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

I'm thinking of a number!

Logged in as: Guest

arrSession:exec spGetSession 2,16,64797

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> I'm thinking of a number!
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

I'm thinking of a number! - 10/4/2008 7:10:34 AM

appleguy6142

Posts: 4
Score: 0
Joined: 9/9/2008
Status: offline

This is a little script i made so that you can make your friends guess the number!
I'm sure you know the things you save a '.vbs' etc

Here is the code!
-------------<<<(dont copy these)
Dim Matt
Matt = InputBox("I'm thinking of a number between 1 & 10, can you guess it??")

If Matt = "6" Then
Call Msgbox("Your Right!!!!",64,"Correct!")
Else
Call Msgbox("Nope!!",16,"You Suck!")
End If
------------------

You can change the number underlined to a number between 1 & 10

have fun!!!!!!

_____________________________

AppleGuy6142
PS: Your late for work! ;)

Post #: 1

RE: I'm thinking of a number! - 10/4/2008 8:33:37 AM

dm_4ever

Posts: 2641
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

I liked the idea so...here's my take...tried accounting for a few possibilities...may have missed a few

Option Explicit

Main()

Sub Main()
   Dim intMinNumber : intMinNumber = 1 'define the minimum number
   Dim intMaxNumber : intMaxNumber = 10 'define the maximum number
  
   Dim strResponse : strResponse = Trim(InputBox("I'm thinking of a nubmer between " & _
                                   intMinNumber & " & " & intMaxNumber & ", can you guess it??")) 'display the prompt
  
   If strResponse = "" Then ' see if anything is entered or if cancel is hit
       MsgBox "Didn't even want to try huh?", vbOKOnly, "Gave Up?"
       WScript.Quit
   Else
       Dim RegEx : Set RegEx = New RegExp 
       RegEx.Pattern = "^\d+$" 'setup a regular expression to ensure a number is entered
      
       If Not RegEx.Test(strResponse) Then 'test the input
           MsgBox "You need to type a number!", vbOKOnly + vbInformation, "Numbers only!"
       Else
           Dim intInput : intInput = CDbl(strResponse) 'convert the string to a double
          
           If intInput >= intMinNumber And intInput <= intMaxNumber Then 'evaluate to see if the number is within our specified range
               Dim intRndNum : intRndNum = GetRandomNumber(intMinNumber, intMaxNumber) ' retrieve a random number in the range we specified
              
               If intRndNum = intInput Then 'test if the entered number matches the random number
                   MsgBox "You're correct!  The number was:  " & intRndNum, vbOKOnly + vbInformation, "Correct!"
               Else
                   MsgBox "You guessed " & intInput & " which is wrong! The number was:  " & intRndNum, vbOKOnly + vbCritical, "Wrong Guess!"
               End If
           Else
               MsgBox "You typed a number that is out of the range, can't you read?", vbOKOnly + vbCritical, "Can't Read?"
           End If
       End If
   End If
End Sub

Function GetRandomNumber(intStart, intEnd)
 Dim objRnd : Set objRnd = CreateObject("System.Random") 'create .NET random object
 GetRandomNumber = objRnd.Next_2(intStart, intEnd) 'get random number within the range specified
End Function

< Message edited by dm_4ever -- 10/4/2008 9:45:02 AM >

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to appleguy6142)

Revisions: 2 | Post #: 2

RE: I'm thinking of a number! - 10/18/2008 2:44:33 AM

blksith0

Posts: 37
Score: 0
Joined: 10/17/2008
Status: offline

Now how do you make it keep popping up after you get it wrong until you have to make it go away by getting it right?

(in reply to dm_4ever)

Post #: 3

RE: I'm thinking of a number! - 10/18/2008 2:50:11 AM

blksith0

Posts: 37
Score: 0
Joined: 10/17/2008
Status: offline

(in reply to dm_4ever)

Post #: 4

RE: I'm thinking of a number! - 10/18/2008 10:17:25 PM

TomRiddle

Posts: 188
Score: 4
Joined: 2/7/2008
Status: offline

try CTL +Alt + DEL and end task wscript.exe

(in reply to blksith0)

Post #: 5

RE: I'm thinking of a number! - 10/19/2008 7:17:31 AM

blksith0

Posts: 37
Score: 0
Joined: 10/17/2008
Status: offline

No, like I know how to get rid of it that way, but like get rid of the cancel button, so I can open it on other people computer and they have to guess it right or it never goes away. (Unless they know the wscript thing)

(in reply to TomRiddle)

Post #: 6

RE: I'm thinking of a number! - 10/20/2008 11:44:28 AM

blksith0

Posts: 37
Score: 0
Joined: 10/17/2008
Status: offline

Do you know how to get rid of the cancel button in dm_4ever's code?

(in reply to blksith0)

Post #: 7

RE: I'm thinking of a number! - 10/20/2008 10:30:06 PM

TomRiddle

Posts: 188
Score: 4
Joined: 2/7/2008
Status: offline

You want to tick someone off???
This will tick someone off for sure

intMinNumber = 1 
intMaxNumber = 10

tryme

sub tryme

strResponse = Trim(InputBox("I'm thinking of a nubmer between " & intMinNumber & " & " & intMaxNumber & ", can you guess it??")) 
checkme strResponse

end sub

sub checkme(strResponse)

If strResponse = "" Then 
       MsgBox "You cant give up that easy"
       tryme
   Else
       Dim RegEx : Set RegEx = New RegExp 
       RegEx.Pattern = "^\d+$" 
      
       If Not RegEx.Test(strResponse) Then 'test the input
           MsgBox "You need to type a number!"
           tryme
       Else
           intInput = CDbl(strResponse) 
          
           If intInput >= intMinNumber And intInput <= intMaxNumber Then 
               intRndNum = GetRandomNumber(intMinNumber, intMaxNumber) 
              
               If intRndNum = intInput Then 
                   MsgBox "You're correct!  The number was:  " & intRndNum, 48, "well done"
                   Msgbox "You are so good I will give you another go for free", 48, "well done"
                   tryme                    
               Else
                   MsgBox "You guessed " & intInput & " which is wrong! The number was:  " & intRndNum
                   tryme
               End If
           Else
               MsgBox "You typed a number that is out of the range, can't you read?"
               tryme
           End If
       End If
   End If

end Sub

Function GetRandomNumber(intStart, intEnd)
 Set objRnd = CreateObject("System.Random") 
 GetRandomNumber = objRnd.Next_2(intStart, intEnd) 
End Function

(in reply to blksith0)