[VB.NET][TuT] Eine Pause realisieren

02/26/2010 16:34 Sedrika#1
==================================================
==================================================

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

==================================================
==================================================
[Only registered and activated users can see links. Click Here To Register...]
==================================================
==================================================

Als erstes definieren wir die Zeit Funktion.
Variante 1:
Quote:
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:
Quote:
ListBox1.Items.Add("Start")
Delay(Textbox1.Text)
ListBox1.Items.Add("Stop")
Nun ist Sleep an der Reie.
Variante 2-
Button2:
Quote:
ListBox1.Items.Add("Start")
Application.DoEvents()
System.Threading.Thread.Sleep(TextBox1.Text)
ListBox1.Items.Add("Stop")
==================================================
==================================================

Hier nochmal der gesamte SourceCode:
Quote:
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:
Quote:
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
03/04/2010 21:29 CappieW#2
ich mag deine tutorials, sind sie so organisiert (:
03/04/2010 21:30 Sedrika#3
Quote:
Originally Posted by CappieW View Post
ich mag deine tutorials, sind sie so organisiert (:
Nach so langer zeit eine antwort ^^

Danke =)
10/05/2010 14:59 Benjamin.groß#4
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
10/05/2010 21:25 Secredo#5
Quote:
Originally Posted by Benjamin.groß View Post
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