Calculadora en visual basic 6
Mar, 2011-04-12 02:44 — GylberTz
Hola bueno pues el motivo de este post es para ver si me podrian ayudar con una calculadora en visual basic, una calculadora parecida a la que trae windows, soy nuevo en la materia y pues solo logre conseguir poner los numeros xD pero el problema me vino a la hora de querer poner los signos de +,-,*,/, no logro conseguir que me de el resultado, esto es lo que llevo de codigo:
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 = "0" Then txtcal.Text = 1 Else txtcal.Text = txtcal.Text & "1" End If End Sub Private Sub cmd2_Click() 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 = "0" Then txtcal.Text = 3 Else txtcal.Text = txtcal.Text & "3" End If End Sub Private Sub cmd4_Click() 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 = "0" Then txtcal.Text = 5 Else txtcal.Text = txtcal.Text & "5" End If End Sub Private Sub cmd6_Click() 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 = "0" Then txtcal.Text = 7 Else txtcal.Text = txtcal.Text & "7" End If End Sub Private Sub cmd8_Click() 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 = "0" Then txtcal.Text = 9 Else txtcal.Text = txtcal.Text & "9" End If End Sub
si alguien me pudiera ayudar se lo agradeceria, hasta luego de antmano gracis
Anuncios Google
- Inicie sesión o regístrese para enviar comentarios
- 1130 lecturas
El software, código fuente, logotipos y marcas contenidos en este sitio web son propiedad de sus respectivos dueños y están, o pueden estar, sujetos a derechos y/o licencia de uso. Los anuncios, banners y la publicidad son propiedad y responsabilidad de los anunciantes. Los envíos y publicaciones, salvo indicación expresa en contra, son propiedad y responsabilidad de quien los realiza. El resto de publicaciones, elementos gráficos y contenido es propiedad de "SB IT MEDIA, S.L.".
SceneBeta.com, 2005 - 2018
Contactar con www.SceneBeta.com - Información legal, términos y condiciones de uso - Política de privacidad - Política de cookies
Para que coja el txt tienes
Para que coja el txt tienes que acompañarlo de CSng:
Por ejemplo, si quiere que txtResultado sea 2 * txtDato tienes que poner:
txtResultado.Text = Format ((CSng(txtDato.Text)* 2), "#,##0.00")
o_o
bueno pues casi no te entendi xD pero lo voy a intentar, esk te digo soy nuevo en esto, de echo solo hice la calculadora simple y pense q era igual, pero ia vi que no :S
Mejor no empieces por una
Mejor no empieces por una calculadora, si no por algo sencillo, como una aplicación que calcule, por ejemplo el area de un cuadrado, para empezar a entender las cosas bien, y no lanzarte a hacer una calculadora.
Yo aun no sabria hacerla