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 Form2 Private Sub Form2_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 SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click End End Sub Private Sub CuadradoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CuadradoToolStripMenuItem.Click Me.Hide() Form3.Show() End Sub Private Sub RectánguloToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectánguloToolStripMenuItem.Click Me.Hide() Form5.Show() End Sub Private Sub TriánguloToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TriánguloToolStripMenuItem.Click Me.Hide() Form4.Show() End Sub Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick animacion() End Sub Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove u = Label1() c = Label2() d = Label3() Timer1.Start() End Sub End Class Leonel Navarrete

Utilizando un Módulo Public Class Form3 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 Form3_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) Handles Timer1.Tick 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) * 4 Label8.Text = Val(TextBox1.Text) * Val(TextBox1.Text) End Sub End Class Leonel Navarrete

Utilizando un Módulo<br />

Public Class Form2<br />

Private Sub Form2_Load(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs) Handles<br />

MyBase.Load<br />

u = Label1()<br />

c = Label2()<br />

d = Label3<br />

Timer1.Start()<br />

End Sub<br />

Private Sub SalirToolStripMenuItem_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles SalirToolStripMenuItem.Click<br />

End<br />

End Sub<br />

Private Sub CuadradoToolStripMenuItem_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles CuadradoToolStripMenuItem.Click<br />

Me.Hi<strong>de</strong>()<br />

Form3.Show()<br />

End Sub<br />

Private Sub RectánguloToolStripMenuItem_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles RectánguloToolStripMenuItem.Click<br />

Me.Hi<strong>de</strong>()<br />

Form5.Show()<br />

End Sub<br />

Private Sub TriánguloToolStripMenuItem_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles TriánguloToolStripMenuItem.Click<br />

Me.Hi<strong>de</strong>()<br />

Form4.Show()<br />

End Sub<br />

Private Sub Timer1_Tick_1(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs)<br />

Handles Timer1.Tick<br />

animacion()<br />

End Sub<br />

Private Sub PictureBox1_MouseMove(ByVal sen<strong>de</strong>r As Object, ByVal e As<br />

System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove<br />

u = Label1()<br />

c = Label2()<br />

d = Label3()<br />

Timer1.Start()<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!