1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Timer Reset bei vb6

Discussion in 'Programmieren' started by Blackpig, May 1, 2009.

Thread Status:
Not open for further replies.
  1. Blackpig

    Blackpig Byte

    Hallo,

    ich habe ein problem und zwar beim unten stehenden code möchte ich per button click beide timer reseten, nur leider weiß ich nicht wie ... könnt ihr mir helfen?

    Public Class Form1

    Dim Zeit1 As Double = 0.0
    Dim Zeit1Sec As Double = 60

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Zeit1 = TextBox1.Text

    Timer1.Enabled = Zeit1
    Timer2.Enabled = True
    Button1.Visible = False
    Button2.Visible = True


    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Timer1.Interval = 60000
    Zeit1 -= 1

    Label1.Text = Zeit1
    Label1.Visible = True

    If Zeit1 = -1 Then
    Timer1.Stop()
    MessageBox.Show("Zeit Abgelaufen", "Fertig!")
    Button1.Visible = True
    Button2.Text = "Pause"
    Button2.Visible = False
    End If

    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    Timer2.Interval = 1000
    Zeit1Sec -= 1
    Label2.Visible = True
    Label3.Visible = True

    If Timer1.Enabled = False Then
    Timer2.Enabled = False
    End If

    If Zeit1Sec = 0 Then
    Zeit1Sec = 60
    End If

    Label2.Text = Zeit1Sec
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    If Timer1.Enabled = True Then
    Timer1.Stop()
    Timer2.Stop()
    Button2.Text = "Fortfahren"
    Else
    Timer1.Start()
    Timer2.Start()
    Button2.Text = "Pause"
    End If

    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


    TextBox1.Clear()
    Button1.Visible = True
    Button2.Visible = False
    Timer1.Enabled = False
    Timer2.Enabled = False

    End Sub
    End Class
     
  2. VB-Coder

    VB-Coder Megabyte

    indem du bei ONCLICK des Buttons die entsprechende Sub des Timers aufrufst.
     
Thread Status:
Not open for further replies.

Share This Page