Visual Basic

void SendVoiceBuffer(object VoiceBuffer, EventArgs e)
       {
           try
           {
              byte[] PCM_Buffer = (byte[])VoiceBuffer;
          //byte[] Encoded =VoiceEncoder .G711Audio.ALawEncoder.ALawEncode(PCM_Buffer);
              byte[] Encoded =ALawEncoder.ALawEncode(PCM_Buffer);
           Send_Bytes(Encoded);
           this.Dispatcher.BeginInvoke(new ShowMessagedelegate(ShowBufferSize), Encoded.Length.ToString());
           }
           catch (Exception ex) { ShowMessageBox(ex.Message); }
       }

Public Overloads Shared Function ALawEncode(ByVal data() As Byte) As Byte()

            Dim size As Integer = data.Length / 2
            Dim encoded As Byte() = New Byte(size - 1) {}
            For i As Integer = 0 To size - 1
                Dim _part1 As Integer = data(2 * i + 1)
                Dim _part2 As Integer = data(2 * i)
                Dim _test As Byte = BitConverter.GetBytes((_part1 << 8) Or _part2)(0)
                encoded(i) = ALawEncode(_test)
            Next
            Return encoded
        End Function

Public Overloads Shared Function ALawEncode(ByVal pcm As Short) As Byte
            Return pcmToALawMap(pcm And &HFFFF)
        End Function