[VB] Programm wird zu schnell ausgef�hrt?

11/11/2012 20:14 Ludder231#1

Hi,

da ich noch Anf�ger bin in VB hab ich mir einen Dateisortierer gebastelt.

PHP Code:


			
Private Sub btn_move_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_sortieren.Click
        Dim dateipfad As Array
        Dim dateiname As Array
        Dim anzahl_dateien As Integer
        Dim count As Integer


        If (fd_files.ShowDialog() = DialogResult.OK) Then ' wenn Openfile ein OK zur�ck gibt 

            If (fd_speicher_pfad.ShowDialog() = DialogResult.OK) Then ' wenn Openfile ein OK zur�ck gibt 


                dateipfad = fd_files.FileNames
                dateiname = fd_files.SafeFileNames
                anzahl_dateien = UBound(dateiname) + 1
                lbl_anzahl_dateien.Text = anzahl_dateien
                lbl_verbleibende_dateien.Text = anzahl_dateien
                prgb_fortschritt.Maximum = anzahl_dateien


                For I = 0 To anzahl_dateien - 1 


                    count = (anzahl_dateien - 1) - I
                    lbl_datei.Text = dateiname(I)

                    If dateiname(I).contains(".mp4") Then
                        If chb_mp4.CheckState = CheckState.Checked Then
                            If Not My.Computer.FileSystem.DirectoryExists(fd_speicher_pfad.SelectedPath & "\mp4") Then

                                My.Computer.FileSystem.CreateDirectory(fd_speicher_pfad.SelectedPath & "\mp4")

                            End If

                            My.Computer.FileSystem.CopyFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\mp4\" & dateiname(I)) ' Kopieren
                        End If
                    ElseIf dateiname(I).contains(".txt") Then
                        If chb_txt.CheckState = CheckState.Checked Then
                            If Not My.Computer.FileSystem.DirectoryExists(fd_speicher_pfad.SelectedPath & "\txt") Then

                                My.Computer.FileSystem.CreateDirectory(fd_speicher_pfad.SelectedPath & "\txt")

                            End If

                            My.Computer.FileSystem.CopyFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\txt\" & dateiname(I)) ' Kopieren

                        End If
                        ElseIf dateiname(I).contains(".mp3") Then
                        If chb_mp3.CheckState = CheckState.Checked Then
                            If Not My.Computer.FileSystem.DirectoryExists(fd_speicher_pfad.SelectedPath & "\mp3") Then

                                My.Computer.FileSystem.CreateDirectory(fd_speicher_pfad.SelectedPath & "\mp3")

                            End If

                            My.Computer.FileSystem.CopyFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\mp3\" & dateiname(I)) ' Kopieren
                        End If

                        ElseIf dateiname(I).contains(".jpg") Or dateiname(I).contains(".png") Or dateiname(I).contains(".bmp") Then
                        If chb_pic.CheckState = CheckState.Checked Then
                            If Not My.Computer.FileSystem.DirectoryExists(fd_speicher_pfad.SelectedPath & "\pictures") Then

                                My.Computer.FileSystem.CreateDirectory(fd_speicher_pfad.SelectedPath & "\pictures")

                            End If

                            My.Computer.FileSystem.CopyFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\pictures\" & dateiname(I)) ' Kopieren
                        End If
                        End If


                        prgb_fortschritt.Value = I + 1
                        lbl_verbleibende_dateien.Text = count

                Next
            End If
        End If
    End Sub

Nun, wird das Label " lbl_verbleibende_dateien" immer sofort auf 0 gesetzt und das Label "lbl_datei" ist immer "?". Wenn ich ne msgbox() vor "next" mache, dann wird alles perfekt angezeigt.

MfG Ludder231

11/11/2012 20:42 tolio#2

mach halt an ne stelle irgendwo nen 100ms wait oder so dann siehste obs durchl�uft

11/11/2012 20:53 Ludder231#3

Quote:

Originally Posted by tolio

mach halt an ne stelle irgendwo nen 100ms wait oder so dann siehste obs durchl�uft

Und wie mach ich ne Wait ?
Ich habs jz mit thread.sleep() gemacht, aber die labels bleiben immernoch leer.

11/11/2012 21:03 3Angle#4

Application.DoEvents muss da rein, damit der das GUI updaten kann...

11/11/2012 21:06 Ludder231#5

Ah danke, wusste ich nicht dass die nicht updaten k�nnen.

11/11/2012 22:24 Mi4uric3#6

Quote:

Originally Posted by Ludder231

Ah danke, wusste ich nicht dass die nicht updaten k�nnen.

Ist halt im selben Thread wie das Malen des GUIs. Und wenn der Thread dann grade mit deinem Code zugange ist kann er nicht gleichzeitig das GUI updaten :)
Daf�r das "DoEvents()", das ruft zwanghaft die Interaktion mit dem GUI auf.

11/11/2012 23:37 tolio#7

google -> "vb.net wait" -> erstes ergebniss ist eine methode die solange die zu wartende zeit nicht abgelaufen ist nur das gui aktualisiert => geeignet f�r das was du machen willst

11/11/2012 23:44 Kraizy#8

DoEvents() ist b�se :<
W�rde es dir nicht raten zu benutzen

11/12/2012 01:14 tolio#9

hier in dem fall um nur eine anzeige aktualisierung zu veranschaulichen ist doevents genau das richtige

11/12/2012 12:11 Kraizy#10

DoEvents sollte am besten immer vermieden werden. Klar, es ist die einfachste und schnellste M�glichkeit f�r faule Programmierer, um Controls w�hrend einer Schleife oder sonst was zu aktualisieren, aber sicherlich keine sch�ne, zudem sogar noch ziemlich gef�hrlich f�r den Programmablauf. Selbst MS sagt, dass man diese Methode mit Bedacht nutzen sollte, wenn �berhaupt:

Quote:

Vorsicht
Das Aufrufen dieser Methode bewirkt, dass der aktuelle Thread angehalten wird, w�hrend alle wartenden Fenstermeldungen verarbeitet werden.Wenn eine Meldung bewirkt, dass ein Ereignis ausgel�st wird, dann werden andere Bereiche des Anwendungscodes m�glicherweise ausgef�hrt.Dies kann bewirken, dass die Anwendung unerwartete Verhaltensweisen zeigt, die schwierig zu debuggen sind.Wenn Sie Vorg�nge oder Berechnungen ausf�hren, die eine lange Zeit brauchen, ist es oft vorzuziehen, jene Vorg�nge auf einem neuen Thread auszuf�hren.Weitere Informationen �ber asynchrone Programmierung finden Sie unter [Only registered and activated users can see links. Click Here To Register...].

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

Wie gesagt, am besten sollte man DoEvents immer vermeiden, und eine (bessere) Alternative suchen, denn die gibt es eigentlich immer. Um z.B. ein Label zu aktualisieren, reicht auch einfach ein extra daf�r gemachtes Event aufzurufen: .Update() (oder ein anderes banales Beispiel: beim WebBrowser, statt DoEvents in einer While-Schleife aufzurufen (ja, das habe ich, besonders in diesem Forum, schon oft bei z.B. billigen YouTube Bots gesehen) und zu warten, bis die Seite geladen wurde, nutzt man einfach das extra daf�r vorgesehene Event: .DocumentCompleted(). Und so gibt es eigentlich f�r alles eine "Alternative").

Am besten ist es jedoch sowieso, wenn man Arbeitsvorg�nge, besonders diese, welche l�ngere Zeit brauchen, komplett von der GUI trennt, indem man z.B. einen separaten Thread nutzt. Das Aktualisieren der Controls l�uft dann �ber Invoke/Delegate.

Hier ist noch ein sch�ner Beitrag zu DoEvents, zwar auf Englisch, aber naja, sollte man als Programmierer sowieso k�nnen: [Only registered and activated users can see links. Click Here To Register...]
Gibt auch noch viel mehr Seiten, die die Nachteile von DoEvents aufzeigen, einfach mal danach googlen.