Calculator in VB Script

#1
Urmelinho

Posted 24 February 2010 - 20:10

Member

Grup: Members
Posts: 398
Înscris: 26.12.2007

salut. am un calculator in vbs care trebuie sa fie un calculator de numere. insaam problema cu suma. in loc de supa face concatenare. ce am gresit?

Set objShell = CreateObject("Wscript.Shell")
Dim a
a=inputbox("primul numar")
b=inputbox("al doilea numar")
if not isnumeric (a) then
wscript.quit
end if
if not isnumeric (b) then
wscript.quit
end if
dim semn
semn= inputbox("semn")
If semn = ("+") then
c=msgbox("Your Answer: "& a + b)
else
If semn = ("-") then
d=msgbox("Your Answer: "& a - b)
else
If semn = ("/") then
e=msgbox("Your Answer: "& a / b)
else
If semn = ("*") then
f=msgbox("Your Answer: "& a * b)
End If
End if
end if
end if

Back to top

#2
dumitrasrazvan

Posted 24 February 2010 - 22:39

Junior Member

Grup: Members
Posts: 83
Înscris: 12.02.2010

Declara o variabila "op" in care sa pui rezultatul operatiei:

op = a + b
c=msgbox("Your Answer: "& op)

Back to top

#3
Urmelinho

Posted 25 February 2010 - 00:59

Member

Grup: Members
Posts: 398
Înscris: 26.12.2007

am �ncercat f�c�nd o funție.

Function sum(nr1,nr2)
  sum = nr1 + nr2
End Function
Dim total

ca funcție singur� merge dac� o folosesc sum(2,3) dar dac� �i pun sum(a,

, din nou concatenare

Back to top

#4
dumitrasrazvan

Posted 25 February 2010 - 01:08

Junior Member

Grup: Members
Posts: 83
Înscris: 12.02.2010

Incearca CLng(a) + CLng(b ). Trebuie sa mearga 100% dar vei primi o eroare daca a si b nu reprezinta numere. Sursa: http://msdn.microsof...fek(VS.85).aspx

Edited by dumitrasrazvan, 25 February 2010 - 01:11.

Back to top

#5
Urmelinho

Posted 25 February 2010 - 21:57

Member

Grup: Members
Posts: 398
Înscris: 26.12.2007

mersi mult!

Back to top

#6
horohoro

Posted 29 March 2010 - 16:17

Junior Member

Grup: Members
Posts: 103
Înscris: 11.02.2010

dim nr1,nr2,op

Function Calculeaza(operatie, num1, num2)
dim sum
select case operatie
case "+"
sum = cint(num1) + cint(num2)
Calculeaza = sum
case "-"
sum = cint(num1 - num2)
Calculeaza = sum
case "*"
sum = cint(num1 * num2)
Calculeaza = sum
case "/"
sum = cint(num1 / num2)
Calculeaza = sum
end select
End Function

call Rezultat

Sub Rezultat()
nr1 = inputbox("Numar1 >")
op = inputbox("Operatia?")
nr2 = inputbox("Numar2 >")
msgbox Calculeaza(op, nr1, nr2)
End Sub

Edited by horohoro, 29 March 2010 - 16:29.

Back to top

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

Calculator in VB Script

#1 Urmelinho Posted 24 February 2010 - 20:10

#2 dumitrasrazvan Posted 24 February 2010 - 22:39

#3 Urmelinho Posted 25 February 2010 - 00:59

#4 dumitrasrazvan Posted 25 February 2010 - 01:08

#5 Urmelinho Posted 25 February 2010 - 21:57

#6 horohoro Posted 29 March 2010 - 16:17

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Urmelinho

Posted 24 February 2010 - 20:10

#2
dumitrasrazvan

Posted 24 February 2010 - 22:39

#3
Urmelinho

Posted 25 February 2010 - 00:59

#4
dumitrasrazvan

Posted 25 February 2010 - 01:08

#5
Urmelinho

Posted 25 February 2010 - 21:57

#6
horohoro

Posted 29 March 2010 - 16:17