martes, 24 de julio de 2012

Porcentaje

Crearemos un programa que calcule el porcentaje


Creamos el Form con:


3 Textbox
3 radiobutton
1 button


Luego le damos click al Button calcularY comenzamos a programar


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        

Dim producto As Integer

        Dim descuento As Integer

        Dim Total As Integer

        producto = TextBox1.Text

        If RadioButton1.Checked = True Then

            descuento = producto * 0.25

        ElseIf RadioButton2.Checked = True Then

            descuento = producto * 0.5

        ElseIf RadioButton3.Checked = True Then

            descuento = producto * 0.1

        End If

        TextBox2.Text = descuento

        Total = producto - descuento

        TextBox3.Text = Total
    End Sub

No hay comentarios:

Publicar un comentario