Hallo Forum,
ich bin relativ nei in VB und habe folgendes Problem:
Ich bekomme String-Befehle in form eines Hex-Codes rein (ähnlich A0.7C.34.xx...)
Nun möchte ich jeden eintreffenden Befehl in einem String-Array abspeichern, um anschließend zu prüfen ob der Befehl schon mal eingegangen ist. Ich will nämlich jeden Befehl in einer ListView ausgeben und bereits vorhandene Befehle sollen darin nicht doppelt auftauchen.
Die Liste zu ertellen und zu befüllen ist kein problem, allerdings schreibt er mir trotzdem jeden Befehl hinein.
Meine Überlegung:
1.allcmds soll jeden eingegangenen Befehl speichern
2. Dann mit einer Methode das Array auf den aktuell anliegenden Befehl prüfen, wenn bereits im Array -> nicht in Liste. Ansonsten schreibe ihn in die Liste
Private
Sub ReadList(ByVal command AsString)
Dim lvItem AsListViewItem
Dim allcmds(100) As String
With ListView1
If telegramm.success = sendstatus.ok And Count_List <1 Then
lvItem = .Items.Add(Count_list)
lvItem.SubItems.Add(DateTime.Now)
lvItem.SubItems.Add(command) <------Hier wird der eintreffende Befehl in die Liste eingetragen
allcmds(Count_list) = command <----Count_List =0 wird immer um 1 erhöht nach befüllen
Count_list = Count_list + 1
ElseIf telegramm.success = sendstatus.ok AndNot Array.ReferenceEquals(allcmds, command) Then <---Hier suche ich eine Methode die mir das Array durchsucht
lvItem = .Items.Add(Count_list)
lvItem.SubItems.Add(DateTime.Now)
lvItem.SubItems.Add(command) allcmds(Count_list) = command
Count_list = Count_list + 1
Hoffe ihr könnt mir da ein wenig auf die Spünge helfen.
Gruß
TimeOut
ich bin relativ nei in VB und habe folgendes Problem:
Ich bekomme String-Befehle in form eines Hex-Codes rein (ähnlich A0.7C.34.xx...)
Nun möchte ich jeden eintreffenden Befehl in einem String-Array abspeichern, um anschließend zu prüfen ob der Befehl schon mal eingegangen ist. Ich will nämlich jeden Befehl in einer ListView ausgeben und bereits vorhandene Befehle sollen darin nicht doppelt auftauchen.
Die Liste zu ertellen und zu befüllen ist kein problem, allerdings schreibt er mir trotzdem jeden Befehl hinein.
Meine Überlegung:
1.allcmds soll jeden eingegangenen Befehl speichern
2. Dann mit einer Methode das Array auf den aktuell anliegenden Befehl prüfen, wenn bereits im Array -> nicht in Liste. Ansonsten schreibe ihn in die Liste
Private
Sub ReadList(ByVal command AsString)
Dim lvItem AsListViewItem
Dim allcmds(100) As String
With ListView1
If telegramm.success = sendstatus.ok And Count_List <1 Then
lvItem = .Items.Add(Count_list)
lvItem.SubItems.Add(DateTime.Now)
lvItem.SubItems.Add(command) <------Hier wird der eintreffende Befehl in die Liste eingetragen
allcmds(Count_list) = command <----Count_List =0 wird immer um 1 erhöht nach befüllen
Count_list = Count_list + 1
ElseIf telegramm.success = sendstatus.ok AndNot Array.ReferenceEquals(allcmds, command) Then <---Hier suche ich eine Methode die mir das Array durchsucht
lvItem = .Items.Add(Count_list)
lvItem.SubItems.Add(DateTime.Now)
lvItem.SubItems.Add(command) allcmds(Count_list) = command
Count_list = Count_list + 1
Hoffe ihr könnt mir da ein wenig auf die Spünge helfen.
Gruß
TimeOut