Como crear una calculadora en visual basic

Resuelto/Cerrado
SG - 23 ene 2009 a las 00:41
 ada - 19 mar 2019 a las 16:36
Hola,NECESITO SAVER COMO CREAR EL EXEL UNA CALCULADORA CON VISUAL BASIC SI ALGUIEN SABE LOS CODIGOS PORFA DIGANMELOS
Consulta también:

6 respuestas

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
343
No me funcionaa...!
1
si quereis q os pase el proyecto enviad un mensaje a pladraw08@hotmail.com
0
Soy nuevo en vb, por lo tanto el codigo que publicaste para la calculadora me produce un error, el error dice de la siguiente manera: "el tipo de argumento de ByRef no coincide", este error aparece cuando le doy al boton de Igual (=), no se que hacer por favor necesito tu ayuda. Gracias por tu atencion...
0
Hola yo tambien soy nueva en visual Basic pues me sale el mismo error ByRef no coicide y es en la palabra anterior no se si si se puede utilizar otra palabra en lugar de esta.
0
Hola chico me encanta tu calculadora cientifica pero no me sale so se si tenga que ver el winsows tambien porque yo tengo el windows Seven
0