Calculadora en Visual Basic

[laventanadewindows]

Hola, buenos dias,
resulta que como primer proyecto en visual basic he estado programando una calculadora, y comienza bien, pero a lo hora de mostrar los resultados me tira este error:

---------------------------
Windows Script Host
---------------------------
Secuencia de comandos: C:\Documents and Settings\Óliver\Escritorio\prueba.vbs
Línea: 34
Carácter: 1
Error: No coinciden los tipos: '[string: "El resultado de la r"]'
Código: 800A000D
Origen: Error de Microsoft VBScript en tiempo de ejecución


No se que error tiene, este es el código:

Código:

DIM primero
DIM segundo
DIM suma
DIM FraseSuma
DIM resta
DIM FraseResta
DIM multiplicacion
DIM FraseMultiplicacion
DIM division
DIM FraseDivision
DIM Final
DIM resultado1
DIM resultado2
DIM resultado3
DIM resultad04
MSGBOX ("Calculadora simple realizada por Óliver García Albertos, versión beta 1.0. Se han detectado algunos errores en las sumas de números.") 
primero=INPUTBOX ("Escribe el 1º Número","Primer Paso") 
segundo=INPUTBOX ("Escribe el 2º Número","Segundo Paso") 

suma = primero+segundo
FraseSuma = "El resultado de la suma es "

resta = primero-segundo
FraseResta = "El resultado de la resta es "

multiplicacion = primero*segundo
FraseMultiplicacion = "El resultado de la multiplicacion es "

division = primero/segundo
FraseDivision = "El resultado de la division es "
Final = "."

resultado1 = FraseSuma + suma + Final
resultado2 =  FraseResta + resta + Final
resultado3 = FraseMultiplicacion + multiplicacion  + Final
resultado4 =  FraseDivision + division + Final
MSGBOX resultado1
MSGBOX resultado2 
MSGBOX resultado3
MSGBOX resultado4

Además al principio cuando solo estaba habilitada la suma me decia que 1+1 era 11, 2+2 era 22 y así...

Me podéis ayudar?

[maycolalvarez]

¿son cosas mías o cuando nos tele-trasportamos fuera del foro de PHP hacia el de VB?

favor de postear en el foro correspondiente, ya reporté el mensaje para que sea movido, favor no duplicar mensaje, gracias.

[Patriarka]

hola yo odio visualbasic (sin fundamentos) odiar por odiar

a vos quizas lo que te pasa ademas de confundirte de foro
tendrias que convertir a INT los valores a opererar

no se como sera en visual pero seria algo asi con php

$a="7";
$b="10";
$c=$a+$b;

echo $c; //resultado 710
vos lo q tenes que hacer es convertilos a int o float

$a="7";
$b="10";
$c=intval($a) + inval($b);

echo $c; //resultado 17

cambia la cosa no ?

[A.H.H]

Hola en tu codigo visual basic 6 para que funcione bien lo primero es declarar bien las variables que vas a usar y tambien poner la funcion Cstr() en las variables resultado1,resultado2,.......cuando unes los datos de la cadena, esa funcion lo que hace es pasar el dato numerico integer en valor de cadena string.

Tu codigo quedaria asi:

Private Sub Command1_Click()
Dim primero As Integer
Dim segundo As Integer
Dim suma As Integer
Dim FraseSuma As String
Dim resta As Integer
Dim FraseResta As String
Dim multiplicacion As Integer
Dim FraseMultiplicacion As String
Dim division As Integer
Dim FraseDivision As String
Dim Final As String
Dim resultado1 As String
Dim resultado2 As String
Dim resultado3 As String
Dim resultad04 As String
MsgBox ("Calculadora simple realizada por Óliver García Albertos, versión beta 1.0. Se han detectado algunos errores en las sumas de números.")
primero = InputBox("Escribe el 1º Número", "Primer Paso")
segundo = InputBox("Escribe el 2º Número", "Segundo Paso")

suma = primero + segundo
FraseSuma = "El resultado de la suma es "

resta = primero - segundo
FraseResta = "El resultado de la resta es "

multiplicacion = primero * segundo
FraseMultiplicacion = "El resultado de la multiplicacion es "

division = primero / segundo
FraseDivision = "El resultado de la division es "
Final = "."

resultado1 = FraseSuma + CStr(suma) + Final
resultado2 = FraseResta + CStr(resta) + Final
resultado3 = FraseMultiplicacion + CStr(multiplicacion) + Final
resultado4 = FraseDivision + CStr(division) + Final
MsgBox resultado1
MsgBox resultado2
MsgBox resultado3
MsgBox resultado4

End Sub

SI LO QUIERES EN VBSCRIPT TENDRIAS QUE PONER LA FUNCION Clng EN CADA OPERACION DE SUMA, RESTA, MULTIPLICACION Y DIVISION Y POR SUPUESTO LA FUNCION CStr al unir las variables en la frase y TU CODIGO QUEDARIA ASI:

Dim primero
Dim segundo
Dim suma
Dim FraseSuma
Dim resta
Dim FraseResta
Dim multiplicacion
Dim FraseMultiplicacion
Dim division
Dim FraseDivision
Dim Final
Dim resultado1
Dim resultado2
Dim resultado3
Dim resultad04
MsgBox ("Calculadora simple realizada por Óliver García Albertos, versión beta 1.0. Se han detectado algunos errores en las sumas de números.")
primero = InputBox("Escribe el 1º Número", "Primer Paso")
segundo = InputBox("Escribe el 2º Número", "Segundo Paso")

suma = clng (primero) + clng (segundo)
FraseSuma = "El resultado de la suma es "

resta = clng (primero) - clng (segundo)
FraseResta = "El resultado de la resta es "

multiplicacion = clng (primero) * clng (segundo)
FraseMultiplicacion = "El resultado de la multiplicacion es "

division = clng (primero) / clng (segundo)
FraseDivision = "El resultado de la division es "
Final = "."

resultado1 = FraseSuma + CStr (suma) + Final
resultado2 = FraseResta + CStr (resta) + Final
resultado3 = FraseMultiplicacion + CStr (multiplicacion) + Final
resultado4 = FraseDivision + CStr (division) + Final
MsgBox resultado1
MsgBox resultado2
MsgBox resultado3
MsgBox resultado4

EN VSCRIPT NO HACE FALTA PONER DE QUE TIPO SON LAS VARIABLES YA QUE TODAS SON DE TIPO VARIANT.
SALU2 Y ESPERO HABERTE ACLARADO ALGO................

[laventanadewindows]

A.H.H tu solucion es la que buscaba muchas gracias! :)
+1