ProgressBar soll trotz u.WaitForExit laufen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von KDavid81.

    ProgressBar soll trotz u.WaitForExit laufen

    Hallo Leute ich hab da mal wieder ein kleines Problem.

    momentan schaut das ganze so bei mir aus.

    VB.NET-Quellcode

    1. If ProgressBar1.Value = ProgressBar1.Maximum Then
    2. ProgressBar1.Value = 0
    3. Else
    4. ProgressBar1.Value = ProgressBar1.Value + 1
    5. End If
    6. Shell(GNLogger)
    7. Shell(GNLogger)
    8. u1.StartInfo.FileName = Batchup
    9. u1.StartInfo.CreateNoWindow = True
    10. u1.StartInfo.UseShellExecute = False
    11. u1.StartInfo.RedirectStandardOutput = True
    12. u1.Start()
    13. u1.WaitForExit()Shell("Taskkill /F /IM GNLOGGER.EXE /T", , True, -1)
    14. CopyTraces()


    das dumme ist nur das mir der ProgressBar dauernt bei dem u.wait anhält und erst weiter geht wenn es zu ist. Der Progressbar soll aber für mich da sein damit ich weis ob das Program noch etwas tut oder nicht (aufgehängt).

    KDavid81 schrieb:

    das dumme ist nur das mir der ProgressBar dauernt bei dem u.wait anhält und erst weiter geht wenn es zu ist

    Weil du genau das programmiert hast?^^

    Schau dir mal Multithreading an.
    Ausserdem zeig mal den kompletten Code, mit den Events in denen sich der Code befindet.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    KDavid81 schrieb:

    momentan schaut das ganze so bei mir aus.

    Das sieht mir so aus als hättest Du wahllos irgendwelchen Code zusammenkopiert.

    Warum
    - mixt Du Shell (=veraltet) mit Process
    - leitest Du den Standardoutput um, benutzt Du das Feature überhaupt
    - Paste Fehler ? u1.WaitForExit()Shell("Taskkill /F /IM GNLOGGER.EXE /T", , True, -1)
    - beendest einen Process per Console

    Du kannst einen Process ganz einfach mit CloseMainWindow oder Kill beenden, schau Dir mal die Methoden an Process-Methoden

    so also nur mal der Teil der wichtig ist da der rest ja nur zu fragen führt die mir nicht weiter helfen.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. u.StartInfo.FileName = Batchup
    4. u.StartInfo.CreateNoWindow = True
    5. u.StartInfo.UseShellExecute = False
    6. u.StartInfo.RedirectStandardOutput = True
    7. u.Start()
    8. Timer1_Tick()
    9. End Sub

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick()
    2. Do While u.HasExited = False
    3. Timer1.Interval = 200
    4. If ProgressBar1.Value = ProgressBar1.Maximum Then
    5. ProgressBar1.Value = 0
    6. Else
    7. ProgressBar1.Value = ProgressBar1.Value + 1
    8. End If
    9. LoopEnd Sub

    ich starte über das u.start ein batch feil auf dessen ende ich warten muss damit ich mit dem program weiter machen kann.
    hab zwischen drinn mal ein paar sachen versucht daher sa das vorher auch so zusammen geflieckt aus. mittlerweile hab ich den progressbar am laufen schaut zwar nciht so toll aus aber erfüllt seinen zweck.
    nachteil ist das mir die cpu last hoch auf 60% geht. kann man das irwi schöner machen?

    KDavid81 schrieb:

    da der rest ja nur zu fragen führt die mir nicht weiter helfen.

    Sind wir hier Deine willigen Code-Bots, bei denen Du entscheidest was Du an Informationsbröckchen lieferst ?

    Sobald Du nicht mehr zu faul bist Antworten zu liefern und Dich um Recht-/Gross-/Kleinschreibung sowie Grammatik bemühst, darfst Du Dich gerne wieder melden.

    Kangaroo schrieb:

    Zitat von »KDavid81« da der rest ja nur zu fragen führt die mir nicht weiter helfen.
    Sind wir hier Deine willigen Code-Bots, bei denen Du entscheidest was Du an Informationsbröckchen lieferst ?

    Also eigentlich Trift weder das eine noch das andre zu. Ich wollte niemanden haben der für mir einen ganzen Code zusammen schreibt, nur ein wenig Hilfe. Mal abgesehen davon hab ich vorher nur zu viel mit rein Kopiert und habe bei zweiten Anlauf nur die teile rein Kopiert wo ich die Probleme habe um weiter Missverständnisse zu vermeiden.

    Kangaroo schrieb:

    Sobald Du nicht mehr zu faul bist Antworten zu liefern und Dich um Recht-/Gross-/Kleinschreibung sowie Grammatik bemühst, darfst Du Dich gerne wieder melden.



    Aber beleidigend zu werden ist ok oder wie verstehe ich das?

    Ich entschuldige mich gerne für meine Fehler und auch für meine schlechte Grammatik. Aber ein wenig höflicher könnte man da ja doch auch sein oder etwa nicht?

    Hab einfach nur das Problem das im ersten Fall der ProgressBar beim u.WaitForExit hängen bleibt.

    Im zweiten Fall habe ich dann das Problem das zwar der ProgresBar läuft, aber mir die CPU last hochhält.

    PS: Bin absoluter Anfänger und würd mich über etwas Unterstützung freuen.

    KDavid81 schrieb:

    ber beleidigend zu werden ist ok oder wie verstehe ich das?

    War das beleidigend ? Wenn ich mich mit Deinem Code auseinandersetze und Fragen stelle, jedoch implizit die Antwort bekomme das ginge mich nichts an, so geht mir die Hutschnur hoch. Das gleiche gilt für die Mühe die sich jemand macht sein Problem zu beschreiben: warum soll ich länger Zeit verbrauchen eine Antwort zu schreiben, als Du Deine Frage zu stellen ?

    Zu Deinem Problem:
    - warum überhaupt ein Batch File, Du kannst zu 99% im .NET umfeld bleiben
    - warum das RedirectOutput

    Deine CPU läuft heiss weil Du mit Deinem Timer alle 200ms unnötige Abfragen startest. Eine bessere Lösung würde so aussehen:
    - Dein Batch File in einem Thread per Process.Start beginnen
    - mit WaitForExit bis ende Verarbeitung blocken
    - beim Ende Event auslösen
    - Deine Hauptanwendung macht im Eventhandler mit dem weiter was es noch zu machen hat
    - benutze für Dein Progressbar den Marquee-Style um Tätigkeit zu signalisieren

    Ich musste es über ein Batch machen da ich ansonsten keinen Anhaltspunkt habe um auf das Ende zu warten. Das Program darf erst nach dem Ende der Batch weiter laufen. Daher ja jetzt auch der Versuch mit dem Do While. Der mittlerweile einen Timer bekommen hat aber immer noch auf 50% hängt.
    Das was du mir grade geschrieben hast hört sich so an das, dass Batch startet und das Program dann weiter läuft oder?

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick()
    5. ProgressBar1.Minimum = 0
    6. ProgressBar1.Maximum = 200000
    7. ProgressBar1.Increment(1)
    9. Do While u.HasExited = False
    11. If ProgressBar1.Value = ProgressBar1.Maximum Then
    12. ProgressBar1.Value = 0
    13. Else
    14. ProgressBar1.Value = ProgressBar1.Value + 1
    15. End If
    16. Loop
    18. End Sub

    KDavid81 schrieb:

    Das Program darf erst nach dem Ende der Batch weiter laufen

    Wie definierst Du Pogramm ?

    Wenn Du Deine Forms-Anwendung startest, so generierst Du erst einmal 1 Prozess mit genau 1 Thread, in dem erstmal sämtlicher Code abläuft (klicken, Fenster ziehen, Event Logik). Diesen nennen wir mal GUI-Thread. Wenn Du diesen durch irgendetwas blockst ( WaitForExit), so laufen auch die anderen Events nicht mehr.

    Deshalb lagert man zeitaufwendige Tätigkeiten in einen neuen, separaten Thread aus, um GUI-Updates nicht zu behindern. In Deinem Fall würde sich z.B. ein Backgroundworker anbieten.

    Dein Timer mit seiner Abfrage hasExited blockt zwar nicht, generiert durch seine häufigen Abfragen aber viel CPU Last. Auch die Progressbar brauchst Du nicht selber zu incrementieren, das macht der Marquee-Style von sich aus.

    KDavid81 schrieb:

    ch musste es über ein Batch machen da ich ansonsten keinen Anhaltspunkt habe um auf das Ende zu warten

    Du hast genausoviel, wenn nicht sogar mehr, Kontrolle wenn Du im .NET Code bleibst. Auch hier lagerst Du den Code in einen Thread / BGW aus und signalisiert das Ende durch ein Event .

    Übrigens tust Du Dich um vieles leichter, wenn Du von VB2005 auf VS2010 gehst, gerade das Umgehen mit Threads ist hier viel einfacher.

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Imports Ediabas
    6. Public Class Form2
    8. Dim DB_up As String
    9. Dim DB_down As String
    10. Dim TestName As String
    11. Dim FolderPath As String
    12. Dim FolderName As String
    13. Dim TestPath As String
    14. Dim Batchup As String
    15. Dim Batchdown As String
    16. Dim j As Integer
    17. Dim RunFolder As String
    18. Dim GNLogger As String
    19. Private u As New Process()
    20. Private u1 As New Process()
    29. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    30. Dim Test_Path As String = Form1.SWBox.Text & "\" & Form1.DB_VARIBox.Text & "\" & Form1.LOCALBox.Text & "\"
    31. Test_PathBox.Text = Test_Path
    33. Dim HDD_Server As String = Form3.TextBox7.Text
    34. HDD_Update_ServerBox.Text = "HDD_UPDATE_SERVER_URL = " & HDD_Server
    36. Dim DatenBank1 As String = Form1.TextBox8.Text
    37. DatenBankBox1.Text = DatenBank1
    39. Dim DatenBank2 As String = Form1.TextBox19.Text
    40. DatenBankBox2.Text = DatenBank2
    42. 'Creating the Test Folder for Update
    43. If Form1.CheckBox2.Checked = False Then
    44. DB_up = Form1.TextBox8.Text
    45. FolderPath = Form3.TextBox14.Text & "\HDDUPDATE\"
    46. FolderName = Date.Now.ToString("yyyyMMdd_HH.mm.ss_" & DB_up)
    47. TestPath = FolderPath & Test_Path & FolderName
    48. End If
    49. 'Creting the Test Folder vor Update and Downgrade
    50. If Form1.CheckBox2.Checked = True Then
    51. Dim nav_gn As String = Form1.TextBox9.Text & "_"
    52. DB_up = Form1.TextBox12.Text
    53. DB_down = Form1.TextBox24.Text
    54. FolderPath = Form3.TextBox14.Text & "\HDDUPDATE\"
    55. FolderName = Date.Now.ToString("yyyyMMdd_HH.mm.ss_" & nav_gn & DB_up & "-" & DB_down)
    56. TestPath = FolderPath & Test_Path & FolderName
    57. End If
    59. TextBox2.Text = 1
    61. Dim Test_Name As String = FolderName
    62. Test_NameBox.Text = Test_Name
    66. Me.Focus()
    67. End Sub
    72. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    74. Application.DoEvents()
    75. Me.TextBox1.Text = ""
    76. Me.TextBox1.Refresh()
    79. 'Check if NAVDB exists
    81. If CheckBox1.Checked = True Then
    82. Dim navd As String = "NAVD"
    83. If Form1.TextBox9.Text = navd Then
    85. Dim nav_map_akt As String = "Kunden Navigation Karte vorhanden und aktiviert" 'if this Text appeares then erase Navi Map
    86. Dim nav_map_dea As String = "Kunden Navigation Karte deaktiviert" 'if this Text appeares then erase Navi Map
    87. Dim result_txt As String = ""
    89. If API.apiInit Then
    90. API.apiJob("NBT", "steuern_routine", "ARG;NAVI_MAP;RRR", "")
    91. API.apiResultText(result_txt, "STAT_NAVI_MAP_TEXT", 1, "T")
    93. If ((result_txt = nav_map_akt) Or (result_txt = nav_map_dea)) Then
    94. API.apiJob("buegl", "wait", "10000", "")
    95. API.apiJob("NBT", "steuern_routine", "ARG;NAVI_MAP;STR;Lösche Kunden Navigation Karte", "")
    96. API.apiJob("buegl", "wait", "120000", "")
    97. API.apiJob("NBT", "steuergeraete_reset", "", "")
    98. API.apiJob("buegl", "wait", "50000", "")
    100. API.apiJob("NBT", "steuern_routine", "ARG;NAVI_MAP;RRR", "")
    101. API.apiResultText(result_txt, "STAT_NAVI_MAP_TEXT", 1, "T")
    103. If ((result_txt = nav_map_akt) Or (result_txt = nav_map_dea)) Then
    105. API.apiJob("buegl", "wait", "10000", "")
    106. API.apiJob("NBT", "steuern_routine", "ARG;NAVI_MAP;STR;Lösche Kunden Navigation Karte", "")
    107. End If
    108. End If
    109. API.apiEnd()
    110. End If
    111. APIVB.closeServer()
    112. End If
    113. End If
    119. 'Creating of the RUN Folders
    121. For j = 1 To TextBox2.Text
    122. RunFolder = TestPath & "\run_" & Format(j, "00") & "\"
    123. ' Create an instance of StreamWriter to write text to a file.
    124. If System.IO.Directory.Exists(RunFolder) = False Then
    125. System.IO.Directory.CreateDirectory(RunFolder)
    126. Else : System.IO.Directory.CreateDirectory(RunFolder)
    127. End If
    128. 'Creating of the Update Batch
    129. Dim talexecution = "\E-Sys.bat -talexecution """
    130. Dim esysconfig_up = "\esysconfig\HDD_Update.txt"""
    131. Dim esysconfig_down = "\esysconfig\HDD_Downgrade.txt"""
    132. Dim Updatepath = "\esysconfig\"
    134. 'Creating of the Update Batch
    135. If Form1.CheckBox2.Checked = False Then
    136. Batchup = Form3.TextBox2.Text & Updatepath & "HDD_Update.bat"
    137. ' Create an instance of StreamWriter to write text to a file.
    138. Using sw As IO.StreamWriter = New IO.StreamWriter(Batchup)
    139. ' Add some text to the file.
    140. sw.Write(Form3.TextBox1.Text & talexecution & Form3.TextBox2.Text & esysconfig_up & " > " & RunFolder & "TAL_" & Format(j, "00") & ".txt")
    141. sw.WriteLine()
    142. sw.Write("more")
    143. sw.Close()
    144. End Using
    145. Else
    146. 'Creating the Update and Downgrade Batch
    147. Batchup = Form3.TextBox2.Text & Updatepath & "HDD_Update.bat"
    148. ' Create an instance of StreamWriter to write text to a file.
    149. Using sw As IO.StreamWriter = New IO.StreamWriter(Batchup)
    150. ' Add some text to the file.
    151. sw.Write(Form3.TextBox1.Text & talexecution & Form3.TextBox2.Text & esysconfig_up & " > " & RunFolder & "TAL_" & DB_up & "_" & Format(j, "00") & ".txt")
    152. sw.WriteLine()
    153. sw.Write("more")
    154. sw.Close()
    155. End Using
    156. Batchdown = Form3.TextBox2.Text & Updatepath & "HDD_Downgrade.bat"
    157. ' Create an instance of StreamWriter to write text to a file.
    158. Using sw As IO.StreamWriter = New IO.StreamWriter(Batchdown)
    159. ' Add some text to the file.
    160. sw.Write(Form3.TextBox1.Text & talexecution & Form3.TextBox2.Text & esysconfig_down & " > " & RunFolder & "TAL_" & DB_down & "_" & Format(j, "00") & ".txt")
    161. sw.WriteLine()
    162. sw.Write("more")
    163. sw.Close()
    164. End Using
    165. End If
    168. GNLogger = Form3.TextBox13.Text & "\GNLOGGER.EXE"
    169. Dim regVersion As RegistryKey
    170. regVersion = Registry.CurrentUser.OpenSubKey("Software\innovative systems\GNLogger\logging", True)
    171. If regVersion Is Nothing Then
    172. End If
    173. regVersion.SetValue("logdir", RunFolder)
    175. Me.lblHinweis.Text = _
    176. "Achtung: Datentransfer läuft, bitte warten Sie"
    177. Me.lblHinweis.Refresh()
    180. If Form1.CheckBox2.Checked = False Then
    183. ProgressBar1.Style = ProgressBarStyle.Marquee
    184. ProgressBar1.Show()
    185. Shell(GNLogger)
    186. Shell(GNLogger)
    187. u.StartInfo.FileName = Batchup
    188. u.StartInfo.CreateNoWindow = True
    189. u.StartInfo.UseShellExecute = False
    190. u.StartInfo.RedirectStandardOutput = True
    191. Application.DoEvents()
    192. u.Start()
    194. Dim t As New System.Threading.Thread(AddressOf WaitOnBatch)
    195. t.Start()
    197. Do While u.HasExited = False
    198. Loop
    200. Shell("Taskkill /F /IM GNLOGGER.EXE /T", , True, -1)
    201. CopyTraces()
    204. Else
    206. Shell(GNLogger)
    207. Shell(GNLogger)
    208. u1.StartInfo.FileName = Batchup
    209. u1.StartInfo.CreateNoWindow = True
    210. u1.StartInfo.UseShellExecute = False
    211. u1.StartInfo.RedirectStandardOutput = True
    212. u1.Start()
    213. u1.WaitForExit()
    214. Shell("Taskkill /F /IM GNLOGGER.EXE /T", , True, -1)
    215. CopyTraces()
    219. Shell(GNLogger)
    220. Shell(GNLogger)
    221. u1.StartInfo.FileName = Batchdown
    222. u1.StartInfo.CreateNoWindow = True
    223. u1.StartInfo.UseShellExecute = False
    224. u1.StartInfo.RedirectStandardOutput = True
    225. u1.Start()
    226. u1.WaitForExit()
    227. Shell("Taskkill /F /IM GNLOGGER.EXE /T", , True, -1)
    228. CopyTraces()
    229. End If
    231. Next j
    233. Dim Result As String = TestPath & "\Result.txt"
    234. ' Create an instance of StreamWriter to write text to a file.
    235. Using sw As IO.StreamWriter = New IO.StreamWriter(Result)
    236. ' Add some text to the file.
    237. sw.Write(TextBox1.Text)
    238. sw.Close()
    239. End Using
    241. If Form1.CheckBox1.Checked Then
    242. Dim ziel As String
    243. Dim zielfolder As String
    244. Dim zielpfad As String
    245. ziel = "\\Qt-e_diagnosis\Volume_1\Diagnosis\01_Diagnosis_Testing\Diagnostic Test Results - Flash Verification HDD Gracenote\NBT-HU\"
    246. zielfolder = Test_PathBox.Text & FolderName & "\"
    247. zielpfad = ziel & zielfolder
    248. My.Computer.FileSystem.MoveDirectory(TestPath & "\", zielpfad)
    250. End If
    252. Me.lblHinweis.Text = ""
    253. Me.lblHinweis.Refresh()
    254. ProgressBar1.Value = ProgressBar1.Maximum
    255. End Sub
    258. Private Sub CopyTraces()
    261. Dim Path As String
    262. Dim searchPattern As String
    263. Path = (TestPath)
    264. searchPattern = "*.txt"
    265. IO.Directory.GetFiles(Path, searchPattern, IO.SearchOption.AllDirectories)
    266. Me.TextBox1.Text = ""
    267. Dim sb As New System.Text.StringBuilder
    268. For Each sFile As String In IO.Directory.GetFiles(Path, searchPattern, IO.SearchOption.AllDirectories)
    269. Dim File As String = IO.File.ReadAllText(sFile)
    270. sb.AppendLine(File)
    271. Next sFile
    272. Application.DoEvents()
    273. TextBox1.Text = sb.ToString
    274. Me.TextBox1.Refresh()
    275. sb = Nothing
    276. Me.Cursor = Cursors.Default
    279. Dim EDIABAS_Log As String = Form3.TextBox17.Text & "\" & "api.trc"
    280. If IO.File.Exists(EDIABAS_Log) = True Then
    281. My.Computer.FileSystem.MoveFile(EDIABAS_Log, RunFolder & "api.trc")
    282. End If
    283. Dim strFileArray As String()
    285. strFileArray = System.IO.Directory.GetFiles(Form3.TextBox18.Text, "*.log", IO.SearchOption.AllDirectories)
    286. For Each aFile As String In strFileArray
    287. Dim aFileInfo As System.IO.FileInfo = New System.IO.FileInfo(aFile)
    288. My.Computer.FileSystem.MoveFile(aFile, RunFolder & "Esys" & aFileInfo.Name)
    289. Next
    292. End Sub
    294. Private Sub CloseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseButton.Click
    295. Me.Close()
    296. Form1.Show()
    297. Form1.Visible = True
    298. End Sub
    301. Private Sub WaitOnBatch()
    303. u.WaitForExit()
    306. End Sub
    307. End Class


    da hab ich das problem entweder es geht bleibt hängen am u.wait oder cpu last zu hoch
    im momment cpu last hoch und Progressbar ist erst sichbar wenn u.wait rum ist

    VB.NET-Quellcode

    1. ProgressBar1.Style = ProgressBarStyle.Marquee
    2. ProgressBar1.Show()
    3. Shell(GNLogger)
    4. Shell(GNLogger)
    5. u.StartInfo.FileName = Batchup
    6. u.StartInfo.CreateNoWindow = True
    7. u.StartInfo.UseShellExecute = False
    8. u.StartInfo.RedirectStandardOutput = True
    9. Application.DoEvents()
    10. u.Start()
    12. Dim t As New System.Threading.Thread(AddressOf WaitOnBatch)
    13. t.Start()
    15. Do While u.HasExited = False
    16. Loop
    18. Shell("Taskkill /F /IM GNLOGGER.EXE /T", , True, -1)
    19. CopyTraces()

    Lösung selber gefunden

    VB.NET-Quellcode

    1. u.StartInfo.FileName = Batchup
    2. u.StartInfo.CreateNoWindow = True
    3. u.StartInfo.UseShellExecute = False
    4. u.StartInfo.RedirectStandardOutput = True
    5. ProgressBar1.Style = ProgressBarStyle.Marquee
    6. Application.DoEvents()
    7. u.Start()
    8. Do Until u.HasExited
    9. Application.DoEvents()
    10. System.Threading.Thread.Sleep(200)
    11. Loop


    danke Kangaroo dein Tip wars dann mit dem Process.Start

Facebook
Telefonspende