Machst eine Globale Variable sagen wir mal
Quote:
Public m_Startwert As Double
Public m_StartZeit As DateTime
|
Du schreibst in eine feste Variable einmal das Geld was du aktuell hast und die Startzeit.
Mal angenommen du willst es ab einem Button-Click berechnet haben,
fügst du einen Timer ein benennst ihn "timer_WerteAktualisierer".
In deinem Button"btn_Start" Startest du dann den Timer:
Quote:
Private Sub btn_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Start.Click
m_Startwert = "DAS AKTUELLE GELD WAS DU AKTUELL BESITZT"
m_StartZeit = DateTime.Now()
timer_WerteAktualisierer.Start()
End Sub
|
Bei jedem Tick vom timer lässt du dann deine Anzeige erneuern:
Quote:
Private Sub timer_WerteAktualisierer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer_WerteAktualisierer.Tick
Dim AktuellesGold As Double = "DEN AKTUELLEN WERT HIER REINSCHREIBEN"
Dim RunTimeInSeconds As Integer = DateTime.Now.Subtract(m_StartZeit).Seconds
Dim AktGoldH As Double = Math.Round( (AktuellesGold-m_Startwert)/(RunTimeInSeconds / 60)*60 , 2)
'ein label um es auch anzuzeigen, kann natürlicha überall anders angezeigtw erden
lbl_GoldProH.Text = "Aktuelles Gold/h: " & AktGoldH.ToString() & " bei einer Laufzeit von: " & RunTimeInSeconds.ToString() & " Sekunden."
End Sub
|
Sorry wenn ein paar kleine Syntax Fehler drin sind ist aus dem Kopf geschrieben. (VB.NET)