|
VB.Net-Forum - Beitragsübersicht - |
|
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 schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|