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

Public Class Form5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.ForeColor = Color.Red End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.BackColor = Color.Black End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Me.BackColor = Color.White TextBox1.ForeColor = Color.Black TextBox1.Text = "" TextBox1.Focus() 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 Form1.Show() Me.Hide() End Sub End Class Leonel Navarrete

Tiempo del día Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim H As Integer H = TextBox2.Text Select Case H Case 1 To 5 MsgBox("MADRUGADA") Case 6 To 11 MsgBox("MAÑANA") Case 12 To 18 MsgBox("TARDE") Case 19 To 24 MsgBox("NOCHE") End Sub End Class End Select Leonel Navarrete

Tiempo <strong>de</strong>l día<br />

Public Class Form1<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 H As Integer<br />

H = TextBox2.Text<br />

Select Case H<br />

Case 1 To 5<br />

MsgBox("MADRUGADA")<br />

Case 6 To 11<br />

MsgBox("MAÑANA")<br />

Case 12 To 18<br />

MsgBox("TARDE")<br />

Case 19 To 24<br />

MsgBox("NOCHE")<br />

End Sub<br />

End Class<br />

End Select<br />

Leonel Navarrete

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

Saved successfully!

Ooh no, something went wrong!