[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
string 2 byte
tbodyДата: Понедельник, 16.12.2013, 18:38 | Сообщение # 1
Группа: Пользователи
Сообщений: 4

Статус: Offline
Пишу программу, возникла необходимость перевести строчный символ в байт.
Как релализовать?

Что-то типа:
Dim A as string*2
Dim B1 as byte
Dim B2 as byte

B1 = str2byte(mid(A,1,1))
B2 = str2bin(mid(A,2,1))

Заранее Всем благодарен за развернутые ответы.


 
tbodyДата: Понедельник, 16.12.2013, 23:37 | Сообщение # 2
Группа: Пользователи
Сообщений: 4

Статус: Offline
Так как перевести символ в число разобрался

Dim A1 as string*2
Dim A2 as string*1
Dim B1 as byte
Dim B2 as byte
Dim C1 as integer

A2 = Mid(A1 , 1 , 1)
C1 = Asc(A2)

Получаем на выходе десятичное число
А вот как в byte теперь перевести?




Сообщение отредактировал tbody - Понедельник, 16.12.2013, 23:38
 
pchela5Дата: Вторник, 17.12.2013, 11:29 | Сообщение # 3
Группа: Свой человек
Сообщений: 85

Статус: Offline
Я ничего не понял, что надо сделать. Если это то, о чем я подумал, то, используя overlay, все решается быстро и красиво. Поподробнее, плиз.

 
tbodyДата: Вторник, 17.12.2013, 12:52 | Сообщение # 4
Группа: Пользователи
Сообщений: 4

Статус: Offline
Вопрос решен!
Есть данные с com-порта которые передаются в виде строки 6 символов
Нужно 2 символ загнать напрямую в порт С

Dim A as string*6
Dim B as string*1
Dim C as byte

B=mid(A,2,1)         'Выделяем второй символ   
C=asc(B)               'Преобразуем в Byte 

PortC=C                'Загоняем напрямую в порт

P.S.    Символ U в двоичной системе будет 01010101


 
ПетрДата: Вторник, 17.12.2013, 17:47 | Сообщение # 5
Группа: Проверенные
Сообщений: 47

Статус: Offline
Не лучше передавать данные в бинарном виде?
Размер кода и прошивки будет меньше.


 
tbodyДата: Вторник, 17.12.2013, 17:49 | Сообщение # 6
Группа: Пользователи
Сообщений: 4

Статус: Offline
Примерчик напишешь?

 
  • Страница 1 из 1
  • 1
Поиск: