Visul basics progressbar terugtellen en tijd label

[luck7]

Hallo

ik heb een programma gemaakt met een countdown.
De resterende tijd is te zien aan een label.

Nou is het alleen zo, dat als ik bij de tijd 68min. ingeef, er komt te staan:
68

maar ik wil het graag zo hebben dat er komt te staan:
1:08:00

Weet iemand hoe dat moet?



En hoe kan ik een progressbar laten aftellen?
De value van de progressbar moet hetzelfde zijn als het getal dat de gebruiker ingeeft.
dus bv. 68
ik stel de interval van de gekoppelde timer dan op 60000 zodat hij per minuut aftelt.
maar hoe kan ik dat doen?

rogressbar1.value = textbox1.text ???

en hoe kan ik mijn programma er een beetje mooi uit laten zien?
Niet alles zo strak, meer met rondingen en zo.

alvast heel erg bedankt!!

mvg
Luck

 

[old Hippy]

Hi Mischien helpt dit je op weg

 Dim Starttijd As Integer = 0
              Dim Seconden As Integer = 0
        Dim Minuten As Integer = 0
        Dim Uren As Integer = 0
        Starttijd = Int(TextBox1.Text * 3600)
        Uren = Int((Starttijd) / 60 / 60 / 60)
        Minuten = FormatNumber(((Starttijd) / 60 / 60 Mod 60), 0)
        Seconden = FormatNumber(((Starttijd) / 60 Mod 60), 0)

        Label1.Text = "Rest tijd  " & Uren & ":" & Minuten & ":" & Seconden