Private Sub Stummiforum(lokID As Byte, lokSpeed As Integer)
 
        ' - Packet size 13 Bytes
        ' - Bytes 1 bis 4 sind die Meldungskennung. 
        ' - Byte 5 entspricht dem DLC der CAN-Meldung.
        ' - Bytes 6 - 13 sind die entsprechenden Nutzdaten. Dabei nicht benötigte Bytes sind mit 00 zu füllen.
 
        Dim i As Integer            ' als Laufvariable
        Dim myDLC As Byte           ' Anzahl der Datenbytes im CAN-Paket, 1 Byte (eigentlich nur ein Nibble)
        Dim myPrio As Byte          ' Priorität des befehls, 1 Nibble (4 Bits)
        Dim myResponseBit As Byte   ' wenn wir als PC-Programm senden, ist dieses Bit immer 0
        Dim myStartWord As UShort   ' die Kombination aus Prio, Command und Responsebit
        Dim myUID As ULong          ' Zieladresse des Objektes auf dem CAN, 32 Bits
        Dim myHash As UShort        ' unser Hash, 16 Bits
        Dim myCommand As Byte       ' unser Befehl, 8 Bits
        Dim mySubCommand As Byte    ' unser Unterbefehl, 8 Bits
        Dim myDataBytes(7) As Byte  ' array[0..7] Of Byte, immer genau 8 Bytes
        Dim mySendingStr As String  ' diese Zeichenkette werden wir über das UDP-Socket senden
        Dim samletBytes As Byte()
        Dim client As New UdpClient()
 
        myPrio = 0                  ' wir haben keine Priorität
        'mySubCommand = 0            ' Stopp
        myHash = &H4711             ' wie im Beispiel, kann aber auch &h0300 sein (als Minimum)
        myUID = &H0                 ' UID = 0 bedeutet: sende den Befehl an alle
 
        For i = 0 To 7              ' Märklins Doku zählt auch von D0 .. D7
            myDataBytes(i) = 0      ' init array
        Next
 
        myCommand = 8
        myDLC = 6
 
        myStartWord = ((myPrio << 12) + (myCommand) + (myResponseBit And 1) And &HFFFF)
        myDataBytes(0) = ((myUID >> 24) And &HFF) ' Big Endian encoding
        myDataBytes(1) = ((myUID >> 16) And &HFF)
        myDataBytes(2) = ((myUID >> 8) And &HFF)
        myDataBytes(3) = lokID
 
        ' bit nr. 2 = protocol (0 = MM2 / 40 = MFX / C0 = DCC
        ' bit nr. 3 = lok adresse
        ' bit nr. 4 og 5 = hastighed
        ' 00084711 6 00 00 08 03 03 20 Lok Geschwindigkeit SX1 Adr 3, V=0x0320=800 von 1024
        ' 00084711 6 00 00 08 03 00 A0 Lok Geschwindigkeit SX1 Adr 3, V=0x00A0=10 von 1024
        ' 00084711 6 00 00 40 01 03 20 Lok Geschwindigkeit mfx Adr 1, V=0x0320=800 von 1024
        ' 00084711 6 00 00 C0 03 01 20 Lok Geschwindigkeit DCC Adr 3
        ' 00084711 6 00 00 C0 03 00 A0 Lok Geschwindigkeit DCC Adr 
 
        Dim hexStr As String = lokSpeed.ToString("X4")
 
        Dim b4 = "&H" & hexStr.Substring(0, 2)
        Dim b5 = "&H" & hexStr.Substring(hexStr.Length - 2)
        'Dim b4 As Integer = CInt("&H" & hexStr.Substring(0, 2))
        'Dim b5 As Integer = CInt("&H" & hexStr.Substring(hexStr.Length - 2))
 
        myDataBytes(4) = b4
        myDataBytes(5) = b5
 
        mySendingStr = Chr(myStartWord >> 8) + Chr(myStartWord And &HFF)
        mySendingStr = mySendingStr + Chr((myHash >> 8) And &HFF) + Chr(myHash And &HFF) 'And &HFF) ' + Chr(myHash And &HFF)
        mySendingStr = mySendingStr + Chr(myDLC And &HFF)
 
        For i = 0 To 7
            mySendingStr = mySendingStr + Chr(myDataBytes(i) And &HFF) ' wir gehen mit "AND &hFF" auf Nummer sicher...
        Next
 
        samletBytes = Encoding.ASCII.GetBytes(mySendingStr)
 
        Dim toSend(12) As Byte
        Array.Copy(samletBytes, 0, toSend, 0, 12)
 
        client.Connect("192.168.1.250", 15731)
        client.Send(toSend, toSend.Length)
        client.Close()
    End Sub
 
 

const cCS2normMaxSpeed = 126
dim pCS2HashString As Integer
 

Sub SetMyHash(thisWord As Integer)
begin
dim myWord As Integer
 
myWord = SetHashToCS2Format( thisWord )  // ensure that the Bits 7..9 are set to 0x110
 
// if (myWord >= &h5000) then
if (myWord <= 0) then                                  // changed in C2XH v0.16a9 and in SDL v0.8a04
  pCS2HashString = ChrB(&h03) + ChrB(0)  // BIG Endian
else
  pCS2HashString = ChrB(Bitwise.BitAnd(Bitwise.ShiftRight(thisWord, 8), &hFF)) + ChrB(Bitwise.BitAnd(thisWord, &hFF)) 
end
end sub
 

Function LokBefehl(LokNr as integer, newGeschwindigkeit as integer) As String
// Input-Range:  newGeschwindigeit  = 0 .. 126
begin
dim MeldungsKennung As String
dim DLC As String
dim LocalID As Integer
dim LocIDstring As String
dim calculatedSpeed As Integer // (0) = Stop; (>=1000) = Vmax
 
if (LokNr > 0) then   // must be counted from 1
  
  MeldungsKennung = ChrB(0) + ChrB(&h08) + me.pCS2HashString  // prio=0, Loco-speed, not-response, CS2-Hash
  DLC = ChrB(6)   // six bytes length of data to be interpreted by device
  LocalID = LokNr   // MM2-Loco #1 = &h0001
  LocIDstring = ChrB(BitWise.ShiftRight(LocalID, 24) MOD 256) + ChrB(BitWise.ShiftRight(LocalID, 16) MOD 256) + ChrB(BitWise.ShiftRight(LocalID, 8) MOD 256) + ChrB(LocalID MOD 256)  // BIG ENDIAN
  if (newGeschwindigkeit = 0) then
    calculatedSpeed = 0
  elseif (newGeschwindigkeit >= cCS2normMaxSpeed) then
    calculatedSpeed = 1008
  else
    calculatedSpeed = newGeschwindigkeit * 8  // use this fix multiplier
  end
  
  Return MeldungsKennung + DLC + LocIDstring + ChrB(calculatedSpeed \ 256) + ChrB(calculatedSpeed MOD 256) + ChrB(0) + ChrB(0)   // set speed, extended to 13 bytes
  
else
  Return p13ZeroBytes
end
end function
 

 samletBytes = Encoding.ASCII.GetBytes(mySendingStr)
 
 

  Dim toSend(12) As Byte
        Array.Copy(samletBytes, 0, toSend, 0, 12)
 
        For i = 0 To toSend.Length - 1
            Debug.Print(toSend(i).ToString)
            If i = 9 Then
                toSend(i) = myDataBytes(4)
            ElseIf i = 10 Then
                toSend(i) = myDataBytes(5)
            End If
        Next