Practicas En Visual Basic

PRACTICA 1
Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub ButtonEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonEnviar.Click
LabelSalida.Text = TextBoxNombre.Text
Labelpaterno.Text = TextBoxpaterno.Text
Labelmaterno.Text = TextBoxmaterno.Text
Labeldireccion.Text = TextBoxdireccion.TextLabelgenero.Text = TextBoxgenero.Text
Labeledad.Text = TextBoxedad.Text
Labelespecialidad.Text = TextBoxespecialidad.Text
Labelsemestre.Text = TextBoxsemestre.Text
Labelturno.Text = TextBoxturno.Text
Labelmail.Text = TextBoxmail.Text
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End SubEnd Class

OPERACIONES2

Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


End Sub


Protected Sub ENVIAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ECUACION1.Click
Dim NUMERO1 As Integer = TextBoxNUMERO1.Text
DimNUMERO2 As Integer = TextBoxNUMERO2.Text
Dim NUMERO3 As Integer = TextBoxNUMERO3.Text
Dim NUMERO4 As Integer = TextBoxNUMERO4.Text
Dim NUMERO5 As Integer = TextBoxNUMERO5.Text
Dim NUMERO6 As Integer = TextBoxNUMERO6.Text
TextBoxRESULTADO.Text = (((NUMERO1 + NUMERO2) * NUMERO3) - (NUMERO4 / NUMERO5) * NUMERO6)

End Sub

Protected SubECUACION2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ECUACION2.Click
Dim NUMERO1 As Integer = TextBoxNUMERO1.Text
Dim NUMERO2 As Integer = TextBoxNUMERO2.Text
Dim NUMERO3 As Integer = TextBoxNUMERO3.Text
Dim NUMERO4 As Integer = TextBoxNUMERO4.Text
Dim NUMERO5 As Integer = TextBoxNUMERO5.Text

TextBoxRESULTADO.Text =((NUMERO1 * NUMERO2) + NUMERO3) * (NUMERO4 / NUMERO5)

End Sub

Protected Sub ECUACION3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ECUACION3.Click
Dim NUMERO1 As Integer = TextBoxNUMERO1.Text
Dim NUMERO2 As Integer = TextBoxNUMERO2.Text
Dim NUMERO3 As Integer = TextBoxNUMERO3.Text

TextBoxRESULTADO.Text = ((NUMERO1 -NUMERO2) / NUMERO3)

End Sub

Protected Sub ECUACION4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ECUACION4.Click
Dim NUMERO1 As Integer = TextBoxNUMERO1.Text
Dim NUMERO2 As Integer = TextBoxNUMERO2.Text
Dim NUMERO3 As Integer = TextBoxNUMERO3.Text
Dim NUMERO4 As Integer = TextBoxNUMERO4.Text

TextBoxRESULTADO.Text =(((NUMERO1 * NUMERO2) * NUMERO3) + NUMERO4)

End Sub

Protected Sub ECUACION5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ECUACION5.Click
Dim NUMERO1 As Integer = TextBoxNUMERO1.Text
Dim NUMERO2 As Integer = TextBoxNUMERO2.Text
Dim NUMERO3 As Integer = TextBoxNUMERO3.Text
Dim NUMERO4 As Integer = TextBoxNUMERO4.Text
DimNUMERO5 As Integer = TextBoxNUMERO5.Text
Dim NUMERO6 As Integer = TextBoxNUMERO6.Text
TextBoxRESULTADO.Text = (((NUMERO1 - NUMERO2) / NUMERO3) * (NUMERO4 / NUMERO5) + NUMERO6)

End Sub
End Class

PRACTICA 5
Partial Class _Default
Inherits System.Web.UI.Page



Protected Sub SUMA_Click(ByVal sender As Object, ByVal e As System.EventArgs) HandlesSUMA.Click
Dim NUMERO1 As Integer = TextBoxNUMERO1.Text
Dim NUMERO2 As Integer = TextBoxNUMERO2.Text
TextBoxRESULTADO.Text = NUMERO1 + NUMERO2
End Sub

Protected Sub RESTA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RESTA.Click
Dim NUMERO1 As Integer = TextBoxNUMERO1.Text
Dim NUMERO2 As Integer = TextBoxNUMERO2.Text...