Brauche Hilfe bei Übersetzung von C# nach VB.net

[C#VB (Gast)]

Hallo Leute,

Habe ein Problem mit einer Übersetzung von C# nach VB.Net.
Den ganzen Code habe ich mit einem Online Translator übersetzt.
Nur bei einem Teil gibt es ein Problem.

Originaler Code:

  private void GetCRC(byte[] message, ref byte[] CRC)
        {
            //Function expects a modbus message of any length as well as a 2 byte CRC array in which to 
            //return the CRC values:

            ushort CRCFull = 0xFFFF;
            byte CRCHigh = 0xFF, CRCLow = 0xFF;
            char CRCLSB;

            for (int i = 0; i < (message.Length) - 2; i++)
            {
                CRCFull = (ushort)(CRCFull ^ message[i]);

                for (int j = 0; j < 8; j++)
                {
                    CRCLSB = (char)(CRCFull & 0x0001);
                    CRCFull = (ushort)((CRCFull >> 1) & 0x7FFF);

                    if (CRCLSB == 1)
                        CRCFull = (ushort)(CRCFull ^ 0xA001);
                }
            }
            CRC[1] = CRCHigh = (byte)((CRCFull >> 8) & 0xFF);
            CRC[0] = CRCLow = (byte)(CRCFull & 0xFF);
        }

VB Code:

 
Private Sub GetCRC(ByVal message As Byte(), ByRef CRC As Byte())
        'Function expects a modbus message of any length as well as a 2 byte CRC array in which to 
        'return the CRC values:

        Dim CRCFull As UShort = &HFFFF
        Dim CRCHigh As Byte = &HFF, CRCLow As Byte = &HFF
        Dim CRCLSB As Char

        For i As Integer = 0 To (message.Length) - 3
            CRCFull = CUShort(CRCFull Xor message(i))

            For j As Integer = 0 To 7
                CRCLSB = ChrW(CRCFull And &H1)
                CRCFull = CUShort((CRCFull >> 1) And &H7FFF)

                If CRCLSB = 1 Then
                    CRCFull = CUShort(CRCFull Xor &HA001)
                End If
            Next
        Next
        CRC(1) = InlineAssignHelper(CRCHigh, CByte((CRCFull >> 8) And &HFF))
        CRC(0) = InlineAssignHelper(CRCLow, CByte(CRCFull And &HFF))
    End Sub

Das Problem liegt bei:

 
  If CRCLSB = 1 Then
                    CRCFull = CUShort(CRCFull Xor &HA001)
                End If

Der Compiler sagt:
Fehler  1  Der =-Operator ist für die Typen "Char" und "Integer" nicht 
definiert.

Kann mir da wer weiter helfen ??

[Borislav B. (boris_b)]

Das ist doch ziemlich eindeutig. Die Fehlermeldung sagt dir doch exakt 
wo der Fehler liegt:

Du kannst dem Char keinen Integer zuweisen. Dazu ist ein Typecast 
erforderlich.

Davon ab willst du vermutlich gar keine Zuweisung machen, oder? In einem 
If kommt das nicht so gut ;-)

[C#VB (Gast)]

Wenn ich es mit C# laufen lasse gibt es kein Problem.
Leider ist C# ein wenig zu steil für mich.

[Peter II (Gast)]

C#VB schrieb:
> Wenn ich es mit C# laufen lasse gibt es kein Problem.
> Leider ist C# ein wenig zu steil für mich.

also wenn das der ganze Grund ist für VB dann steht dich lieber ein paar 
stunden hin und lerne C#.

VB ist im Vergleich zu andere Programmiersparen immer irgendwie 
"andere". du Bekommst du C# viel mehr Unterstützung als für VB.

[Udo S. (urschmitt)]

C#VB schrieb:
> Wenn ich es mit C# laufen lasse gibt es kein Problem.
> Leider ist C# ein wenig zu steil für mich.

Na dann schreibs dir doch in VB. Wo ist das Problem? Warum nimmst du 
dann einen "zu steilen" C# Code und versuchst den zu übersetzen statt es 
in dem dir genehmen VB selbst zu implementieren?

[Borislav B. (boris_b)]

C#VB schrieb:
> Wenn ich es mit C# laufen lasse gibt es kein Problem.

Im C# Code ist ja auch kein Fehler. Der Generator scheint einen 
eingebaut zu haben (siehe Gleichheitszeichen, wie oben geschrieben).

Peter II schrieb:
> also wenn das der ganze Grund ist für VB dann steht dich lieber ein paar
> stunden hin und lerne C#.

Amen.

[Sven W. (svenw)]

Die Variable 'CRCLSB' ist ein Char. Der =-Operator ist an dieser Stelle 
kein Zuweisungsoperator. Vergleiche werden in VB tatsächlich mit einem 
'=' durchgeführt und nicht mit '==' wie bei C#.

Der Fehler "Der =-Operator ist für die Typen "Char" und "Integer" nicht 
definiert." sagt eigentlich nur, das es mit einem "Char" nicht geht. 
Also wenn es mit einem Char nicht geht, muss man ihn Konvertieren. Die 
MSDN schlägt an dieser Stelle die Funktion 'AscW' (Unicode) hin. 
Versuche es doch mal damit.

If AscW(CRCLSB) = 1 Then
    CRCFull = CUShort(CRCFull Xor &HA001)
End If

Mich würde noch die Funktion 'InlineAssignHelper(...)' interessieren, 
veröffentliche sie doch bitte mal.

MfG Sven

[Prog R. (daniel_v)]

oder einfach:

If CRCLSB = "1" Then
    CRCFull = CUShort(CRCFull Xor &HA001)
End If

Ansonsten gibt es für Character auch eine Equals() Methode.

http://msdn.microsoft.com/en-us/library/2s1s1247(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

[Yalu X. (yalu) (Moderator)]

Daniel V. schrieb:
> If CRCLSB = "1" Then

Da vergleichst du aber ein Char mit einem String, was dir der Compiler
ebenfalls ankreidet. Korrektes VB.NET wäre

  If CRCLSB = "1"c Then

Allerdings tut das etwas anderes als im ursprüngliche C#-Code.

Folgende Alternativen könnten hingegen funktionieren:

  If CRCLSB = Chr(1) Then

  If CRCLSB = "\cA"c Then

  If CRCLSB = "\x01"c Then

  If CRCLSB = "\001"c Then

Ich kann aber kein VB.NET, deswegen ist das Geschriebene möglicherweise
kompletter Unsinn ;-)

[Wegstaben V. (wegstabenverbuchsler)]

C#VB schrieb:
> Wenn ich es mit C# laufen lasse gibt es kein Problem.
> Leider ist C# ein wenig zu steil für mich.

naja, in VB gibt es ja auch "Datentypen", "Zuweisungen", "Vergleiche" 
etc.

Wenn du doch so vertraut bist mit VB, dann sollte das doch unaufwändig 
möglich sein, direkt die Fehlermeldungen zu identifiziern und zu 
beheben??