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

Boolean Public Class Form3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim A As Integer Dim RES As Boolean A = TextBox1.Text RES = Not (A + 10 < 20) MsgBox(RES) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub End Class Leonel Navarrete

Public Class Form2 Private Sub salario_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salario.Click Dim SB, HT, PPH, D, SN As Double HT = Val(HORAST.Text) PPH = Val(PAGOH.Text) SB = HT * PPH D = SB * 0.2 SN = SB - D SALARION.Text = SN End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click NOMBREA.Text = "" HORAST.Text = "" PAGOH.Text = "" SALARION.Text = "" End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Form1.Close() End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Form3.Show() Me.Hide() End Sub End Class Leonel Navarrete

Boolean<br />

Public Class Form3<br />

Private Sub Button1_Click(ByVal sen<strong>de</strong>r As<br />

System.Object, ByVal e As System.EventArgs) Handles<br />

Button1.Click<br />

Dim A As Integer<br />

Dim RES As Boolean<br />

A = TextBox1.Text<br />

RES = Not (A + 10 < 20)<br />

MsgBox(RES)<br />

End Sub<br />

Private Sub Button2_Click(ByVal sen<strong>de</strong>r As<br />

System.Object, ByVal e As System.EventArgs) Handles<br />

Button2.Click<br />

End<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!