Pages

martes, 15 de enero de 2013

Implemente un algoritmo que simule una calculadora con 10 funciones Codigo Fuente en Visual Basic

Problema
Implemente un algoritmo que simule una calculadora con 10 funciones

Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
 Handles ComboBox1.SelectedIndexChanged
        Dim op1, op2 As Double
        Dim fun As Integer
        op1 = TextBox1.Text
        op2 = TextBox2.Text
        fun = ComboBox1.SelectedIndex
        If (fun = 0) Then
            TextBox3.Text = Trim(op1 + op2)
        End If
        If (fun = 1) Then
            TextBox3.Text = Trim(op1 - op2)
        End If
        If (fun = 2) Then
            TextBox3.Text = Trim(op1 * op2)
        End If
        If (fun = 3) Then
            If (op2 = 0) Then
                TextBox3.Text = "No se puede dividir entre cero"
            Else
                TextBox3.Text = Trim(op1 / op2)
            End If
        End If
        If (fun = 4) Then
            TextBox3.Text = Trim(Math.Pow(op1, op2))
        End If
        If (fun = 5) Then
            TextBox3.Text = Trim(Math.Sqrt(op1))
        End If
        If (fun = 6) Then
            If (op1 = 0) Then
                TextBox3.Text = "No se puede dividir entre cero"
            Else
                TextBox3.Text = Trim(1 / op1)
            End If
        End If
        If (fun = 7) Then
            TextBox3.Text = Trim(Math.Pow(op1, 2))
        End If
        If (fun = 8) Then
            TextBox3.Text = Trim(op1 Mod op2)
        End If
        If (fun = 9) Then
            TextBox3.Text = Trim(op1 * (-1))
        End If
    End Sub
End Class 

0 comentarios:

Publicar un comentario