VPF::Преобразование строки в числовой массив

ProgramerForever

Дата 26.3.2010, 21:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Доброй ночи, уважаемые форумчане.

Делаю подобие осциллографа.
Данные идут по виртуальному COM порту с микроконтроллера.
Чтобы нарисовать развёртку нужны числа.
Использую MsComm Control. Но в нём данные приходят в виде строки.
Вот вопрос: как строку быстро преобразовать в массив чисел?
Делаю так:

Код


Private Sub MSComm1_OnComm()
Dim a As Variant                     ' Массив для отрисовки
Dim s As String                      ' Входная строка
Dim L As Integer                     ' Длина принятых данных
Dim i As Integer                     ' Индекс для цикла
Const MAX = 255                      ' Максимальное значение числа с COM порта

       s = MSComm1.Input             ' Забираем данные
       L = Len(s)                    ' Считаем количество чисел
       ReDim a(L)                    ' Пересоздаём массив
       For i = 0 To L - 1            ' Формируем массив
            a(i) = Asc(Left(s, 1))   ' Текущий элемент массива - левый символ строки
            s = Right(s, Len(s) - 1) ' Откусываем левый символ
       Next i
                                     ' Процедура отрисовки
       Draw2D.Draw2D a, Me, 0, Me.ScaleWidth, 0, Me.ScaleHeight, MAX, 100, 100, vbGreen, 1, True
End Sub

Возможно ли это сделать быстее\изящнее?

Это сообщение отредактировал(а) ProgramerForever - 26.3.2010, 22:00

ProgramerForever

Дата 26.3.2010, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Проблема решена.

Код


    MSComm1.InputMode = comInputModeBinary'  Режим приёма данных

Но вопрос ещё в силе smile

Akina

Дата 26.3.2010, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Используй API-шную CopyMemory и перекинь полученное в массив типа Byte

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

ProgramerForever

Дата 26.3.2010, 23:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Пробую так:

Код


Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
  
Private Sub Form_Load()
    s = "this is string"
    Dim a As Variant
    CopyMemory a, s, Len(s)
    MsgBox (a(0)) 'Тут ошибка "Неверный тип"
End Sub

В дебаге видно, что a стало типа String.

Цитата

перекинь полученное в массив типа Byte

Как именно?

Это сообщение отредактировал(а) ProgramerForever - 27.3.2010, 08:55

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »