Microsoft Visual Basic 2010 Express --- Progressbar erstellen mit selbsteinstellbarer Länge ---

Man könnte normalerweise in eine Textbox einen Wert in Millisekunden angeben und die Progressbar braucht dann genau so lange, bis sie auf 100% landet!
Bloß irgendwie geht es nicht wirklich...

Hallo Leute, ich habe ein Projekt angefangen mit folgendem Code:

<code vb>Public Class Form1

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

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

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval(-TextBox1.Text)
ProgressBar1.Increment(1)
End Sub
End Class

Das ganze schaut dann so aus:

Mich stört noch dieser kleine Fehler, durch den das ganze Prog. nicht läuft:

Ich habe es von dem YouTube-Video:
http://www.youtube.com/watch?v=ywVTA8SHBWc

Kann mir einer helfen?
(Weiß vielleicht auch jemand wie ich den Code dann umschreiben müsste, dass der Wert, den ich eingeben muss, nicht in Millisekunden, sondern einfach nur in Sekunden anzugeben ist?)

Danke im Voraus!

Chris

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 185506

Url: https://administrator.de/contentid/185506

Ausgedruckt am: 15.11.2024 um 21:11 Uhr

8 Kommentare

Neuester Kommentar

Hallo,

benutz doch endlich mal die Codeformatierung.
Formatierungen in den Beiträgen

So, dann wie rechnet man Millisekunden in Sekunden um und wie rechnet man mit Visual Basic?
Fall's du Probleme damit hast benutz eine Suchmaschine deiner Wahl, lass die Youtube Videos die bei dir eh anscheinend nicht funktionieren und glaub mir wenn du dich in die Thematik einliest, ist zwar langweiliger, wirst du mehr lernen.

Zudem schau dir das Video mal genau an und du wirst deinen Fehler finden.

Übrigens ich würd das Intervall beim drücken des Startbuttons setzten

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 Timer1.Interval = TextBox1.Text
 Timer1.Start()
End Sub

Ach Visual Studio gibt eigentlich immer schöne und sehr Informative Fehlermeldungen aus mit denen man schnell fündig wird.

danke!

das hat mir sehr geholfen!

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox1.Text
Timer1.Start()
End Sub

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

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
End Sub
End Class

Das funktioniert auch nicht!

So Lernkontrolle,

so was war der Fehler?

Ok, was schreibt er den als Fehler?

Und nimm doch endlich die Formatierung her.

folgendes:

Fehler 1 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Versuch\Versuch\Form1.vb 3 99 Versuch

und

Fehler 2 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Versuch\Versuch\Form1.vb 8 99 Versuch

Konnte es nicht glauben, ich hab's jetzt kurz selbst erstellt.

Hab den Code genau so rein Kopiert. Es funktioniet ohne Problem.
Gut normal müsste man noch abfangen ob ein Wert in der Textbox drinnen ist da man sonnst auf einen Fehler stoßen kann, aber ich glaub das ist jetzt egal.

Fang vielleicht noch mal von neu an, eftl. hast du zu viel rum gespielt.

Du hast offenbar Button1 und Button2 entweder umbenannt oder gelöscht!

Zudem ist diese Zuweisung:

Timer1.Interval = TextBox1.Text

Äußerst unschön.
Denn du weißt einer Eigenschaft vom Typ Integer einen String zu.
Die ist generell eher gefährlich!
Besser:

dim intervall as integer
If Textbox1.Text.Length > 0 AndAlso Integer.TryParse(Textbox1.Text, intervall) Then
 Timer1.Interval = intervall
 Timer1.Start
End if
End Sub