|
VB.Net-Forum - Beitragsübersicht - |
|
Thema | V15: Restliche Zeit berechnen |
Von |
Progfrog19 |
Datum |
26. Juli 2019 um 17:11:31 |
Frage |
Hallo! Ich habe ein Programm das mir die Surfzeiten anzeigen soll. Zum Beispiel eine Stunde für 1 Euro. Mir wurde mitgeteilt, ich sollte anstatt mit dem guthaben mit der vergangene Zeit rechnen. Aber leider finde ich die Lösung nicht. Im Link ist ein Beispielcode. Bitte um Hilfe. Danke
Link: https://workupload.com/file/VfyCM2GjOption Strict On Public Class Form1 'Das einzige was genau ist, ist die Surfzeit. 'Nämlich die vergangene Zeit seit Programmstart. 'Und daraus muss sich das Guthaben berechnen, nicht umgekehrt. Dim guthaben As Decimal = 1D ' 1 Euro Dim KostenProSekundeInCent As Decimal Dim stopwatch1 As New System.Diagnostics.Stopwatch Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick ' Berechnen... KostenProSekundeInCent = Me.NumericUpDown1.Value / 3600 guthaben -= KostenProSekundeInCent ' ---------------> BUGY ' Restliches Guthaben In verbleibende Zeit umwandeln... Dim dtRestlicheZeit As DateTime dtRestlicheZeit = dtRestlicheZeit.AddSeconds(guthaben / (Me.NumericUpDown1.Value / 3600)) Me.Label2.Text = dtRestlicheZeit.ToLongTimeString ' ---------------> BUGY ' Anzeigen... Me.Label1.Text = String.Format("Surfzeit:{0}{1} min", Environment.NewLine, (stopwatch1.Elapsed.TotalSeconds * guthaben / 60).ToString("0#.#0")) Me.Label3.Text = guthaben.ToString("C") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Interval = 1000 : Timer1.Enabled = True : stopwatch1.Start() End Sub End Class |
|
Antwort: |
Von |
Progfrog19 |
Datum |
30. Juli 2019 um 15:38:41 |
Antwort |
@Nico Danke, für deine Antwort. Aber leider könnte ich damit das Problem nicht lösen.
@an alle Ich habe die Lösung in einem anderen Forum bekommen. Ich habe den Link gepostet, falls dieser Link nicht erwünscht ist, können die Admins diesen löschen.
Link: https://foren.activevb.de/forum/vb-net/thread-109842/beitrag-109861/Re-Restliche-Zeit-berechnen/ |
|
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|