Перестал работать верный код

[Алексей К.]

Код: Выделить всё

m_RunningCompiled = ((2147483647 + 1) < 0)

Ругается на 6-ю ошибку "Overflow". Эта строка из классаов шифровки clsGost и clsBlowFish из подборки VBCrypto. Раньше у меня эти шифровки работали нормально, даже если запускаю новый проект только с вышеуказанным кодом - все равно ругается. Где грабли?

[Nicky]

Project - Project Properties - Compile - Advanced Optimizations

[Алексей К.]

А какие там галки выставить нужно? Ствил на "Убрать проверку переполнения целых" - все равно ругается

[Nicky]

Мда, поторопился

Код: Выделить всё

  MsgBox (CStr(2147483647) + 1) < 0


[Алексей К.]

Через сообщение прокатывает без всякий галок в доп. оптимизации.
а мой код не хочет:

Код: Выделить всё

Dim m_RunningCompiled As Boolean
m_RunningCompiled = ((2147483647 + 1) < 0)

Помогите избавиться от трабла плиз

[Nicky]

Код: Выделить всё

Dim m_RunningCompiled As Boolean
m_RunningCompiled = (CStr(2147483647) + 1) < 0


[inq]

Код: Выделить всё


Dim m_RunningCompiled As Boolean
m_RunningCompiled = (Clng(2147483647) + 1) < 0


упс, не успел

[Алексей К.]

Спасибо, буду надеятся что данная поправка никак не повлияет на работу алгоритма шифра и в будущем сюрпризов с раскодированием не будет. Но мы все-таки обошли траблу, а не избавились от нее. Вопрос остается открытым...

[inq]

Алексей К.
http://msdn2.microsoft.com/en-us/library/06bkb8w2.aspx

[Алексей К.]

спасибо за статейку, если я конечно правильно напереводил, то для избежания текущей траблы нужно конвертить в другие типы. но раньше-то у меня все работало без всяких конвертаций, да и многие эти алгоритмы шифровки используют, не думаю что всем приходилось код класса править. станно все это ...

[Nicky]

А вообще, можно не проверять
(2147483647 + 1) < 0 всегда false

[tyomitch]

Код: Выделить всё

Sub Main()
On Error Resume Next
If (2147483647 + 1) < 0 Then MsgBox "Не звезди!"
End Sub


запусти и убедись

[GSerg]

Всем участникам топика.

Переведите название переменной, упоминаемой в первом посте.

[Nicky]

Ха!, это равносильно

Код: Выделить всё

  MsgBox (2147483647 + 1) < 0
  MsgBox "Не звезди!"


[EDIT после поста GSerg] Бревно в глазу

[tyomitch]

А вообще, можно не проверять
(2147483647 + 1) < 0 всегда false

Я показал, что не всегда. Согласен?