Countdown stoppen zum richtigen Moment.

K4RTOFF3L · 7. April 2013, 19:30

Hallo Leute,

Ich habe mir einen kleinen Countdown zusammen gebastelt und nun finde ich meinen Fehler nicht mehr. Mein Problem ist ,dass wenn Label1 auf 0 ist der Countdown stoppt. Ich möchte aber, dass der Label1 auf 0 kommt und Label2 60 sek weiter läuft.

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = 5
Label2.Text = 00
Timer1.Start()
Timer2.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Label1.Text - 1
If Label1.Text = 0 Then
Timer1.Stop()
Timer2.Stop()
Label1.Text = 5
Label2.Text = 00
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.Text = Label2.Text - 1
If Label2.Text = 0 Then
Label2.Text = 60
End If
End Sub

Timer1 hat einen Intervall von 60000
Timer2 hat einen Intervall von 1000

Ich habe mir einige Sachen im Internet angeschaut finde aber nichts passendes.
Ich hoffe einer von Euch kann mir helfen.

Mit freundlichen Grüßen
K4RTOFF3L

SpaceyX · 7. April 2013, 19:43

Hey K4RTOFF3L,

willkommen im Forum

erst mal ist wichtig, dass Du OPTION STRICT ON machst. Beschreib bitte, was Dein Programm als Ganzes machen soll, dann finden wir ne passende Lösung.

kai996 · 7. April 2013, 19:46

du hast in deiner if-abfrage stehen, dass wenn label1 auf 0 steht, label 2 auch auf 0 steht, das ist das problem

ein viel größeres problem ist aber: du benutzt kein Option Strict On
schreib dies bitte ganz oben in die erste Codezeile

btw. das sieht mir stark nach YouTube Tutorials aus. Guckst du selber welche? Wenn ja, lass dies bitte sein, du lernst in fast allen Videos falsche Sachen.

Außerdem empfehle ich Neulingen immer folgendes Buch zu lesen: Klaus Löffelmann - Das Entwicklerbuch 2008

K4RTOFF3L · 7. April 2013, 19:54

Huhu spaceyX,

Danke.
Danke für den Tipp mit "Option Strick On". Ich habe es angeschaltet und werde mich jetzt informieren was es bring.
Nun zu meinem Programm. Ich möchte, dass mein Programm ,wenn ich auf einen Button drücke, einen Countdown startet. Der Countdown soll von mir vorgegen werden können. Die Verbleibende Zeit soll als Label im Programm angezeigt werden.

Hallo Kai996,

es ist leider ein "Youtube"-Tutorial. Habe es mir aus Verzweiflung angeschaut.
Option Strict ist jetzt auf On.
Vielen Dank für den Buchtipp. Ich werde mir das Buch mal Downloaden und es durchlesen

MfG
K4RTOFF3L

kai996 · 7. April 2013, 19:58

Hier kannst du sehen warum du Option Strict On machen sollst: erfinderdesrades.unitweb.de/Pr…/Blogs/WarumStrictOn.html

SpaceyX · 7. April 2013, 20:08

Hier hast Du mal nen Beispielcode für einen ganz einfachen CountDown

VB.NET-Quellcode

Public Class Form1
Private WithEvents _t As New Timer With {.Interval = 1000}
Private _countDown As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Integer.TryParse(TextBox1.Text, _countDown) Then
Label1.Text = _countDown.ToString()
_t.Start()
Else
MessageBox.Show("Nur Zahlen erlaubt!")
End If
End Sub
Private Sub _t_Tick(sender As Object, e As EventArgs) Handles _t.Tick
_countDown -= 1
Label1.Text = _countDown.ToString()
If _countDown = 0 Then
_t.Enabled = False
MessageBox.Show("Zeit abgelaufen")
End If
End Sub
End Class

Daniel Baumert · 7. April 2013, 20:21

ist das was ihr pro's

der code

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Dim a As Long = 1
Dim b As String = "Tag"
Dim c As Long = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
TextBox1.Hide()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Text = Label1.Text + a
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label1.Text = 60 Then
Label1.Text = 0
Label2.Text = Label2.Text + a
End If
If Label2.Text = 60 Then
Label2.Text = 0
Label3.Text = Label3.Text + a
End If
If Label3.Text = 24 Then
Label3.Text = 0
Label4.Text = b + c.ToString
c = c + 1
c = c + a
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Interval = 1000
If CheckBox1.Checked = True Then
For i = 1 To 6
Controls("Button" + i.ToString()).Enabled = False
Next
Label1.Text = Label1.Text + a
End If
If CheckBox2.Checked = True Then
For i = 1 To 6
Controls("Button" + i.ToString()).Enabled = True
Next
Label1.Text = Label1.Text - a
End If
If Label3.Text = 0 Then
If Label2.Text = 0 Then
If Label1.Text = 0 Then
TextBox1.Show()
Timer2.Stop()
End If
End If
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Timer2.Start()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = Label1.Text - a
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label2.Text = Label2.Text + a
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Text = Label2.Text - a
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Label3.Text = Label3.Text + a
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = Label3.Text - a
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Label2.Text = "00"
Label3.Text = "00"
Label4.Text = ""
Label1.Text = "00"
End Sub
End Class

das aussehen

Spoiler anzeigen

VB.NET-Quellcode

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label4 = New System.Windows.Forms.Label()
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button8 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(253, 69)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(104, 73)
Me.Label1.TabIndex = 0
Me.Label1.Text = "00"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(123, 69)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(104, 73)
Me.Label2.TabIndex = 1
Me.Label2.Text = "00"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(12, 69)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(104, 73)
Me.Label3.TabIndex = 2
Me.Label3.Text = "00"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(45, 191)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(36, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "-1"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(152, 191)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(36, 23)
Me.Button2.TabIndex = 4
Me.Button2.Text = "-1"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(285, 191)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(36, 23)
Me.Button3.TabIndex = 5
Me.Button3.Text = "-1"
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(285, 12)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(36, 23)
Me.Button4.TabIndex = 8
Me.Button4.Text = "+1"
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(152, 12)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(36, 23)
Me.Button5.TabIndex = 7
Me.Button5.Text = "+1"
Me.Button5.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(45, 12)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(36, 23)
Me.Button6.TabIndex = 6
Me.Button6.Text = "+1"
Me.Button6.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(132, 233)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(63, 17)
Me.CheckBox1.TabIndex = 9
Me.CheckBox1.Text = "Stopuhr"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(255, 229)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(75, 23)
Me.Button7.TabIndex = 10
Me.Button7.Text = "Start"
Me.Button7.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(45, 233)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(83, 17)
Me.CheckBox2.TabIndex = 11
Me.CheckBox2.Text = "Countdown "
Me.CheckBox2.UseVisualStyleBackColor = True
'
'Timer1
'
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(42, 175)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 12
Me.Label4.Text = "Label4"
'
'Timer2
'
'
'TextBox1
'
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(100, 69)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(174, 62)
Me.TextBox1.TabIndex = 13
Me.TextBox1.Text = "Finisch"
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(194, 229)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(55, 23)
Me.Button8.TabIndex = 14
Me.Button8.Text = "Reset"
Me.Button8.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(369, 262)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Timer2 As System.Windows.Forms.Timer
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button8 As System.Windows.Forms.Button
End Class

reyx datei

Spoiler anzeigen

Fibonacci · 7. April 2013, 20:26

Der Code ist nicht Option Strict On valide.
Die Typen werden vollkommen ignoriert...

Falsch:
Label1.Text = Label1.Text - 1

Richtig:
Label1.Text = CStr(CInt(Label1.Text) - 1)

Zudem würde ich die Rechnerei von der GUI deutlich weiter trennen, denn hier gehen wir davon aus, dass Label1.Text eine Zahl ist.

Daniel Baumert · 7. April 2013, 20:30

es geht aber und der pc erkennt es bzw der compiler

Fibonacci · 7. April 2013, 20:33

Daniel Baumert schrieb:

es geht aber [...]

Kein Argument.
Du kannst eine Birne als Apfel bezeichnen, schmecken tut sie trotzdem. Aber ob das wirklich eine Birne oder nun ein Apfel ist, ist was anderes. Schwierigkeiten gibt es damit aber immer (früher oder später).

Daniel Baumert schrieb:

[...] der pc erkennt es bzw der compiler

Nicht mit Option Infer On verwechseln...

K4RTOFF3L · 7. April 2013, 20:33

oh je... Ich komme mir vor als hätte ich mein ganzes Leben lang hinterm Mond gelebt...
In SpaceyX Script verstehe ich noch den Großteil ...
In dem Script von Daniel Baumert verstehe ich nichts und verliere nach einigen Zeilen den kompletten überblick.

Naja ich habe das Script von SpaceyX zu einem Teil verändert und auch schon fast eingebaut ...
Werde versuchen Morgen meine Version von dem Script hier in das Forum zu bringen.

MfG
K4RTOFF3L

kai996 · 7. April 2013, 20:37

das von @Daniel Baumert: ist eh falsch, das brauchst du net zu verstehen (sry, das ist nichts gegen dich @Daniel Baumert: )

Daniel Baumert · 7. April 2013, 20:39

ja wen die s auf null sind und min auf 1 dann ist er finish aber das behebe ich gerade

Fibonacci · 7. April 2013, 20:40

Im Zweifelsfall immer darauf achten, wie sehr die Person schon hilfreich war. Jemand, der sich hier bewiesen hat, wird eher den sauberen Code schreiben. Vom Rest bloß nicht verwirren lassen, meistens brauchen diese Personen (im schlimmsten Fall) die Hilfe ebenso nötig wie der Fragesteller.

kai996 · 7. April 2013, 20:41

Daniel Baumert schrieb:

VB.NET-Quellcode

Label1.Text = Label1.Text - a

Wenn in Label1.Text auch nur ein Zeichen drin ist, das keine Zahl ist, fliegt dir das Programm um die Ohren!!!!! (ein Beispiel für unsaubern Code in deinen Beitrag)

Daniel Baumert · 7. April 2013, 20:45

tja nicht beschreib bar gemacht
und auserdem kannst du labels nicht mit text zumüllen

kai996 · 7. April 2013, 20:48

ich glaub ich heul gleich

das ist ja unfassbar!! Das soll eine warnung sein, was passieren kann, wenn man nicht Option Strict On benutzt

@Daniel Baumert: WARUM benutzt du Option Strict Off ??

Daniel Baumert · 7. April 2013, 20:51

kai996 schrieb:

as ist ja unfassbar!! Das soll eine warnung sein, wa

welche ??

kai996 · 7. April 2013, 20:53

stimmt du hast recht das hier "Wenn in Label1.Text auch nur ein Zeichen drin ist, das keine Zahl ist, fliegt dir das Programm um die Ohren!!!!! (ein Beispiel für unsaubern Code in deinen Beitrag)" ist eher ein beweis Option Strict ON zu benutzen, weil das da nicht passiert (man soll ja zum Konvertieren Integer.TryParse nehmen)

K4RTOFF3L · 7. April 2013, 20:53

Eine kleine frage von mir als Neuling.
Ist der "Kindergartenkrieg" hier in jedem Beitrag?
Habe noch nicht so viele gelesen.

MfG
K4RTOFF3L

Countdown stoppen zum richtigen Moment.

Countdown stoppen zum richtigen Moment.

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Daniel Baumert schrieb:

Daniel Baumert schrieb:

Daniel Baumert schrieb:

VB.NET-Quellcode

kai996 schrieb:

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben