Ejercicios de programación .net (nivel inicial)
Se muestra el funcionamiento de los conceptos básicos para programar en .net
Se muestra el funcionamiento de los conceptos básicos para programar en .net
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Utilizando un Módulo<br />
Public Class Form5<br />
Private Sub MenúPrincipalToolStripMenuItem_Click(ByVal sen<strong>de</strong>r As<br />
System.Object, ByVal e As System.EventArgs) Handles<br />
MenúPrincipalToolStripMenuItem.Click<br />
Form2.Show()<br />
Me.Hi<strong>de</strong>()<br />
End Sub<br />
Private Sub SalirToolStripMenuItem_Click(ByVal sen<strong>de</strong>r As System.Object,<br />
ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click<br />
End<br />
End Sub<br />
Private Sub Form5_Load(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles MyBase.Load<br />
u = Label1()<br />
c = Label2()<br />
d = Label3<br />
Timer1.Start()<br />
End Sub<br />
Private Sub Button1_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Button1.Click<br />
Dim p, h As Double<br />
Label7.Text = Val(TextBox1.Text) + Val(TextBox2.Text) +<br />
Val(TextBox3.Text)<br />
p = (Val(Label7.Text) / 2)<br />
h = (p * (p - Val(TextBox1.Text)) * (p - Val(TextBox2.Text)) * (p -<br />
Val(TextBox3.Text))) ^ (1 / 2)<br />
Label8.Text = (Val(TextBox1.Text) * h) / 2<br />
End Sub<br />
End Class<br />
Leonel Navarrete