1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| Dim Title : Title = "Calculate Numbers"
Set ws = CreateObject("wscript.Shell")
Do
Call Calculate()
Call Ask_Question()
Loop
Sub Calculate()
Do
X = Trim(InputBox("Enter the first number X to evaluate this expression :(Log(X)/Log(10) + Y * Log(Z)/Log(10))",Title,"1000"))
If Not IsNumeric(X) Then
ws.Popup "YOU MUST TYPE A DIGIT NUMBER !","1",Title,0+48
X = ""
End if
If X = "" Then
Wscript.Quit
End if
Y = Trim(InputBox("Enter the second number Y to evaluate this expression :(Log("&X&")/Log(10) + Y * Log(Z)/Log(10))",Title,"2000"))
If Not IsNumeric(Y) Then
ws.Popup "YOU MUST TYPE A DIGIT NUMBER !","1",Title,0+48
Y = ""
End if
If Y = "" Then
Wscript.Quit
End if
Z = Trim(InputBox("Enter the third Number Z to evaluate this expression :(Log(X)/Log(10) + "&Y&" * Log(Z)/Log(10))",Title,"3000"))
If Not IsNumeric(Z) Then
ws.Popup "YOU MUST TYPE A DIGIT NUMBER !","1",Title,0+48
Z = ""
End if
If Z = "" Then
Wscript.Quit
End if
Loop Until IsNumeric(Z) and IsNumeric(X) and IsNumeric(Y)
MsgBox "Log("&X&")/Log(10) + "&Y&" * Log("&Z&")/Log(10) = " & Int(Log(X)/Log(10) + Y * Log(Z)/Log(10)),64,Title
End Sub
Sub Ask_Question()
Question = MsgBox ("Did you want to Calculate again ?",VBYesNO+VbQuestion,Title)
If Question = VbYes then
Call Calculate()
else
Wscript.Quit
end if
End Sub |
Partager