Have the following code but can only get it to work when I enter nothing into the answer box then it says sorry..... but if i enter any# or a letter it doesnt do anything.. wordpad will not accept all the end if's and else statements either. only one it allows is the end if at the end of the code. here is my code.

'************************************************************************* 
'Script Name: Mathgame.vbs 
'Author: Jerry Ford 
'Created: 02/28/02 
'Description: This script prompts the user to solve a mathematical 
'expression and demonstrates how to solve it in the event that the user 
'cannot 
'************************************************************************* 

'Initialization Section 

Option Explicit 

Dim WshShl, QuestionOne, ProveIt 

'Define the title bar message to be displayed in the script's 
'pop-up dialog 
Const cTitlebarMsg = "The Math Game" 

'Instantiate an instance of the WshShell object 
Set WshShl = WScript.CreateObject("WScript.Shell") 

'Present the player with the equation 
QuestionOne = InputBox("What is the sum of 1 + 5 * 9 / 3 ?", cTitlebarMsg) 

'See if the player provided an answer 
If Len(QuestionOne) = 0 Then MsgBox "Sorry. You must enter a number to play this game." 
WScript.Quit
End If 

'Make sure that the player typed a number 
If IsNumeric(QuestionOne) <> True Then MsgBox "Sorry. You must enter a number to play this game." 
WScript.Quit 
End If

'Check to see if the player provided the correct answer
If QuestionOne = 16 Then MsgBox "Correct! You obviously know your math!"
Else 
ProveIt = MsgBox("Incorrect. Do you want to see me solve the " & _ 
"equation?", 36, cTitlebarMsg) 


If ProveIt = 6 Then 'Player wants to see the solution 

'Start the WordPad application 

WshShl.Run "WordPad" 

'Pause script execution to give Windows enough time to load WordPad 

WScript.Sleep 2000 

'Use WordPad to show the player how to solve the equation 

WshShl.SendKeys "To answer this question you must follow the " & _ 
"correct order of precedence when performing your calculations." 

WScript.Sleep 2000 

WshShl.SendKeys "~~" 

WshShl.SendKeys "1st, working from left to right multiply 5 * 9." 

WScript.Sleep 2000 

WshShl.SendKeys "~~" 

WshShl.SendKeys "2nd, divide the result by 3." 

WScript.Sleep 2000 

WshShl.SendKeys "~~" 

WshShl.SendKeys "3rd, add 1." 

WScript.Sleep 2000 

WshShl.SendKeys "~~" 

WshShl.SendKeys "The final answer is 16." 

WScript.Sleep 2000 

WshShl.SendKeys "~~" 

WshShl.SendKeys "~~" 

WshShl.SendKeys "In case you question my math..... watch this!" 

WScript.Sleep 2000 

WshShl.SendKeys "%{F4}" 

WshShl.SendKeys "%{N}" 

'Start the Calculator application 

WshShl.Run "Calc"


'Use the Calculator application to solve the equation 

WScript.Sleep 2000 

WshShl.SendKeys 5 & "{*}" 

WScript.Sleep 2000 

WshShl.SendKeys 9 

WScript.Sleep 2000 

WshShl.SendKeys "~" 

WScript.Sleep 2000 

WshShl.SendKeys "{/}" & 3

WScript.Sleep 2000 

WshShl.SendKeys "~" 

WScript.Sleep 2000 

WshShl.SendKeys "{+}" & 1 

WScript.Sleep 2000 

WshShl.SendKeys "~" 

WScript.Sleep 2000 

WshShl.SendKeys "%{F4}" 
End If

End If

Edited 5 Years Ago by WaltP: Fixed CODE Tags. Please look at the post to see if it needs to be fixed next time.

This article has been dead for over six months. Start a new discussion instead.