Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / помогите перевести эти символы....) / 3 сообщений из 3, страница 1 из 1
29.03.2007, 11:54
    #34424075
aseka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите перевести эти символы....)
люди, помогите преобразовать эти нули и единицы в обычные цифры. очень прошу.вот это- 00000001 / 00001001 / 00000100 / 00000101 / 00000100 / 00000111 / 00000011.через таблицу BCD говорят легче. но я ниче в этом не понимаю...(
...
Рейтинг: 0 / 0
29.03.2007, 13:07
    #34424436
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите перевести эти символы....)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
?btod("001101")

FUNCTION btod

PARAMETERS lcBin

LOCAL lnResult

lnResult =  0 
FOR i=  1  TO LEN(lcBin)
	lnResult = lnResult + VAL(LEFT(RIGHT(lcBin,i), 1 ))* 2 ^(i- 1 )
NEXT 
RETURN lnResult
...
Рейтинг: 0 / 0
05.04.2007, 10:43
    #34439539
GoodCat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите перевести эти символы....)
local lcStr, lny, lnLen
lcStr = '101'
lny = 0
lnLen = iif(len(lcstr)>=32, 32, len(lcstr))
for i = lnLen to 1 step -1
lcChar = substr(lcStr, i, 1)
if lcChar='1' then
lny = bitset(lny ,lnLen-i)
endif
endfor
?lny
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / помогите перевести эти символы....) / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]