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

10.04.2019 Views

Utilizando un Módulo Public Class Form4 Private Sub MenúPrincipalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenúPrincipalToolStripMenuItem.Click Form2.Show() Me.Hide() End Sub Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click End End Sub Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load u = Label1() c = Label2() d = Label3 Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) animacion() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label7.Text = Val(TextBox1.Text) * 2 + Val(TextBox2.Text) * 2 Label8.Text = Val(TextBox1.Text) * Val(TextBox2.Text) End Sub End Class Leonel Navarrete

Utilizando un Módulo Public Class Form5 Private Sub MenúPrincipalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenúPrincipalToolStripMenuItem.Click Form2.Show() Me.Hide() End Sub Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click End End Sub Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load u = Label1() c = Label2() d = Label3 Timer1.Start() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim p, h As Double Label7.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) p = (Val(Label7.Text) / 2) h = (p * (p - Val(TextBox1.Text)) * (p - Val(TextBox2.Text)) * (p - Val(TextBox3.Text))) ^ (1 / 2) Label8.Text = (Val(TextBox1.Text) * h) / 2 End Sub End Class Leonel Navarrete

Utilizando un Módulo<br />

Public Class Form4<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 Form4_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 Timer1_Tick(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs)<br />

animacion()<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 />

Label7.Text = Val(TextBox1.Text) * 2 + Val(TextBox2.Text) * 2<br />

Label8.Text = Val(TextBox1.Text) * Val(TextBox2.Text)<br />

End Sub<br />

End Class<br />

Leonel Navarrete

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!