|
-
Mar 14th, 2001, 01:20 AM
#1
Thread Starter
New Member
-
Mar 14th, 2001, 01:33 AM
#2
Addicted Member
Use the Eval Function.
Eg:
Dim answer,strCalc
StrCalc = "2+(5*10)"
answer = Eval(strCalc)
answer will now have 52.
-
Mar 14th, 2001, 02:16 AM
#3
Thread Starter
New Member
 Thanks
is it possible that you give me the complete script.
I'm new to VB Script.
Dim answer,strCalc
StrCalc = "2+(5*10)"
answer = Eval(strCalc)
answer will now have 52.
thanks
Last edited by jafang; Mar 14th, 2001 at 02:23 AM.
-
Mar 14th, 2001, 07:51 AM
#4
Fanatic Member
Try this:
Code:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Simple calculator</TITLE>
<SCRIPT language="VBscript">
Function DoCalc()
Dim strData, num1, num2, op
num1 = oForm.oNumber1.Value
num2 = oForm.oNumber2.Value
op = oForm.oOperation.options(oForm.oOperation.selectedIndex).value
If isnumeric(num1) And isnumeric(num2) Then
If num2 = 0 And op = "/" Then
MsgBox "Cannot divide by zero!", ,"Simple calculator"
Else
strData = num1 & op & num2
oForm.oResult.value = Eval(strData)
End If
Else
MsgBox "Cannot calculate the inputs given!", ,"Simple calculator"
End If
End Function
</SCRIPT>
</HEAD>
<BODY>
<FORM name="oForm">
<TABLE cellSpacing=1 cellPadding=1 width="75%" border=1>
<TR>
<TD>First Number</TD>
<TD>Operation</TD>
<TD>Second Number</TD>
<TD>Result</TD></TR>
<TR>
<TD><INPUT name="oNumber1"></INPUT></TD>
<TD>
<SELECT name=oOperation>
<OPTION value="+" selected>Add</OPTION>
<OPTION value="-">Subtract</OPTION>
<OPTION value="*">Muliply</OPTION>
<OPTION value="/">Divide</OPTION>
</SELECT>
</TD>
<TD><INPUT name="oNumber2"></TD>
<TD><INPUT name="oResult"></TD>
</TR>
</TABLE>
<P><INPUT type="button" value="Calc" onClick="DoCalc"></P>
</FORM>
</BODY>
</HTML>
It will need a bit more work, but shows the basics. 
-
Mar 14th, 2001, 09:13 AM
#5
Frenzied Member
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote