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

DISCO DUROS.

DISCOS DUROS 
http://sites.google.com/site/alexbalmoregomezcornejo/Home/TEMA3_DISCOS_DUROS%5B1%5D.doc?attredirects=0

TENGO LA MEJOR INFORMACION DE BIOS  VAMOS INVESTIGA
http://sites.google.com/site/alexbalmoregomezcornejo/Home/BIOS2.doc?attredirects=0

CONTROL CHECKBOX

CONTROL CHECKBOX
Control es un casilla que nos permite realizar diferemtes acciones
http://sites.google.com/site/alexbalmoregomezcornejo/Home/CONTROL.ppt?attredirects=0

CHIP BIOS.

SON LOS DIFERENTES TIPOS CHIP QUE  SE PUEDEN EN CONCONTRAR LOS BIOS


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