código para hacer una calculadora en visual basic

[Yván]

Me gustaría que me enviaran el código para hacer una calculadora en visual basic

[Luis Rivas]

Hola, no tengo el código a la mano pero puedo darte una idéa.
Primero crea un label que es donde se mostarán los resultados, luego crea una matrix de controles para las operaciones básicas, luego crea otra matrix de controles para los números.
Luego el código lo manejas con matrices y te resultará fácil el resto.

[novato]

amigos me dirian de donde puedo bajr el visual basic 6.0

gracias

[EL Maestro]

Que clase de pregunta es esa es demasiado facil pero no te preocupes yo te pongo el codigo

Private Sub Command1_Click()
Dim primero, segundo
primero = Val(Text1.Text)
segundo = Val(Text2.Text)
If Option1.Value = True Then
Text3.Text = primero + segundo
End If
If Option2.Value = True Then
Text3.Text = primero - segundo
End If
If Option3.Value = True Then
Text3.Text = primero * segundo
End If
If Option4.Value = True Then
Text3.Text = primero / segundo
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

necesitas 3 labels
1 frame y adentro 4 options bottons
3 textbox
3 command bottons
y poner el codigo

espero que haya puesto esto a tiempo por que acabo de ver tu mensaje
si tienes algun problema escribeme a este mail y pon de asunto "vbasic"

d56677889@hotmail.com

[Invitado]

[quote="Yván"][b][color=red][/color]
Me gustaría que me enviaran el código para hacer una calculadora en visual basic [/b][/quote]
Private Sub cmdcerrar_Click()
End
End Sub
Private Sub cmdlimpiar_Click()
txtoper1.Text = ""
txtoper2.Text = ""
txtresul.Text = ""
End Sub

Private Sub cmddiv_Click()
txtresul.Text = Val(txtoper1.Text) / Val(txtoper2.Text)
Label1.Caption = "/"
End Sub

Private Sub cmdmulti_Click()
txtresul.Text = Val(txtoper1.Text) * Val(txtoper2.Text)
Label1.Caption = "*"
End Sub

Private Sub cmdresta_Click()
txtresul.Text = Val(txtoper1.Text) - Val(txtoper2.Text)
Label1.Caption = "-"
End Sub

Private Sub cmdsuma_Click()
txtresul.Text = Val(txtoper1.Text) + Val(txtoper2.Text)
Label1.Caption = "+"
End Sub

Private Sub mnabout_Click()
MsgBox ("Cristian Grawe")
End Sub

Private Sub mndivicion_Click()
cmddiv_Click
End Sub

Private Sub mnmultipilicacion_Click()
cmdmulti_Click
End Sub

Private Sub mnresta_Click()
cmdresta_Click
End Sub

Private Sub mnsalir_Click()
cmdcerrar_Click
End Sub

Private Sub mnsuma_Click()
cmdsuma_Click
End Sub

[Highlander]

Hola amigo el No se si se encuentre el Visual Basic para descargas desde internet, la verdad no lo se.

No quioeres comprarlo a un precio accesible?

amigos me dirian de donde puedo bajr el visual basic 6.0

gracias