Como crear una calculadora en visual basic [Resuelto/Cerrado]

SG - 23 ene 2009 a las 00:41 - Última respuesta:  chica
- 19 abr 2012 a las 14:34
Hola,NECESITO SAVER COMO CREAR EL EXEL UNA CALCULADORA CON VISUAL BASIC SI ALGUIEN SABE LOS CODIGOS PORFA DIGANMELOS
Ver más 

121 respuestas

+317
Vota
70
Necitas crea un caja de texto
Una matriz diez botes de comandos para los numero
Otra matriz de cuatro botones de comando para los operadores (+,-,/,*)
Un comando para nueva operacion
Un comando para el resultado (=)


CODIGO DEL FORMULARIO

Private Sub Igual_Click()
Select Case signo 'la variable signo te dice si sumas(0) si restas(1)......
Case 0
Text1.Text = suma(anterior, Val(Text1.Text)) 'llamada a la función suma
Case 1
Text1.Text = resta(anterior, Val(Text1.Text))

Case 2
Text1.Text = multiplicar(anterior, Val(Text1.Text))
Case 3
Text1.Text = Dividir(anterior, Val(Text1.Text))
End Select
End Sub

Private Sub Nueva_Click()
Text1.Text = ""
End Sub

Private Sub Operador_Click(Index As Integer)
signo = Index 'si index es 0 sumas, si es 1 restas......
anterior = Val(Text1.Text)
Text1.Text = ""

End Sub

Private Sub Numero_Click(Index As Integer)
Text1.Text = Text1.Text + Numero(Index).Caption
End Sub

Private Function suma(Numero As Integer, Operador As Integer) As Integer
suma = Numero + Operador
End Function

Private Function resta(Numero As Integer, Operador As Integer) As Integer
resta = Numero - Operador
End Function

Private Function multiplicar(Numero As Integer, Operador As Integer) As Integer
multiplicar = Numero * Operador
End Function

Private Function Dividir(Numero As Integer, Operador As Integer) As Integer
Dividir = Numero / Operador
End Function

Private Sub Salir_Click()
Unload Me
End Sub
¿Te sirvió esta respuesta?  
si malditos ma estro q pedo con eso de no face
amigo
si nadamas cuando n hay face
si sus cursindejadas
Lee www.bolivarlojan.blogspot.com hay ejercicios de calculadoras con código que funcionabn
orale!!! y yo que no lo encontraba jaja
+36
Vota
16
como puedo crear una calculadora cientifica en vb? Agradeceria ejemplos y manuales. Saluxos
mo me chingues pinche
lucerito
mmmmmmm.....ayuda
i need helpp jajaj como calculo la energia potencial amigos a y puro simple plan ok jajjajaja
esto esta muy claro, no se porque hay gente que no le entiende ¬¬
Nugggeeeeeeeeeeeeeeett
+24
Vota
16
quizá no sepa comó hacer uno en visual basic, pero inventé uno en HTML y Javascript que funciona en cualquier computador. Aquí está el código, copialo en Bloc de Notas:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html><head>
<title>Calculadora</title>
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1">
<script language="Javascript">
var cal=0
var cal2=0
var currentuse=" "
function chooseUse(use)
{
document.getElementById('use').innerHTML=use
currentuse=use
}
function insertNumber(number)
{
if (currentuse == " ")
{
cal=cal*10+number
document.getElementById('number1').innerHTML = cal
}
else
{
cal2=cal2*10+number
document.getElementById('number2').innerHTML = cal2
}
}
function getResult()
{
if (currentuse == 'x')
{
document.getElementById('number1').innerHTML =cal*cal2
cal=cal*cal2
cal2=0
document.getElementById('number2').innerHTML = " "
}
if (currentuse == ':')
{
document.getElementById('number1').innerHTML =cal/cal2
cal=cal/cal2
cal2=0
document.getElementById('number2').innerHTML = " "
}
if (currentuse == '-')
{
document.getElementById('number1').innerHTML =cal-cal2
cal=cal-cal2
cal2=0
document.getElementById('number2').innerHTML = " "
}
if (currentuse == '+')
{
document.getElementById('number1').innerHTML =cal+cal2
cal=cal+cal2
cal2=0
document.getElementById('number2').innerHTML = " "
}
}
</script>
</head>
<body bgcolor="#FFFFFF">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>

<br>
<div align="center"><span style="border-color: #000000; border-width: 1px; border-style: solid; background-color: #E9E9E9;"> <span id="number1">0</span> <span id="use"> </span> <span id="number2"> </span> </span></div>
<div align="center">
<table>
<tr bgcolor="#E9E9E9">
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="chooseUse('x')" style="background-color: #D9D9D9; width: 25px;">x</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="chooseUse(':')" style="background-color: #D9D9D9; width: 25px;">:</button> 
<div style="font-size: 3px;"><br></span>

</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="chooseUse('+')" style="background-color: #D9D9D9; width: 25px;">+</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="chooseUse('-')" style="background-color: #D9D9D9; width: 25px;">-</button> 
<div style="font-size: 3px;"><br></span>
</td>
</tr>
<tr bgcolor="#E9E9E9">
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>

 <button onclick="location.href='calculator.html'" style="background-color: #D9D9D9; width: 25px;">C</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(1)" style="background-color: #D9D9D9; width: 25px;">1</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(2)" style="background-color: #D9D9D9; width: 25px;">2</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">

<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(3)" style="background-color: #D9D9D9; width: 25px;">3</button> 
<div style="font-size: 3px;"><br></span>
</td>
</tr>
<tr bgcolor="#E9E9E9">
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="getResult()" style="background-color: #D9D9D9; width: 25px;">=</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(4)" style="background-color: #D9D9D9; width: 25px;">4</button> 

<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(5)" style="background-color: #D9D9D9; width: 25px;">5</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(6)" style="background-color: #D9D9D9; width: 25px;">6</button> 
<div style="font-size: 3px;"><br></span>
</td>
</tr>
<tr bgcolor="#E9E9E9">
<td style="border-width: 1px; border-style: solid; border-color: #000000;">

<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(7)" style="background-color: #D9D9D9; width: 25px;">7</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(8)" style="background-color: #D9D9D9; width: 25px;">8</button> 
<div style="font-size: 3px;"><br></span>
</td>
<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(9)" style="background-color: #D9D9D9; width: 25px;">9</button> 
<div style="font-size: 3px;"><br></span>
</td>

<td style="border-width: 1px; border-style: solid; border-color: #000000;">
<span style="font-size: 2px;"><br></span>
 <button onclick="insertNumber(0)" style="background-color: #D9D9D9; width: 25px;">0</button> 
<div style="font-size: 3px;"><br></span>
</td>
</table>
<noscript>Oops! No puedes usar esta calculadora! Usá un navegador nuevo.</noscript>
</div>
</body>
</html>
y guardalo cómo calculator.html.
y quien te pidio una calculadora en html estamos hablando de visual basic sssssssssiiiiiiiii
ala gran ii todo eso tengo que programar n0 manches.
que burrada hacer ese gran codigo... no hay ninguna ventaja!!!!
Para que hacer todo ese html, que ni sirvio para nada.
como puedo realizar un calculadora o una facturas puede ayudar
+19
Vota
12
Variables:
Dim OP As String
Dim a, b, resultado As Double
Dim c As Double
Numeros:
1:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "1"
c = False
2:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "2"
c = False
3:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "3"
c = False
4:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "4"
c = False
5:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "5"
c = False
6:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "6"
c = False
7:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "7"
c = False
8:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "8"
c = False
9:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "9"
c = False
0:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "0"
c = False
FORMULAS DE LOS OPERADORES:
Suma:
a = Text1.Text
Text1.Text = ""
OP = "SUMA"
Resta:
a = Text1.Text
Text1.Text = ""
OP = "RESTA"
Multiplicación:
a = Text1.Text
Text1.Text = ""
OP = "MULTIPLICACION"
DIVISION:
a = Text1.Text
Text1.Text = ""
OP = "DIVISION"
FORMULA IGUAL:
b = Val(Text1.Text)
Select Case OP
Case "SUMA"
resultado = a + b
Text1.Text = resultado
Case "RESTA"
resultado = a - b
Text1.Text = resultado
Case "MULTIPLICACION"
resultado = a * b
Text1.Text = resultado
Case "DIVISION"
resultado = a / b
Text1.Text = resultado
End Select
FORMULA PUNTO :
Text1.Text = Text1.Text + "."
FORMULA DE BORRAR CE
Text1.Text = ""
FORMULA DE OFF:
END




ESPERO QUE ESTE DATO TE SIRVA ^^ !
ala que lindo graxias ami si me ayudo tttkkkkkkkkmm
no mms eso es en c o que pex !!
yo ya la tengo bien chavos
cualquier cosa solo pidanmelaa
Men Gracias por ese cod...
hermanaso soy un programador principiante en que version de visual basic esta 6.0, 2008 o net
ayudenme con el SQRT de la calculadora (la codificacion)
+6
Vota
1
como haces para que la coma no se repita cuando la pulsas varias veces?
otra cosa: si marcas el 0 primero, como hacés que los ceros que van a la izquierda no se coloquen en pantalla?
como cambio el color de la calculadora?
gracias y buenos días!
PD te mando el código de retroceso:
Dim Contenido As String
Contenido = Pantalla.Text
If (Contenido.Length() > 0) Then
Pantalla.Text = Contenido.Substring(0, Contenido.Length() - 1)
End If
y la pantalla del formulario ponganla siiiiiii
+5
Vota
es muy bueno Gracias DLB!! :DDDDDDD
espero ii si agarre muii bien xD