Haz una pregunta Denunciar

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

SG - Última respuesta el 19 abr 2012, 14:34
Hola,NECESITO SAVER COMO CREAR EL EXEL UNA CALCULADORA CON VISUAL BASIC SI ALGUIEN SABE LOS CODIGOS PORFA DIGANMELOS
Sigue leyendo 
Respuesta
+303
moins plus
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

haidan- 17 abr 2012, 22:39
si malditos ma estro q pedo con eso de no face
amigo
odie- 17 abr 2012, 22:39
si nadamas cuando n hay face
odie- 17 abr 2012, 22:40
si sus cursindejadas
bolivar- 18 abr 2012, 16:21
Lee www.bolivarlojan.blogspot.com hay ejercicios de calculadoras con código que funcionabn
chica- 19 abr 2012, 14:34
orale!!! y yo que no lo encontraba jaja
Respuesta
+29
moins plus
como puedo crear una calculadora cientifica en vb? Agradeceria ejemplos y manuales. Saluxos

benito camelo- 10 ago 2011, 01:17
mo me chingues pinche
lucerito
ianirita- 23 ago 2011, 19:28
mmmmmmm.....ayuda
sp sp- 8 dic 2011, 18:49
i need helpp jajaj como calculo la energia potencial amigos a y puro simple plan ok jajjajaja
ZUNO- 22 feb 2012, 03:11
esto esta muy claro, no se porque hay gente que no le entiende ¬¬
Nugget- 13 mar 2012, 12:36
Nugggeeeeeeeeeeeeeeett
Respuesta
+21
moins plus
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.

OMAR- 13 jun 2011, 18:25
y quien te pidio una calculadora en html estamos hablando de visual basic sssssssssiiiiiiiii
ianirita- 23 ago 2011, 19:41
ala gran ii todo eso tengo que programar n0 manches.
warriorwithin- 29 ago 2011, 16:25
que burrada hacer ese gran codigo... no hay ninguna ventaja!!!!
jlgl- 26 oct 2011, 15:54
Para que hacer todo ese html, que ni sirvio para nada.
panchis- 7 ene 2012, 18:48
como puedo realizar un calculadora o una facturas puede ayudar
Respuesta
+16
moins plus
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 ^^ !

ianirita- 23 ago 2011, 19:30
ala que lindo graxias ami si me ayudo tttkkkkkkkkmm
Packorella- 5 sep 2011, 06:24
no mms eso es en c o que pex !!
yo ya la tengo bien chavos
cualquier cosa solo pidanmelaa
Venezolano- 18 oct 2011, 16:51
Men Gracias por ese cod...
herminio- 8 ene 2012, 16:35
hermanaso soy un programador principiante en que version de visual basic esta 6.0, 2008 o net
jhony mamo- 18 ene 2012, 06:33
ayudenme con el SQRT de la calculadora (la codificacion)
Respuesta
+5
moins plus
es muy bueno Gracias DLB!! :DDDDDDD
espero ii si agarre muii bien xD

Respuesta
+4
moins plus
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

alex lindo- 7 jun 2011, 02:39
y la pantalla del formulario ponganla siiiiiii
El documento « como crear una calculadora en visual basic » de Kioskea (es.kioskea.net) se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo bajo las condiciones señaladas por esta licencia. Deberás hacerla siempre visible y dar crédito a Kioskea.

¿Todavía no eres usuario?

inscríbete, gratuitamente y en menos de un minuto!

Los miembros obtienen más respuestas que los usuarios anónimos.

Ser miembro te permite llevar un seguimiento detallado de tus consultas.

Ser miembro te permite gozar de otras opciones adicionales.