Moin!
Ich habe ein Programm in dem der User Guthaben aufladen kann.
Das Guthaben wird dann jede Sekunde abgezogen.
Im meinen Code gibt es folgende Zeilen.
Die Variable „Minuten“ und die Variable „JedeSekunde“.
Für 60 Minuten, habe ich den passenden Code geschrieben, ebenfalls für 30 Minuten.
Es fehlt nun noch der Code für 1 Minute.
Mein Wunsch wäre, dass jede beliebige Zeit einstellbar ist.
Da der User später die Surfkosten selber bestimmen soll.
Wer Sieht im Code eine Mathematische Lösung um das Problem schnell zu beheben?
Freue mich auf eure Hilfe!
BIG THX
*Codepassagen wiederhergestellt* ~NoFear23m
Ich habe ein Programm in dem der User Guthaben aufladen kann.
Das Guthaben wird dann jede Sekunde abgezogen.
Im meinen Code gibt es folgende Zeilen.
Die Variable „Minuten“ und die Variable „JedeSekunde“.
Für 60 Minuten, habe ich den passenden Code geschrieben, ebenfalls für 30 Minuten.
Es fehlt nun noch der Code für 1 Minute.
Mein Wunsch wäre, dass jede beliebige Zeit einstellbar ist.
Da der User später die Surfkosten selber bestimmen soll.
Wer Sieht im Code eine Mathematische Lösung um das Problem schnell zu beheben?
Freue mich auf eure Hilfe!
BIG THX
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Dim guthaben As Decimal = CDec(1.0) ' 1 Euro
- Dim JedeSekunde As Decimal : Dim Minuten As Decimal
- Private Sub ZeitenBerechnen()
- ' Wichtig...
- Const wert As String = "60min" '<--- (HIER ÄNDERN)
- Select Case wert
- Case "60min" ' OK?
- Minuten = 60 ' 60 Minuten
- JedeSekunde = CDec((0.0001)) * 1 ' * 1 Stunde
- Case "30min" ' OK?
- Minuten = 30 ' 30 Minuten
- JedeSekunde = CDec((0.0001 / 2)) ' / ½ Stunden
- Case "1min" ' ?
- ' Wer kann mir weiter helfen?
- ' usw...
- End Select
- ' Werteberechnen...
- Dim Surfzeit As String = (guthaben * CDec(Minuten)).ToString("0#.#0")
- guthaben -= Decimal.Parse(JedeSekunde.ToString)
- ' Anzeigen...
- Me.Text = String.Format("Surfzeit:{0}{1} min", vbNewLine, Surfzeit)
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ZeitenBerechnen()
- End Sub
- End Class
*Codepassagen wiederhergestellt* ~NoFear23m
Visual Basic.NET
MS-SQL
MS-SQL
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Nofear23m“ ()