vb.net: Probleme mit If-Bedingung und String

[Andij (Gast)]

Hallo, habe hier folgendes Beispiel aufgebaut:

 Public rechenvalues As Byte() = {&HA, &HB, &HC, &HD, &HE, &HF, &H8, &H9}

'Code in einem Button

Dim str1 As String = "ZG"
        Dim str2 As String = "DD"
        Dim str3 As String
        Dim str4 As String = "D"
        Dim bt1 As Byte


        Dim MyByte500 As Byte
        If Byte.TryParse(str4, System.Globalization.NumberStyles.AllowHexSpecifier, Nothing, MyByte500) Then
            bt1 = MyByte500
        Else
            MsgBox("FAILURE")

        End If

        If str1 = "ZG" Or str1 = "ZH" Or str1 = "ZI" Or str1 = "ZK" = False And str2 = "DD" Then str3 = (Add(bt1, 26).ToString("X"))
        If str1 = "ZG" Or str1 = "ZH" Or str1 = "ZI" Or str1 = "ZK" = True And str2 = "DD" Then str3 = str4

Was der Code machen soll: Bedingungen verschiedener Strings prüfen und 
dann entweder mit einer eigenen Rechenregel (siehe weiter unten) 
addieren, oder je nach Bedingung einfach str3 = str4

Private Function Add(ByVal startingValue As Byte, ByVal steps As Integer) As Byte
        Dim startingIndex = Array.IndexOf(rechenvalues, startingValue)
        Dim finalIndex = (startingIndex + steps) Mod rechenvalues.Length
        Dim finalValue = rechenvalues(finalIndex)

        Return finalValue
    End Function

Nun habe ich hier testweise

str1 = ZG und str2 = DD

 sowie

str4 = D

 wie oben festgelegt

Hier:

If str1 = "ZG" Or str1 = "ZH" Or str1 = "ZI" Or str1 = "ZK" = False And str2 = "DD" Then str3 = (Add(bt1, 26).ToString("X"))
        If str1 = "ZG" Or str1 = "ZH" Or str1 = "ZI" Or str1 = "ZK" = True And str2 = "DD" Then str3 = str4

Müsste nun also str 3 = str4 ausgeführt werden, wodurch str3 dann 
ebenfalls ein "D" ist.

Das funktioniert auch, ABER wenn nach dem DD noch folgender Satz kommt:

If str1 = "ZG" Or str1 = "ZH" Or str1 = "ZI" Or str1 = "ZK" = False And str2 = "A1" Then str3 = (Add(bt1, 20).ToString("X"))

wird mein str3 (eigentlich D) plötzlich zu einer 9. Wenn man nun den 
letzten If-Satz anschaut:

If... and str2 = "A1" then str3 = (Add(bt1, 20)

Würde man str3 (D) + 20 (mit meinen vorgegebenen Regeln) machen, kommt 
auch 9 raus.

Aber wieso zum Himmel passiert das, obwohl

and str2 = "A1"

 überhaupt nicht gegeben ist? str2 ist oben fest der Wert "DD" 
zugwiesen, wieso wird also die "Rechnung" für "str = A1" durchgeführt?

Kann jemand mal schauen was ich falsch mache?

[nobody (Gast)]

https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/strcomp-function

[Andij (Gast)]

nobody schrieb:
> 
https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/strcomp-function

Da finde ich jetzt keine Erklärung wieso

(Add(bt1, 20)

 ausgeführt wird, obwohl die dazugehörige Bedingung (

and str2 = "A1"

 false ist, denn str2 ist DD.

[jibi (Gast)]

Da fehlen ein paar Klammern um alle Or-Bedingungen, wie Andij schon 
bemerkt hat...

[Andij (Gast)]

Da fehlten tatsächlich Klammern...dämlich wie das dann reagiert obwohl 
die

and str2 = "A1"

 - Bedingung ja trotzdem nie gegeben war, aber jetzt funktioniert ja 
alles.

[Schlaumaier (Gast)]

Gewöhne dir an deinen Variablen EINDEUTIGE NAMEN zu geben. Sonnst hast 
du ganz schnell ein ganz großes Problem.

gute_variable = "ich bin gut".

str1 = "ich bin mist, tauf mich um".