[VB.NET][TuT] Eine Pause realisieren

[Sedrika]

==================================================
==================================================

In diesem TuT zeige ich euch, wie wir eine
Pause in der Anwendung nutzen.

==================================================
==================================================

Die Delay-Funktion werden wir in VisualBasic vergeblich
suchen, und das ist auch gut so, da schließlich Windows
ein Multitasking-System ist.

==================================================
==================================================

• Was wir brauchen
- 2x Buttons (1 = Delay, 2 = Sleep)
- 1x ListBox
- 1x Textbox

==================================================
==================================================

==================================================
==================================================

Als erstes definieren wir die Zeit Funktion.
Variante 1:

Private Sub Delay(ByVal Zeit As Integer)
Dim Zeit1 As Integer = System.Environment.TickCount
While (System.Environment.TickCount - Zeit1) < Zeit
Application.DoEvents()
End While
End Sub

Button1:

ListBox1.Items.Add("Start")
Delay(Textbox1.Text)
ListBox1.Items.Add("Stop")

Nun ist Sleep an der Reie.
Variante 2-
Button2:

ListBox1.Items.Add("Start")
Application.DoEvents()
System.Threading.Thread.Sleep(TextBox1.Text)
ListBox1.Items.Add("Stop")

==================================================
==================================================

Hier nochmal der gesamte SourceCode:

Public Class Form1

Private Sub delay(ByVal zeit As Integer)
Dim zeit1 As Integer = System.Environment.TickCount
While (System.Environment.TickCount - zeit1) < zeit
Application.DoEvents()
End While
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add("Start")
delay(TextBox1.Text)
ListBox1.Items.Add("Stop")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Add("Start")
Application.DoEvents()
System.Threading.Thread.Sleep(TextBox1.Text)
ListBox1.Items.Add("Stop")
End Sub
End Class

==================================================
==================================================

Anmerkung:

Die Delay funktion ist vorzuziehen, da sie wärend
der NUtzung noch die anderen funktionen zulässt, wohingegen
die Sleep funktion die gesammte Form "schlafen" lässt.

==================================================
==================================================
Credits: Sedrika

[CappieW]

ich mag deine tutorials, sind sie so organisiert (:

[Sedrika]

Originally Posted by CappieW

ich mag deine tutorials, sind sie so organisiert (:

Nach so langer zeit eine antwort ^^

Danke =)

[Benjamin.groß]

ich fang grad erst an VB zu lernen, weil wir das auch in der BFS haben (Berufsschule...) und ich davor noch nie was am Hut hatte. Aber der TuT (hoffe das war richtig=)) gefällt mir sehr gut. Leicht nachzumachen und zu verstehen. Btw. man lernt daraus.

mfg

benny

[Secredo]

Originally Posted by Benjamin.groß

ich fang grad erst an VB zu lernen, weil wir das auch in der BFS haben (Berufsschule...) und ich davor noch nie was am Hut hatte. Aber der TuT (hoffe das war richtig=)) gefällt mir sehr gut. Leicht nachzumachen und zu verstehen. Btw. man lernt daraus.

mfg

benny

Nein, war nicht richtig.
Es heißt das Tutorial (= TuT).

Sorry, musste sein. xD


MfG Secredo