Страница: 1 |
Страница: 1 |
Вопрос: VB глючит
Добавлено: 31.03.05 09:37
Автор вопроса: Yeputons | ICQ: 278444762
У меня такая ситуация: блок кода присвоения переменной какого-то значения не выполняется! (при остановке после блока переменная как была нулевая так и осталась) А при отладке все о'кей. Что делать?
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #1
Добавлено: 31.03.05 09:42
Ну, код, наверное, привести...
Номер ответа: 2
Автор ответа:
Yeputons
ICQ: 278444762
Вопросов: 71
Ответов: 179
Профиль | | #2
Добавлено: 31.03.05 09:55
Private Const Sym1 = "1"
Private Const Sym2 = "255"
Private Const Sym3 = "65535"
Private Const Sym4 = "16777215"
Private Const Sym5 = "4294967295"
Private Const Sym6 = "1099511627775"
Private Const Sym7 = "281474976710655"
Private Const Sym8 = "72057594037927935"
StrCode = "0"
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 1, 1))), Sym1))
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 2, 1))), Sym2))
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 3, 1))), Sym3))
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 4, 1))), Sym4))
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 5, 1))), Sym5))
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 6, 1))), Sym6))
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 7, 1))), Sym7))
StrCode = Add(StrCode, Multi(CStr(Asc(Mid(AStr, 8, 1))), Sym8))
Номер ответа: 3
Автор ответа:
Страшный Сон
Вопросов: 46
Ответов: 848
Профиль | | #3
Добавлено: 31.03.05 16:12
Чего-то я не видел нигде функций Add и Multi.