Ver Mensaje Individual
  #4 (permalink)  
Antiguo 12/11/2011, 14:37
Avatar de A.H.H
A.H.H
 
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 178
Antigüedad: 17 años, 7 meses
Puntos: 4
Respuesta: Calculadora en Visual Basic

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:
Cita:
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:


Cita:
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................

Última edición por A.H.H; 13/11/2011 a las 04:17