Como puedo crear una calculadora en Visual Basic Leido 41.610 veces

 
  liliana07
Pregunta
Resuelta.
Hola, amigos mis saludo y respeto.

Necesito la ayuda de ustedes, tengo que hacer una calculadora en Visual Basic y he buscado en internet algun prototipo parecido el que tiene Windows.

Bueno solo me falta como debo hacer que los número puedan hacer su formula.

http://www.csadvanced.com/sm.php?id=1957
http://www.csadvanced.com/sm.php?id=1957

Debo hacer esto para presentar en mi clases.

Muchas gracias de antemano.
http://www.csadvanced.com/sm.php?id=2048
http://www.csadvanced.com/sm.php?id=2048
Liliana.

 

 





  Jesús Rubén
Respuesta correcta
Aquí tienes un ejemplo en VB.net de una calculadora:

http://www.codeproject.com/KB/vb/scientific_calculator.aspx


 

 


  pokemoncs
Aca te dejo un tutorial aca
Espero que te sirva
Salu2

 

 


  Invitado
hola me llamo criss ojala k t sirva esto ...lo k tienes k hsacer es esto
Dim n1 As Single
Dim n2 As Single
Dim s As Single
Dim r As Single
Dim m As Single
Dim d As Single

Private Sub cmd0_Click()
If txtcal.Text = "0" Then
txtcal.Text = 0
Else
txtcal.Text = txtcal.Text & "0"
End If

End Sub

Private Sub cmd1_Click()
If txtcal.Text = "" Then

End If
If txtcal.Text = "0" Then
txtcal.Text = 1
Else
txtcal.Text = txtcal.Text & "1"
End If

End Sub

Private Sub cmd2_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 2
Else
txtcal.Text = txtcal.Text & "2"
End If

End Sub

Private Sub cmd3_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 3
Else
txtcal.Text = txtcal.Text & "3"
End If

End Sub

Private Sub cmd4_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 4
Else
txtcal.Text = txtcal.Text & "4"
End If

End Sub

Private Sub cmd5_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 5
Else
txtcal.Text = txtcal.Text & "5"
End If

End Sub

Private Sub cmd6_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 6
Else
txtcal.Text = txtcal.Text & "6"
End If

End Sub

Private Sub cmd7_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 7
Else
txtcal.Text = txtcal.Text & "7"
End If

End Sub

Private Sub cmd8_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 8
Else
txtcal.Text = txtcal.Text & "8"
End If

End Sub

Private Sub cmd9_Click()
If txtcal.Text = "" Then
End If
If txtcal.Text = "0" Then
txtcal.Text = 9
Else
txtcal.Text = txtcal.Text & "9"
End If

End Sub
con esto podrar poner tus numeros a funcionar .....

 

 





    ¿Cuantas columnas?     | 2 columnas | 3 columnas | 4 columnas | 5 columnas | 6 columnas |  
    Escribe la dirección web de la imagen:
  Publica tu respuesta  |  Haz Click en el siguiente cuadro para escribir Mostrar/Ocultar Editor avanzado