codigo de una calculadora1.0 sencilla para principiantes

[bighack_011101]

ei hemanos de la programacion , os expongo mi calculadora sencilla que calcula potencias, raiz quadrada y equasiones de 2o grado etc.

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Código:

option explicit

Private Sub cmdNegativo_Click()
    txtResultado4 = -Val(txtB) - Sqr(Val(txtB) ^ 2 - 4 * Val(txtA) * Val(txtC)) / 2 * Val(txtA)
    'En este comando calculara equasiones de segundo grado
    'pero este comando solo ara negativo no es nada de el otro mundo
   
End Sub

Private Sub cmdPositivo_Click()
    txtResultado4 = -Val(txtB) + Sqr(Val(txtB) ^ 2 - 4 * Val(txtA) * Val(txtC)) / 2 * Val(txtA)
    'En este comando calcularemos equasiones de segundo grado
    'pero este comando solo ara positivos no es nada de el otro mundo
   
End Sub

Private Sub cmdCalcular_Click()
    txtResultado1 = Val(txtElevar) ^ Val(txtPotencia)
    'este comando elevara tantas veces el valor de "txtElevar"
    'por el valor de "txtPotencia" mediante este caracter "^"
End Sub

Private Sub cmdCalcular1_Click()
   txtResultado3 = Sqr(txtCalcular)
        'Este comando calculara la raiz
        'quadrada mediante la palabra sqr
End Sub

Private Sub cmdDivision_Click()
    txtResultado = Val(txtOper1) / Val(txtOper2)
        lbl12.Caption = "/"
'Este comando diidira el valor que se pone
        'en el texto
        'del primer numero con el segundo
        'anyaliendolo la palabra val ()
        'Tambien pondra el caracter "/" en el lbl12
End Sub

Private Sub cmdMultiplicacion_Click()
  txtResultado = Val(txtOper1) * Val(txtOper2)
        lbl12.Caption = "*"
'Este comando multiplicara el valor que se pone
        'en el texto
        'del primer numero con el segundo
        'anyaliendolo la palabra val ()
        'Tambien pondra el caracter "*" en el lbl12
End Sub

Private Sub cmdResta_Click()
    txtResultado = Val(txtOper1) - Val(txtOper2)
        lbl12.Caption = "-"
    'Este comando restara el valor que se pone
    'en el texto
    'del primer numero con el segundo
    'anyaliendolo la palabra val()
    'Tambien pondra el caracter "-" en el lbl3
End Sub

Private Sub cmdSalir_Click()
    Beep
    End
    'este comand, al clicarse, saldra del programa con
    'la palabra end, i com la palabra "beep"  hara un ruido
End Sub

Private Sub cmdSumar_Click()
    txtResultado = Val(txtOper1) + Val(txtOper2)
        lbl12.Caption = "+"
        'Este comando sumara el valor que se pone
        'en el texto
        'del primer numero con el segundo
        'anyaliendolo la palabra val ()
        'Tambien pondra el caracter "+" en el lbl12
End Sub

haced lo querais
que os vaia buien

Salu2

qui os lo dejo si quereis descargarlo

https://ssl.rapidshare.com/cgi-bin/collectorszone.cgi

.:hecho por bighack & drac_x:.

[Ther0x]

está bien el código

yo lo primero que hice en vb fue una calculadora que solo sumaba, restaba, multiplicaba y dividía, y desde entonces no se me había ocurrido volver a hacerla con lo de las potencias, las raices cuadradas y todo eso
tendré que sacar una nueva versión...


salu2

[ziBboh]

Se que no esta nada mal crear aplicaciones como esta, para... mmm... "practicar" por asi decirlo, pero... aqui entre nos, quien ocupa una calculadora hoy en día? claro, teniendo en cuenta que cualquier S.O, Movil, Palm, etc. incluye calculadoras.

[Qanil]

Muy bueno!!!!

Bajando para probar   

[bighack_011101]

dieme que opinas......
jejejxd