Visual Basic 2010 Sleep Funktion

[P-a-i-n]

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


wie du es gerne magst viele wege fürn nachoben

[Visonar]

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:

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

[Elektrochemie]

Sleep is so dreckig, nimm doch einfach n Timer :/

[P-a-i-n]

Originally Posted by WeezyF940

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

!

[Visonar]

ahh, ich glaube, ich habe case und select so ungefähr verstanden:

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

[P-a-i-n]

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 


[Visonar]

joa, joa hab das mit case select jetzt verstanden

[_FightZ_]

timer :\?

[Visonar]

Originally Posted by _FightZ_

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

[_FightZ_]

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

[Visonar]

Originally Posted by _FightZ_

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

[_FightZ_]

wannabe mod.

[eragon276]

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

[Secredo]

Oder ohne Timer:

Dim x As Integer = 0

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

     x += 1
End While

MessageBox.Show("test")

[Kraizy​]

Originally Posted by eragon276

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.