| 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
| Примерчик напишешь?
|
| |
| |
