Chybejici operatory ve VB.Net pro .NetMF – .NET – Fórum – Programujte.com

 Ahoj,

zakladam nove tema, souvisejici s predchazejicim dotazem, ale na jine tema.

zjistil jsem, ze VB.Net pro .Net microframework asi postrada operatory. V cem je problem?

mam kod v c#, ktery funguje jak ma:

public float GetTemperature()
        {
            byte[] readBuffer = new byte[2];
            
            // Get MSB and LSB together
            int temp = readBuffer[0];
            temp <<= 8;
            temp |= readBuffer[1];

            // Negative value test (subzero temperature)
            temp -= (readBuffer[0] >= 0x80) ? 65536 : 0;

            // Get the temperature in Celsius
            return (float)((temp >> 4) * 0.0625);
        }

a pak stejny kod ve VB.net, ktery v desktopove aplikaci funguje, ale v .Net MF uz nejde kompilovat prave kvuli operatorum "<<=" a ">>"

Public Function CorretedTemp(readBuffer As Byte()) As Single
        ' Get MSB and LSB together
        Dim temp As Integer = readBuffer(0)
        temp <<= 8
        temp = (temp Or readBuffer(1))

        ' Negative value test (subzero temperature)
        temp -= If((readBuffer(0) >= &H80), 65536, 0)

        ' Get the temperature in Celsius
        Return CSng((temp >> 4) * 0.0625)
    End Function

Muj dotaz tedy zni, jestli je to chyba .Net MF, nebo delam chybu nekde ja? Pripadne, jestli jde dane operatory nejak nahradit.

Dekuji Adrian

Tak hluboce jsem se VB nezabýval, ale údajně podle google je Micro vážně neobsahuje, až na verzi 4.2, kde to někomu údajně někomu fungovalo.

Každopádně to můžeš obejít matematicky.

temp <<= 8;

Přepíšeš na 

temp = temp * 256 ' 256 = 2 ^ 8 - 8 počet bitů o kolik chceš posunout

A 

Return CSng((temp >> 4) * 0.0625)

Na 

Return CSng((temp / 16) * 0.0625) ' 16 = 2 ^ 4 - 4 počet bitů posunu

#2 NeregistrovanyHookyns
dekuji moc za rychlou odpoved,

mezitim jsem nasel a odskousel nasledujici reseni:

    <System.Runtime.CompilerServices.Extension>
    Public Function RightShift(integerToShift As Integer, bitsToShift As Integer) As Integer
        Return CInt(integerToShift / 2 ^ bitsToShift)
    End Function

    <System.Runtime.CompilerServices.Extension>
    Public Function LeftShift(integerToShift As Integer, bitsToShift As Integer) As Integer
        Return CInt(integerToShift * 2 ^ bitsToShift)
    End Function

co Ty na to (ptam se pro jistotu, nejsem si uplne jisty)?

Adrian

Implementace těch metod je totožná s tím, co jsem ti poslal. Výsledek výpočtu je však navíc obalený funkcí CInt()