wDatenEingangDEZ = wDatenEingangByteDEZ(1) & " " & wDatenEingangByteDEZ(2) & ""

Dim m_check1 As Variant 'auf Modulebene, bei Programmstart initialisiert
m_check1 = Array(115, 83, 12, 13, 94, 0)
 
'------
 
dim i   as long
dim isEqual as boolean
 
isEqual = True
 
'Wäre besser der index bei wDatenEingangByteDEZ ginge auch von 0 ... 
' AnzahlElemente - 1
'also Option Base 0
for i = 1 to 6
 
  if m_check1(i-1) <> wDatenEingangByteDEZ(i) then
    isEqual = False
    exit for
  end if
 
next i

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 14.12.09 um 15:04:49 editiert.