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

Aplicación 1 Leonel Navarrete

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click N3.Text = Val(N1.Text) + Val(N2.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click N3.Text = Val(N1.Text) - Val(N2.Text) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click N3.Text = Val(N1.Text) * Val(N2.Text) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click N3.Text = Val(N1.Text) / Val(N2.Text) End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click N3.Text = Val(N1.Text) \ Val(N2.Text) End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click N3.Text = Val(N1.Text) ^ Val(N2.Text) End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click N3.Text = Val(N1.Text) Mod Val(N2.Text) End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click N1.Text = "" N2.Text = "" N3.Text = "" N1.Focus() End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Close() End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Me.Hide() Form2.show() End Sub End Class Leonel Navarrete

Public Class Form1<br />

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

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

N3.Text = Val(N1.Text) + Val(N2.Text)<br />

End Sub<br />

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

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

N3.Text = Val(N1.Text) - Val(N2.Text)<br />

End Sub<br />

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

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

N3.Text = Val(N1.Text) * Val(N2.Text)<br />

End Sub<br />

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

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

N3.Text = Val(N1.Text) / Val(N2.Text)<br />

End Sub<br />

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

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

N3.Text = Val(N1.Text) \ Val(N2.Text)<br />

End Sub<br />

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

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

N3.Text = Val(N1.Text) ^ Val(N2.Text)<br />

End Sub<br />

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

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

N3.Text = Val(N1.Text) Mod Val(N2.Text)<br />

End Sub<br />

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

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

N1.Text = ""<br />

N2.Text = ""<br />

N3.Text = ""<br />

N1.Focus()<br />

End Sub<br />

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

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

Me.Close()<br />

End Sub<br />

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

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

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

Form2.show()<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!