form1.vb

Ejercicio4 de Visual Basic para que lo disfruten

Public Class Form1
    Dim x As Restriccion
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = 23
        Label2.Text = 14
        Label3.Text = 42

        x = New Restriccion
        x.Horas = 23
        x.Minutos = 14
        x.Segundos = 42
    End Sub
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x.Horas = x.Horas + 1
        Label1.Text = x.Horas
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        x.Horas = x.Horas - 1
        Label1.Text = x.Horas
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        x.Minutos = x.Minutos + 1
        Label2.Text = x.Minutos
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        x.Minutos = x.Minutos - 1
        Label2.Text = x.Minutos
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        x.Segundos = x.Segundos + 1
        Label3.Text = x.Segundos
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        x.Segundos = x.Segundos - 1
        Label3.Text = x.Segundos
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Close()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Close()
    End Sub
End Class

Public Class Restriccion
    Private First As Integer
    Private Second As Integer
    Private Third As Integer
    Public Property Horas() As Integer
        Get
            Return First
        End Get
        Set(ByVal value As Integer)
            If value <= 23 And value >= 0 Then
                First = value
            End If
        End Set
    End Property

    Public Property Minutos() As Integer
        Get
            Return Second
        End Get
        Set(ByVal value As Integer)
            If value <= 59 And value >= 0 Then
                Second = value
            End If
        End Set
    End Property
    Public Property Segundos() As Integer
        Get
            Return Third
        End Get
        Set(ByVal value As Integer)
            If value <= 59 And value >= 0 Then
                Third = value
            End If
        End Set
    End Property
End Class