Edna
03 de Julio del 2003

Necesito hacer una calculadora en visual c++ 6.0 en ambiente grafico alguien me puede facilitar el codigo o por lo menos decir como hacerlo? Gracias por su ayuda

Paula
03 de Julio del 2003

Hola Edna,yo tuve q hacer una calculadora en visual basic 6,no sé si te ayudarå pero te envio el código q hice por si te sirve!!!
Si te sirviera y tienes alguna duda:mandame un correo a: [email protected]

CODIGO:
-------

Dim x As Double, result As Double, b As Double
'Las variables se definen como double para poder introducir _
numeros decimales

Private Sub Form_Load()
'Carga de matriz de controles
For i = 0 To 9
cmdnumeros(i).Caption = i
Next
End Sub

Private Sub cmdnumeros_Click(Index As Integer)
i = Index
'Los numeros que se van introduciendo,van apareciendo en la caja de texto
'Cuando la bandera (b) esté a cero introducimos el primer operando _
y si no borra lo que hay en la caja de texto para poder introducir _
nuevos operandos.
If b = 0 Then
txtresultado.Text = txtresultado.Text & cmdnumeros(i).Caption
Else
txtresultado.Text = ""
txtresultado.Text = txtresultado.Text & cmdnumeros(i).Caption
End If
b = 0
End Sub

Private Sub cmdcero_Click()
'Se ponen las variable y la bandera a cero y se vacia la caja de texto para poder _
introducir nuevos operandos.
txtresultado.Text = ""
b = 0
result = 0
End Sub

Private Sub cmdcoma_Click()
txtresultado.Text = txtresultado.Text & ","
End Sub

Private Sub cmddivision_Click()
'SegĂșn el valor de x va realizando las operaciones, es decir, _
si no se ha hecho ninguna operacion antes,se guardara lo que hay _
en la caja de texto en result sino se tomara el valor de la x que _
se adquirio en la anterior operacion y se realizara la operacion _
deseada.
'CDbl convierte una expresion a double
Select Case x
Case 0
result = CDbl(txtresultado)
txtresultado.Text = result
Case 1
result = CDbl(result) + CDbl(txtresultado)
txtresultado.Text = result
Case 2
result = CDbl(result) - CDbl(txtresultado)
txtresultado.Text = result
Case 3
result = CDbl(result) * CDbl(txtresultado)
txtresultado.Text = result
Case 4
result = CDbl(result) / CDbl(txtresultado)
txtresultado.Text = result
End Select
x = 4
b = 1
End Sub

Private Sub cmdigual_Click()
'CDbl convierte una expresion a double
Select Case x
Case 0
result = CDbl(txtresultado)
txtresultado.Text = result
Case 1
result = CDbl(result) + CDbl(txtresultado)
txtresultado.Text = result
Case 2
result = CDbl(result) - CDbl(txtresultado)
txtresultado.Text = result
Case 3
result = CDbl(result) * CDbl(txtresultado)
txtresultado.Text = result
Case 4
result = CDbl(result) / CDbl(txtresultado)
txtresultado.Text = result
End Select
x = 0
b = 1
End Sub

Private Sub cmdmultiplicacion_Click()
'SegĂșn el valor de x va realizando las operaciones, es decir, _
si no se ha hecho ninguna operacion antes,se guardara lo que hay _
en la caja de texto en result sino se tomara el valor de la x que _
se adquirio en la anterior operacion y se realizara la operacion _
deseada.
'CDbl convierte una expresion a double
Select Case x
Case 0
result = CDbl(txtresultado)
txtresultado.Text = result
Case 1
result = CDbl(result) + CDbl(txtresultado)
txtresultado.Text = result
Case 2
result = CDbl(result) - CDbl(txtresultado)
txtresultado.Text = result
Case 3
result = CDbl(result) * CDbl(txtresultado)
txtresultado.Text = result
Case 4
result = CDbl(result) / CDbl(txtresultado)
txtresultado.Text = result
End Select
x = 3
b = 1
End Sub

Private Sub cmdoff_Click()
End
End Sub

Private Sub cmdresta_Click()
'SegĂșn el valor de x va realizando las operaciones, es decir, _
si no se ha hecho ninguna operacion antes,se guardara lo que hay _
en la caja de texto en result sino se tomara el valor de la x que _
se adquirio en la anterior operacion y se realizara la operacion _
deseada.
'CDbl convierte una expresion a double
Select Case x
Case 0
result = CDbl(txtresultado)

Case 1
result = CDbl(result) + CDbl(txtresultado)

Case 2
result = CDbl(result) - CDbl(txtresultado)

Case 3
result = CDbl(result) * CDbl(txtresultado)

Case 4
result = CDbl(result) / CDbl(txtresultado)

End Select
'txtresultado.text=result se puedo colocar despues de select case _
o en cada uno de los case _
como en la suma,division y multiplicacion
txtresultado.Text = result
x = 2
b = 1
End Sub

Private Sub cmdsuma_Click()
'SegĂșn el valor de x va realizando las operaciones, es decir, _
si no se ha hecho ninguna operacion antes,se guardara lo que hay _
en la caja de texto en result sino se tomara el valor de la x que _
se adquirio en la anterior operacion y se realizara la operacion _
deseada.
'CDbl convierte una expresion a double
Select Case x
Case 0
result = CDbl(txtresultado)
txtresultado.Text = result
Case 1
result = CDbl(result) + CDbl(txtresultado)
txtresultado.Text = result
Case 2
result = CDbl(result) - CDbl(txtresultado)
txtresultado.Text = result
Case 3
resultt = CDbl(result) * CDbl(txtresultado)
txtresultado.Text = result
Case 4
result = CDbl(result) / CDbl(txtresultado)
txtresultado.Text = result
End Select
x = 1
b = 1
End Sub

sabas
03 de Julio del 2003

hola