Visual Basic 2010 Sleep Funktion

Page 2 of 2 1 2
05/16/2010 14:28 P-a-i-n#16
ja es ist möglich z.B mit selected case ;)

aber da ich merke das du nicht so fit bist in vb ist nicht böse gemeint könntest du auch auch das ganze in eine if abfrage packen
das geht ganz leicht du machst ein 2 label das machst du unsichtbar auf der form
dann könntest du es so machen

if label2.text = 1 then
label1.text = "blabla"

if label2.text = 2 then
if label1.text = "lalalala"

das ist wird zar langer source ist aber anfänger freundlich

sonst dabei was lernen
[Only registered and activated users can see links. Click Here To Register...]

wie du es gerne magst viele wege fürn nachoben ;)
05/16/2010 14:55 Visonar#17
ja, ich bin noch noobig in diesen gebiet.

also, brauch ich für case select eine textbox/etc., oder geht das auch ohne?

bei mir sieht es zumindest jetzt so aus:

Quote:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case Me.Label1.Text
Case Else
Label1.Text = "halloooo"
End Select
End Sub
End Class
05/16/2010 14:59 Elektrochemie#18
Sleep is so dreckig, nimm doch einfach n Timer :/
05/16/2010 15:41 P-a-i-n#19
Quote:
Originally Posted by WeezyF940 View Post
ja, ich bin noch noobig in diesen gebiet.

also, brauch ich für case select eine textbox/etc., oder geht das auch ohne?

bei mir sieht es zumindest jetzt so aus:
ich sehe schon du verstehst das nicht so aber halb so wild schau dir mal das video an dann verstehst du es besser und wqeißt wie ich das weiter oben gemeint hab ;)

[Only registered and activated users can see links. Click Here To Register...]!
05/16/2010 15:55 Visonar#20
ahh, ich glaube, ich habe case und select so ungefähr verstanden:

Quote:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case Me.Label1.Text
Case "Hallo"
Label1.Text = "blubb"

Case "blubb"
Label1.Text = "lalala"

End Select
End Sub
End Class
05/16/2010 16:40 P-a-i-n#21
also wenn ich alles zusammenfasse was du so vor hast sollte es so aussehen kannst ja mal kopieren einfach das label1 unsichtbar machen und schon klappt das mit den button klicken und der text ändert sich ;)
PHP Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Val(Label1.Text) + 1

        Select Case Me.Label1.Text
            Case Is = 1
                Label2.Text = "Wert war 1"
            Case Is = 2
                Label2.Text = "Wert war 2"
            Case Is = 3
                Label2.Text = "Wert war 3"
            Case Is = 4
                Label2.Text = "Wert war 4"
            Case Is = 5
                Label2.Text = "Wert war 5"
            Case Is = 6
                Label2.Text = "Wert war 6"

            Case Else
                Label2.Text = "Es hat sich Ausgecaseted"
        End Select
    End Sub 
05/16/2010 16:44 Visonar#22
joa, joa hab das mit case select jetzt verstanden:D
05/16/2010 17:04 _FightZ_#23
timer :\?
05/16/2010 17:22 Visonar#24
Quote:
Originally Posted by _FightZ_ View Post
timer :\?
ich danke dir, dass du helfen willst, muss dich allerdings doch ermahnen: bitte spam hier nicht rum. das kann ich nicht gebrauchen.
beim nächsten mal reporte ich dich.

mfg
05/16/2010 19:40 _FightZ_#25
was für spam du lauch , wieso willst du es dir schwerer machen als es ist, ein timer klärt doch alles was du willst? und ja oh nein ich hab schon bisschen bange jetz das du mich reportest :( bitte nich schreib mir bitte deine forderungen das du mich nicht reportest.

metin kind
05/16/2010 20:31 Visonar#26
Quote:
Originally Posted by _FightZ_ View Post
was für spam du lauch , wieso willst du es dir schwerer machen als es ist, ein timer klärt doch alles was du willst? und ja oh nein ich hab schon bisschen bange jetz das du mich reportest :( bitte nich schreib mir bitte deine forderungen das du mich nicht reportest.

metin kind
durch dein aggressives verhalten würde ich eher darauf tippen, dass du hier viel mehr kind bist, als ich.
warum nennst du mich einen "lauch", nur ich dich auf die regeln hinweise?
warum nennst du mich ein metin-kind, obwohl wir uns nicht kennen?

fragen, über fragen...

ach ja, du möchtest wissen, was ich fordere, damit ich dich nicht reporte?
- das einziegste, was ich möchte ist, dass sich die leute, hier im forum einfach nur an die regeln halten. Mehr nicht!

Mfg
05/16/2010 20:53 _FightZ_#27
wannabe mod.
05/26/2011 10:13 eragon276#28
Hey habe den Thread gerade gelesen und dachte ich helf dir mal. und zwar funktioniert die Sleep funktion um einiges einfacher als wie oben genannt

versuch es mal mit

Thread.Threading.sleep(1000) <-- Die 1000 steht für 1 Sekunde als 1000 millisekunden

beachte jedoch das sleepfunktion nur sinnvoll in bots sind da das ganze programm anhält und NIX machen also ansonsten würde ich dir das hier empfehlen

Timer1 erstellen
label1 erstellen

Timer1.start

timer1.interval = 1000
Label1.text = 10
label1.text -= 1
if label1.text = 0 then
label1.text = 10
'Hier die Funktion die er ausführen soll.
'Das Timer1.start machste auf einem button etc. den rest im timer selbst
end if
05/26/2011 13:01 Secredo#29
Oder ohne Timer:
Code:
Dim x As Integer = 0

While (x < 500)
    System.Threading.Thread.Sleep(10)
    Application.DoEvents()

     x += 1
End While

MessageBox.Show("test")
:D
05/26/2011 14:08 Kraizy​#30
Quote:
Originally Posted by eragon276 View Post
beachte jedoch das sleepfunktion nur sinnvoll in bots sind da das ganze programm anhält und NIX machen
i lol'd...

DoEvents() benutzt man nicht mehr...
Genauso wenig packt man ein unsichtbares Label auf die Form welches hochgezählt wird.
Du erstellst dir eine Integer Variable und bei jedem Buttonklick erhöhst du diese und benutzt dabei die Select/Case-Anweisung welche dir schon gezeigt wurde.
PHP Code:
Dim zahl As Integer = 0

//Button_Click-Ereignis
zahl += 1

Select Case zahl
     Case 1
          MessageBox.Show("Bla1")
     Case 2
          MessageBox.Show("Bla2")
     Case 3
          MessageBox.Show("Bla3")
End Select 
Und wegen Sleep: entweder benutzt du einen Timer oder ein extra Thread, damit deine Form nicht einfriert.
Page 2 of 2 1 2