navarro programas

PROGRAMA #5
INTERFAZ GRAFICA






CODIGO
Public Class Form1
Private Sub btndatos_Click(sender As Object, e As EventArgs) Handles btndatos.Click
Dim nom, matricula, grupo, turno, espec AsInteger
nom = txtnombre.Text
matricula = txtmatricula.Text
grupo = txtgrupo.Text
turno = txtturno.Text
espec = txtespecialidad.Text

nom =InputBox("inserta tu nombre", "captura de datos")
txtnombre.Text = nom

grupo = InputBox("inserta tu matricula", "captura de datos")
txtgrupo.Text = grupo

turno =InputBox("inserta tu turno", "captura de datos")
txtturno.Text = grupo

espec = InputBox("inserta tu especialidad", "captura de datos")
txtespecialidad.Text = espec

matricula =InputBox("inserta tu matricula", "captura de datos")
txtmatricula.Text = matricula
End Sub

Private Sub btnlimpiar_Click(sender As Object, e As EventArgs) Handles btnlimpiar.Clicktxtespecialidad.Text = ""
txtgrupo.Text = ""
txtmatricula.Text = ""
txtnombre.Text = ""
txtturno.Text = ""
End Sub

Private Sub btnsalir_Click(sender AsObject, e As EventArgs) Handles btnsalir.Click
End

End Sub
End Class
Programa #4

INTERFAZ GRAFICA














}


CODIGO:
Public Class Form1

Private Sub btncalcular_Click(senderAs Object, e As EventArgs) Handles btncalcular.Click
Dim c1, c2, suma, resta, multi, division As Integer

txtcant1.Text = InputBox("insertar la cantidad 1", "cantidades")txtcant2.Text = InputBox("insertar la cantidad 2", "cantidades")

c1 = Val(txtcant1.Text)
c2 = Val(txtcant2.Text)

suma = (c1 + c2)
txtsuma.Text = suma

resta =(c1 - c2)
txtresta.Text = resta

multi = (c1 * c2)
txtmulti.Text = multi

division = (c1 / c2)
txtdivision.Text = division

End Sub

Private Sub...