Alarmdisplay über Virtuelle Serielle Schnittstelle

  • VB.NET

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

    Alarmdisplay über Virtuelle Serielle Schnittstelle

    Guten abend zusammen,

    ich werkle schon seit Wochen an diesem Projekt herum, aber komme einfach auf keinen grünen zweig:





    VB.NET-Quellcode

    1. Private Sub Textanzeigen(ByVal text As String)
    2. If Me.txtMeldung.InvokeRequired Then
    3. Dim d As New TextBoxCallback(AddressOf Textanzeigen)
    4. Me.Invoke(d, New Object() {text})
    5. Else
    6. txtMeldung.Text = text
    7. {Prüfungspuffer} = {Prüfungspuffer} & text
    8. Me.Filtern()
    9. End If
    12. End Sub
    14. Private Sub Filtern()
    17. If txtMeldung.Text.Contains("Tuttlingen") = True Or _
    18. txtMeldung.Text.Contains("o. SR") = True Or txtMeldung.Text.Contains( _
    19. "Geisingen") = True _
    20. Or txtMeldung.Text.Contains("NA") = True Or _
    21. txtMeldung.Text.Contains("Alarm") = True Or _
    22. txtMeldung.Text.Contains("Alarm:") = True _
    23. Or txtMeldung.Text.Contains("*") Then
    24. 'Prüfungspuffer = txtMeldung.Text
    25. Else
    27. Me.Filtern()
    28. txtMeldung.Text = Prüfungspuffer
    29. txtMeldung.Text = ""
    30. End If
    32. 'Dim Stichworte() As String = {"Abc", "Def", "Beispiel", "example"}
    34. 'Dim StrArray() As String = {Prüfungspuffer}
    35. 'Dim FindThisStrings() As String = {"ABC", "DEF", "Beispiel"}
    36. 'For Each Str As String In StrArray
    37. ' For Each findStr As String In FindThisStrings
    38. ' If Str.Contains(findStr) = False Then
    39. ' 'Das was halt zu tun ist, wenn der NICHT String enhalten _
    40. ist!
    41. ' End If
    42. ' Next
    43. 'Next
    44. End Sub

    Explizit geht es nur um die beiden Subs Textanzeigen und Filtern, Alles andere Funktioniert soweit.



    Das Programm:



    Es soll ein Alarmdisplay für meine Feuerwehr werden, welches per EA
    Monitor(Manchen Floriansjünger unter euch werden vllt. wissen was ich
    hier schreibe... :) des Digitalen Melders den Empfangenen text auf dem PCbildschirm ausgibt.

    Das Problem:

    Die EA Monitor funktion zeigt Alarmierungen des gesamten Landkreises
    an.(anders gehts in diesem fall leider nicht). Deswegen sollen die
    Alarmtexte mit Stichworten aussortiert werden, sodass nur Explizit die
    uns betreffenden Alarmierungen ausgegeben werden.

    aber je nach dem, wie ich das ganze implementiere passiert



    entweder kommt gar kein Text,

    oder es kommen nur Text stückchen

    oder das Programm stürzt ab

    oder es kommt alles rein ohne gefiltert zu werden.



    Ich habe versucht, das Array "text" direkt zu filtern, bevor es zu txtMeldung übergeben wird.

    der Versuch, den Text erst an txtMeldung zu senden, und danach erst
    per if .contains(so wies jetz ungefähr ist) zu filtern, sah für mich als
    einfachste lösung aus, hat aber auch nicht geklappt.

    Auch der versuch, "text" in einen Puffer zu laden, dort
    auszusortieren bzw. nach ausgabe auf txtMeldung auszusortieren hat auch
    nicht funktioniert...





    Bitte helft mir, und gebt mir funktionierende lösungsvorschläge, sonst werde ich gezwungen sein, das Projekt abzubrechen...


    Vielen dank schonmal im vorraus...



    PS: Da der Text hier sonst zu lang geworden wäre, hab ich hier mal
    eine ZIP datei mit dem Projektdaten hochgeladen, dass ihr mal das ganze
    anschauen könnt:



    http://www.file-upload.net/download-7697613/Programm.zip.html

    Oder mal anderst gefragt: wie kann ich erkennen, dass die datenübertragung vollständig abgeschlossen ist?



    Hab gestern mal mit der ReadTimeout eigenschaft rumgespielt, bis ich
    geblickt hab, dass das ja nur gilt, wenn ein fehler auftritt...



    Gibts da sowas wie n empfangs timeout? so dass ich quasi sagen kann:



    If übertragung beendet = True then

    Im Invoke-Fall filterst Du nicht.
    Du hast VB2010, mach es gleich so:

    VB.NET-Quellcode

    1. Private Sub Textanzeigen(ByVal text As String)
    2. Me.txtMeldung.Invoke(Sub()
    3. Prüfungspuffer &= text
    4. Me.Filtern()
    5. End Sub)
    6. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dem vorhandenen Text wird weiterer hinzugefügt, du kannst keine Strings addieren. Ist das gleiche wie Pfüfungspuffer = Prüfungspuffer & text.

    Allerdings addiert man keine Strings. Ist schlechter Code-Stil, gewöhne dir daher gar nicht erst an zwei Strings zu addieren (also den +-Operator zu verwenden).


    //EDIT: Aber du weißt schon, dass du höllisch aufpassen musst, wenn - zumindest in der Theorie - ein Menschenleben davon abhängen könnte!

    BjöNi schrieb:

    Dem vorhandenen Text wird weiterer hinzugefügt, du kannst keine Strings addieren. Ist das gleiche wie Pfüfungspuffer = Prüfungspuffer & text.

    Allerdings addiert man keine Strings. Ist schlechter Code-Stil, gewöhne dir daher gar nicht erst an zwei Strings zu addieren (also den +-Operator zu verwenden).


    //EDIT: Aber du weißt schon, dass du höllisch aufpassen musst, wenn - zumindest in der Theorie - ein Menschenleben davon abhängen könnte!

    Naja von diesem Projekt hängen keine Menschenleben ab. Wir haben 2erlei Meldertypen. Tonmelder, welche lediglich das Alarmstichwort ausgeben zb. Brand. Nur die Führungskräfte besitzen Textmelder. Sprich: Die Mannschaft weiß im Grunde nur dass es sich beim Einsatz um einen Brand handelt, aber nichts weiteres. Drum hängt in unserer umkleide eben dieses Alarmdisplay, um der Mannschaft beim eintreffen, ins Gerätehaus eine Genauere Information über die Situation geben zu können. Die Führungskräfte sind ja durch den Textmelder genau informiert.

    Aber danke für den Hinweis :)

    hm komisch...

    Aaalso: Die erste meldung geht Problemlos ein. Merkwürdigerweise wenn jetzt eine weitere meldung eingehen sollte, kommt diese aber nicht mehr an. kann es sein, dass ich den port nun erst wieder schließen, und neu öffnen muss oder so? ?(

    VincentTB schrieb:

    Du solltest statt Or OrElse verwenden ;)
    Zitat MSDN: Wenn der erste Ausdruck True ist, wird der zweite nicht ausgewertet.

    Meinst du deswegen?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „engelinzivil“ ()

    Geht halt immer noch nicht...

    VB.NET-Quellcode

    1. Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles myComPort.DataReceived
    2. 'Select Case e.EventType
    3. ' Case IO.Ports.SerialData.Chars
    4. ' Case IO.Ports.SerialData.Eof
    5. 'End Select
    6. 'Dim msg As String = Me.myComPort.ReadExisting
    7. '' Me.Textanzeigen(msg)
    9. Static Puffer As String = ""
    10. Puffer &= Me.myComPort.ReadExisting 'an bereits eventuell vorhandene
    11. ' Daten anhängen
    12. Do Until Puffer.Contains(IO.Ports.SerialData.Eof) 'gibt es bereits ein Zeileendzeichen? (
    13. ' in dem Fall vbCrLf)
    14. 'Dim Zeile As String = Puffer.Substring(0, Puffer.IndexOf(vbCr)) _
    15. 'Zeile ausschneiden
    16. Puffer = Puffer.Substring(Puffer.IndexOf(IO.Ports.SerialData.Eof) + 1) 'der Rest im
    17. ' Puffer lassen
    18. If Puffer.Contains("Musterstadt")Then
    19. Me.Textanzeigen(Puffer)
    20. End If
    21. Loop 'Schleife so lange durchlaufen bis in Puffer kein vbCr mehr
    22. ' vorkommt
    23. End Sub
    25. Private Sub Textanzeigen(ByVal text As String)
    26. Me.txtMeldung.Invoke(Sub()
    27. txtMeldung.Text = ""
    28. Prüfungspuffer &= text
    29. txtMeldung.Text &= Prüfungspuffer
    30. Me.Filtern()
    31. End Sub)
    32. End Sub
    34. Private Sub Filtern()
    35. If txtMeldung.Text.Contains("Musterstadt") Then
    36. Prüfungspuffer = ""
    37. Exit Sub
    38. End If
    40. 'Dim Stichworte() As String = {"Musterstadt"}
    41. 'Dim StrArray() As String = {Text}
    43. 'For Each Str As String In StrArray
    44. ' For Each findStr As String In Stichworte
    45. ' If Str.Contains(findStr) = True Then
    46. ' txtMeldung.Text = Prüfungspuffer
    47. ' Else
    48. ' tslVersion.Text = "Abbruch"
    49. ' MsgBox(Prüfungspuffer)
    50. ' txtMeldung.Text = Prüfungspuffer
    52. ' End If
    53. ' Next
    54. 'Next
    57. End Sub



    So sieht das ganze mittlerweile aus. und es wird immer verwirrender... Jetz kommt nämlich gar nix mehr an....
    Was zum geier mach ich falsch?

    Setz beim Empfang einen Haltepunkt rein und stell sicher, dass Daten ankommen.
    Wenn sie ankommen, steppe Dein Programm schrittweise durch und überzeug Dich, dass es so arbeitet, wie es soll.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende