Перевести на VB

[Димитрий]

Помогите правильно перевести пример программы на VB.
Которая позволяет записывать и читать
величины переменной длины, подобные временам дельта.
Функция WriteVarLen(), передает 32-битное значение и преобразует
его в последовательность байтов, записываемых в файл.
Функция ReadVarLen() читает последовательность байтов из
файла до тех пор, пока не достигнет последнего байта значения
переменной длины, после чего возвращает 32-битное значние.

Код: Выделить всё

void WriteVarLen(register unsigned long value)
{
register unsigned long buffer;
buffer = value & 0x7F;
while ( (value >>= 7) )
{
buffer <<= 8;
buffer |= ((value & 0x7F) | 0x80);
}
while (TRUE)
{
putc(buffer,outfile);
if (buffer & 0x80)
buffer >>= 8;
else
break;
}
}
unsigned long ReadVarLen()
{
register unsigned long value;
register unsigned char c;
if ( (value = getc(infile)) & 0x80 )
{
value &= 0x7F;
do
{
value = (value >> 7) + ((c = getc(infile)) & 0x7F);
} while (c & 0x80);
}
return(value);
}

заранее благодарен Дмитрий.

[GSerg]

Это точно C#?

[Димитрий]

А кто его знает! Судя по фигурным кнопкам С, но я не знаком даже с простым его синтаксисом. Программировал только бейсик начиная с МК85.

[GSerg]

Я бы сказал, что это C, но никак не #.
И что, это надо на .NET перевести?

[Димитрий]

Конечно! Всего то две функции, для знающего - одной пяткой

[gaidar]

Конечно! Всего то две функции, для знающего - одной пяткой

Для знающего - да, а для вас, боюсь - нет. Как вы поставили задачу, так мы ее и решили:

Код: Выделить всё

Public Class DmitryClass

    Public Sub WriteVarLen(ByVal value As Long)
        Dim buffer As Long

        buffer = value And 127

        value = RShiftLong(value, 7)


        While value
            buffer = LShiftLong(buffer, 8)
            buffer = buffer Or ((value And 127) Or 128)
            value = RShiftLong(value, 7)
        End While

        While True
            Console.WriteLine(buffer.ToString())

            If (buffer And 128) Then
                buffer = RShiftLong(buffer, 8)
            Else
                Exit While
            End If
        End While
    End Sub

    Public Function ReadVarLen() As Long
        Dim value As Long
        Dim c As Char

        Dim a() As Char

        a = Console.ReadLine().ToCharArray()

        value = AscW(a(0))

        If (value And 128) Then
            value = value And 127

            Do
                value = RShiftLong(value, 7) + (AscW(a(1)) And 127)
            Loop Until (AscW(c) And 128)
        End If

        Return value

    End Function

    Public Function LShiftLong(ByVal Value As Long, _
        ByVal Shift As Integer) As Long

        MakeOnBits()

        If (Value And (2 ^ (31 - Shift))) Then GoTo OverFlow

        LShiftLong = ((Value And OnBits(31 - Shift)) * (2 ^ Shift))

        Exit Function

OverFlow:

        LShiftLong = ((Value And OnBits(31 - (Shift + 1))) * _
           (2 ^ (Shift))) Or &H80000000

    End Function

    Public Function RShiftLong(ByVal Value As Long, _
       ByVal Shift As Integer) As Long
        Dim hi As Long
        MakeOnBits()
        If (Value And &H80000000) Then hi = &H40000000

        RShiftLong = (Value And &H7FFFFFFE) \ (2 ^ Shift)
        RShiftLong = (RShiftLong Or (hi \ (2 ^ (Shift - 1))))
    End Function

    Private OnBits(0 To 31) As Long

    Private Sub MakeOnBits()
        Dim j As Integer, _
            v As Long

        For j = 0 To 30

            v = v + (2 ^ j)
            OnBits(j) = v

        Next j

        OnBits(j) = v + &H80000000

    End Sub

End Class

На VB.NET

Только это вам не поможет. Лучше поищите нормальный класс для работы с MIDI файлами, или, что еще лучше, расскажите, что-таки хотите сделать

[Димитрий]

Спасибо большое за ответ , попробую разобратся.
А делаю я небольшую прогу для работы с МИДИ файлами на низком уровне. Вот мне и нужно правильно прочитать величину переменной длины. Для интересующихся http://dimit.pochta.ru/remontmidi.html

С низким поклоном Дмитрий.

[gaidar]

Тогда это вам не поможет. Я написал код, который читает с консоли и выводит, фактически, просто код символа. В принципе, это дословный перевод всего, ктоме getc.
В любом случае - прогуляйтесь до www.pscode.com и поищите там программы для работы с MIDI. Они там точно были!

[GSerg]

Слушай Гайдара.
После чего читай мануал по FileStream, StreamReader и StreamWriter.

[gaidar]

Слушай Гайдара.

Золотые слова!