FileSystemWatcher Textbox Aktualisieren

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Departet.

    FileSystemWatcher Textbox Aktualisieren

    Hallo,

    ich bin zur Zeit mit meinem Abschlussprojekt beschäftigt. Es wird eine CSV Datei eingelesen, in der sich die CPU Temperaturen befinden. Anschließend leuchtet auf einem MSR Board eine dementsprechende LED auf. Nun soll jedesmal wenn sich die CSV aktualisiert das Array der Werte aktualisiert werden und der letzte, neuste Wert ins TextFeld geschrieben werden. Bei allen Lösungen, die ich bisher hatte ist das Programm einfach ausgegangen. Ohne Fehler!

    Ich hänge einfach mal das KOMPLETTE Programm an.
    (Wenn etwas komisch programmiert ist bitte nicht so hart sein ^^)


    VB.NET-Quellcode

    1. Imports System.IO
    4. Public Class Form1
    6. Dim Datei As Object
    7. Dim myComPort As IO.Ports.SerialPort
    10. Private Sub ReadCSVFileToArray()
    11. Dim Reihe As Long
    12. Dim Spalte As Long
    13. Dim x As Integer
    14. Dim y As Integer
    15. Dim Test(1, 1) As String
    20. If Datei = "" Then
    22. MsgBox("Bitte erst eine Datei auswählen.")
    25. Else
    27. 'Check if file exist
    28. If File.Exists(Datei) Then
    29. Dim tmpstream As StreamReader = File.OpenText(Datei)
    32. Dim dateireihe() As String
    34. Dim Buffer() As String
    36. dateireihe = tmpstream.ReadToEnd().Split(Environment.NewLine)
    39. 'Auslesen des Ordners der CSV Datei
    40. Dim pfad As String
    41. pfad = Path.GetDirectoryName(Datei)
    43. 'Starten eines neuen FileSystemWatchers in dem Ordner der CSV. Beim ändern einer Datei wird das Event OnChanged gestartet
    44. Dim spy As New FileSystemWatcher()
    45. spy.Path = pfad
    46. spy.NotifyFilter = (NotifyFilters.LastWrite)
    47. AddHandler spy.Changed, AddressOf OnChanged
    48. spy.EnableRaisingEvents = True
    52. ' Display the data in textbox
    54. TextBox1.Text = TextBox1.Text & "In diesem Textfeld sehen sie die derzeitigen Temperaturwerte ihrer CPU."
    56. TextBox1.Text = TextBox1.Text & vbNewLine & "Diese aktualisieren sich alle 30 Sekunden."
    58. TextBox1.Text = TextBox1.Text & vbNewLine
    60. TextBox1.Text = TextBox1.Text & vbNewLine
    63. ' Redimension the array.
    64. Reihe = UBound(dateireihe)
    65. Buffer = dateireihe(0).Split(",")
    66. Spalte = UBound(Buffer)
    67. ReDim Test(Reihe, Spalte)
    71. ' Copy the data into the array.
    72. For x = 0 To Reihe
    73. Buffer = dateireihe(x).Split(",")
    74. For y = 0 To Spalte
    75. Test(x, y) = Buffer(y)
    76. Next
    77. Next
    79. tmpstream.Close()
    81. Dim CpuTemp As Integer
    83. Dim Cputemperatur(1) As Integer
    85. ReDim Cputemperatur(CpuTemp)
    87. For x = 8 To Reihe - 1
    89. For y = 0 To Spalte
    91. TextBox1.Text = TextBox1.Text & "Ihre derzeitige Cpu Temperatur beträgt: "
    93. CpuTemp = Test(x, y)
    95. TextBox1.Text = TextBox1.Text & CpuTemp & "°C"
    97. TextBox1.Text = TextBox1.Text & Environment.NewLine
    100. Next
    102. Next
    105. 'Fehler des Programmes werden ab hier übersrprungen
    106. On Error Resume Next
    109. 'Sollte die CPU Temperatur über 50° sein, so färbt sich die PictureBox rot und die rote LED des MSR Boards leuchtet auf
    110. If (CpuTemp > 50) Then
    112. PictureBox1.BackColor = Color.Red
    113. myComPort.DtrEnable = False
    114. myComPort.RtsEnable = True
    117. Else
    119. 'Sollte die CPU Temperatur <=50° sein, so färbt sich die PictureBox grün und die grüne LED des MSR Boards leuchtet auf
    120. PictureBox1.BackColor = Color.Green
    121. myComPort.RtsEnable = False
    122. myComPort.DtrEnable = True
    124. On Error GoTo 0
    126. End If
    128. 'Ans Ende der Box springen
    129. With TextBox1
    130. .Select()
    131. SendKeys.Send("^({END})")
    132. End With
    136. End If
    140. End If
    144. End Sub
    147. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    148. ReadCSVFileToArray()
    150. End Sub
    154. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    156. End Sub
    159. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    161. End Sub
    163. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    165. PictureBox1.BorderStyle = 1
    166. PictureBox2.BorderStyle = 1
    168. End Sub
    170. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    171. Datei = FktDatei()
    173. End Sub
    176. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    178. 'Bei einem Fehler wird zu dem Punkt "Fehler" gesprungen, welcher dann eine Fehler Meldung ausgibt und die Picture Box rot färbt
    179. On Error GoTo Fehler
    181. 'Es wird versucht den COM Port zu öffnen. Sollte dies ohne Fehler erfolgen, so färbt sich die PictureBox grün und das Sub wird verlassen
    182. myComPort = New IO.Ports.SerialPort("COM" + RichTextBox1.Text)
    183. myComPort.Open()
    184. If (Err.Number = 0) Then
    186. PictureBox2.BackColor = Color.Green
    187. Exit Sub
    189. End If
    191. Fehler:
    193. PictureBox2.BackColor = Color.Red
    194. MsgBox("COM-Port nicht verfügbar")
    196. End Sub
    198. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    200. 'Sollte der COM Port geschlossen werden, so färbt sich die PictureBox gelb
    201. myComPort.Close()
    202. PictureBox1.BackColor = Color.Yellow
    205. End Sub
    207. Public Function FktDatei()
    209. 'Einlesen der Datei
    211. Dim pathinfo As Object
    214. Dim openFileDialog1 As New OpenFileDialog()
    216. openFileDialog1.Filter = "Text (*.CSV)|*.CSV|Alle Dateien (*.*)|*.*"
    217. openFileDialog1.Title = "Wähle die auszulesende Csv Datei aus."
    218. openFileDialog1.InitialDirectory = "C:\"
    221. If openFileDialog1.ShowDialog() = DialogResult.OK Then
    222. ListBox1.Items.AddRange(openFileDialog1.FileNames)
    224. End If
    226. ' Load the file.
    228. pathinfo = openFileDialog1.FileName
    231. FktDatei = pathinfo
    233. End Function
    237. Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
    238. MsgBox("Datei wurde geändert")
    239. End Sub
    242. End Class

    Würdest du bitte GENAU sagen was dein Problem ist? Ich habe keine Lust ein ganzen Code nach "???" zu durchsuchen.
    "Programm geht aus" damit kann ich nichts anfangen.

    ---

    Bei dem kleinen Code kannst du den Debugger mit Einzelschritten durchlaufen lassen, dann weißte die Zeile des Problems.

    Beim ändern der Datei soll folgendes geschehen als eigenes Event:

    VB.NET-Quellcode

    1. Dim Reihe As Long
    2. Dim Spalte As Long
    3. Dim x As Integer
    4. Dim y As Integer
    5. Dim Test(1, 1) As String
    8. Dim tmpstream As StreamReader = File.OpenText(Datei)
    11. Dim dateireihe() As String
    13. Dim Buffer() As String
    15. dateireihe = tmpstream.ReadToEnd().Split(Environment.NewLine)
    17. ' Redimension the array.
    18. Reihe = UBound(dateireihe)
    19. Buffer = dateireihe(0).Split(",")
    20. Spalte = UBound(Buffer)
    21. ReDim Test(Reihe, Spalte)
    25. ' Copy the data into the array.
    26. For x = 0 To Reihe
    27. Buffer = dateireihe(x).Split(",")
    28. For y = 0 To Spalte
    29. Test(x, y) = Buffer(y)
    30. Next
    31. Next
    33. tmpstream.Close()
    35. Dim CpuTemp As Integer
    37. Dim Cputemperatur(1) As Integer
    39. ReDim Cputemperatur(CpuTemp)
    41. For x = 8 To Reihe - 1
    43. For y = 0 To Spalte
    45. CpuTemp = Test(x, y)
    47. Next
    49. Next
    52. TextBox1.Text = TextBox1.Text & "Ihre derzeitige Cpu Temperatur beträgt: "
    54. TextBox1.Text = TextBox1.Text & CpuTemp & "°C"
    56. TextBox1.Text = TextBox1.Text & Environment.NewLine



    Wie kann ich das machen? Wenn ich das GENAU SO in ein eigenes SUB schreibe und es dann aufrufe geht das Programm aus. Sind Fehler in dem Code? Oder ist es nicht möglich mit einem Event?

Facebook
Telefonspende