Pages

jueves, 17 de enero de 2013

Convertir de segundos a Horas, minutos y segundos Codigo Fuente en Visual Basic

Problema
Implemente un algoritmo de tal modo que al ingresar una hora en segundos, indique a cuantas horas, minutos y segundos corresponde.

Solución
Se ingresa la cantidad de segundos y retornara esta cantidad de segundos representado en horas, minutos y segundos

Ejemplo:
  • Entrada: 3893s
  • Salida: 1h 4m 53s
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 num As Integer
        Dim hor As Integer
        Dim min As Integer
        Dim seg As Integer
        num = TextBox1.Text
        hor = Math.Floor(num / 3600)
        min = Math.Floor((num - hor * 3600) / 60)
        seg = num - (hor * 3600 + min * 60)
        TextBox2.Text = Trim(hor) + " h " + Trim(min) + 
  " m " + Trim(seg) + " s"
    End Sub
End Class
Publicado por Unknown en 17:16
Etiquetas: , , , ,

3 comentarios:

Anónimo dijo...

una pregunta
como puedo unir una cadena con otra no mesale

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click

Dim num1 As double = num01
Dim num2 As double = num02
Dim num3 As double = num03

num3 = Math.Floor(num01 * num02)
' num3 quiero que se enlaza con la funcion nose puede ono mesale hay un error
end sub

public function num01 as double
dim dblnum01 as double = conversion.val(textbox1.text)

retum dblnum01
end sub

public function num02 as double
dim dblnum02 as double = conversion.val(textbox1.text)

retum dblnum02
end sub

public function num03 as double
dim dblnum03 as double = conversion.val(textbox3.text)

retum dblnum03
' el codigo arriba no me sale no es corrrecto cual es el error plz ayudame con eso
end sub

end class

-------------------------------

ayudame plz
es asi mas o menos el codigo como ejemplo

26 de enero de 2013, 22:26
Unknown dijo...

Hola que tal segun veo tu codigo he encontrado dos errores el primero estan en las capturas de los datos tu pusiste "textbox1.text" tiene que ser "TextBox1.Text" con mayuscula, el segundo esta en en retorno de la funcion tu pones "retum dblnum02" de be ser "Return dblnum02"
bueno son los unicos errores q pude hallar ahora para mostrar el resultado puedes colocar un label y mostrar la respuesta de aplicar tu multiplicacion Label1.Text = num3

tu codigo quedaria asi
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim num1 As Double = num01()
Dim num2 As Double = num02()
Dim num3 As Double = num03()
num3 = Math.Floor(num01() * num02())
'muestra el valor de num3 en un label
Label1.Text = num3
'muestra en otro label el resulatdo de la multiplicacion
Label2.Text = num01() * num02()
' num3 quiero que se enlaza con la funcion nose puede ono mesale hay un error
End Sub

Public Function num01() As Double
Dim dblnum01 As Double = Conversion.Val(TextBox1.Text)
Return dblnum01
End Function

Public Function num02() As Double
Dim dblnum02 As Double = Conversion.Val(TextBox2.Text)
Return dblnum02
End Function

Public Function num03() As Double
Dim dblnum03 As Double = Conversion.Val(TextBox3.Text)
Return dblnum03
' el codigo arriba no me sale no es corrrecto cual es el error plz ayudame con eso
End Function
End Class

---
bueno eso seria todo espero que sea lo q estabas buscando si no es asi puedes volveer a enviar alguna consulta.


y gracias por seguir el blog

27 de enero de 2013, 21:16
Anónimo dijo...

hola esta mal del codigo de arriba este es el codigo


Public Function num01() As Double
Dim dblnum01 As Double = conversion.val(textbox1.text)
num01 = dblnum01
End Function

Public Function num02() As Double
Dim dblnum02 As Double = conversion.val(textbox1.text)
num02 = dblnum02
End Function

Public Function num03() As Double
Dim dblnum03 As Double = conversion.val(textbox3.text)
num03 = dblnum03 ' el codigo <<<<<<<<< no me sale no es corrrecto cual es el error plz ayudame con eso

' el problema es no puedo reemplazar el resultado(textbox3.text) por la funcion num03

End Function


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim num1 As Double = num01()
Dim num2 As Double = num02()
Dim num3 As Double = num03()

num3 = Math.Floor(num1 * num2)

' el problema es no puedo reemplazar el resultado(textbox3.text) por la funcion num3()
End Sub
'la idea de todo es todo esto es q por ejem: a * b = c >>>>> donde a b c son funciones --> a = textbox1.text b = textbox2.text c = textbox3.text
' lo que quiero es q salaga los valores de la funciones no del button
' este código es parte de un proyecto

28 de enero de 2013, 23:13

Publicar un comentario