mi foto

http://sites.google.com/site/alexbalmoregomezcornejo/Home/alexbalmoregomezcornenjo.doc?attredirects=0

http://sites.google.com/site/alexbalmoregomezcornejo/Home/PARCIAL1GriseldaArelyEscobarAlas.doc?attredirects=0

http://sites.google.com/site/alex

tp://sitesc.google.com/site/alexbalmoregomezcornejo/Home/PARCIAL1GriseldaArelyEscobarAlas.doc?attredirects=0

programa

End Sub

Private Sub Btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalcular.Click
Dim sueldo As Double
sueldo = CDbl(txtsueldo.Text)
If cboafp.SelectedIndex = 0 Then
Txtdescuento.Text = CStr(sueldo * 0.05)
Else
Txtdescuento.Text = CStr(sueldo * 0.01)

End If
End Sub

Private Sub btnlimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpiar.Click

End Sub
End Class

programa calculadora

Public Class frmcalculadora

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbmultiplicacion.CheckedChanged

End Sub

Private Sub rdbsuma_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbsuma.CheckedChanged
Dim numero1, numero2 As Double
numero1 = CDbl(txtnumero1.Text)
numero2 = CDbl(txtnumero2.Text)
If rdbmultiplicacion.Checked = True Then
txtresultado.Text = CStr(numero1 * numero2)
End If
If rdbsuma.Checked = True Then
txtresultado.Text = CStr(numero1 + numero2)
End If
If rdbdivicion.Checked = True Then
txtresultado.Text = CStr(numero1 / numero1)



End If
rdbresta.Checked=True Then
txtresultado.Text = CStr(numero1 - numero2)



Select cae true






End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtresultado.TextChanged

End Sub

Private Sub lblnumero1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblnumero1.Click

End Sub

Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click

End Sub
End Class

Public Class radiobutton




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub



Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblventa.Click

Dim venta As Double

venta = txtventa.tex

'determinar que boton eligio

If rdbsindescuento.checked = True Then

txtdescuento.text = 0

txtcobro.txt = venta

End If

rdbdescuento5.checked=True then

txtcobro.text = venta * 0.95

txtdescuento.text = venta * 0.95











End If

If rdb descuento10 .chscked=true rhen

Public Class radiobutton




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub



Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblventa.Click

Dim venta As Double

venta = txtventa.tex

'determinar que boton eligio

If rdbsindescuento.checked = True Then

txtdescuento.text = 0

txtcobro.txt = venta

End If

rdbdescuento5.checked=True then

txtcobro.text = venta * 0.95

txtdescuento.text = venta * 0.95











End If

If rdb descuento10 .chscked=true rhen