dotNETportal.cz

Dobrý den,

potřebuji pomoct s podmínkami. Potřebuji následující kód udělat tak aby fungoval.

If (k1(1) = k2(1) = k3(1)) Or (k1(1) <> k2(1) <> k3(1)) Then
            If (k1(2) = k2(2) = k3(2)) Or (k1(2) <> k2(2) <> k3(2)) Then
                If (k1(3) = k2(3) = k3(3)) Or (k1(3) <> k2(3) <> k3(3)) Then
                    If (k1(4) = k2(4) = k3(4)) Or (k1(4) <> k2(4) <> k3(4)) Then
                        MsgBox("super")
                    Else
                        MsgBox("smůla4")
                    End If
                Else
                    MsgBox("smůla3")
                End If
            Else
                MsgBox("smůla2")
            End If
        Else
            MsgBox("smůla1")
        End If

Vidím první věc, na kterou jsem se kdysi dávno nachytal taky.

k1(1) = k2(1) = k3(1)

Zřejmě předpokládáte, že výsledek bude True pouze pokud budou všechny tři hodnoty stejné. Funguje to ale tak, že se nejdřív vyhodnotí k1(1) = k2(1) a potom porovná s k3(1). Takže pokud bude k1(1)=0, k2(1)=0, k3(1)=0, potom výsledek bude False, protože ve skutečnosti se to vyhodnotí jako True = 0 což dává výsledek False.

Stejně tak u operátoru <>.

A mohu se zeptat jak to mám udělat lépe?

Např.:

If k2(1) = k1(1) AndAlso k3(1) = k1(1) Then
End If

Pořád to nemohu udělat tak aby to fungovalo. Můžete prosím poslat celý nebo alespoň vetší část kódu.

Odzkoušejte ty podmínky po částech. Dál bych Vám asi poradil, abyste si jednotlivé "levely" těch podmínek dal do metod.

Např.

private bool IsAvailableAndCheap()
{
return (k(0) == k(1) && k(0) == k(2);
}

private bool IsAvailableAndCheap()
{
....
}

potom v té "hlavní" podmínce budete akorát volat jednotlivé metody:

if(IsAvailableAndCheap())
{
...
} else if(IsAvailableAndExpesive())
{
...
} else
{
...
}

I do budoucna se Vám pak ty podmínky budou lépe spravovat.

Už jsem zjistil, že nefunguje podmínka s rovná se. Ta vrací vždy false. Ta druhá podmínka všechny různé je v pořádku.

Pochopil jste to, co jsem psal v prvním komentáři? Zřejmě ne.

Už jsem to poopravil, ale i tak to nefunguje.

    Private Function JeStejne(ByVal cislo As Integer, ByVal k1() As Integer, ByVal k2() As Integer, ByVal k3() As Integer) As Boolean
        If k1(cislo) = k2(cislo) Then
            If k1(cislo) = k3(cislo) Then
                If k2(cislo) = k3(cislo) Then
                    Return True
                Else : Return False
                End If
            Else : Return False
            End If
        Else : Return False
        End If
    End Function

Proč to děláte takto debilně, že se v tom nedá vyznat a ne na jeden řádek pomocí AndAlso?

If k2(cislo) = k1(cislo) AndAlso
   k3(cislo) = k1(cislo) Then
  Return True
Else
  Return False
End If

Zřejmě nechápete vůbec nic. Toto jsou nutné základy.