Pages

lunes, 21 de enero de 2013

Calcular la hora dos segundos después Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que al dar la hora hh, mm, ss, muestre las horas, minutos y segundos y también nos calcule la hora después de 2 segundos.

Solución
  • Entrada: 23:59:59
  • Salida: 00:00:01
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim h, m, s As Integer
        h = TextBox1.Text
        m = TextBox2.Text
        s = TextBox3.Text
        If (h < 24 And m < 60 And s < 60) Then
            If (s < 58 And s >= 0) Then
                TextBox4.Text = Trim(h) + "h " + Trim(m) +
                    "m " + Trim(s + 2) + "s"
            Else
                If (s = 58) Then
                    If (m = 59) Then
                        If (h = 23) Then
                            TextBox4.Text = "00h 00m 00s"
                        Else
                            TextBox4.Text = Trim(h + 1) + "h 00m 00s"
                        End If
                    Else
                        TextBox4.Text = Trim(h) + "h " +
                            Trim(m + 1) + "m 00s"
                    End If
                Else
                    If (s = 59) Then
                        If (m = 59) Then
                            If (h = 23) Then
                                TextBox4.Text = "00h 00m 01s"
                            Else
                                TextBox4.Text = Trim(h + 1) +
                                    "h " + "00m 01s"
                            End If
                        Else
                            TextBox4.Text = Trim(h) + "h " +
                                Trim(m + 1) + "m 01s"
                        End If
                    End If
                End If
            End If
        Else
            TextBox4.Text = "Fuera de rango"
        End If
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada